圖書庫(kù)存管理系統(tǒng)設(shè)計(jì)與開發(fā)

1、圖書庫(kù)存管理系統(tǒng)設(shè)計(jì)與開發(fā)一、 課程設(shè)計(jì)目的： 無(wú)論是學(xué)校、出版社或其他一些單位，往往需要對(duì)圖書庫(kù)存和出庫(kù)進(jìn)行管理，而這些工作是一個(gè)繁雜的事情，如何用一個(gè)現(xiàn)代化的管理手段來(lái)代替復(fù)雜的手工勞動(dòng)，這是一個(gè)重要的問(wèn)題。本例結(jié)合圖書庫(kù)存與出庫(kù)兩方面的問(wèn)題，開發(fā)出一個(gè)比較科學(xué)的圖書庫(kù)存管理系統(tǒng)，可以供一些圖書使用單位和出版單位參考使用。二、 需求分析：1、 功能需求（1） 對(duì)圖書入庫(kù)的管理（更新、添加、修改和刪除）（2） 對(duì)圖書出庫(kù)的管理（更新、添加、修改和刪除）（3） 對(duì)圖書進(jìn)行入庫(kù)統(tǒng)計(jì)（4） 對(duì)圖書進(jìn)行出庫(kù)統(tǒng)計(jì)（5） 對(duì)圖書入庫(kù)結(jié)存報(bào)表的查詢（6） 對(duì)圖書出庫(kù)結(jié)存報(bào)表的查詢（7） 對(duì)用戶權(quán)限的維護(hù)2

2、、 總體設(shè)計(jì)（1） 系統(tǒng)層次框圖FLASH畫面系統(tǒng)主控界面入庫(kù)結(jié)存報(bào)表出庫(kù)結(jié)存報(bào)表入庫(kù)管理權(quán)限維護(hù)出庫(kù)統(tǒng)計(jì)入庫(kù)統(tǒng)計(jì)出庫(kù)管理圖書的更新圖書的刪除圖書的修改圖書的添加計(jì)算庫(kù)存金額報(bào)表統(tǒng)計(jì)刪除用戶修改密碼增加用戶出庫(kù)報(bào)表出庫(kù)金額 （2） 系統(tǒng)模塊設(shè)計(jì)（各模塊功能說(shuō)明）1、 FLASH畫面：系統(tǒng)啟動(dòng)畫面，它首先運(yùn)行一個(gè)FLASH畫面，在一定間隔之后，該畫面自動(dòng)隱藏，然后自動(dòng)進(jìn)入主控界面，再執(zhí)行各個(gè)功能。2、 系統(tǒng)主控界面：系統(tǒng)的主控界面既系統(tǒng)主窗體，它用于控制其他功能模塊的運(yùn)行。該主控界面為每一個(gè)使用模塊賦予了一個(gè)用戶權(quán)限，只有經(jīng)過(guò)相關(guān)的權(quán)限認(rèn)證后才能進(jìn)行相關(guān)的操作。3、 圖書入庫(kù)管理：由于圖書入庫(kù)是

3、一個(gè)多次完成的過(guò)程，因此，需要用一個(gè)圖書主表與相關(guān)的數(shù)據(jù)表進(jìn)行關(guān)聯(lián)。在該窗體中，只需要輸入一本書的基本信息，然后在下面的表格中可以多次進(jìn)行該書的入庫(kù)記錄。4、 圖書出庫(kù)管理：由于圖書出庫(kù)也是一個(gè)多次完成的過(guò)程，因此，需要用一個(gè)圖書主表與相關(guān)的數(shù)據(jù)表進(jìn)行關(guān)聯(lián)。在該窗體中，只需要輸入一本書的基本信息，然后在下面的表格中可以多次進(jìn)行該書的出庫(kù)記錄。5、 圖書入庫(kù)結(jié)存窗體：圖書結(jié)存是庫(kù)存管理的重要內(nèi)容，往往一個(gè)庫(kù)房中圖書眾多，統(tǒng)計(jì)起來(lái)非常麻煩，因此能否實(shí)現(xiàn)自動(dòng)統(tǒng)計(jì)功能是非常重要的一個(gè)問(wèn)題。通過(guò)該窗體，可以逐條地對(duì)記錄進(jìn)行每一本書的入庫(kù)金額計(jì)算，然后通過(guò)報(bào)表自動(dòng)統(tǒng)計(jì)出每一本圖書的冊(cè)數(shù)、金額、全部圖書的總

