if (edit2.text='''') or (edit3.text='''') or (edit4.text='''') or (edit5.text='''') then begin messagedlg(''请输入完整的入库信息!'',mtinformation,[mbok],0); edit2.setfocus; end else begin with datamoduleform.inquery do file://将找到的图书信息显示 begin close; sql.clear;sql.add(''insert into inrecord values(:inid,:bookid,:empid,:shopid,:number,:indate)''); file://向入库信息表中插入记录 parameters.parambyname(''inid'').value:=edit26.text; file://向edit框取值 parameters.parambyname(''bookid'').value:=edit13.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; edit12.readonly:=false; s:=strtoint(edit12.text)+strtoint(edit4.text); file://计算入库后库存图书数量 edit12.text:=inttostr(s); file://将修改后的库存图书数量显示 edit12.readonly:=true; with datamoduleform.bookquery do file://修改库存记录中图书数量 begin close;
sql.clear; sql.add(''update bookrecord set number1=:number wherebookid=:bookid''); parameters.parambyname(''number'').value:=s; parameters.parambyname(''bookid'').value:=edit13.text; execsql; file://提交sql语句 messagedlg(''记录已成功添加！'',mtinformation,[mbok],0); edit13.setfocus; end; end; end;end;**********************************************************************procedure tinoutform.speedbutton2click(sender: tobject);begin file://入库管理确定按钮事件 if (edit2.text='''') or (edit3.text='''') or (edit4.text='''') or (edit5.text='''') or (edit6.text='''') or (edit7.text='''') or (edit8.text='''') or (edit9.text='''') or (edit10.text='''') or (edit11.text='''') or (edit25.text='''') then begin file://判断输入信息的完整性 messagedlg(''请输入所需的全部入库信息!'',mtinformation,[mbok],0);edit2.setfocus;end else begin with datamoduleform.inquery do file://入库信息添加 begin close;
sql.clear;sql.add(''insert into inrecord values(:inid,:bookid,:empid,:shopid,:number,:indate)''); file://向入库信息表中插入记录 parameters.parambyname(''inid'').value:=edit26.text; parameters.paramby
