كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة (/showthread.php?tid=6045)

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة - hallal02 - 27-03-2014

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة
كمثال

كود :
if dbedit4.Text='' then
    begin
      messagedlg('entree LA DATE ',mterror,[mbok],0);
      abort;
    end

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة - M_Mori2010 - 27-03-2014

اخي الكريم يمكنك عمل الاتي :

هذا اذا كان عدد الاحرف يساوي الصفر

PHP كود :
if (length(dbedit4.text)=0) then begin
messagedlg('entree LA DATE ',mterror,[mbok],0);
Exit;
end; 

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة - hallal02 - 28-03-2014

M_Mori2010 كتب :اخي الكريم يمكنك عمل الاتي :

هذا اذا كان عدد الاحرف يساوي الصفر

PHP كود :
if (length(dbedit4.text)=0) then begin messagedlg('entree LA DATE ',mterror,[mbok],0); Exit; end;

بارك الله فيك أخي لكن كيف يمكنني إستعماله بوضع datetimepicker عوض dbedit4

كيف ألزم المستخدم على أن لا يترك datetimepicker فارغة - hallal02 - 28-03-2014

hallal02 كتب :بارك الله فيك أخي لكن كيف يمكنني إستعماله بوضع datetimepicker عوض dbedit4

و للتوضيح أكثر هذا المثال الذي أعمل عليه

كود :
procedure TForm8.BitBtn8Click(Sender: TObject);
var dt1,dt2:Tdate;
begin
if sdateedit3.Text:='' then
begin showmessage('enter la date')
else
  adoquery1.Close;
  adoquery1.SQL.Text:=('Select [COD COMPTES], Sum(Debit)as Sumdebit from DEBIT where LADATE Between :Dt1 and :Dt2 GROUP BY [COD COMPTES]');
  adoquery1.Parameters.ParamValues['Dt1']:=strtodate(sdateedit3.text);
  adoquery1.Parameters.ParamValues['Dt2']:=strtodate(sdateedit4.text);
  adoquery1.Open;
  bitbtn16.Enabled:=true;
end;
end;