+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ADOQuery كيف نكتب تعليمات العمليات الحسابية (/showthread.php?tid=3404)
ADOQuery كيف نكتب تعليمات العمليات الحسابية - ouazanilarbi - 08-09-2011
السلام عليكم
لدي إستعلام عبارة عن عملية حسابية لمجموع حقلcofMA ومجموع الحقلMGCH لكن هذه العملية تجرى وفق شروط وهي الملونة بالأحمر
أين يكمن المشكل في هاتيه التعليمة
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT SUM(cofMA),SUM(MGCH)');
ADOQuery2.SQL.Add('FROM Bult');
ADOQuery2.SQL.Add('WHERE (codAS='+ chr(39)+DBLookupComboBox6.Text+chr(39)+')');
ADOQuery2.SQL.Add('and(codCH='+ chr(39)+DBLookupComboBox7.Text+chr(39)+')');
ADOQuery2.SQL.Add('and(codET='+ chr(39)+DBLookupComboBox8.Text+chr(39)+');');
ADOQuery2.Active:=true;
ADOQuery2.Open;
ADOQuery كيف نكتب تعليمات العمليات الحسابية - justnick - 16-09-2011
السلام عليكم ورحمة الله
لقد قمت بكتابة جملة تقوم بجمع حقلين من جدول الاصناف لدى وذلك الى حد كبير يشبه الحالة التى تتكلم عنها
كود :
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select sum (sale_price) as SalePrice, sum(cost_price) as CostPrice from items where item_no < '+QuotedStr(Edit3.Text));
open;
end;اذن يكون كود الاستعلام الخاص بيك كالاتى:
كود :
with ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select sum (cofMA) as total_cofMA, sum(MGCH) as total_MGCH from Bult '+
' where codAS= ' + QuotedStr(DBLookupComboBox6.Text) +
'and codCH = ' + QuotedStr(DBLookupComboBox7.Text) +
'and codET = ' + QuotedStr(DBLookupComboBox8.Text));
open;
end;هذا والله اعلم
ADOQuery كيف نكتب تعليمات العمليات الحسابية - Lam.Abdeldjalil - 20-09-2011
و عليكم السلام
كود :
ADOQuery2.Active:=true;
---
ADOQuery2.Open;+ لم تذكر المشكل !
بالتوفيق