1、圖書(shū)管理系統(tǒng)實(shí)例梅毅一、 系統(tǒng)簡(jiǎn)介1、本圖書(shū)管理系統(tǒng)，包含了對(duì)圖書(shū)、作者、讀者等基本信息的管理，也包含了借書(shū)信息，還書(shū)信息等的查詢，和管理。本系統(tǒng)具有如下功能：能夠修改、輸入、查詢、與圖書(shū)有關(guān)的信息，如圖書(shū)信息、讀者信息、作者信息、圖書(shū)借閱信息等：能打印圖書(shū)信息，圖書(shū)借閱信息等。2、本系統(tǒng)的總體設(shè)計(jì)樹(shù)狀圖系統(tǒng)登錄圖書(shū)管理信息錄入讀者服務(wù)信息維護(hù)信息查詢報(bào)表打印圖書(shū)登記讀者登記作者登記借書(shū)登記換書(shū)登記讀者借書(shū)圖書(shū)借閱讀者借閱圖書(shū)讀者清單圖書(shū)作者讀者密碼作者圖書(shū)二、 具體操作步驟1、創(chuàng)建項(xiàng)目，名為圖書(shū)管理系統(tǒng)2、數(shù)據(jù)庫(kù)設(shè)計(jì)（1）在項(xiàng)目中新建五個(gè)自由表，各自由表的字段值如下：表名字段一字段二字段三字

2、段四字段五字段六字段七圖書(shū)書(shū)號(hào)作者編號(hào)書(shū)名價(jià)格數(shù)量出版社借閱次數(shù)作者作者編號(hào)作者姓名職稱(chēng)聯(lián)系電話備注照片讀者讀者編號(hào)讀者姓名性別籍貫聯(lián)系電話出生日期照片借閱讀者編號(hào)讀者姓名書(shū)號(hào)借書(shū)日期還書(shū)日期用戶讀者編號(hào)用戶名密碼 （2）在項(xiàng)目中創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)，并把五個(gè)表添加到數(shù)據(jù)庫(kù)中。在圖書(shū)表中，為書(shū)號(hào)建立主索引，為作者編號(hào)建立普通索引，通過(guò)該索引和作者表之間創(chuàng)建關(guān)聯(lián)。在作者表中，為作者編號(hào)設(shè)置主索引。在讀者表中，讀者編號(hào)為主索引。在借閱表中，為讀者編號(hào)、書(shū)號(hào)字段創(chuàng)建普通索引，通過(guò)書(shū)號(hào)和圖書(shū)表之間關(guān)聯(lián)；通過(guò)讀者編號(hào)和讀者表之間關(guān)聯(lián)。在用戶表中，為讀者編號(hào)建立索引，通過(guò)讀者編號(hào)和讀者表建立關(guān)聯(lián)。最終形成如下圖

3、所示的數(shù)據(jù)庫(kù)。3、界面設(shè)計(jì)（1）系統(tǒng)啟動(dòng)表單在項(xiàng)目中創(chuàng)建一個(gè)表單，命名為啟動(dòng)。如下圖，添加一個(gè)標(biāo)簽控件，兩個(gè)命令按鈕，按照自己的喜好分別設(shè)置他們的屬性。在登錄按鈕的Click事件下寫(xiě)入如下代碼：ThisForm.ReleaseDo form 身份驗(yàn)證雙擊退出按鈕，并在它的Click事件寫(xiě)下如下代碼： Clear event（2）創(chuàng)建身份驗(yàn)證表單 在項(xiàng)目中創(chuàng)建，一個(gè)表單，保存為“身份驗(yàn)證”并按以下圖添加控件，設(shè)置屬性。打開(kāi)他的數(shù)據(jù)工作環(huán)境，把“用戶”表添加到其中，在進(jìn)入的click事件寫(xiě)入如下代碼：locate for 用戶名=thisform.Combo1.valueif alltrim(th

4、isform.Text1.value)alltrim(密碼) messagebox(讀不起，密碼有誤！你不能進(jìn)入本系統(tǒng),0,請(qǐng)注意：)else thisform.release do form 主表單endif在退出的click事件下寫(xiě)如下代碼：thisform.releaseclear event（3）創(chuàng)建主表單創(chuàng)建一個(gè)表單保存為“主表單”并且設(shè)置它的ShowWindows屬性為“2作為頂層表單”如圖設(shè)置它的其他控件屬性。設(shè)置Form1對(duì)象的init 事件代碼為：do 主菜單.mpr with this,menux設(shè)置form1對(duì)象的destroy事件代碼為release menu menu

5、x extended設(shè)置form1對(duì)象的activate事件代碼為thisform.Label1.left=(thisform.width-thisform.Label1.width)/2thisform.Label2.left=(thisform.width-thisform.Label2.width)/2thisform.Label3.left=(thisform.width-thisform.Label3.width)/2thisform.Label1.top=thisform.height/6thisform.Label2.top=thisform.height*2/6thisform

