图 书 仓 库 管 理 系 统 第42页

 sql.clear;
      sql.add(''update bookrecord set number1=:number where
bookid=: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;

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