图 书 仓 库 管 理 系 统 第44页

end;
    messagedlg(''记录添加成功！'',mtinformation,[mbok],0);
  end;
end;
**********************************************************************
procedure tinoutform.speedbutton11click(sender: tobject);
begin           file://新书入库按钮事件
  edit13.text:='''';edit13.color:=clmenu;
  with datamoduleform.inquery do   file://自动入库编号的获取
  begin
  close;
  sql.clear;
  sql.add(''select * from inrecord where inid>=all(select inid from inrecord)'');
  open;
  edit26.text:=fieldvalues[''inid'']+1;
  edit26.readonly:=true;edit26.color:=clmenu;
  end;
  with datamoduleform.bookquery do    file://自动图书编号的获取
  begin
  close;
    sql.clear;
    sql.add(''select * from bookrecord where bookid>=all(select bookid from bookrecord)'');     file://找到库存图书编号中最大的一个
    open;
    edit1.readonly:=false;
    edit1.text:=fieldvalues[''bookid'']+1;   file://显示自动生成的图书编号
    edit1.readonly:=true;edit1.color:=clmenu;

 << 上一页  [41] [42] [43] [44] [45] [46] [47] [48] [49] [50]  ... 下一页  >>