SQL.Add('SELECT Phone.Date, Phone.amount, Phone.Details from phone WHERE Date >=#'+ q + '#' );CODE]
SQL.Add('SELECT Phone.Date, Phone.amount, Phone.Details from phone WHERE Date <=#'+ qq + '#' );
مرحبا شابا كيفكم
اريد هذان الكودان في سطر كود واحد فكيف يتك ذلك ؟؟
الاية من هذا الكود هو عملية حصر تاريخ في ال Query !!!
المتحول Q هو datetimepacker
وايضاً ال qq من نفس النوع
يعني عملية فحص حركات شهر معين من عمليات بيع وشراء فيتعين علي حصر تاريخ معين وعمل استعلام عليه
وشكراً
مكن تستخدم between
with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('select * from StoreOut where date between :mon and :mon2');
Prepared;
Parameters.ParamByName('mon').Value := mon;
Parameters.ParamByName('mon2').Value := mon2;
Open;أو استخدم And (ضع قوسين لكل شرط , وافصلهم ب and)
أتمنى أن اكون فهمت السؤال .. :blink: B)
سلمات
تم تعديل هذه المشاركة بواسطة ORWA في 27 مايو 2005 في 22:45
يقوم بحصر التاريخ
فمثلاُ من 1/1/2005 الي 26/5/2005
ارجو ان يكون هذا المقصود
:rolleyes: :rolleyes: :rolleyes:
var
Year, Month, Day: Word;
dataIni : Tdate;
begin
DecodeDate(StrToDate(Edit1.Text), Year, Month, Day);
DataIni := EncodeDate(Year, 1, 1);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From employee ');
Query1.SQL.Add('Where Name =HireDate+
'and Data between :DtIni and :DtFim');
Query1.ParamByName('DtIni').AsDateTime := DataIni;
Query1.ParamByName('DtFim').AsDateTime := StrToDate(Edit2.Text);
Query1.Open..................بسم الله الرحمن الرحيم..................
وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان
.............................................................................................................................
سلسلة تعلم برمجة Pascal , تعلم اساسيات الباسكال
التحكم بمنفذ الطابعة عن طريق الدلفي
سلسلة دروس تعلم قواعد بيانات Midas
أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي
كتب + مواقع ::: مراجع مهمة للغة دلفي, مجموعة كتب مجانية + مواقع مفيدة
مكتبه الأكواد, أكواد وبرامج دلفي
.............................................................................................................................
هذا الموضوع مغلق.