图书仓库管理系统 (七)

图书仓库管理系统 (七) 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(‘请输入完整的入库信息和图书信息，然

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

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