6、.Label3.top=thisform.height*3/6thisform.refresh設(shè)置form1對(duì)象的Resize事件代碼為：thisform.Label1.left=(thisform.width-thisform.Label1.width)/2thisform.Label2.left=(thisform.width-thisform.Label2.width)/2thisform.Label3.left=(thisform.width-thisform.Label3.width)/2thisform.Label1.top=thisform.height/6thisform.La

7、bel2.top=thisform.height*2/6thisform.Label3.top=thisform.height*3/6thisform.refresh（4）創(chuàng)建主菜單如下圖創(chuàng)建主菜單表單，并且選擇“顯示”“常規(guī)選項(xiàng)”“頂層表單”分別設(shè)置各個(gè)子菜單如下：信息錄入讀者服務(wù)信息維護(hù)信息查詢報(bào)表打印然后分別在各自的過(guò)程中寫(xiě)入相應(yīng)的調(diào)用表單的命令。例如在讀者登記菜單的過(guò)程中寫(xiě)入：Do form 讀者信息(5)創(chuàng)建主程序文件創(chuàng)建主程序文件，將其保存為“主程序”在代碼編輯窗口中，輸入以下代碼：clear all set talk offset default to c:綜合設(shè)計(jì)do form

8、 啟動(dòng)modify windows screen title 圖書(shū)管理系統(tǒng)read eventquit4、表單設(shè)計(jì)（1）圖書(shū)登記表單如下圖，創(chuàng)建一個(gè)名為圖書(shū)登記的表單，在他的數(shù)據(jù)環(huán)境中添加表作者和圖書(shū)。然后拖動(dòng)相應(yīng)的字段到表單中，按如圖所示的位置放好。添加一個(gè)按鈕組如圖。設(shè)置按鈕組的 Click事件的代碼為：do case case this.value=1 go top case this.value=2 if not bof() skip-1 endif case this.value=3 skip if eof() skip-1 endif case this.value=4 go bo

9、ttom case this.value=5 sure=messagebox(需要增加圖書(shū)信息嗎？,4+32+256,確認(rèn)) if sure=6 append blank endif case this.value=6 sure=messagebox(需要?jiǎng)h除當(dāng)前圖書(shū)信息嗎？,4+32+256,確認(rèn)) if sure=6 delete pack endif case this.value= 7 thisform. releaseendcasethisform.refresh（2）借書(shū)登記表單如圖新建一個(gè)表單，在他的數(shù)據(jù)環(huán)境中添加，圖書(shū)表和借閱表，把相應(yīng)的字段拖入表單中。按如圖所示的位置放好如圖

10、添加一個(gè)命令按鈕組并在他的 click事件中寫(xiě)入如下代碼：do case case this.value=1 go top case this.value=2 if not bof() skip-1 endif case this.value=3 skip if eof() skip-1 endif case this.value=4 go bottom case this.value=5 sure=messagebox(需要增加借書(shū)信息嗎？,4+32+256,確認(rèn)) if sure=6 append blank endif case this.value=6 sure=messagebox(

11、需要?jiǎng)h除當(dāng)前借書(shū)信息嗎？,4+32+256,確認(rèn)) if sure=6 delete pack endif case this.value= 7 thisform. releaseendcasethisform.refresh設(shè)置文本框“txt書(shū)號(hào)”的lostfocus事件代碼為：select 圖書(shū)locate for alltrim(書(shū)號(hào))=alltrim(thisform.txt書(shū)號(hào).text)if found() thisform.txt書(shū)名.refreshelse messagebox(書(shū)庫(kù)里無(wú)此書(shū)，請(qǐng)重輸！,256,確認(rèn)) thisform.txt書(shū)號(hào).setfocusendifth

12、isform.refresh（3）讀者信息維護(hù)表單創(chuàng)建一個(gè)表單，在其數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加讀者表，在表單上添加一個(gè)表格對(duì)象，一個(gè)命令按鈕組對(duì)象，如圖設(shè)置他們的屬性。設(shè)置按鈕的Click事件代碼為：do case case this.value=1 sure=messagebox(需要添加讀者信息嗎？,4+32+256,確認(rèn)) if sure=6 append blank endif case this.value=2 sure=messagebox(確定要?jiǎng)h除當(dāng)前讀者信息嗎？,4+32+256,確認(rèn)) if sure=6 delete endif case this.value=3 thisform.releaseendcasethisform.Grid1.refreshthisform.refresh（4）讀者借書(shū)信息查詢表單創(chuàng)建一個(gè)表單，如下圖設(shè)置各個(gè)控件的屬性。在他的數(shù)據(jù)環(huán)境中添加，讀者表和借閱表。在他的查詢按鈕的click事件下輸入如下代碼：set exact onthisform.Grid1.recordsource=select讀者編號(hào),讀者姓名,書(shū)號(hào),借書(shū)日期,還書(shū)日期,from 借閱 wher