4、冊(cè)數(shù)和總金額。6、 圖書出庫(kù)結(jié)存窗體：圖書結(jié)存是庫(kù)存管理的重要內(nèi)容，往往一個(gè)庫(kù)房中圖書眾多，統(tǒng)計(jì)起來(lái)非常麻煩，因此能否實(shí)現(xiàn)自動(dòng)統(tǒng)計(jì)功能是非常重要的一個(gè)問(wèn)題。通過(guò)該窗體，可以逐條地對(duì)記錄進(jìn)行每一本書的出庫(kù)金額計(jì)算，然后通過(guò)報(bào)表自動(dòng)統(tǒng)計(jì)出每一本圖書的冊(cè)數(shù)、金額、全部圖書的總冊(cè)數(shù)和總金額。7、 入/出庫(kù)圖書結(jié)存報(bào)表：作為一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)，一個(gè)信息輸出的報(bào)表往往是不可少的，因此我們?yōu)槿?出庫(kù)數(shù)據(jù)表創(chuàng)建一個(gè)報(bào)表，該報(bào)表不僅可以報(bào)告入/出庫(kù)的全部信息，而且可以對(duì)一些數(shù)據(jù)進(jìn)行結(jié)存統(tǒng)計(jì)，如果對(duì)圖書的總冊(cè)數(shù)、圖書的總金額等直接在報(bào)表中進(jìn)行相關(guān)的統(tǒng)計(jì)，完全不需要人工去統(tǒng)計(jì)。8、 用戶權(quán)限維護(hù)窗體：作為一個(gè)完整的

5、系統(tǒng)，往往需要對(duì)用戶權(quán)限進(jìn)行控制或認(rèn)證，用戶可以通過(guò)本窗體進(jìn)行增加、刪除或修改密碼。 （3） 數(shù)據(jù)庫(kù)設(shè)計(jì) 1、 名稱：入庫(kù)圖書數(shù)據(jù)表名稱字段類型字段大小索引忽略空值圖書編號(hào)Text50普通索引否書名Text50無(wú)否作者Text10無(wú)否出版社Text50無(wú)否版次Text10無(wú)否庫(kù)存數(shù)Integer默認(rèn)無(wú)否單價(jià)Currency默認(rèn)無(wú)否庫(kù)存金額Currency默認(rèn)無(wú)否入庫(kù)時(shí)間Date/time默認(rèn)無(wú)否 2、名稱：圖書出庫(kù)數(shù)據(jù)表名稱字段類型字段大小索引忽略空值圖書編號(hào)Text50普通索引否書名Text50無(wú)否作者Text10無(wú)否出版社Text50無(wú)否版次Text10無(wú)否出庫(kù)數(shù)Integer默認(rèn)無(wú)否單價(jià)

6、Currency默認(rèn)無(wú)否出庫(kù)金額Currency默認(rèn)無(wú)否出庫(kù)時(shí)間Date/time默認(rèn)無(wú)否 3、名稱：圖書主表數(shù)據(jù)表名稱字段類型字段大小索引忽略空值圖書編號(hào)TEXT50主要的、唯一的否書名TEXT50無(wú)否作者TEXT10無(wú)否出版社TEXT50無(wú)否 4、名稱：密碼數(shù)據(jù)表名稱字段類型字段大小索引忽略空值密碼Text20主要的、唯一的否用戶名Text50無(wú)否三、詳細(xì)設(shè)計(jì)：(1) 各模塊界面簡(jiǎn)介及代碼a、FLASH畫面：計(jì)時(shí)器控件的過(guò)程代碼：Private Sub Timer1_Timer()Text1.Text = Text1.Text + 1If Text1.Text >= 20 ThenT

