【正文】 量s2賦值 open。if FieldValues[‘BookID‘]=NULL file://判斷是否找到記錄 then begin Messagedlg(‘沒有找到你所需要的記錄！‘,mtInformation,[mbOK],0)。:=‘‘。:=‘‘。:=‘‘。:=‘‘。:=‘‘。close。(‘select * from BookRecord‘)。file://這里相當(dāng)于一個(gè)刷新功能 open。end。end。end。********************************************************************** procedure (Sender: TObject)。begin file://庫(kù)存表刷新按鈕事件 with do begin close。(‘select * from BookRecord‘)。open。end。end。********************************************************************** procedure (Sender: TObject)。var PopupItem:TMenuItem。begin file://自動(dòng)生成快捷按鈕1的內(nèi)容 with do begin file://從數(shù)據(jù)庫(kù)中選擇出版社類型 close。(‘select distinct Publisher from BookRecord‘)。open。PopupMenu1:=(Self)。file://自動(dòng)生成快捷菜單 :=maManual。file://自定義熱鍵 while Not Eof do begin file://根據(jù)出版社內(nèi)容生成菜單子項(xiàng) PopupItem:=(Self)。:=FieldByName(‘Publisher‘).AsString。(PopupItem)。:=Popup1Handler。file://確定菜單子項(xiàng)的點(diǎn)擊事件 Next。end。end。(384,67)。file://在指定位置顯示快捷菜單1 end。********************************************************************** procedure (Sender: TObject)。begin file://系統(tǒng)初始化，在進(jìn)入mainform時(shí)自動(dòng)添加數(shù)據(jù)源 :=。:=。:=。:=。:=。:=。:=。:=。:=。:=。end。********************************************************************** procedure (Sender: TObject)。begin file://系統(tǒng)初始化,定義界面大小，以適應(yīng)不同分辯率 Width:=800。Height:=600。end。********************************************************************** procedure (Sender: TObject)。begin file://在狀態(tài)欄顯示時(shí)間 [2].Text:=DateToStr(Date)。[4].Text:=TimeToStr(Time)。end。167。 入庫(kù)、出庫(kù)窗體模塊的實(shí)現(xiàn) 系統(tǒng)入庫(kù)管理窗體 系統(tǒng)出庫(kù)管理窗體 procedure (Sender: TObject)。begin file://入庫(kù)管理查找按鈕事件with do file://入庫(kù)查詢處理 begin close。(‘select * from BookRecord where BookID=:BookID‘)。(‘BookID‘).Value:=。open。if FieldValues[‘BookID‘]NULL then begin :=‘‘。:=true。:=clMenu。:=FieldValues[‘BookName‘]。file://顯示圖書名 :=true。:=clMenu。file://設(shè)置顯示框不可更改屬性:=FieldValues[‘Author‘]。:=true。:=clMenu。:=FieldValues[‘Publisher‘]。:=true。:=clMenu。:=FieldValues[‘PubDate‘]。:=true。:=clMenu。:=FieldValues[‘Price‘]。:=true。:=clMenu。:=FieldValues[‘BookType‘]。:=true。:=clMenu。:=FieldValues[‘Number1‘]。:=true。:=clMenu。If FieldValues[‘Addation‘]NULL then :=FieldValues[‘Addation‘]else :=‘‘。:=true。:=clMenu。end else begin file://在沒有查找到的情況下，清空所有顯示框 :=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clMenu。MessageDlg(‘沒有找到你所需要的記錄！‘,mtInformation,[mbOK],0)。:=‘‘。end。end。with do file://自動(dòng)入庫(kù)編號(hào)的獲取 begin close。(‘select * from InRecord where InID=All(select InID from InRecord)‘)。open。file://找到入庫(kù)編號(hào)中最大的一個(gè) :=false。:=FieldValues[‘InID‘]+1。file://最大的入庫(kù)編號(hào)加1形成新的入庫(kù)編號(hào):=true。:=clMenu。file://設(shè)置編號(hào)的不可更改性 end。end。********************************************************************** procedure (Sender: TObject)。var s:integer。begin file://入庫(kù)管理添加按鈕事件 if then MessageDlg(‘請(qǐng)輸入完整的入庫(kù)信息和圖書信息，然后單擊確定按鈕?！? mtInformation,[mbok],0)else begin if(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)then begin MessageDlg(‘請(qǐng)輸入完整的入庫(kù)信息!‘,mtInformation,[mbok],0)。end else begin with do file://將找到的圖書信息顯示 begin close。(‘insert into InRecord values(:InID,:BookID,:EmpID,:ShopID, :Number,:InDate)‘)。file://向入庫(kù)信息表中插入記錄(‘InID‘).Value:=。file://向Edit框取值(‘BookID‘).Value:=。(‘EmpID‘).Value:=。(‘ShopID‘).Value:=。(‘Number‘).Value:=。(‘InDate‘).Value:=。execSQL。end。:=False。S:=StrToInt()+StrToInt()。file://計(jì)算入庫(kù)后庫(kù)存圖書數(shù)量:=IntToStr(s)。file://將修改后的庫(kù)存圖書數(shù)量顯示 :=true。with do file://修改庫(kù)存記錄中圖書數(shù)量begin close。(‘update BookRecord set Number1=:Number where BookID=:BookID‘)。(‘Number‘).Value:=s。(‘BookID‘).Value:=。execSQL。file://提交SQL語句MessageDlg(‘記錄已成功添加！‘,mtInformation,[mbOK],0)。end。end。end。end。********************************************************************** procedure (Sender: TObject)。begin file://入庫(kù)管理確定按鈕事件if(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)or(=‘‘)then begin file://判斷輸入信息的完整性MessageDlg(‘請(qǐng)輸入所需的全部入庫(kù)信息!‘,mtInformation,[mbok],0)。end else begin with do file://入庫(kù)信息添加 begin close。(‘insert into InRecord values(:InID,:BookID,:EmpID,:ShopID, :Number,:InDate)‘)。file://向入庫(kù)信息表中插入記錄(‘InID‘).Value:=。(‘BookID‘).Value:=。(‘EmpID‘).Value:=。(‘ShopID‘).Value:=。(‘Number‘).Value:=。(‘InDate‘).Value:=。execSQL。end。with do begin close。file://在完成入庫(kù)信息的添加后，修改庫(kù)存記錄 (‘insert into BookRecord values(:BookID,:BookName,:Author, :Publisher,:PubDate,:Price,:BookType,:Number,:Addration)‘)。(‘BookID‘).Value:=。(‘BookName‘).Value:=。(‘Author‘).Value:=。(‘Publisher‘).Value:=。(‘PubDate‘).Value:=。(‘Price‘).Value:=。(‘BookType‘).Value:=。(‘Number‘).Value:=。(‘Addration‘).Value:=。execSQL。end。MessageDlg(‘記錄添加成功！‘,mtInformation,[mbok],0)。end。end。********************************************************************** procedure (Sender: TObject)。begin file://新書入庫(kù)按鈕事件:=‘‘。:=clMenu。with do file://自動(dòng)入庫(kù)編號(hào)的獲取 begin close。(‘select * from InRecord where InID=All(select InID from InRecord)‘)。open。:=FieldValues[‘InID‘]+1。:=true。:=clMenu。end。with do file://自動(dòng)圖書編號(hào)的獲取 begin close。(‘select * from BookRecord where BookID=All(select BookID from BookRecord)‘)。file://找到庫(kù)存圖書編號(hào)中最大的一個(gè) open。:=false。:=FieldValues[‘BookID‘]+1。file://顯示自動(dòng)生成的圖書編號(hào):=true。:=clMenu。end。:=‘‘。:=‘‘。:=‘‘。:=‘‘。:=false。:=‘‘。:=clWindow。:=false。:=‘‘。:=clWindow。:=false。:=‘‘。:=clWindow。:=false。:=‘‘。:=clWindow。:=false。:=‘‘。:=clWindow。:=false。:=‘‘。:=clWindow。:=false。:=‘‘。:=clMenu。:=false。:=‘‘。:=clWindow。end。procedure (Sender: TObject)。var s:integer。begin file://出庫(kù)管理確定按鈕事件if(=‘‘)or(=‘‘)or(=‘‘)then begin MessageDlg(‘請(qǐng)輸入完整的出庫(kù)信息!‘,mtInformation,[mbok],0)。end else begin if file://檢查出庫(kù)數(shù)量是否小于庫(kù)存數(shù)量 then begin MessageDlg(‘庫(kù)存中的圖書數(shù)量不夠！‘,mtInformation,[mbok],0)。:=‘‘。end else begin with do begin close。(‘insert into OutRecord values(:OutID,:BookID,:EmpID, :Number,:OutTime)‘)。file://添加出庫(kù)記錄(‘OutID‘).Value:=。(‘BookID‘).Value:=。(‘EmpID‘).Value:=。(‘Number‘).Value:=。(‘OutTime‘).Value:=。execSQL。end。第二篇：Delphi圖書倉(cāng)庫(kù)管理系統(tǒng)論文Delphi圖書倉(cāng)庫(kù)管理系統(tǒng)論文Delphi圖書倉(cāng)庫(kù)管理系統(tǒng)論文前 言隨著社會(huì)經(jīng)濟(jì)的迅速發(fā)展和科學(xué)技術(shù)的全面進(jìn)步,計(jì)算機(jī)事業(yè)的飛速發(fā)展,在現(xiàn)代社會(huì)中越來越受到重視,大量的書籍出現(xiàn)在市場(chǎng)上,為了管理大量的圖書,圖書倉(cāng)庫(kù)也大量的出現(xiàn),其管理難度也越來越大,將計(jì)算機(jī)這一信息處理利器應(yīng)用于倉(cāng)庫(kù)的日常管理已是勢(shì)必所然,而且這也將為倉(cāng)庫(kù)管理帶來前所未有的改變,它可以帶