圖書管理系統(tǒng)大數(shù)據(jù)庫(kù)

1、數(shù)據(jù)庫(kù)原理與應(yīng)用教程實(shí)驗(yàn)報(bào)告數(shù)據(jù)庫(kù)分析與設(shè)計(jì)-圖書管理系統(tǒng)實(shí)用標(biāo)準(zhǔn)文案一、需求說(shuō)明要實(shí)現(xiàn)一個(gè)簡(jiǎn)化的圖書管理系統(tǒng)，在此圖書管理系統(tǒng)中只涉及學(xué)生信息、借 閱信息和管理者信息的管理。此系統(tǒng)要求能夠記住書籍的基本信息、 學(xué)生的信息 和管理者的信息。該系統(tǒng)的業(yè)務(wù)要求為：一名學(xué)生可以在不同的日期多次借閱同一本書。一名學(xué)生可以同時(shí)借閱多本不同的圖書。一本書可以在不同的時(shí)間借給不同的學(xué)生。一名學(xué)生不能在同一天對(duì)同一本書借閱多次。一名管理員可以同時(shí)管理多本圖書。該系統(tǒng)的基本信息包括：學(xué)生信息：姓名，學(xué)號(hào)，學(xué)院，專業(yè)，年級(jí)。圖書信息：圖書名稱，圖書編號(hào)，出版社名稱，出版日期，作者，是否可借。 管理員信息：管理員姓

2、名，管理員編號(hào)。除上述要求外，該系統(tǒng)還需產(chǎn)生如下報(bào)表：學(xué)生借閱圖書信息表：學(xué)號(hào)，圖書編號(hào)，圖書名稱，借閱日期，應(yīng)歸還日期。 圖書管理表：管理日期，管理員編號(hào)，管理員姓名。二、數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)2.1 概念結(jié)構(gòu)設(shè)計(jì)概念結(jié)構(gòu)設(shè)計(jì)是根據(jù)需求分析的結(jié)果產(chǎn)生概念結(jié)構(gòu)設(shè)計(jì)的E-R模型。由于這個(gè)系統(tǒng)比較簡(jiǎn)單，因此這里采用自頂向下的設(shè)計(jì)方法。自頂向下設(shè)計(jì)的關(guān)鍵是 首先要確定系統(tǒng)的核心活動(dòng)。所謂核心活動(dòng)就是系統(tǒng)中的其他活動(dòng)都要圍繞這個(gè) 活動(dòng)展開或與此活動(dòng)密切相關(guān)。確定了核心活動(dòng)之后，系統(tǒng)就有了可擴(kuò)展的余地。 對(duì)于這個(gè)圖書管理系統(tǒng)，其核心活動(dòng)是圖書，學(xué)生與圖書之間是通過(guò)學(xué)生借閱圖 書發(fā)生聯(lián)系的，管理員與圖書之間是通過(guò)

3、管理員管理圖書發(fā)生聯(lián)系的。至此，此系統(tǒng)包含的實(shí)體有：圖書：用于描述課程的基本信息，用圖書編號(hào)標(biāo)識(shí)。學(xué)生：用于描述學(xué)生的基本信息，用學(xué)號(hào)標(biāo)識(shí)。管理員：用于描述管理員的基本信息，用管理員編號(hào)標(biāo)識(shí)。由于一名學(xué)生可以借閱多本圖書，并且一本書可以在不同時(shí)間借給不同的學(xué)生。因此，學(xué)生與圖書之間是多對(duì)多的聯(lián)系。 又由于一本圖書可以由多名管理員 管理，而且一名管理員可以管理多本圖書。 因此，管理員與圖書之間也是多對(duì)多 的聯(lián)系。其基本E-R模型如圖1所示：根據(jù)需求分析的結(jié)果，該E-R模型模型中個(gè)實(shí)體所包含的屬性如下：學(xué)生：姓名，學(xué)號(hào)，學(xué)院，專業(yè)，年級(jí)。圖書：圖書名稱，圖書編號(hào)，出版社名稱，出版日期，作者，是否可

