27-06-2009, 05:09 PM
اهلين اخي rm31 اذكر واجهت المشكله نفسها اول ما جربت الكمبوننت , على العموم من حسن الحظ و جدت سورس التجربه 

كود :
ABSQuery1.Close;
ABSQuery1.SQL.Clear;
ABSQuery1.SQL.Add('select * ');
ABSQuery1.SQL.Add('from "Table1"e1');
ABSQuery1.SQL.Add('where (e1."Date" =ToDate ("' + FormatDateTime('yyyy-mm-dd',
Today) + '","YYYY-MM-DD"))');
ABSQuery1.Open;
if ABSQuery1.FieldByName('CheckIn').IsNull then
beginبحيث ال Table1 اسم الجدول و ال Date حقل سترنق لتخزين التاريخ .
تحياتي .

