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;
但是运行时错了，调不通，是不是我做错了，希望大家教我�
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
请教一个问题，现在有一项目需要绘制曲线图，
要求：（可以任意选择横坐标（时间）范围画出对应的数据曲线，纵坐标自动优化设置(也可手工选择)，可以在任意时间段内放大、缩小图形，某具体数据点的定位及此数据点的 ......
