我的目的是从入库和出库表中检索出结余数据。后台:SQL SERVER7.0
AqGckc.Close;
AqGckc.SQL.Clear;
AqGckc.SQL.Add('SELECT VerifyNumber, MaterialName, Material, specification, SupplyCompany, ');
AqGckc.SQL.Add('OriginalPlant, SUM(weight) AS Twin, SUM(Amount) AS tain, (SELECT SUM(FactWeight) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS Twout,(SELECT SUM(FactAmount) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS Taout, SUM(weight)-(SELECT SUM(FactWeight) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS TKCw, SUM(Amount)-(SELECT SUM(FactAmount) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS TKCa FROM SteelCheckin ');
AqGckc.SQL.Add('where MaterialName like :mn and Material like :qn and specification like :spec and SupplyCompany like :gh and OriginalPlant like :yc ');
AqGckc.SQL.Add('GROUP BY VerifyNumber, MaterialName, Material, specification, SupplyCompany,OriginalPlant ');
AqGckc.prepared;
AqGckc.open错误提示:内存不足,无法完成此操作。
还有:无法正常退出调试状态。
AqGckc.Close;
AqGckc.SQL.Clear;
AqGckc.SQL.Add('SELECT VerifyNumber, MaterialName, Material, specification, SupplyCompany, ');
AqGckc.SQL.Add('OriginalPlant, SUM(weight) AS Twin, SUM(Amount) AS tain, (SELECT SUM(FactWeight) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS Twout,(SELECT SUM(FactAmount) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS Taout, SUM(weight)-(SELECT SUM(FactWeight) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS TKCw, SUM(Amount)-(SELECT SUM(FactAmount) FROM SteelSheetCheckout ');
AqGckc.SQL.Add('WHERE verifyNumber = steelcheckin.verifyNumber) AS TKCa FROM SteelCheckin ');
AqGckc.SQL.Add('where MaterialName like :mn and Material like :qn and specification like :spec and SupplyCompany like :gh and OriginalPlant like :yc ');
AqGckc.SQL.Add('GROUP BY VerifyNumber, MaterialName, Material, specification, SupplyCompany,OriginalPlant ');
AqGckc.prepared;
AqGckc.open错误提示:内存不足,无法完成此操作。
还有:无法正常退出调试状态。
如果要查询的字段以及条件固定,可以用SQL SERVER7.0的存储过程来实现。非常快。