+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استعمال ComboBox والاستغناء عن Edit في الجداول (/showthread.php?tid=2017)
الصفحات:
1
2
استعمال ComboBox والاستغناء عن Edit في الجداول - سيل الجليد - 17-05-2010
يعطيكم العافية الطريقة نجحت اخيراً وهذا الكود باكامل
PHP كود :
procedure TForm1.Button5Click(Sender: TObject);
begin
Table1.Append;
Table1.FieldByName('City').AsString := ComboBox1.Text;
table1.post;
ComboBox1.Text := '';
end;
استعمال ComboBox والاستغناء عن Edit في الجداول - سيل الجليد - 17-05-2010
اضفت حقل من نوع 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;
استعمال ComboBox والاستغناء عن Edit في الجداول - imad_soft - 18-05-2010
السلام عليكم
كود :
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:='';