.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
