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

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

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

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

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

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

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

7、TNULL,作者char(10)NOTNULL)CREATETABLE管理員表(管理員編號char(10)PRIMARYKEY,管理員姓名char(10)NOTNULL)CREATETABLE借閱表(學(xué)號char(10)NOTNULL,姓名char(10)NOTNULL,圖書編號char(20)NOTNULL,圖書名稱char(20)NOTNULL,借閱日期datetimeNOTNULL,應(yīng)歸還日期datetimeNOTNULL,PRIMARYKEY（學(xué)號，圖書編號），F(xiàn)OREIGNKEY（學(xué)號）REFERENCES學(xué)生表（學(xué)號）,FOREIGNKEY（圖書編號）REFERENCES圖書表（圖

8、書編號）CREATETABLE管理表（管理日期datetimeNOTNULL,管理員編號char（10）NOTNULL,管理員姓名char（10）NOTNULL,PRIMARYKEY（管理日期，管理員編號），F(xiàn)OREIGNKEY（管理員編號）REFERENCES管理員表（管理員編號）2、2、2設(shè)計(jì)外模式（1）學(xué)生借閱圖書信息表我們將該報(bào)表直接用查詢語句得形式生成,將動態(tài)查詢條件作為查詢語句中得數(shù)據(jù)篩選條件。例如,假設(shè)要為大三學(xué)生生成借閱圖書情況得報(bào)表，則語句如下:SELECT學(xué)號，姓名，圖書名稱FROM借閱表WHERE年級=大三（2）圖書管理表該表可以查詢出在哪一天由哪位管理員借出了哪些圖書,

9、因此,直接用查詢語句生成。SELECT圖書編號，圖書名稱，管理日期，管理員編號，管理員姓名FROM借閱表JOIN管理表ON借閱表、借閱日期=管理表、管理日期三、數(shù)據(jù)庫行為設(shè)計(jì)對于數(shù)據(jù)庫應(yīng)用系統(tǒng)來說,最常用得功能就是安全控制功能,數(shù)據(jù)得增、刪、改、查功能以及生成報(bào)表得功能。本系統(tǒng)也應(yīng)包括這些基本得操作。3、 1安全控件任何數(shù)據(jù)庫應(yīng)用系統(tǒng)都需要安全控件功能,這個圖書管理系統(tǒng)也不例外。假設(shè)將系統(tǒng)得用戶分為如下幾類:圖書館系統(tǒng)管理人員：具有系統(tǒng)得全部操作權(quán)限。教務(wù)部門:具有對學(xué)生基本信息、圖書信息與管理員信息得維護(hù)權(quán)學(xué)生:具有對圖書信息得查詢權(quán)。在實(shí)現(xiàn)時,可將每一類用戶定義為一個角色,這樣在授權(quán)時只需

10、對角色授權(quán),而無需對每個具體得用戶授權(quán)。3、2數(shù)據(jù)操作功能數(shù)據(jù)操作功能包括對這些數(shù)據(jù)得錄入、刪除、修改功能.具體如下:（1）數(shù)據(jù)錄入包括對這5張表得錄入。只有具有相應(yīng)權(quán)限得用戶才能錄入相應(yīng)表中得數(shù)據(jù)。（ 2）數(shù)據(jù)刪除包括對這5張表得刪除.只有具有相應(yīng)權(quán)限得用戶才能刪除相應(yīng)表中得數(shù)據(jù)。數(shù)據(jù)得刪除要注意表之間得關(guān)聯(lián)關(guān)系。比如在刪除“學(xué)生表”中得數(shù)據(jù)之前,應(yīng)先刪除該學(xué)生在“借閱表"中得信息,然后再學(xué)生表中刪除該學(xué)生,以保證不違反參照完整性約束。另外,在實(shí)際執(zhí)行刪除操作之前應(yīng)該提醒用戶就是否真得要刪除數(shù)據(jù)，以免發(fā)生誤操作.（ 3）數(shù)據(jù)修改當(dāng)某些數(shù)據(jù)發(fā)生變化或某些數(shù)據(jù)錄入不正確時,應(yīng)該允許用戶

11、對數(shù)據(jù)庫中得數(shù)據(jù)進(jìn)行修改，修改數(shù)據(jù)得操作一般就是先根據(jù)一定得條件查詢出要修改得記錄然后在對其中得某些記錄進(jìn)行修改，修改完成后再回到數(shù)據(jù)庫中同數(shù)據(jù)得錄入與刪除一樣,只有具有相應(yīng)權(quán)限得用戶才能修改相應(yīng)表中得數(shù)據(jù).（ 4）數(shù)據(jù)查詢在數(shù)據(jù)庫應(yīng)用系統(tǒng)中,數(shù)據(jù)查詢就是最常用得功能.數(shù)據(jù)查詢應(yīng)根據(jù)用戶提出得查詢條件進(jìn)行,在設(shè)計(jì)系統(tǒng)時應(yīng)首先征求用戶得查詢需求，然后根據(jù)這些需求整理出系統(tǒng)應(yīng)具有得查詢功能。一般允許所有使用數(shù)據(jù)庫得人都具有查詢數(shù)據(jù)得權(quán)限。本系統(tǒng)提出得查詢要求有:根據(jù)學(xué)號、學(xué)院、專業(yè)等信息查詢學(xué)生得基本信息。根據(jù)圖書編號查詢圖書得基本信息。根據(jù)管理員編號查詢管理員得基本信息。統(tǒng)計(jì)各個年級學(xué)生借書得總

12、數(shù)量。等等。3、3應(yīng)用程序?qū)崿F(xiàn)3、31語言及DBMS得選擇制作這5個表得數(shù)據(jù)庫使用DBMS得就是ACCESS,然后用VB語言編寫程序代碼，實(shí)現(xiàn)程序得各個功能。其中用到了ADO數(shù)據(jù)控件與DataGrid控件。3、32應(yīng)用程序得編寫(1)學(xué)生表VB代碼PrivateSubmand1_Click()'"添加"命令按鈕AdodcStudent、Recordset、AddNew'使”添加與”刪除"按鈕成為不可用狀態(tài)mand1、Enabled=Falsemand3、Enabled=Fa1se使”更新"按鈕成為可用狀態(tài)mand4、Enabled=Tru

