السلام عليكم
كود :
if (sEdit1.text<>'') and (sEdit2.text<>'') and (sEdit3.text<>'') and (smaskedit1.text<>'') and (smaskedit2.text<>'') and (scombobox1.text<>'') and (scombobox2.text<>'')
then begin
table1.active:=true;
table1.Append;
table1.Edit;
table1numvole.AsString:=sEdit1.Text;
table1date.AsString:=smaskEdit1.Text;
table1.FieldByName('Heure depart').AsString:=smaskEdit2.Text;
table1.fieldByName('Ville depart').AsString:=sedit2.Text;
table1Destination.AsString:=scombobox1.Text;
table1.fieldByName('Nomber de Place').AsString:=sedit3.Text;
table1Company.AsString:=scombobox2.Text;
table1.Post;
table1.next;
sedit1.Text:='';
sedit2.Text:='';
sedit3.Text:='';
smaskedit1.Text:='';
smaskedit2.Text:='';
scombobox1.Text:='';
scombobox2.Text:='';