4、借。管理員：管理員姓名，管理員編號(hào)。各聯(lián)系本身應(yīng)具有的屬性為：借閱：學(xué)號(hào)，圖書編號(hào)，圖書名稱，借閱日期，應(yīng)歸還日期。管理：管理日期，管理員編號(hào)，管理員姓名。2.2 邏輯結(jié)果設(shè)計(jì)這個(gè)E-R模型轉(zhuǎn)換出的關(guān)系模式如下，其中主碼用下劃線標(biāo)識(shí)：學(xué)生 （學(xué)生姓名，學(xué)院，專業(yè)，年級(jí)）圖書（圖書編號(hào),圖書名稱，出版社名稱，出版日期，作者，是否可借）管理員（管理員編號(hào)、管理員姓名）借閱 （學(xué)號(hào)，圖書標(biāo)號(hào),圖書名稱，借閱日期，應(yīng)歸還日期），其中圖書 編號(hào)為引用“圖書”關(guān)系模式的外碼；學(xué)號(hào)為引用“學(xué)生”關(guān)系模式的外碼。管理 （管理日期，管理員編號(hào),管理員姓名），其中管理員編號(hào)為引用“管 理員”關(guān)系模式的外碼。（1）

5、確定各管是模式是否屬于第三范式經(jīng)過(guò)分析發(fā)現(xiàn)，“學(xué)生”、“圖書”、“管理員”、“借閱”和“管理” 5個(gè)關(guān)系 模式中，都不存在部分依賴和傳遞依賴關(guān)系，因此都屬于第三范式。（2）確定信息的完整性該教學(xué)管理系統(tǒng)要產(chǎn)生：學(xué)生借閱圖書信息、圖書管理2個(gè)報(bào)表，分別分析 如下：“學(xué)生借閱圖書信息表”包括學(xué)號(hào)、圖書編號(hào)、圖書名稱、借閱日期、應(yīng)歸還日期。其中“學(xué)號(hào)”可由“學(xué)生”關(guān)系模式得到，“圖書編號(hào)”、“圖書名稱"、“借閱日期”、“應(yīng)歸還日期”可由“借閱”關(guān)系模式得到，因此可以滿 足學(xué)生借閱圖書信息表的要求?！皥D書管理表”包括管理日期、管理員編號(hào)、管理員姓名。其中“管理日期” 可由“管理”關(guān)系模式得到

