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;
但是运行时错了，调不通，是不是我做错了，希望大家教我�
相关问答：
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
如题， 点击Delphi的File菜单的Exit退出Delphi， Delphi部分关闭--即不能再操作Delphi，但任务栏和进程里，Delphi还在运行，没有真正的退出。是不是安装了jre改变了某些环境变量导致，请问高手如何解决？ 注：没安装 ......
请教一个问题，现在有一项目需要绘制曲线图，
要求：（可以任意选择横坐标（时间）范围画出对应的数据曲线，纵坐标自动优化设置(也可手工选择)，可以在任意时间段内放大、缩小图形，某具体数据点的定位及此数据点的 ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
