圖書庫存管理系統(tǒng)設計與開發(fā)

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

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

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

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

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

6、Currency默認無否出庫金額Currency默認無否出庫時間Date/time默認無否 3、名稱：圖書主表數(shù)據(jù)表名稱字段類型字段大小索引忽略空值圖書編號TEXT50主要的、唯一的否書名TEXT50無否作者TEXT10無否出版社TEXT50無否 4、名稱：密碼數(shù)據(jù)表名稱字段類型字段大小索引忽略空值密碼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退出系統(tǒng)標簽的過程代碼：Private Sub Label3_Click()Unload MeEnd Subb、系統(tǒng)主控界面：“圖書入庫”標簽的過程代碼：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 ("你無權進入系統(tǒng)操作！")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 ("你無權進入系統(tǒng)操作！")Else圖書出庫.ShowEnd IfEnd Sub“權限維護”標簽的過程代碼：Private Sub Label3_Click()MMFORM.ShowEnd Sub“入庫結(jié)存”標簽的過程代碼：Private Sub Label4_Click()Dim msgoldmark = Data1.Recordset.Bookmarkm

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

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

12、Click()Form1.ShowUnload MeEnd Subc、圖書入、出庫管理窗體： d、圖書出庫結(jié)存窗體：相關代碼如下：“添加”按鈕的過程代碼：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 ("記錄已經(jīng)統(tǒng)計完畢！")End IfEnd Sub“出庫報表”按鈕的過程代碼：Private Sub Command7_Click()DataReport2.ShowEnd Subd、圖書入庫結(jié)存窗體：相關代碼如下：“添加”按鈕的過程代碼：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 ("記錄已經(jīng)統(tǒng)計完畢！")End IfEnd Sub“報表統(tǒng)計”按鈕的過程代碼：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、入庫圖書結(jié)存報表：g、出庫圖書結(jié)存報表：四、 課程設計小結(jié)這周我們進行了visual basic課程設計與開發(fā)的實訓。通過這周實訓大家學到了不少東西，同時對visua