6、，“管理員編號(hào)”，“管理員姓名”可由“管理員” 關(guān)系模式得到。因此，所有關(guān)系模式滿足所有報(bào)表的信息要求。至此，關(guān)系模式設(shè)計(jì)完畢。下面給出創(chuàng)建這些關(guān)系表的 SQL語(yǔ)句示例，其中的數(shù)據(jù)類型可根據(jù)實(shí)際情 況調(diào)整，為方便理解，表名、列名均用中文表示。CREATE TABLE號(hào)名院業(yè)級(jí)學(xué)姓學(xué)專年char(10) char(10) char(20) char(20)char(8)學(xué)生表(PRIMARY KEY , NOT NULL , NOT NULL , NOT NULL , NOT NULLCREATE TABLE 圖書表(圖書編號(hào) char(20) PRIMARY KEY , 圖書名稱char(20

7、)NOT NULL,出版社名稱char(20)NOT NULL,出版日期datetimeNOT NULL,作者char(10)NOT NULL)CREATE TABLE管理員表(管理員編號(hào) char(10) PRIMARY KEY , 管理員姓名 char(10) NOT NULL )CREATE TABLE 借閱表(學(xué)號(hào)char(10)NOT NULL ,姓名char(10)NOT NULL ,圖書編號(hào)char(20)NOT NULL ,圖書名稱char(20)NOT NULL ,借閱日期datetimeNOT NULL ,應(yīng)歸還日期 datetime NOT NULL,PRIMARY KE

8、Y （學(xué)號(hào)，圖書編號(hào)），F(xiàn)OREIGN KEY （學(xué)號(hào)）REFERENCES 學(xué)生表（學(xué)號(hào)），F(xiàn)OREIGN KEY （圖書編號(hào)）REFERENCES圖書表（圖書編號(hào)） ）CREATE TABLE 管理表（管理日期datetime NOT NULL ,管理員編號(hào) char（10） NOT NULL ,管理員姓名 char（10） NOT NULL ,PRIMARY KEY （管理日期，管理員編號(hào)）,FOREIGN KEY （管理員編號(hào)）REFERENCES管理員表（管理員編號(hào)） ）2.2.2設(shè)計(jì)外模式學(xué)生借閱圖書信息表我們將該報(bào)表直接用查詢語(yǔ)句的形式生成， 將動(dòng)態(tài)查詢條件作為查詢語(yǔ)句中 的數(shù)據(jù)

9、篩選條件。例如，假設(shè)要為大三學(xué)生生成借閱圖書情況的報(bào)表，則語(yǔ)句如下：SELECT學(xué)號(hào)，姓名，圖書名稱FROM 借閱表 WHERE 年級(jí)=大三（2）圖書管理表該表可以查詢出在哪一天由哪位管理員借出了哪些圖書，因此，直接用查詢語(yǔ)句生成。SELECT圖書編號(hào)，圖書名稱，管理日期，管理員編號(hào)，管理員姓名FROM借閱表JOIN管理表ON借閱表.借閱日期=管理表.管理日期三、數(shù)據(jù)庫(kù)行為設(shè)計(jì)對(duì)于數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)來(lái)說(shuō)，最常用的功能是安全控制功能，數(shù)據(jù)的增、刪、改、查功能以及生成報(bào)表的功能。本系統(tǒng)也應(yīng)包括這些基本的操作。3.1 安全控件任何數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)都需要安全控件功能，這個(gè)圖書管理系統(tǒng)也不例外。假設(shè)將系統(tǒng)的用

10、戶分為如下幾類：圖書館系統(tǒng)管理人員：具有系統(tǒng)的全部操作權(quán)限。教務(wù)部門：具有對(duì)學(xué)生基本信息、圖書信息和管理員信息的維護(hù)權(quán)。學(xué)生：具有對(duì)圖書信息的查詢權(quán)。在實(shí)現(xiàn)時(shí)，可將每一類用戶定義為一個(gè)角色，這樣在授權(quán)時(shí)只需對(duì)角色授權(quán)， 而無(wú)需對(duì)每個(gè)具體的用戶授權(quán)。3.2 數(shù)據(jù)操作功能數(shù)據(jù)操作功能包括對(duì)這些數(shù)據(jù)的錄入、刪除、修改功能。具體如下：(1)數(shù)據(jù)錄入包括又t這5張表的錄入。只有具有相應(yīng)權(quán)限的用戶才能錄入相應(yīng)表中的數(shù)據(jù)。(2)數(shù)據(jù)刪除包括又t這5張表的刪除。只有具有相應(yīng)權(quán)限的用戶才能刪除相應(yīng)表中的數(shù)據(jù)。數(shù)據(jù)的刪除要注意表之間的關(guān)聯(lián)關(guān)系。 比如在刪除“學(xué)生表”中的數(shù)據(jù)之前, 應(yīng)先刪除該學(xué)生在“借閱表”中的信

11、息，然后再學(xué)生表中刪除該學(xué)生，以保證不 違反參照完整性約束。另外，在實(shí)際執(zhí)行刪除操作之前應(yīng)該提醒用戶是否真的要 刪除數(shù)據(jù)，以免發(fā)生誤操作。(3)數(shù)據(jù)修改當(dāng)某些數(shù)據(jù)發(fā)生變化或某些數(shù)據(jù)錄入不正確時(shí)， 應(yīng)該允許用戶對(duì)數(shù)據(jù)庫(kù)中的 數(shù)據(jù)進(jìn)行修改，修改數(shù)據(jù)的操作一般是先根據(jù)一定的條件查詢出要修改的記錄， 然后在對(duì)其中的某些記錄進(jìn)行修改， 修改完成后再回到數(shù)據(jù)庫(kù)中。同數(shù)據(jù)的錄入 與刪除一樣，只有具有相應(yīng)權(quán)限的用戶才能修改相應(yīng)表中的數(shù)據(jù)。(4)數(shù)據(jù)查詢?cè)跀?shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中，數(shù)據(jù)查詢是最常用的功能。數(shù)據(jù)查詢應(yīng)根據(jù)用戶提出 的查詢條件進(jìn)行，在設(shè)計(jì)系統(tǒng)時(shí)應(yīng)首先征求用戶的查詢需求， 然后根據(jù)這些需求 整理出系統(tǒng)應(yīng)具有的

