begin
close;
sql.clear;
sql.add(''insert into outrecord values(:outid,:bookid,:empid,
:number,:outtime)''); file://添加出库记录
parameters.parambyname(''outid'').value:=edit23.text;
parameters.parambyname(''bookid'').value:=edit14.text;
parameters.parambyname(''empid'').value:=edit24.text;
parameters.parambyname(''number'').value:=edit27.text;
parameters.parambyname(''outtime'').value:=edit28.text;
execsql;
end;
edit21.readonly:=false;
s:=strtoint(edit21.text)-strtoint(edit27.text); file://计算出库后库存图书数量
edit21.text:=inttostr(s); file://显示出库后库存图书数量
edit21.readonly:=true;
with datamoduleform.bookquery do
begin file://修改库存图书数量
close;
sql.clear;
sql.add(''update bookrecord set number1=:number where bookid=:bookid'');
parameters.parambyname(''number'').value:=s;
parameters.parambyname(''bookid'').value:=edit14.text;
execsql;
end;
messagedlg(''出库记录添加成功！'',mtinformation,[mbok],0);
edit14.text:='''';edit14.setfocus;
<< 上一页 [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] ... 下一页 >>