圖書館圖書信息管理系統程序設計文檔(完整版)

　　

【正文】 戶 ：39。 :=39。).Value := 。 var vqx:string。Persist Security Info=False39。 :=adoconnection1。 begin :=39。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 begin 。 //顯示圖書管理 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: Tobject)。 9 begin 。 :=false。 :=false。 在本系統中，主要采用“用戶登錄”來進行子系統的切換，使不同權限的用戶能在對應的子系統下正常操作。圖書管理系是以數據庫為支撐的應用程序， 提出了權限管理模塊的具體實現方法，并完成了相關 模 3 塊 設計。 ③ 圖 書管理：分為三個部分管理： ⅰ .圖書管理： ：添加新的書籍； ：可根據書號來瀏覽圖書 ⅱ .讀者管理：添加、修改、刪除讀者信息，刷新可查看讀者的信息 ； ⅲ . 圖書借還： 實現圖書的借出和歸還的管理。 begin mypath:=extractfilepath(paramstr(0))。 :=false。 begin 。 procedure (Sender: TObject)。 end。 begin close。 procedure (Sender: TObject)。 //顯示借閱查詢 end。 begin 。 procedure (Sender: TObject)。yyyy 年 mm 月 dd日 .39。 //顯示圖書館規章制度 end。\data\。 :=39。 begin close。)。 if recordcount=0 then begin showmessage(39。).asstring。 then begin [1].Text:=39。 :=true。 :=true。 Button1Click(Sender)。 procedure (Sender: TObject)。 sqlstr:=39。 procedure (Sender: TObject)。).AsString。+vyhm+39。39。 (Sender)。 (Sender)。用戶名不能為空 !39。39。 (sqlstr)。 if =39。 with do begin Close。).Value:=vmm。 ⑹． 修改密碼 窗體 設計 ： 窗體的名字： xxgm_form, 對應的單元文件為： 。39。 (sqlstr)。 exit。39。39。 end。 procedure (Sender: TObject)。 ⅰ .查詢圖書基本信息 頁面： 在窗體中添加一個 GroupBox 組件， 一 個 button 組件，四個 radiobutton 組件 ,一個 checkbox 組件，一個 edit 組件，一個 listview組件，一個 statictext 組件，一個 label 組件。39。 procedure (Sender: TObject)。 begin if key=13 then //按回車鍵 button4click(sender)。 begin try 。select code,name,author,press,outdate,cost,memo0 from book where code like :code 39。)。 (39。author39。).AsString )。outdate39。 end。 end。 var content:string。 if then //按借書證號查詢 21 begin (39。select readerid,name,sex,idcardno from reader where name like :name 39。readerid39。139。).AsString )。//顯示查詢到的記錄數 close。 var Key: Word。 if then content:=39。 (39。 (fieldbyname(39。女 39。outdate39。 if datefieldbyname(39。 next。 except messagedlg(39。程序界面如下： 24 程序的主要代碼： procedure (Sender: TObject)。39。 end。 end。).Value := 。 exit。)。author39。 except messagedlg(39。 except messagedlg(39。 except messagedlg(39。 showmessage(39。,mtError,[mbok],0)。39。39。+voutdate+39。39。 with do end。 begin 。code39。 begin if length( )=4 then begin try with do begin tablename:=39。 //DBpress 連接數據表中 press 字段 :=39。code39。 end。 ⑼．讀者管理窗體設計： 窗體的名字： readerform，對應的單元文件為： 。 。sex39。 (fieldbyname(39。 except 。 end。 (39。delete from lend where readerid=:readerid39。 end。)。 except messagedlg(39。 begin :=39。 procedure (Sender: TObject)。select readerid from reader where readerid=:readerid39。+ +39。 (39。 (39。).Value := 。 exit。 try with do //將修改后的讀者數據提交給讀者數據表 reader begin 。39。sex39。修改 39。39。)。 then //修改性別 :=0 else :=1。 (39。 next。 begin :=39。 if length()=4 then begin try 33 with do begin tablename:=39。 :=39。code39。數據操作出錯 39。code39。 :=fieldbyname(39。 end。 end。 Shift: TShiftState)。 (39。 不 存 在39。 (39。 close。 end。 then begin try with do begin 。 canlend:=true。)。 :=fieldbyname(39。select * from lend where code=:code and readerid=:readerid39。readerid39。 except :=0。 (floattostr(()*))。 except canlend:=true。 (39。 (39。 showmessage(39。 end。 begin try with do begin 。 close。還書不成功 39。39。 begin close。 系統劃分子系統之后，就是繼續劃分子系統的小模塊。 八．出現的問題及解決辦法 ：由于本程序是參考資料的寫的，所以對很多函數和其他的代碼不是很理解，編寫程序的時。在本系統設計中， 第一， 對于操作系統子系統，提供 登錄 功能，在用戶登錄之后可實現權限管理、修改密碼和退出系統功能；第二，對于信息查詢子系統，用戶進入時首先調用相關的數據表，進入系統后，子系統提供圖書信息查詢、讀者信息查詢、借閱信息查詢的功能。 ⑿ ．圖書館背景窗體設計： 程序界面如下： 程序主要代碼： procedure (Sender: TObject)。39。 end。 showmessage(39。delete from lend where code=:code39。請輸入借書證號！ 39。 39。).value:=。+39。 if canlend=false then 36 begin :=+39。 canlend:=false。 close。 open。 (39。).asstring。code39。 mmcode:=fieldbyname(39。select code from lend where readerid=:readerid39。 procedure (Sender: TObject)。 except :=39。)。 close。).Value := 。 end。 except 。 :=true。).AsString。 open。 end。沒有數據或數據庫操作失敗 39。 :=39。 :=39。 :=39。 close。)。 //讀者身份證號 end。 procedure (Sender: TObject)。39。失敗 39。 (39。39。update reader set name=:readername,sex=:sex,idcardno=:idno 39。 end。 end。).Value := 。+ 39。,mterror,[mbok],0)。 (39。讀者借書證號不正確 39。 :=39。+[i].Caption +39。readerid39。 end。 (39。).Value :=[i].Caption 。 var i:integer。刷新出錯 39。).asstring)。139。readerid39。程序界面如下： 28 程序主要代碼： procedure (Sender: TObject)。 end。not found 39。 //DBoutdate 連接數據表中 outdate 字段 :=39。 //將 ADOtabel1 的表名為圖書數據表 book :=39。 //將所有圖書書號加入到 bobox1 中 next。 (39。 procedure (Sender: TObject)。39。39。+vpress+39。39。 begin sqlstr:=39。)。,mterror,[mbok],0)。,mtError,[mbok],0)。,mtError,[mbok],0)。 (39。code39。 close。 if recordcount0 then //此書號已經存在 begin messagedlg(39。 。 var vcode,vname,vauthor,vpress,vo