12、查詢功能。一般允許所有使用數(shù)據(jù)庫(kù)的人都具有查詢數(shù)據(jù)的 權(quán)限。本系統(tǒng)提出的查詢要求有：根據(jù)學(xué)號(hào)、學(xué)院、專業(yè)等信息查詢學(xué)生的基本信息。根據(jù)圖書編號(hào)查詢圖書的基本信息。根據(jù)管理員編號(hào)查詢管理員的基本信息。統(tǒng)計(jì)各個(gè)年級(jí)學(xué)生借書的總數(shù)量。等等。3.3 應(yīng)用程序?qū)崿F(xiàn)3.31 語(yǔ)言及DBMS的選擇制作這5個(gè)表的數(shù)據(jù)庫(kù)使用DBMS的是ACCESS,然后用VB語(yǔ)言編寫程 序代碼，實(shí)現(xiàn)程序的各個(gè)功能。其中用到了ADO數(shù)據(jù)控件和DataGrid控件。3.32 應(yīng)用程序的編寫(1)學(xué)生表VB代碼Private Sub Command1_Click() '"添加"命令按鈕AdodcStude

13、nt.Recordset.AddNew使"添加"和"刪除"按鈕成為不可用狀態(tài)Command1.Enabled = FalseCommand3.Enabled = False使"更新"按鈕成為可用狀態(tài)Command4.Enabled = True清空文本框中顯示的內(nèi)容Text1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text ="" End SubPrivate S

14、ub Command2_Click() '"退出"命令按鈕EndEnd Sub'"刪除"命令按鈕Private Sub Command3_Click()Dim res As Integerres = MsgBox("確實(shí)要?jiǎng)h除此行記錄嗎？", vbExclamation + vbYesNo + vbDefaultButton2)提示用戶If res = vbYes Then '如確實(shí)要?jiǎng)h除AdodcStudent.Recordset.DeleteAdodcStudent.Recordset.MoveNextIf

15、 AdodcStudent.Recordset.EOF = True ThenAdodcStudent.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Command4_Click()'"更新"命令按鈕將文本框中的當(dāng)前值寫入結(jié)果集中相應(yīng)字段中)=Trim(Textl.Text)=Trim(Text2.Text)=Trim(Text3.Text)=Trim(Text4.Text)=Trim(Text5.Text)AdodcStudent.Recordset.Fields("學(xué)號(hào) AdodcStudent.Re

