e; SQL.Clear; SQL.Add(‘select * from BookRecord where BookID=:BookID‘); Parameters.ParamByName(‘BookID‘).Value:=Edit13.Text; open; if FieldValues[‘BookID‘]<>NULL then begin Edit1.Text:=‘‘; Edit1.ReadOnly:=true;Edit1.Color:=clMenu; Edit6.Text:=FieldValues[‘BookName‘]; file://显示图书名 Edit6.ReadOnly:=true;Edit6.Color:=clMenu; file://设置显示框不可更改属性 Edit7.Text:=FieldValues[‘Author‘]; Edit7.ReadOnly:=true;Edit7.Color:=clMenu; Edit8.Text:=FieldValues[‘Publisher‘]; Edit8.ReadOnly:=true;Edit8.Color:=clMenu; Edit9.Text:=FieldValues[‘PubDate‘]; Edit9.ReadOnly:=true;Edit9.Color:=clMenu; Edit10.Text:=FieldValues[‘Price‘]; Edit10.ReadOnly:=true;Edit10.Color:=clMenu; Edit11.Text:=FieldValues[‘BookType‘]; Edit11.ReadOnly:=true;Edit11.Color:=clMenu; Edit12.Text:=FieldValues[‘Number1‘]; Edit12.ReadOnly:=true;Edit12.Color:=clMenu; If FieldValues[‘Addation‘]<>NULL then Edit25.Text:=FieldValues[‘Addation‘] else Edit25.Text:=‘‘; Edit25.ReadOnly:=true;Edit25.Color:=clMenu; end else begin file://在没有查找到的情况下，清空所有显示框 Edit1.ReadOnly:=false;Edit1.Text:=‘‘;Edit1.Color:=clMenu; Edit6.ReadOnly:=false;Edit6.Text:=‘‘;Edit6.Color:=clMenu; Edit7.ReadOnly:=false;Edit7.Text:=‘‘;Edit7.Color:=clMenu; Edit8.ReadOnly:=false;Edit8.Text:=‘‘;Edit8.Color:=clMenu; Edit9.ReadOnly:=false;Edit9.Text:=‘‘;Edit9.Color:=clMenu; Edit10.ReadOnly:=false;Edit10.Text:=‘‘;Edit10.Color:=clMenu; Edit11.ReadOnly:=false;Edit11.Text:=‘‘;Edit11.Color:=clMenu; Edit12.ReadOnly:=false;Edit12.Text:=‘‘;Edit12.Color:=clMenu; Edit25.ReadOnly:=false;Edit25.Text:=‘‘;Edit25.Color:=clMenu; MessageDlg(‘没有找到你所需要的记录！‘,mtInformation,[mbOK],0); Edit13.Text:=‘‘;Edit13.SetFocus; end; end; with datamoduleform.InQuery do file://自动入库编号的获取 begin close; SQL.Clear; SQL.Add(‘select * from InRecord where InID>=All(select InID from InRecord)‘); open; file://找到入库编号中最大的一个 Edit26.ReadOnly:=false; Edit26.Text:=FieldValues[‘InID‘]+1; file://最大的入库编号加1形成新的入库编号 Edit26.ReadOnly:=true;Edit26.Color:=clMenu; file://设置编号的不可更改性 end; end; ********************************************************************** procedure Tinoutform.SpeedButton1Click(Sender: TObject); var s:integer; begin file://入库管理添加按钮事件 if Edit1.Text<>NULL then MessageDlg(‘请输入完整的入库信息和图书信息，然