7、imer1.Interval = 0Form1.HideForm2.ShowEnd IfEnd Sub退出系統(tǒng)標(biāo)簽的過(guò)程代碼：Private Sub Label3_Click()Unload MeEnd Subb、系統(tǒng)主控界面：“圖書入庫(kù)”標(biāo)簽的過(guò)程代碼：Private Sub Label1_Click()Dim msgoldmark = Data1.Recordset.Bookmarkmsg = Trim(InputBox("請(qǐng)輸入用戶密碼: ", "權(quán)限認(rèn)證")msg = "密碼 like '" & msg &am

8、p; "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無(wú)權(quán)進(jìn)入系統(tǒng)操作！")Else入庫(kù)管理.ShowEnd IfEnd Sub“圖書出庫(kù)”標(biāo)簽的過(guò)程代碼：Private Sub Label2_Click()Dim msgoldmark = Data1.Recordset.Bookmarkmsg = Trim(InputBox("請(qǐng)輸入用戶密碼: ", "權(quán)限認(rèn)證")msg = "密碼 like &#

9、39;" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無(wú)權(quán)進(jìn)入系統(tǒng)操作！")Else圖書出庫(kù).ShowEnd IfEnd Sub“權(quán)限維護(hù)”標(biāo)簽的過(guò)程代碼：Private Sub Label3_Click()MMFORM.ShowEnd Sub“入庫(kù)結(jié)存”標(biāo)簽的過(guò)程代碼：Private Sub Label4_Click()Dim msgoldmark = Data1.Recordset.Bookmarkm

