end;
edit2.text:='''';edit3.text:='''';edit4.text:='''';edit5.text:='''';
edit6.readonly:=false;edit6.text:='''';edit6.color:=clwindow;
edit7.readonly:=false;edit7.text:='''';edit7.color:=clwindow;
edit8.readonly:=false;edit8.text:='''';edit8.color:=clwindow;
edit9.readonly:=false;edit9.text:='''';edit9.color:=clwindow;
edit10.readonly:=false;edit10.text:='''';edit10.color:=clwindow;
edit11.readonly:=false;edit11.text:='''';edit11.color:=clwindow;
edit12.readonly:=false;edit12.text:='''';edit12.color:=clmenu;
edit25.readonly:=false;edit25.text:='''';edit25.color:=clwindow;
end;
procedure tinoutform.speedbutton22click(sender: tobject);
var s:integer;
begin file://出库管理确定按钮事件
if (edit24.text='''') or (edit27.text='''') or (edit28.text='''')
then begin
messagedlg(''请输入完整的出库信息!'',mtinformation,[mbok],0);
edit24.setfocus;
end
else begin
if edit27.text>edit21.text file://检查出库数量是否小于库存数量
then begin
messagedlg(''库存中的图书数量不够！'',mtinformation,[mbok],0);
edit27.text:='''';edit27.setfocus;
end
else begin
with datamoduleform.outquery do
<< 上一页 [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] ... 下一页 >>