图书仓库管理系统 (八)

图书仓库管理系统 (八) .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;    end;    MessageDlg(‘记录添加成功！‘,mtInformation,[mbok],0);  end; end; ********************************************************************** procedure Tinoutform.SpeedButton11Click(Sender: TObject); begin           file://新书入库按钮事件  Edit13.Text:=‘‘;Edit13.Color:=clMenu;  with datamoduleform.InQuery do   file://自动入库编号的获取  begin  close;  SQL.Clear;  SQL.Add(‘select * from InRecord where InID>=All(select InID from InRecord)‘);  open;  Edit26.Text:=FieldValues[‘InID‘]+1;  Edit26.ReadOnly:=true;Edit26.Color:=clMenu;  end;  with datamoduleform.BookQuery do    file://自动图书编号的获取  begin  close;    SQL.Clear;    SQL.Add(‘select * from BookRecord where BookID>=All(select BookID from BookRecord)‘);     file://找到库存图书编号中最大的一个    open;    Edit1.ReadOnly:=false;    Edit1.Text:=FieldValues[‘BookID‘]+1;   file://显示自动生成的图书编号    Edit1.ReadOnly:=true;Edit1.Color:=clMenu;  end;  Edit2.Text:=‘‘;Edit3.Text:=‘‘;Edit4.Text:=‘‘;Edit5.Text:=‘‘;  Edit6.ReadOnly:=false;Edit6.Text:=‘‘;Edit6.Color:=clWindow;  Edit7.ReadOnly:=false;Edit7.Text:=‘‘;Edit7.Color:=clWindow;  Edit8.ReadOnly:=false;Edit8.Text:=‘‘;Edit8.Color:=clWindow;  Edit9.ReadOnly:=false;Edit9.Text:=‘‘;Edit9.Color:=clWindow;  Edit10.ReadOnly:=false;Edit10.Text:=‘‘;Edit10.Color:=clWindow;  Edit11.ReadOnly:=false;Edit11.Text:=‘‘;Edit11.Color:=clWindow;  Edit12.ReadOnly:=false;Edit12.Text:=‘‘;Edit12.Color:=clMenu;  Edit25.ReadOnly:=false;Edit25.Text:=‘‘;Edit25.Color:=clWindow; end; procedure Tinoutform.SpeedButton22Click(Sender: TObject); var s:integer; begin            file://出库管理确定按钮事件 if (Edit24.Text=‘‘) or (Edit27.Text=‘‘) or (Edit28.Text=‘‘) then begin MessageDlg(‘请输入完整的出库信息!‘,mtInformation,[mbok],0); Edit24.SetFocus;   end else begin if Edit27.Text>Edit21.Text    file://检查出库数量是否小于库存数量 then begin MessageDlg(‘库存中的图书数量不够！‘,mtInformation,[mbok],0); Edit27.Text:=‘‘;Edit27.SetFocus;     end else beg

首页 上一页 5 6 7 8 9 10 下一页 尾页 8/10/10

图书仓库管理系统 (八)由毕业论文网（www.huoyuandh.com）会员上传。