دخول

medreg · 11-03-2009, 08:35 AM

DeltaAziz كتب :
يعني لديك حالتين
1- حالة الحقل فارغ 00:00
2- حالة كانت الساعة 00:00
هنا لا يمكن التمييز بين الحالتين الا باضافة حقل اخر منطقي Boolean
بحيث ان كان True تظهر الساعة
وان كان False تخفيها
والسلام عليكم

جزاكم الله عنا كل خير
يا سيدي الفاضل لق اضفت الحقل المنطقي وسميته mode
وادرجته في شرط لإخفاء التاريخ والساعة لكن لم يخفيها وأشك أن الخطأ في الكود ولهذا أنظر إالى هذا الكود ووضح لي الخطأ من فضلكم

كود :
procedure TForm10.DetailBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
  var d1,h1:TDateTime;
begin
  with DM_1 do begin
    Table1.First;
    while not Table1.Eof do begin
    if (Table1NU.Value=1) then h1:=Table1DT_DEP.Value;
    if (Table1NU.value=1) then d1:=Table1HR_DEP.Value;

   QRLABEL1.Caption:=formatDateTime('yyyy/mm/dd',h1);   
//    if h1=00 then QRLABEL1.Caption:='';

  [color=red]if (Table1NU.value=1)and(Table1Mode.value=false) then QRLable1.Caption:='';[/color]  {هذا هو الكود الذي اضفته}

   QRLABEL2.Caption:=formatDateTime('HH:MM',d1);
[color=Red]  if (Table1NU.value=1)and(Table1Mode.value=false) then QRLable2.Caption:=''; [/color] {هذا هو الكود الذي اضفته}

   Table1.Next;
    end;
  end;
end;

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