03-09-2013, 11:05 AM
سلام عليكم
انا استخدم قاعدة ييانات اكسس عندما اضغط عى حفض السطر يأخد وقتا حوالي 3 او 4 ثواني
اليكم كود زر الحفظ
انا استخدم قاعدة ييانات اكسس عندما اضغط عى حفض السطر يأخد وقتا حوالي 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;