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;
但是运行时错了，调不通，是不是我做错了，希望大家教我�
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
请教一个问题，现在有一项目需要绘制曲线图，
要求：（可以任意选择横坐标（时间）范围画出对应的数据曲线，纵坐标自动优化设置(也可手工选择)，可以在任意时间段内放大、缩小图形，某具体数据点的定位及此数据点的 ......
