27-08-2013, 12:29 AM
وعليكم السلام
اضن ان الكود واضح لا يحتاج لشرح
اضن ان الكود واضح لا يحتاج لشرح
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table2.Append;
Table1.FieldValues['Field']:=Edit1.Text;
Table2.FieldValues['Field']:=Edit1.Text;
Table1.Post;
Table2.Post;
end;
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان