edit10.readonly:=false;edit10.text:='''';edit10.color:=clmenu;
edit11.readonly:=false;edit11.text:='''';edit11.color:=clmenu;
edit12.readonly:=false;edit12.text:='''';edit12.color:=clmenu;
edit25.readonly:=false;edit25.text:='''';edit25.color:=clmenu;
messagedlg(''没有找到你所需要的记录！'',mtinformation,[mbok],0);
edit13.text:='''';edit13.setfocus;
end;
end;
with datamoduleform.inquery do file://自动入库编号的获取
begin
close;
sql.clear;
sql.add(''select * from inrecord where inid>=all(select inid from inrecord)'');
open; file://找到入库编号中最大的一个
edit26.readonly:=false;
edit26.text:=fieldvalues[''inid'']+1; file://最大的入库编号加1形成新的入库编号
edit26.readonly:=true;edit26.color:=clmenu; file://设置编号的不可更改性
end;
end;
**********************************************************************
procedure tinoutform.speedbutton1click(sender: tobject);
var s:integer;
begin file://入库管理添加按钮事件
if edit1.text<>null
then messagedlg(''请输入完整的入库信息和图书信息，然后单击确定按钮。'',
mtinformation,[mbok],0)
else begin
<< 上一页 [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] ... 下一页 >>