10、sg = Trim(InputBox("請(qǐng)輸入用戶密碼: ", "權(quán)限認(rèn)證")msg = "密碼 like '" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無(wú)權(quán)進(jìn)入系統(tǒng)操作！")Else入庫(kù)統(tǒng)計(jì).ShowEnd IfEnd Sub“出庫(kù)結(jié)存”標(biāo)簽的過(guò)程代碼：Private Sub Label5_Click()Dim msgoldmark = Da

11、ta1.Recordset.Bookmarkmsg = Trim(InputBox("請(qǐng)輸入用戶密碼: ", "權(quán)限認(rèn)證")msg = "密碼 like '" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無(wú)權(quán)進(jìn)入系統(tǒng)操作！")Else出庫(kù)統(tǒng)計(jì).ShowEnd IfEnd Sub“返回到啟動(dòng)封面”標(biāo)簽的過(guò)程代碼：Private Sub Label6_

12、Click()Form1.ShowUnload MeEnd Subc、圖書入、出庫(kù)管理窗體： d、圖書出庫(kù)結(jié)存窗體：相關(guān)代碼如下：“添加”按鈕的過(guò)程代碼：Private Sub Command1_Click()On Error GoTo AddErr datprimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd Sub“更新”按鈕的過(guò)程代碼：Private Sub Command2_Click() On Error GoTo UpdateErr datprimaryRS.Recordset.UpdateBatch

13、 adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd Sub“刪除”按鈕的過(guò)程代碼：Private Sub Command3_Click()On Error GoTo DeleteErr With datprimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd Sub“刷新”按鈕的過(guò)程代碼：Private Sub Command4_Click() '只有多

14、用戶應(yīng)用程序需要 On Error GoTo RefreshErr datprimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd Sub“關(guān)閉”按鈕的過(guò)程代碼：Private Sub Command5_Click()Unload MeEnd Sub“出庫(kù)金額”按鈕的過(guò)程代碼：Private Sub Command6_Click()Text5.Text = Val(Text3.Text) * Val(Text4.Text)datprimaryRS.Recordset.MoveNextIf datprimaryRS.Recor

15、dset.EOF = True ThenMsgBox ("記錄已經(jīng)統(tǒng)計(jì)完畢！")End IfEnd Sub“出庫(kù)報(bào)表”按鈕的過(guò)程代碼：Private Sub Command7_Click()DataReport2.ShowEnd Subd、圖書入庫(kù)結(jié)存窗體：相關(guān)代碼如下：“添加”按鈕的過(guò)程代碼：Private Sub Command1_Click() On Error GoTo AddErr datprimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd Sub“更新”按鈕的過(guò)程代碼：Priva

16、te Sub Command2_Click() On Error GoTo UpdateErr datprimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd Sub“刪除”按鈕的過(guò)程代碼：Private Sub Command3_Click() On Error GoTo DeleteErr With datprimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDelete

17、Err: MsgBox Err.DescriptionEnd Sub“刷新”按鈕的過(guò)程代碼：Private Sub Command4_Click() '只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr datprimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd Sub“關(guān)閉”按鈕的過(guò)程代碼：Private Sub Command5_Click()Unload MeEnd Sub“計(jì)算庫(kù)存金額”按鈕的過(guò)程代碼：Private Sub Command6_Click()Text6.Text =

18、Val(Text4.Text) * Val(Text5.Text)datprimaryRS.Recordset.MoveNextIf datprimaryRS.Recordset.EOF = True ThenMsgBox ("記錄已經(jīng)統(tǒng)計(jì)完畢！")End IfEnd Sub“報(bào)表統(tǒng)計(jì)”按鈕的過(guò)程代碼：Private Sub Command7_Click()DataReport1.ShowEnd Sube、用戶權(quán)限維護(hù)窗體：“增加用戶”按鈕的過(guò)程代碼：Private Sub Command1_Click()Dim msgoldmark = Data1.Recordset.B

19、ookmarkmsg = Trim(InputBox("請(qǐng)輸入原用戶密碼", "確認(rèn)原密碼")msg = "密碼 like'" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無(wú)權(quán)增加用戶")Data1.Recordset.Bookmark = oldmarkElseData1.Recordset.AddNewCommand4.Enabled = Tr

20、ueEnd IfEnd Sub“修改密碼”按鈕的過(guò)程代碼：Private Sub Command2_Click()Dim msgoldmark = Data1.Recordset.Bookmarkmsg = Trim(InputBox("請(qǐng)輸入原用戶密碼", "確認(rèn)原密碼")msg = "密碼 like'" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無(wú)權(quán)修

21、改密碼")Data1.Recordset.Bookmark = oldmarkElseData1.Recordset.EditCommand4.Enabled = TrueEnd IfEnd Sub“確認(rèn)修改”按鈕的過(guò)程代碼：Private Sub Command3_Click()Data1.Recordset.UpdateEnd Sub“刪除用戶”按鈕的過(guò)程代碼：Private Sub Command4_Click()Dim msgoldmark = Data1.Recordset.Bookmarkmsg = Trim(InputBox("請(qǐng)輸入原用戶密碼",

22、"確認(rèn)原密碼")msg = "密碼 like'" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無(wú)權(quán)刪除用戶")Data1.Recordset.Bookmark = oldmarkElseIf MsgBox("確實(shí)要?jiǎng)h除該用戶嗎?", vbYesNo, "提示信息") = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextEnd IfEnd IfEnd Subf、入庫(kù)圖書結(jié)存報(bào)表：g、出庫(kù)圖書結(jié)存報(bào)表：四、 課程設(shè)計(jì)小結(jié)這周我們進(jìn)行了visual basic課程設(shè)計(jì)與開發(fā)的實(shí)訓(xùn)。通過(guò)這周實(shí)訓(xùn)大家學(xué)到了不少東西，同時(shí)對(duì)visua