05.08.2009, 15:01
|
|
Активный
|
|
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
|
|
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Insert;
adotable1.Edit;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
str : string;
begin
str:= dbedit1.Text; //загоняем в переменную содержимое dbedit1
adotable1.Post;
adotable2.Insert;
adotable2.Edit;
adotable2.FieldByName('familiy').AsString:=str;
adotable2.Post;
end;
|