Заполнение полей по умолчанию

[matroskin24]

Люди подскажите пожалуйста, вот есть код:
procedure TForm9.Button_AddClick(Sender: TObject);
begin
Form2.Table2.Insert;
Form2.Table2.FieldByName('Таб №').AsString:= Edit1.Text;
Form2.Table2.FieldByName('Фамилия') .AsString:= Edit2.Text;
Form2.Table2.FieldByName('№ пассатиж').AsString:= Edit3.Text;
Form2.Table2.FieldByName('Дата испытания пассатиж').AsString:= Edit4.Text;
Form2.Table2.FieldByName('№ отвертки').AsString:= Edit5.Text;
Form2.Table2.FieldByName('Дата испытания отвертки').AsString:= Edit6.Text;
Form2.Table2.FieldByName('№ перчаток').AsString:= Edit7.Text;
Form2.Table2.FieldByName('Дата испытания перчаток').AsString:= Edit8.Text;
Form2.Table2.FieldByName('№ конт. лампы').AsString:= Edit9.Text;
Form2.Table2.FieldByName('Дата испытания лампы').AsString:= Edit10.Text;
Form2.Table2.Post;
begin // Очистка формы
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
end;
end;
end.

Благодаря ему вносятся данные в таблицу, но есть проблема, нужно что бы все поля на форме заполнялись, а как сделать чтоб можно было заполнить например не все поля а только несколько и данные заносились, а то так ругаеться что не все данные внесены и выдает ошибку!

[mihali4]

Те поля, наличие данных в которых не является обязательным, нужно описать как REQUIRED=FALSE.

[matroskin24]

Сообщение от mihali4

Те поля, наличие данных в которых не является обязательным, нужно описать как REQUIRED=FALSE.

А не подскажишь подробней где это нужно написать, буду благодарен!

[Sm1Le]

А не легче SQL-запросы использовать ?? =))

[Шульц]

И в правду, почему SQL не устраивает?

[mihali4]

А что, SQL поможет обойти поля, обязательные к заполнению?
Вы хоть первоначальный вопрос читайте...

[Tanuska___:)]

попробуй так:
Form2.Table2.Active:=true;
Form2.Table2.Append;
//далее твои данные
Form2.Table2.FieldByName('Таб №').AsString:= Edit1.Text;
Form2.Table2.FieldByName('Фамилия') .AsString:= Edit2.Text;

Form2.Table2.FieldByName('№ пассатиж').AsString:= Edit3.Text;
Form2.Table2.FieldByName('Дата испытания пассатиж').AsString:= Edit4.Text;
Form2.Table2.FieldByName('№ отвертки').AsString:= Edit5.Text;
Form2.Table2.FieldByName('Дата испытания отвертки').AsString:= Edit6.Text;
Form2.Table2.FieldByName('№ перчаток').AsString:= Edit7.Text;
Form2.Table2.FieldByName('Дата испытания перчаток').AsString:= Edit8.Text;
Form2.Table2.FieldByName('№ конт. лампы').AsString:= Edit9.Text;
Form2.Table2.FieldByName('Дата испытания лампы').AsString:= Edit10.Text;
Form2.Table2.Post;

[Tanuska___:)]

а насчет

REQUIRED=FALSE.

это смотреть в инспекторе объектов можешь поменять или
ADOTable2Фамилия.Required:=false;
на будущее (сама "собаку съела" на этом) не прописывай названия полей на русском используй лучше англ. буквы

[matroskin24]

Сообщение от Tanuska___:)

попробуй так:
Form2.Table2.Active:=true;
Form2.Table2.Append;
//далее твои данные
Form2.Table2.FieldByName('Таб №').AsString:= Edit1.Text;
Form2.Table2.FieldByName('Фамилия') .AsString:= Edit2.Text;

Form2.Table2.FieldByName('№ пассатиж').AsString:= Edit3.Text;
Form2.Table2.FieldByName('Дата испытания пассатиж').AsString:= Edit4.Text;
Form2.Table2.FieldByName('№ отвертки').AsString:= Edit5.Text;
Form2.Table2.FieldByName('Дата испытания отвертки').AsString:= Edit6.Text;
Form2.Table2.FieldByName('№ перчаток').AsString:= Edit7.Text;
Form2.Table2.FieldByName('Дата испытания перчаток').AsString:= Edit8.Text;
Form2.Table2.FieldByName('№ конт. лампы').AsString:= Edit9.Text;
Form2.Table2.FieldByName('Дата испытания лампы').AsString:= Edit10.Text;
Form2.Table2.Post;

Все равно так не получаеться, все таже ошибка

[maladoy]

Поставь у edit.Text не '' а ' '(пробел между апострофами)