16、cordset.Fields("姓名 AdodcStudent.Recordset.Fields("學(xué)院 AdodcStudent.Recordset.Fields("專業(yè) AdodcStudent.Recordset.Fields("年級(jí) '使更新生效AdodcStudent.Recordset.Update使"添加"和"刪除"按鈕成為可用狀態(tài)Commandl.Enabled = TrueCommand3.Enabled = TrueEnd SubPrivate Sub Command5_Click()

17、'"上一條"命令按鈕AdodcStudent.Recordset.MovePreviousEnd SubPrivate Sub Command6_Click()'"下一條"命令按鈕AdodcStudent.Recordset.MoveNextEnd Sub(2)圖書表VB代碼Private Sub Command2_Click()'"添加"命令按鈕AdodcBook.Recordset.AddNew使"添加"和"刪除"按鈕成為不可用狀態(tài)Command2.Enabled =

18、 FalseCommand3.Enabled = False使"更新"和"取消"按鈕成為可用狀態(tài)Command4.Enabled = TrueCommand5.Enabled = True清空文本框中顯示的內(nèi)容Text1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""End SubPrivate Sub Command3_Click()'"刪除"命

19、令按鈕Dim res As Integerres = MsgBox("確定要?jiǎng)h除此行記錄 ？”, vbExclamation + vbYesNo + vbDefaultButton2) '提 示用戶If res = vbYes Then '如確實(shí)要?jiǎng)h除AdodcBook.Recordset.DeleteAdodcBook.Recordset.MoveNextIf AdodcBook.Recordset.EOF = True ThenAdodcBook.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Command4_C

20、lick()'"更新"命令按鈕將文本框中的當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcBook.Recordset.Fields("圖書編號(hào)")=Trim(Textl.Text)AdodcBook.Recordset.Fields("圖書名稱")=Trim(Text2.Text)AdodcBook.Recordset.Fields("出版社名稱")=Trim(Text3.Text)AdodcBook.Recordset.Fields("出版日期")=Trim(Text4.Text)AdodcB

21、ook.Recordset.Fields("作者")=Trim(Text5.Text)'使更新生效AdodcBook.Recordset.Update使"添加"和"刪除"按鈕成為可用狀態(tài)Command2.Enabled = TrueCommand3.Enabled = True使"取消"按鈕成為不可用狀態(tài)Command5.Enabled = FalseEnd SubPrivate Sub Command5_Click()Command2.Enabled = TrueCommand3.Enabled = Tr

22、ueCommand5.Enabled = FalseEnd SubPrivate Sub Command6_Click()'"上一條"命令按鈕AdodcBook.Recordset.MovePreviousEnd SubPrivate Sub Command7_Click()'"下一條"命令按鈕AdodcBook.Recordset.MoveNextEnd Sub(3)管理員表VB代碼Private Sub Command1_Click()'"退出"命令按鈕EndEnd SubPrivate Sub Comma

23、nd2_Click()'"添加"命令按鈕AdodcManager.Recordset.AddNew使"添加"和"刪除"按鈕成為不可用狀態(tài)Command2.Enabled = FalseCommand3.Enabled = False使"更新"按鈕成為可用狀態(tài)Command4.Enabled = True清空文本框中現(xiàn)實(shí)的內(nèi)容Textl.Text =""Text2.Text =""End SubPrivate Sub Command3_Click()'"

24、;刪除"命令按鈕Dim res As Integerres = MsgBox("確實(shí)要?jiǎng)h除此行記錄嗎？", vbExclamation + vbYesNo + vbDefaultButton2)提示用戶If res = vbYes Then '如確實(shí)要?jiǎng)h除AdodcManager.Recordset.DeleteAdodcManager.Recordset.MoveNextIf AdodcManager.Recordset.EOF = True ThenAdodcManager.Recordset.MoveLastEnd IfEnd IfEnd SubPr

25、ivate Sub Command4_Click()'"更新"命令按鈕將文本框中的當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcManager.Recordset.Fields("管理員編號(hào)")=Trim(Text1.Text)AdodcManager.Recordset.Fields("管理員姓名")=Trim(Text2.Text)'使更新生效AdodcManager.Recordset.Update使"添加"和"刪除"按鈕成為可用狀態(tài)Command2.Enabled = TrueC

26、ommand3.Enabled = TrueEnd SubPrivate Sub Command5_Click()'"上一條"命令按鈕AdodcManager.Recordset.MovePreviousEnd SubPrivate Sub Command6_Click()'"下一條"命令按鈕AdodcManager.Recordset.MoveNextEnd Sub(4)借閱表VB代碼Private Sub Command1_Click()'"退出"命令按鈕EndEnd SubPrivate Sub Comm

27、and2_Click()'"上一條"命令按鈕AdodcBorrown.Recordset.MovePreviousEnd SubPrivate Sub Command3_Click()'"下一條"命令按鈕AdodcBorrown.Recordset.MoveNextEnd SubPrivate Sub Command4_Click()'"添加"命令按鈕AdodcBorrown.Recordset.AddNew使"添加"和"刪除"按鈕成為不可用狀態(tài)Command4.Enab

28、led = FalseCommand5.Enabled = False使"更新"按鈕成為可用狀態(tài)Command6.Enabled = True清空文本框中現(xiàn)實(shí)的內(nèi)容Text1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""Text6.Text =""End SubPrivate Sub Command5_Click()'"刪除"命令按鈕Dim re

29、s As Integerres = MsgBox("確實(shí)要?jiǎng)h除此行記錄嗎？", vbExclamation + vbYesNo + vbDefaultButton2)提示用戶If res = vbYes Then '如確實(shí)要?jiǎng)h除AdodcBorrown.Recordset.DeleteAdodcBorrown.Recordset.MoveNextIf AdodcBorrown.Recordset.EOF = True ThenAdodcBorrown.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Command6_

30、Click()'"更新"命令按鈕將文本框中的當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcBorrown.Recordset.Fields("學(xué)號(hào)")=Trim(Text1.Text)AdodcBorrown.Recordset.Fields("姓名")=Trim(Text2.Text)AdodcBorrown.Recordset.Fields("圖書編號(hào)")=Trim(Text3.Text)AdodcBorrown.Recordset.Fields("圖書名稱")=Trim(Text4.Tex

31、t)AdodcBorrown.Recordset.Fields("借閱日期")=Trim(Text5.Text)AdodcBorrown.Recordset.Fields("應(yīng)歸還日期")=Trim(Text6.Text)'使更新生效AdodcBorrown.Recordset.Update使"添加"和"刪除"按鈕成為可用狀態(tài)Command4.Enabled = TrueCommand5.Enabled = TrueEnd Sub(5)管理表VB代碼Private Sub Command1_Click()&

32、#39;"退出"命令按鈕EndEnd SubPrivate Sub Command2_Click()'"添加"命令按鈕AdodcManagement.Recordset.AddNew使"添加"和"刪除"按鈕成為不可用狀態(tài)Command2.Enabled = FalseCommand3.Enabled = False使"更新"按鈕成為可用狀態(tài)Command4.Enabled = True清空文本框中現(xiàn)實(shí)的內(nèi)容Text1.Text =""Text2.Text ="

33、;"Text3.Text =""End SubPrivate Sub Command3_Click()'"刪除"命令按鈕Dim res As Integerres = MsgBox("確實(shí)要?jiǎng)h除此行記錄嗎？", vbExclamation + vbYesNo + vbDefaultButton2)' 提示用戶If res = vbYes Then '如確實(shí)要?jiǎng)h除AdodcManagement.Recordset.DeleteAdodcManagement.Recordset.MoveNextIf Ad

