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

2、表的查詢（ 7） 對(duì)用戶權(quán)限的維護(hù)2、 總體設(shè)計(jì)（ 1） 系統(tǒng)層次框圖FLASH系 統(tǒng) 主入出入出入出權(quán)庫(kù)庫(kù)庫(kù)庫(kù)庫(kù)庫(kù)限管管統(tǒng)統(tǒng)結(jié)結(jié)維圖圖圖圖增修刪書(shū)書(shū)書(shū)書(shū)計(jì)報(bào) 出 出加改除的 的 的 的用 密用算表庫(kù)庫(kù)庫(kù)統(tǒng)金報(bào)（ 2） 系統(tǒng)模塊設(shè)計(jì)（ 各模塊功能說(shuō)明）1、 FLASH畫(huà)面：系統(tǒng)啟動(dòng)畫(huà)面，它首先運(yùn)行一個(gè) FLASH畫(huà)面，在一定間隔之后，該畫(huà)面自動(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、 圖書(shū)入庫(kù)管理：由于圖書(shū)入庫(kù)是一

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

4、的總冊(cè)數(shù)和總金額。6、 圖書(shū)出庫(kù)結(jié)存窗體：圖書(shū)結(jié)存是庫(kù)存管理的重要內(nèi)容，往往一個(gè)庫(kù)房中圖書(shū)眾多，統(tǒng)計(jì)起來(lái)非常麻煩，因此能否實(shí)現(xiàn)自動(dòng)統(tǒng)計(jì)功能是非常重要的一個(gè)問(wèn)題。通過(guò)該窗體，可以逐條地對(duì)記錄進(jìn)行每一本書(shū)的出庫(kù)金額計(jì)算， 然后通過(guò)報(bào)表自動(dòng)統(tǒng)計(jì)出每一本圖書(shū)的冊(cè)數(shù)、金額、全部圖書(shū)的總冊(cè)數(shù)和總金額。7、 入 / 出庫(kù)圖書(shū)結(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ì)圖書(shū)的總冊(cè)數(shù)、圖書(shū)的總金額等直接在報(bào)表中進(jìn)行相關(guān)的統(tǒng)計(jì)，完全不需要人工去統(tǒng)計(jì)。8、用戶權(quán)限維護(hù)窗體

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

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

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

8、cordset.NoMatch ThenMsgBox ( 你無(wú)權(quán)進(jìn)入系統(tǒng)操作！)Else入庫(kù)管理 .ShowEnd IfEnd Sub“圖書(shū)出庫(kù) ”標(biāo)簽的過(guò)程代碼：Private Sub Label2_Click()Dim msgoldmark = Data1.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圖書(shū)出庫(kù) .S

9、howEnd If5End 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.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)操作！)E

10、lse入庫(kù)統(tǒng)計(jì) .ShowEnd IfEnd Sub“出庫(kù)結(jié)存 ” 標(biāo)簽的過(guò)程代碼：Private Sub Label5_Click()Dim msgoldmark = Data1.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ò)程代碼：Priva

11、te Sub Label6_Click()Form1.ShowUnload MeEnd Sub6c 、圖書(shū)入、出庫(kù)管理窗體：d 、圖書(shū)出庫(kù)結(jié)存窗體：相關(guān)代碼如下：“添加 ” 按鈕的過(guò)程代碼：Private Sub Command1_Click()On Error GoTo AddErrdatprimaryRS.Recordset.AddNewExit SubAddErr:MsgBox Err.DescriptionEnd Sub“更新 ” 按鈕的過(guò)程代碼：7Private Sub Command2_Click()On Error GoTo UpdateErrdatprimaryRS.Recor

12、dset.UpdateBatch adAffectAllExit SubUpdateErr:MsgBox Err.DescriptionEnd Sub“刪除 ” 按鈕的過(guò)程代碼：Private Sub Command3_Click()On Error GoTo DeleteErrWith datprimaryRS.Recordset.Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubDeleteErr:MsgBox Err.DescriptionEnd Sub“刷新 ” 按鈕的過(guò)程代碼：Private Sub Command4_Click

13、() 只有多用戶應(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 datprimaryR

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

15、Sub Command2_Click() On Error GoTo UpdateErr datprimaryRS.Recordset.UpdateBatch adAffectAllExit SubUpdateErr:MsgBox Err.DescriptionEnd Sub“刪除 ”按鈕的過(guò)程代碼：Private Sub Command3_Click()On Error GoTo DeleteErrWith datprimaryRS.Recordset.Delete.MoveNextIf .EOF Then .MoveLast9End WithExit SubDeleteErr:MsgBox

16、 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 = Val(Text4.Text)

17、 * 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ù)窗體：10“增加用戶 ” 按鈕的過(guò)程代碼：Private Sub Command1_Click()Dim msgoldmark = Data1.Recordset.Bookmarkmsg = Trim(I

18、nputBox(請(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 = TrueEnd IfEnd Sub“修改密碼 ” 按鈕的過(guò)程代碼：Private Sub Command2_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.EditCommand4.Enabled = TrueEnd IfEnd Sub11“確認(rèn)修改 ” 按鈕的過(guò)程代碼：Private Sub Command3_Click()Data1.Recordset

20、.UpdateEnd Sub“刪除用戶 ” 按鈕的過(guò)程代碼：Private Sub Command4_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)刪除用戶 )Data1.Recordset.Bookmark = oldmarkElseIf MsgBox( 確實(shí)要?jiǎng)h除該用戶嗎 ?, vbYesNo, 提示信息 ) = vbYesThenData1.Recordset.DeleteData1.Recordset.MoveNextEnd IfEnd IfEnd Subf 、入庫(kù)圖書(shū)結(jié)存報(bào)表：g、出庫(kù)圖書(shū)結(jié)存報(bào)表：12四、課程設(shè)計(jì)小結(jié)這周我們進(jìn)行了visual basic課程設(shè)計(jì)與開(kāi)發(fā)的實(shí)訓(xùn)。通過(guò)這周實(shí)訓(xùn)大家學(xué)到了不少東西，同時(shí)對(duì)visual basic語(yǔ)言也有了更深刻的了解和認(rèn)識(shí)。此次課程設(shè)計(jì)的目的是讓我們綜合應(yīng)用所學(xué)知識(shí)