1、圖書庫存管理系統設計與開發一、 課程設計目的： 無論是學校、出版社或其他一些單位，往往需要對圖書庫存和出庫進行管理，而這些工作是一個繁雜的事情，如何用一個現代化的管理手段來代替復雜的手工勞動，這是一個重要的問題。本例結合圖書庫存與出庫兩方面的問題，開發出一個比較科學的圖書庫存管理系統，可以供一些圖書使用單位和出版單位參考使用。二、 需求分析：1、 功能需求（1） 對圖書入庫的管理（更新、添加、修改和刪除）（2） 對圖書出庫的管理（更新、添加、修改和刪除）（3） 對圖書進行入庫統計（4） 對圖書進行出庫統計（5） 對圖書入庫結存報表的查詢（6） 對圖書出庫結存報表的查詢（7） 對用戶權限的維護2

2、、 總體設計（1） 系統層次框圖FLASH畫面系統主控界面入庫結存報表出庫結存報表入庫管理權限維護出庫統計入庫統計出庫管理圖書的更新圖書的刪除圖書的修改圖書的添加計算庫存金額報表統計刪除用戶修改密碼增加用戶出庫報表出庫金額 （2） 系統模塊設計（各模塊功能說明）1、 FLASH畫面：系統啟動畫面，它首先運行一個FLASH畫面，在一定間隔之后，該畫面自動隱藏，然后自動進入主控界面，再執行各個功能。2、 系統主控界面：系統的主控界面既系統主窗體，它用于控制其他功能模塊的運行。該主控界面為每一個使用模塊賦予了一個用戶權限，只有經過相關的權限認證后才能進行相關的操作。3、 圖書入庫管理：由于圖書入庫是

3、一個多次完成的過程，因此，需要用一個圖書主表與相關的數據表進行關聯。在該窗體中，只需要輸入一本書的基本信息，然后在下面的表格中可以多次進行該書的入庫記錄。4、 圖書出庫管理：由于圖書出庫也是一個多次完成的過程，因此，需要用一個圖書主表與相關的數據表進行關聯。在該窗體中，只需要輸入一本書的基本信息，然后在下面的表格中可以多次進行該書的出庫記錄。5、 圖書入庫結存窗體：圖書結存是庫存管理的重要內容，往往一個庫房中圖書眾多，統計起來非常麻煩，因此能否實現自動統計功能是非常重要的一個問題。通過該窗體，可以逐條地對記錄進行每一本書的入庫金額計算，然后通過報表自動統計出每一本圖書的冊數、金額、全部圖書的總

4、冊數和總金額。6、 圖書出庫結存窗體：圖書結存是庫存管理的重要內容，往往一個庫房中圖書眾多，統計起來非常麻煩，因此能否實現自動統計功能是非常重要的一個問題。通過該窗體，可以逐條地對記錄進行每一本書的出庫金額計算，然后通過報表自動統計出每一本圖書的冊數、金額、全部圖書的總冊數和總金額。7、 入/出庫圖書結存報表：作為一個數據庫應用系統，一個信息輸出的報表往往是不可少的，因此我們為入/出庫數據表創建一個報表，該報表不僅可以報告入/出庫的全部信息，而且可以對一些數據進行結存統計，如果對圖書的總冊數、圖書的總金額等直接在報表中進行相關的統計，完全不需要人工去統計。8、 用戶權限維護窗體：作為一個完整的

5、系統，往往需要對用戶權限進行控制或認證，用戶可以通過本窗體進行增加、刪除或修改密碼。 （3） 數據庫設計 1、 名稱：入庫圖書數據表名稱字段類型字段大小索引忽略空值圖書編號Text50普通索引否書名Text50無否作者Text10無否出版社Text50無否版次Text10無否庫存數Integer默認無否單價Currency默認無否庫存金額Currency默認無否入庫時間Date/time默認無否 2、名稱：圖書出庫數據表名稱字段類型字段大小索引忽略空值圖書編號Text50普通索引否書名Text50無否作者Text10無否出版社Text50無否版次Text10無否出庫數Integer默認無否單價

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

7、imer1.Interval = 0Form1.HideForm2.ShowEnd IfEnd Sub退出系統標簽的過程代碼：Private Sub Label3_Click()Unload MeEnd Subb、系統主控界面：“圖書入庫”標簽的過程代碼：Private Sub Label1_Click()Dim msgoldmark = Data1.Recordset.Bookmarkmsg = Trim(InputBox("請輸入用戶密碼: ", "權限認證")msg = "密碼 like '" & msg &am

8、p; "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無權進入系統操作！")Else入庫管理.ShowEnd IfEnd Sub“圖書出庫”標簽的過程代碼：Private Sub Label2_Click()Dim msgoldmark = Data1.Recordset.Bookmarkmsg = Trim(InputBox("請輸入用戶密碼: ", "權限認證")msg = "密碼 like &#

9、39;" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無權進入系統操作！")Else圖書出庫.ShowEnd IfEnd Sub“權限維護”標簽的過程代碼：Private Sub Label3_Click()MMFORM.ShowEnd Sub“入庫結存”標簽的過程代碼：Private Sub Label4_Click()Dim msgoldmark = Data1.Recordset.Bookmarkm

10、sg = Trim(InputBox("請輸入用戶密碼: ", "權限認證")msg = "密碼 like '" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無權進入系統操作！")Else入庫統計.ShowEnd IfEnd Sub“出庫結存”標簽的過程代碼：Private Sub Label5_Click()Dim msgoldmark = Da

11、ta1.Recordset.Bookmarkmsg = Trim(InputBox("請輸入用戶密碼: ", "權限認證")msg = "密碼 like '" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無權進入系統操作！")Else出庫統計.ShowEnd IfEnd Sub“返回到啟動封面”標簽的過程代碼：Private Sub Label6_

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

13、 adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd Sub“刪除”按鈕的過程代碼：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“刷新”按鈕的過程代碼：Private Sub Command4_Click() '只有多

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

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

16、te Sub Command2_Click() On Error GoTo UpdateErr datprimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd Sub“刪除”按鈕的過程代碼：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“刷新”按鈕的過程代碼：Private Sub Command4_Click() '只有多用戶應用程序需要 On Error GoTo RefreshErr datprimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd Sub“關閉”按鈕的過程代碼：Private Sub Command5_Click()Unload MeEnd Sub“計算庫存金額”按鈕的過程代碼：Private Sub Command6_Click()Text6.Text =

18、Val(Text4.Text) * Val(Text5.Text)datprimaryRS.Recordset.MoveNextIf datprimaryRS.Recordset.EOF = True ThenMsgBox ("記錄已經統計完畢！")End IfEnd Sub“報表統計”按鈕的過程代碼：Private Sub Command7_Click()DataReport1.ShowEnd Sube、用戶權限維護窗體：“增加用戶”按鈕的過程代碼：Private Sub Command1_Click()Dim msgoldmark = Data1.Recordset.B

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

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

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

22、"確認原密碼")msg = "密碼 like'" & msg & "'"Data1.Recordset.FindFirst msgIf Data1.Recordset.NoMatch ThenMsgBox ("你無權刪除用戶")Data1.Recordset.Bookmark = oldmarkElseIf MsgBox("確實要刪除該用戶嗎?", vbYesNo, "提示信息") = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextEnd IfEnd IfEnd Subf、入庫圖書結存報表：g、出庫圖書結存報表：四、 課程設計小結這周我們進行了visual basic課程設計與開發的實訓。通過這周實訓大家學到了不少東西，同時對visua