13、e清空文本框中顯示得內(nèi)容Text1>Text=""Text2、Text=""Text3、Text=""Text4、Text="Text5、Text=""EndSubPrivateSubmand2_Click()'"退出"命令按鈕EndEndSubPrivateSubmand3_Click()'"刪除"命令按鈕DimresAsIntegerres=MsgBox("確實(shí)要刪除此行記錄嗎？",vbExclamation+vbYes

14、No+vbDefaultButton2)'提示用戶Ifres=vbYesThen'如確實(shí)要刪除AdodcStudent、Recordset、DeleteAdodcStudent>Recordset、MoveNextIfAdodcStudent、Recordset、EOF=TrueThenAdodeStudent、Recordset、MoveLastEndIfEndIfEndSubPrivateSubmand4_Click()'"更新"命令按鈕將文本框中得當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcStudent、Recordset、Fie1ds(&q

15、uot;學(xué)號")=Trim(Text1>Text)AdodcStudent、Recordset、Fields("姓名")=Trim(Text2、Text)AdodcStudent、Recordset、Fie1ds("學(xué)院")=Trim(Text3、Text)AdodcStudent、Recordset、Fie1ds("專業(yè)")=Trim(Text4>Text)AdodcStudent、Recordset、Fie1ds("年級")=Trim(Text5、Text)使更新生效AdodcStuden

16、t、Recordset、Update使"添加"與"刪除”按鈕成為可用狀態(tài)mandl、Enabled=Truemand3、Enabled=TrueEndSubPrivateSubmand5Click()'"上一條"命令按鈕AdodcStudent、Recordset、MovePreviousEndSubPrivateSubmand6_Click()'"下一條"命令按鈕AdodcStudent、Rec0rdset、MoveNextEndSub(2)圖書表VB代碼PrivateSubmand2_Click()

17、9;"添加"命令按鈕AdodcBook、Recordset、AddNew'使"添加”與”刪除"按鈕成為不可用狀態(tài)mand2、Enabled=Falsemand3、Enabled=False使更新”與"取消按鈕成為可用狀態(tài)mand4、Enabled=Truemand5、Enabled=True清空文本框中顯示得內(nèi)容Text1、Text="”Text2、Text=""Text3、Text="Text4、Text="”Text5、Text="”EndSubPrivateSubmand

