delphi4arab منتديات دلفي للعرب
كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية (/showthread.php?tid=7804)



كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - salmaanga - 08-05-2016

السلام عليكم
كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية في لغة الدلفي
كود :
select * from prodoiu where prodoui.date>=now and   prodoui.date<=now+6
ما الخطا في هذا الكود؟


RE: اريد عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - محمد الدرة - 08-05-2016

مانوع قاعدة البيانات
اذا كانت SQl Server
فاستخدم بدل Now
GetDate()

وبدل Now+6
استخدم
DATEADD(day,6,getdate())


RE: كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - PLANSHARP - 08-05-2016

الكود ينقصه between


RE: كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - justnick - 08-05-2016

السلام عليكم ورحمة الله
هذا الكود الذى اعتمد عليه فى انشاء تقارير قرب انتهاء الصلاحية عندى فى الصيدلية 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; 



RE: اريد عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - salmaanga - 09-05-2016

(08-05-2016, 09:14 AM)محمد الدرة كتب : مانوع قاعدة البيانات
اذا كانت SQl Server
فاستخدم بدل Now
GetDate()

وبدل Now+6
استخدم
DATEADD(day,6,getdate())
قاعدة البيانات المستعملة بارادوكس


RE: كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - salmaanga - 09-05-2016

(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; 

السلام عليكم ورحمة الله
انا استخدم قاعدة بيانات بارادوكس


RE: كيف عمل استعلام sql يظهر فيه المواد التي اقترب موعد انتهاء الصلاحية - justnick - 09-05-2016

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