Добавление записи в таблицу

[folga]

Всем здравствуйте!
Начал работать с базой данных FireBird через Delphi, возникла следующая ошибка: для добавления записи использую следующий код:

procedure TForm6.Button1Click(Sender: TObject);
begin
with IBDataSet2 do begin
Insert;
FieldByName('Tab_no').AsInteger := strtoint(Edit1.Text);
FieldByName('Fam').AsString := Edit2.Text;
FieldByName('Name').AsString := Edit3.Text;
FieldByName('Otch').AsString := Edit4.Text;
FieldByName('pol').AsString := Edit5.Text;
FieldByName('city').AsString := Edit6.Text;
FieldByName('street').AsString := Edit7.Text;
FieldByName('dom').AsInteger := strtoint(Edit8.Text);
FieldByName('kvartira').AsInteger := strtoint(Edit9.Text);
FieldByName('phone').AsString := Edit10.Text;
FieldByName('dr').AsDateTime := strtodate(Edit11.Text);
FieldByName('data_priema').AsDateTime := strtodate(Edit12.Text);
FieldByName('kategoria').AsInteger := strtoint(Edit13.Text);
post;
end;

когда доходит до последней строчки - зависает. Не подскажете, где ошибка?

[dron-s]

ну для начала открой любой учебник по SQL и познакомся с простыми и самыми необходимыми функциями Select, Inset Into, Delete, Update... ну а дальше любую книгу по БД и у тебя много вопросов сами по себе отпадут...

[eldavad]

Пользуйся не edit, а dbedit(на вкладке datacontrols).
Бросаешь dbedit на форму, соединяешь с таблицей и с необходимым полем
insert - cоздать пустую строку
post - применить изменения

[artemavd]

когда доходит до последней строчки - зависает.

Что значит "зависает"?
А я бы через параметризированный запрос бы вставил записи вот так:

procedure TForm6.Button1Click(Sender: TObject);
begin
 IBDataSet2.SQLs.InsertSQL:='INSERT INTO <table_name> VALUES(:T,:F,:N,:O,:P,:C,:S,:D,:KV,:PH,:DR,:DP,:KA)';
 IBDataSet2.ParamByName('T').Value:=strtoint(Edit1.Text);
 IBDataSet2.ParamByName('F').Value:=Edit2.Text;
 IBDataSet2.ParamByName('N').Value:=Edit3.Text;
 IBDataSet2.ParamByName('O').Value:=Edit4.Text;
 IBDataSet2.ParamByName('P').Value:=Edit5.Text;
 IBDataSet2.ParamByName('C').Value:=Edit6.Text;
 IBDataSet2.ParamByName('S').Value:=Edit7.Text;
 IBDataSet2.ParamByName('D').Value:=strtoint(Edit8.Text);
 IBDataSet2.ParamByName('KV').Value:=strtoint(Edit9.Text);
 IBDataSet2.ParamByName('PH').Value:=Edit10.Text;
 IBDataSet2.ParamByName('DR').Value:=strtodate(Edit11.Text);
 IBDataSet2.ParamByName('DP').Value:=strtodate(Edit12.Text);
 IBDataSet2.ParamByName('KA').Value:=strtoint(Edit13.Text);
end;

P.S. За синтаксис написанного не ручаюсь, т.к. писал на работе и нет возможности проверить в Delphi код.

[Stilet]

Что значит "зависает"?

Видимо Post виснет