استعمال ComboBox والاستغناء عن Edit في الجداول

[سيل الجليد]

يعطيكم العافية الطريقة نجحت اخيراً وهذا الكود باكامل

PHP كود :

procedure TForm1.Button5Click(Sender: TObject);
begin
Table1.Append;
Table1.FieldByName('City').AsString :=  ComboBox1.Text;
table1.post;

ComboBox1.Text := '';
end; 


[سيل الجليد]

اضفت حقل من نوع date

اضفت تقويم في الفورم احتاج اثناء الضغط على الزر يدخل المدينه مع التاريخ المحدد

هل هذا الكود صحيح

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin

Table1.Append;
Table1.FieldByName('City').AsString :=  ComboBox1.Text;
Table1.FieldByName('Date').AsString :=  DateTimePicker1.Name;
table1.post;

ComboBox1.Text := '';

end; 


[imad_soft]

السلام عليكم

كود :

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:='';