图 书 仓 库 管 理 系 统 第43页

sql.clear;
sql.add(''insert into inrecord values(:inid,:bookid,:empid,:shopid,
:number,:indate)'');      file://向入库信息表中插入记录
    parameters.parambyname(''inid'').value:=edit26.text;
    parameters.parambyname(''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;

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