18、3_Click()'"刪除"命令按鈕DimresAsIntegerres=MsgBox("確定要刪除此行記錄？",vbExclamation+vbYesNo+vbDefaultButton2)'提示用戶Ifres=vbYesThen'如確實(shí)要刪除AdodcBook、Recordset、DeleteAdodcBook、Recordset、MoveNextIfAdodcBook、Recordset>EOF=TrueThenAdodcBook、Recordset、MoveLastEndIfEndIfEndSubPrivateSub

19、mand4_C1ick()'"更新"命令按鈕'將文本框中得當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodeBook、Recordset、Fie1ds("圖書編號")=Trim(Text1、Text)AdodcBook、Recordset、Fields("圖書名稱")=Trim(Text2、Text)AdodcBook、RecordsetFie1ds("出版社名稱")=Trim(Text3>Text)AdodcBook、Recordset、Fie1ds("出版日期")=Trim(Tex

20、t4、Text)AdodcBook、Recordset、Fie1ds("作者")=Trim(Text5、Text)使更新生效AdodcBook、Recordset、Update使”添加"與刪除"按鈕成為可用狀態(tài)mand2、Enabled=Truemand3、Enab1ed=True'使"取消按鈕成為不可用狀態(tài)mand5、Enabled=FalseEndSubPrivateSubmand5_Click()mand2、Enab1ed=Truemand3、Enabled=Truemand5、Enabled=FaiseEndSubPrivate

21、Submand6_Click()'”上一條”命令按鈕AdodcBook、Recordset、MovePreviousEndSubPrivateSubmand7_Click()'"下一條"命令按鈕AdodcBook、Recordset、MoveNextEndSub(3)管理員表VB代碼PrivateSubmand1_C1ick()/"退出"命令按鈕EndEndSubPrivateSubmand2_C1ick()'"添加"命令按鈕AdodcManager、Recordset、AddNew'使添加"

22、與"刪除”按鈕成為不可用狀態(tài)mand2、Enabled=Falsemand3、Enabled=Fa1se'使"更新"按鈕成為可用狀態(tài)mand4、Enabled=True'清空文本框中現(xiàn)實(shí)得內(nèi)容Text1、Text="”Text2、Text=EndSubPrivateSubmand3_Click()'"刪除"命令按鈕DimresAsIntegerres=MsgBox("確實(shí)要刪除此行記錄嗎？",vbExclamation+vbYesNo+vbDefaultButton2)'提示用戶If

23、res=vbYesThen'如確實(shí)要刪除AdodcManager、Recordset、DeleteAdodcManager、Recordset、MoveNextIfAdodcManager、Recordset、EOF=TrueThenAdodcManager、Recordset、MoveLastEndIfEndIfEndSubPrivateSubmand4_Click()'"更新"命令按鈕將文本框中得當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcManager、Recordset、Fields("管理員編號")=Trim(Textl、Text)A

24、dodcManager、Recordset、Fie1ds("管理員姓名")=Trim(Text2、Text)'使更新生效AdodcManager、Recordset、Update使”添加”與"刪除按鈕成為可用狀態(tài)mand2、Enabled=Truemand3、Enabled=TrueEndSubPrivateSubmand5_C1ick()'"上一條"命令按鈕AdodcManager、Recordset、MovePreviousEndSubPrivateSubmand6_Click()'"下一條"命令

25、按鈕AdodcManager、Recordset、MoveNextEndSub(4)借閱表VB代碼PrivateSubmand1_C1ick()'"退出"命令按鈕EndEndSubPrivateSubmand2_Click()'"上一條"命令按鈕AdodcBorrown、Recordset、MovePreviousEndSubPrivateSubmand3C1ick()'"下一條”命令按鈕AdodcBorrown、Recordset、MoveNextEndSubPrivateSubmand4_C1ick()'&q

26、uot;添加"命令按鈕AdodcBorrown、Recordset、AddNew使添加”與”刪除”按鈕成為不可用狀態(tài)mand4、Enab1ed=Fa1semand5>Enabled=False使”更新按鈕成為可用狀態(tài)mand6、Enabled=True'清空文本框中現(xiàn)實(shí)得內(nèi)容Text1>Text=""Text2、Text=Text3、Text=""Text4、Text="Text5、Text="”Text6、Text=""EndSubPrivateSubmand5_Click()

