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] ... 下一页 >>