图 书 仓 库 管 理 系 统 第41页

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;

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