delphi 进销存时入库数量和出库数量间的关系
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TField);
var
strMsg : string;
begin
if not ADOQueryBill.Eof then
begin
ADOQueryBill.FieldByName('bNum_').AsInteger:=(ADOQueryBill.FieldByName('bNum_').AsInteger
-StrToInt(DBGridBill.Fields[2].Text));
if ADOQueryBill.FieldByName('bNum_').AsInteger < 0 then
begin
strMsg := '料号为' + FrmStockIn.ADOQueryBill.FieldByName('pCode_').AsString
+ '的物料库存量不够,最多只能是'+FrmStockIn.ADOQueryBill.FieldByName('bNum_').AsString
+'请重新输入数量！';
ShowMessage(strMsg);
Abort;
end
else
begin
ADOQueryBill.Close;
ADOQueryBill.SQL.Clear;
ADOQueryBill.SQL.Add('Update ioTicketB set bNum_=(ioTicketB.bNum_ - :a), ');
ADOQueryBill.Parameters.ParamByName('a').Value :=
ADOQueryBill.FieldByName('bNum_').AsInteger;
ADOQueryBill.ExecSQL;
end;
end
else
begin
ShowMessage('没有该物料');
Abort;
end;
end;
但是运行时错了，调不通，是不是我做错了，希望大家教我�
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
请教一个问题，现在有一项目需要绘制曲线图，
要求：（可以任意选择横坐标（时间）范围画出对应的数据曲线，纵坐标自动优化设置(也可手工选择)，可以在任意时间段内放大、缩小图形，某具体数据点的定位及此数据点的 ......