27、9;"刪除"命令按鈕DimresAsIntegerres=MsgBox("確實(shí)要刪除此行記錄嗎？"，vbExclamation+vbYesNo+vbDefau1tButton2)'提示用戶Ifres=vbYesThen'如確實(shí)要刪除AdodcBorrown、Recordset、DeleteAdodcBorrown、Recordset、MoveNextIfAdodcBorrown、Recordset、EOF=TrueThenAdodcBorrown、Recordset、MoveLastEndIfEndIfEndSubPrivateSubma

28、nd6_Click()/“更新"命令按鈕'將文本框中得當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcBorrown、Recordset、Fie1ds("學(xué)號")=Trim(Textl、Text)AdodcBorrown、Recordset、Fields，姓名")=Trim(Text2、Text)AdodcBorrown、Recordset、Fie1ds("圖書編號")=Trim(Text3、Text)AdodcBorrown、Recordset、Fields("圖書名稱")=Trim(Text4、Text)Adod

29、cBorrown>Recordset、Fie1ds("借閱日期")=Trim(Text5、Text)AdodcBorrown、Recordset、Fields("應(yīng)歸還日期")=Trim(Text6、Text)使更新生效AdodcBorrown、Recordset、Update使添加”與”刪除”按鈕成為可用狀態(tài)mand4、Enabled=Truemand5>Enabled=TrueEndSub(5)管理表VB代碼PrivateSubmand1Click()/"退出"命令按鈕EndEndSubPrivateSubmand2_

30、Click()'"添加"命令按鈕AdodcManagement、Recordset、AddNew'使"添加”與"刪除”按鈕成為不可用狀態(tài)mand2、Enabled=Falsemand3、Enabled=Fa1se使”更新"按鈕成為可用狀態(tài)mand4、Enabled=True清空文本框中現(xiàn)實(shí)得內(nèi)容Text1、Text="”Text2>Text=""Text3、Text=""EndSubPrivateSubmand3_Click()'"刪除"命令按鈕

31、DimresAsIntegerres=MsgBox("確實(shí)要刪除此行記錄嗎？"，vbExclamation+vbYesNo+vbDefaultButton2)'提示用戶Ifres=vbYesThen'如確實(shí)要刪除AdodcManagement、Recordset、DeleteAdodcManagement、Recordset、MoveNextIfAdodcManagement、Recordset、EOF=TrueThenAdodcManagement、Recordset、MoveLastEndIfEndIfEndSubPrivateSubmand4_C1ic

32、k()'"更新"命令按鈕'將文本框中得當(dāng)前值寫入結(jié)果集中相應(yīng)字段中AdodcManagement、Recordset、Fields("管理日期")=Trim(Text1、Text)AdodcManagement、Recordset、Fields("管理員編號")=Trim(Text2>Text)AdodcManagement、Recordset、Fields("管理員姓名")=Trim(Text3、Text)'使更新生效AdodcManagement、Recordset、Update使

33、"添加”與刪除”按鈕成為可用狀態(tài)mand2、Enabled=Truemand3、Enabled=TrueEndSubPrivateSubmand5Click()'"上一條"命令按鈕AdodcManggement、Recordset、MovePreviousEndSubPrivateSubmand6_Click()'"下一條”命令按鈕AdodcManagement、Recordset、MoveNextEndSub3、33應(yīng)用程序得使用說明為數(shù)據(jù)庫中5個表設(shè)計(jì)得VB工程中,其基本類型相似,由于涉及到參照完整性約束，因此這里將重點(diǎn)說明“學(xué)生表&

34、quot;與“借閱表"得使用說明，“圖書表"與“管理員表”參照“學(xué)生表”,“管理表參照“借閱表”。(1)學(xué)生表使用說明啟動VB程序，打開“學(xué)生表”得工程文件,并運(yùn)行該程序1）單擊“上一條” “下一條”按鈕，移動指針將上下移動到相應(yīng)得條目可以在文本框中輸入數(shù)據(jù),2）單擊“添加M按鈕，窗體上得文本框控件將清空,數(shù)據(jù)將同時顯示在“學(xué)生表”得最后一行條目中。3）單擊“更新”按鈕，數(shù)據(jù)將完整地添加到“學(xué)生表”中4）要刪除更新得數(shù)據(jù)時，先將移動指針指向要刪除得條目，然后單擊“刪除”按鈕，新添加得數(shù)據(jù)將從“學(xué)生表”中刪除5）單擊“退出”按鈕，結(jié)束程序代碼，退出運(yùn)行界面。（2）圖書表使用說明啟動VB程