delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية في لغة الدلفي
كود :
select * from prodoiu where prodoui.date>=now and   prodoui.date<=now+6
ما الخطا في هذا الكود؟
مانوع قاعدة البيانات
اذا كانت SQl Server
فاستخدم بدل Now
GetDate()

وبدل Now+6
استخدم
DATEADD(day,6,getdate())
الكود ينقصه between
السلام عليكم ورحمة الله
هذا الكود الذى اعتمد عليه فى انشاء تقارير قرب انتهاء الصلاحية عندى فى الصيدلية Smile
حيث ان جدول المشتروات هو purchase يحتوى على تاريخ الصلاحية وكود الصنف والكمية المتبقية net_qty
وجدول الاصناف هو items يحتوى على كود الصنف واسمه وسعره ومعلومات اخرى
ما اقوم به هو دمج باستخدام left join
واضع شرط ان تكون الكمية المتبقية اكبر من الصفر
كود :
net_qty > 0
وتاريخ انتهاء الصلاحية بين تاريخين
كود :
between :D1 and :D2

PHP كود :
select * from purchase left join items 
where net_qty 
> 0 and purchase.expire_date between :D1 and :D2
order by purchase
.expire_date 

ولاستعاء الاستعلام :-

PHP كود :
with ADODataSet1 do
begin
  close
;
 
 Parameters.ParamByName('D1').Value:=DateTimePicker1.Date;
 
 Parameters.ParamByName('D2').Value:= IncMonth(date,strtoint(NumEdit1.Text));
 
 open;
end; 
(08-05-2016, 09:14 AM)محمد الدرة كتب : [ -> ]مانوع قاعدة البيانات
اذا كانت SQl Server
فاستخدم بدل Now
GetDate()

وبدل Now+6
استخدم
DATEADD(day,6,getdate())
قاعدة البيانات المستعملة بارادوكس
(08-05-2016, 10:15 AM)justnick كتب : [ -> ]السلام عليكم ورحمة الله
هذا الكود الذى اعتمد عليه فى انشاء تقارير قرب انتهاء الصلاحية عندى فى الصيدلية Smile
حيث ان جدول المشتروات هو purchase يحتوى على تاريخ الصلاحية وكود الصنف والكمية المتبقية net_qty
وجدول الاصناف هو items يحتوى على كود الصنف واسمه وسعره ومعلومات اخرى
ما اقوم به هو دمج باستخدام left join
واضع شرط ان تكون الكمية المتبقية اكبر من الصفر
كود :
net_qty > 0
وتاريخ انتهاء الصلاحية بين تاريخين
كود :
between :D1 and :D2

PHP كود :
select * from purchase left join items 
where net_qty 
> 0 and purchase.expire_date between :D1 and :D2
order by purchase
.expire_date 

ولاستعاء الاستعلام :-

PHP كود :
with ADODataSet1 do
begin
  close
;
 
 Parameters.ParamByName('D1').Value:=DateTimePicker1.Date;
 
 Parameters.ParamByName('D2').Value:= IncMonth(date,strtoint(NumEdit1.Text));
 
 open;
end; 

السلام عليكم ورحمة الله
انا استخدم قاعدة بيانات بارادوكس
اى كان نوع قاعدة البيانات
الاستعلام المستخدم
ينبغى ان يحتوى على الشرط where .....between
كود :
SELECT column_name(s) FROM table_name WHERE column_name BETWEEN value1 AND value2