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文件夹下有没� ......
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