34、odcManagement.Recordset.EOF = True ThenAdodcManagement.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Command4_Click()'"更新"命令按鈕將文本框中的當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcManagement.Recordset.Fields("管理日期")=Trim(Textl.Text)AdodcManagement.Recordset.Fields("管理員編號(hào)")=Trim(Text2.Text)Ad

35、odcManagement.Recordset.Fields("管理員姓名")=Trim(Text3.Text) '使更新生效AdodcManagement.Recordset.Update 使"添加"和"刪除"按鈕成為可用狀態(tài)Command2.Enabled = TrueCommand3.Enabled = True End SubPrivate Sub Command5_Click()'"上一條"命令按鈕AdodcManagement.Recordset.MovePrevious End SubPrivate Sub Command6_Click()'"下一條"命令按鈕AdodcManagement.Recordset.MoveNext End Sub3.33應(yīng)用程序的使用說(shuō)明為數(shù)據(jù)庫(kù)中5個(gè)表設(shè)計(jì)的VB工程中，其基本類型相似，由于涉及到參照完整性約束，因此這里將重點(diǎn)說(shuō)明“學(xué)生表”和“借閱表”的使用說(shuō)明，“圖書表”和“管理員表”參照“學(xué)生表”，“管理表”參照“借閱表”。(1)學(xué)生表使用說(shuō)明啟動(dòng)VB程序，打開“學(xué)生表”的工程文件，并運(yùn)行該程序。1）單擊