دخول

hmidadz · 03-09-2013, 11:05 AM

سلام عليكم
انا استخدم قاعدة ييانات اكسس عندما اضغط عى حفض السطر يأخد وقتا حوالي 3 او 4 ثواني
اليكم كود زر الحفظ

كود :
procedure Ttravail.SpeedButton1Click(Sender: TObject);
begin
if (Trim(DBComboBox4.Text)='') or (Trim(DBComboBox3.Text)='' )or (Trim(DBComboBox2.Text)='' )or (Trim(DBComboBox1.Text)='') or (Trim(DBEdit1.Text)='') or (Trim(DBEdit2.Text)='')or (Trim(DBEdit3.Text)='')or (Trim(DBEdit4.Text)='')or (Trim(DBEdit5.Text)='') then
 ShowMessage('entre tout les donnée SVP,remplacé le vide par - ou 0  !')
 else
 begin
DataM.Travtbl.Refresh;

Close;
 end;
end;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة