delphi图书仓库管理系统

name(''bookid'').value:=edit1.text;    parameters.parambyname(''empid'').value:=edit2.text;    parameters.parambyname(''shopid'').value:=edit3.text;    parameters.parambyname(''number'').value:=edit4.text;    parameters.parambyname(''indate'').value:=edit5.text;    execsql;    end;    with datamoduleform.bookquery do    begin     close;     sql.clear;        file://在完成入库信息的添加后，修改库存记录sql.add(''insert into bookrecord values(:bookid,:bookname,:author,:publisher,:pubdate,:price,:booktype,:number,:addration)'');     parameters.parambyname(''bookid'').value:=edit1.text;     parameters.parambyname(''bookname'').value:=edit6.text;     parameters.parambyname(''author'').value:=edit7.text;     parameters.parambyname(''publisher'').value:=edit8.text;     parameters.parambyname(''pubdate'').value:=edit9.text;     parameters.parambyname(''price'').value:=edit10.text;     parameters.parambyname(''booktype'').value:=edit11.text;     parameters.parambyname(''number'').value:=edit4.text;     parameters.parambyname(''addration'').value:=edit25.text;     execsql;

　　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;

　　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 beginmessagedlg(''请输入完整的出库信息!'',mtinformation,[mbok],0);edit24.setfocus;   endelse beginif edit27.text>edit21.text    file://检查出库数量是否小于库存数量then beginmessagedlg(''库存中的图书数量不够！'',mtinformation,[mbok],0);edit27.text:='''';edit27.setfocus;     endelse begin  with datamoduleform.outquery do

　　begin  close;  sql.clear;sql.add(''insert