2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩22頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、<p><b>  圖書管理系統(tǒng)</b></p><p>  學 生 姓 名: xxx </p><p>  指 導 教 師: xxxx </p><p>  系 別: xxxxxxxx </p><p>  專 業(yè): xxxxx

2、xxxx </p><p>  年 級: xxxxxxx </p><p>  論文提交時間: ___________________</p><p>  評 閱 人:___________________</p><p>  年 月 日: ___________________</p>

3、;<p><b>  摘 要</b></p><p>  二十一世紀是信息的社會,信息作為社會最主要的資源,將成為戰(zhàn)略資源引起人們廣泛的關注。如何獲取信息?圖書是我們最好的獲取信息的方式,但由于圖書館圖書收藏量大大增加,使傳統(tǒng)的圖書管理員的工作日益繁重起來。迫使人們起用新的管理方法來管理圖書即圖書管理系統(tǒng)。</p><p>  圖書管理系統(tǒng)是典型的信息管

4、理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。經過分析,使用 Microsoft公司的 Visual Basic6.0為開發(fā)工具,利用其提供的各種面向對象的可視化開發(fā)平臺作為開發(fā)工具,采用面向對象技術,圖形化的應用開發(fā)環(huán)境,尤其是它有一個功能極其強大的集成環(huán)境提供級開發(fā)人員,使得開發(fā)人員可通過菜單、界面、圖形瀏覽工具、對話框以及嵌入的各種生成器來輕松地完成各種復雜的操作。開發(fā)過程中不斷修正和改進,

5、直到形成用戶滿意的可行系統(tǒng)。</p><p>  關鍵字:圖書管理 數(shù)據(jù)庫 Visual Basic6.0 面向對象(Object) </p><p><b>  目 錄</b></p><p>  第一章 需求分析1</p><p>  §1-1系統(tǒng)目標設計1</p><p&

6、gt;  §1-2本系統(tǒng)的開發(fā)設計思想1</p><p>  §1-3開發(fā)和運行環(huán)境選擇1</p><p>  §1-4系統(tǒng)功能分析1</p><p>  1-4-1讀者信息的輸入、修改、查詢1</p><p>  1-4-2圖書信息的輸入、修改、查詢1</p><p>  1-

7、4-3用戶信息的輸入、修改、查詢1</p><p>  1-4-4借書、還書辦理手續(xù)1</p><p>  1-4-5全部信息的統(tǒng)計1</p><p>  第二章 系統(tǒng)功能設計模塊2</p><p>  §2-1 系統(tǒng)模塊圖2</p><p>  第三章 數(shù)據(jù)庫分析與設計3</p>

8、<p>  §3-1數(shù)據(jù)庫系統(tǒng)3</p><p>  §3-2數(shù)據(jù)庫系統(tǒng)的簡介3</p><p>  §3-3數(shù)據(jù)庫的設計思想3</p><p>  §3-4利用Access創(chuàng)建數(shù)據(jù)庫4</p><p>  §3-5連接數(shù)據(jù)及數(shù)據(jù)庫5</p><p&g

9、t;  §3-6數(shù)據(jù)庫公共模塊6</p><p>  第四章 詳細設計9</p><p>  §4-1用戶進入模塊9</p><p>  §4-2系統(tǒng)主界面管理模塊10</p><p>  §4-3 圖書管理模塊10</p><p>  4-3-1圖書的添加功能模塊1

10、1</p><p>  4-3-2圖書修改的功能模塊12</p><p>  4-3-3圖書的刪除功能模塊14</p><p>  §4-4借還書管理模塊15</p><p>  4-4-1借書管理模塊15</p><p>  4-4-2還書管理模塊17</p><p>  

11、§4-5 讀者資料管理模塊17</p><p>  4-5-1添加讀者信息17</p><p>  4-5-2修改讀者信息17</p><p>  4-5-3刪除讀者信息17</p><p>  §4-6用戶信息管理模塊18</p><p>  4-6-1用戶添加管理模塊18</p

12、><p>  4-6-2用戶修改管理模塊18</p><p>  4-6-3用戶刪除管理模塊18</p><p>  §4-7統(tǒng)計辦理業(yè)務信息18</p><p>  第五章 設計結論19</p><p><b>  參考資料20</b></p><p>

13、<b>  第一章 需求分析</b></p><p>  §1-1系統(tǒng)目標設計</p><p>  通過一個圖書館管理信息系統(tǒng),使圖書館的信息管理工作系統(tǒng)化、規(guī)范化、自動化,從而達到提高學校管理效率的目的。</p><p>  §1-2本系統(tǒng)的開發(fā)設計思想</p><p>  系統(tǒng)應符合圖書館信息管理

14、的規(guī)定,滿足圖書館日常管理的工作需要,并達到操作過程中的直觀、方便、實用、安全等要求;系統(tǒng)采用模塊化程序設計方法,既便于各種數(shù)據(jù)的查詢,又便于系統(tǒng)功能的修改,及時根據(jù)用戶需求進行數(shù)據(jù)的添加、刪除、修改、查詢等操作。</p><p>  §1-3開發(fā)和運行環(huán)境選擇</p><p>  開發(fā)工具:Visual Basic6.0、Access數(shù)據(jù)庫</p><p&g

15、t;  運行環(huán)境:Windows 98、Windows NT或Windows 2000。</p><p>  §1-4系統(tǒng)功能分析</p><p>  1-4-1讀者信息的輸入、修改、查詢</p><p>  包括:讀者編號、讀者姓名、家庭住址、電話號碼。</p><p>  1-4-2圖書信息的輸入、修改、查詢</p>

16、<p>  包括:圖書編號、圖書名稱、作者姓名、出版社名稱、圖書價格、圖書類別。</p><p>  1-4-3用戶信息的輸入、修改、查詢 </p><p>  包括:用戶編號、用戶名、密碼。</p><p>  1-4-4借書、還書辦理手續(xù)</p><p>  包括:借書、還書信息的辦理:包括讀者編號、圖書編號。</p&

17、gt;<p>  1-4-5全部信息的統(tǒng)計</p><p>  統(tǒng)計的內容包括:未還圖書、已還圖書和所有業(yè)務。并按照讀者姓名、圖書書名、圖書作者、圖書出版社、圖書分類、圖書價格進行統(tǒng)計。</p><p>  第二章 系統(tǒng)功能設計模塊</p><p>  §2-1 系統(tǒng)模塊圖</p><p>  在系統(tǒng)功能分析的基礎上,

18、考慮Visual Basic6.0程序編制的特點,得到如圖2.1系統(tǒng)功能模塊如下:</p><p>  2.1系統(tǒng)功能模塊圖</p><p>  第三章 數(shù)據(jù)庫分析與設計</p><p><b>  §3-1數(shù)據(jù)庫系統(tǒng)</b></p><p>  數(shù)據(jù)庫系統(tǒng)本質上是一個用計算機存儲記錄的系統(tǒng)。數(shù)據(jù)庫本身可被看

19、作為一種電子文件柜:也就是說,它是收集計算機數(shù)據(jù)文件的倉庫或容器。系統(tǒng)用戶可以對這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作。</p><p>  總之,數(shù)據(jù)庫系統(tǒng)是一個計算機存儲記錄的系統(tǒng),即它是一個計算機系統(tǒng),該系統(tǒng)的目標存儲信息并支持用戶檢索和更新所需要的信息。</p><p>  圖3.1數(shù)據(jù)庫系統(tǒng)簡圖</p><p>  §3-

20、2數(shù)據(jù)庫系統(tǒng)的簡介</p><p>  通過圖書館圖書管理系統(tǒng)管理員可以簡捷、方便的對圖書記錄查閱、增加、刪除等功能,而用戶也可以通過這個系統(tǒng)對進行圖書查詢、借閱、歸還等功能。 </p><p>  該數(shù)據(jù)庫應用程序按照用戶權限和實現(xiàn)功能的不同分為兩部分:外部學生對數(shù)據(jù)庫的查詢訪問和內部管理人員對數(shù)據(jù)記錄的管理維護。每一部分中包含各自實現(xiàn)的各項功能,對每一項功能的實現(xiàn),將按照窗體設計以及

21、運行情況的順序逐一進行設計。</p><p>  本系統(tǒng)采用Microsoft access技術建立數(shù)據(jù)庫,使用VB技術建立數(shù)據(jù)源的鏈接,并且生成圖書管理的數(shù)據(jù)庫應用程序從而實現(xiàn)數(shù)據(jù)庫的管理功能。 </p><p>  §3-3數(shù)據(jù)庫的設計思想</p><p><b> ?。?) 規(guī)劃階段</b></p><p&g

22、t;  確定開發(fā)的總目標,給出計劃開發(fā)的軟件系統(tǒng)的功能、性能、可靠性以及接等方面的設想。 </p><p> ?。?) 需求分析階段</p><p>  認真細致地了解用戶對數(shù)據(jù)的加工要求,確定系統(tǒng)的功能與邊界。本階段的最終結果,提供一個可作為設計基礎的系統(tǒng)說明書,包括對軟硬件環(huán)境的要求和一整套完善的數(shù)據(jù)流程圖。</p><p><b>  (3) 設計階

23、段</b></p><p>  把需求分析階段所確定的功能細化,主要工作是概念設計階段、邏輯設計階段、物理設計階段,然后,對每個階段內部設計詳細的流程。 </p><p> ?。?) 程序編制階段</p><p>  以一種或幾種特定的程序設計語言表達上一階段確定的各模塊控制流程。程序編制時應遵循結構化程序設計方法。</p><p&g

24、t;<b> ?。?) 調試階段</b></p><p>  對已編好的程序進行單元調試(分調),整體調試(聯(lián)調)和系統(tǒng)測試(驗收)。</p><p> ?。?) 運行和維護階段</p><p>  這是整個設計周期最長的階段,其工作重點是收集和記錄系統(tǒng)實際運行的數(shù)據(jù)。在運行中,必須保持數(shù)據(jù)庫的完整性,必須有效的處理數(shù)據(jù)故障和進行數(shù)據(jù)庫恢復。同

25、時解決開發(fā)過程的遺留問題,改正錯誤進行功能完善。</p><p>  §3-4利用Access創(chuàng)建數(shù)據(jù)庫</p><p>  圖3.1:讀者包括讀者編號、讀者姓名、讀者類別、家庭住址、電話號碼等。</p><p><b>  圖3.1讀者數(shù)據(jù)庫</b></p><p>  圖3.2:圖書包括書籍編號、書籍名稱、

26、書籍類別、作者姓名、出版社名稱、出版日期、登記日期、備注信息等。</p><p><b>  圖3.2圖書數(shù)據(jù)庫</b></p><p>  圖3.3:業(yè)務包括圖書信息和借書及還書的詳細信息</p><p>  圖 3.3業(yè)務數(shù)據(jù)庫</p><p>  圖3.4:用戶包括編號、用戶名、密碼等。</p>&l

27、t;p>  圖 3.4用戶數(shù)據(jù)庫</p><p>  §3-5連接數(shù)據(jù)及數(shù)據(jù)庫</p><p>  在Visual Basic環(huán)境下,選擇“工程”→“引用”命令來連接數(shù)據(jù),在隨后出現(xiàn)的對話框中選擇“Microsoft ActiveX Data Objects 2.0 Library”,然后單擊“確定”按鈕,如圖3.5所示。</p><p><b

28、>  圖3.5引用對話框</b></p><p>  在Visual Basic環(huán)境下,ADO對象是通過ODBC來訪問數(shù)據(jù)庫,所以還要建立ODBC數(shù)據(jù)引擎接口。開控制面板中的“管理工具”→“數(shù)據(jù)源”(ODBC),出現(xiàn)如圖3.6所示對話框。</p><p>  圖3.6ODBC對話框圖</p><p>  單擊“添加”按鈕,出現(xiàn)“建新數(shù)據(jù)源”話框,如

29、圖3.7所示。</p><p>  3.7建新數(shù)據(jù)源對話框</p><p>  在”創(chuàng)建新數(shù)據(jù)源”對話框 選擇Microsoft Access Driver(*.mdb),單擊“完成”按鈕,出現(xiàn)如圖3.8所示對話框。</p><p>  圖3.8創(chuàng)建新數(shù)據(jù)源對話框</p><p>  設置連接數(shù)據(jù)源: 在“數(shù)據(jù)源名”文本框中添加一個名字,單擊

30、“確定”按鈕完成系統(tǒng)默認連接設置。然后在ODBC對話框中單擊“確定”按鈕完成ODBC設置。</p><p>  §3-6數(shù)據(jù)庫公共模塊</p><p>  模塊(MODADO)代碼:</p><p>  Global DBCon As New ADODB.Connection</p><p>  Global DBRec As Ne

31、w ADODB.Recordset</p><p><b>  '錯誤處理</b></p><p>  Public Function Errs(Err As ErrObject, Title As String) As Boolean</p><p>  If Err.Number <> 0 Then</p>

32、<p>  Errs = False</p><p>  MsgBox Title & vbCrLf & vbCrLf & "錯誤代碼:" & Err.Number & vbCrLf & "錯誤描述:" & Err.Description, vbCritical + vbOKOnly, "錯誤信息

33、"</p><p><b>  Err.Clear</b></p><p><b>  Else</b></p><p>  Errs = True</p><p><b>  End If</b></p><p>  End Function

34、</p><p><b>  '連接數(shù)據(jù)庫</b></p><p>  Public Function Con2Srv() As Boolean</p><p>  On Error Resume Next</p><p>  '常規(guī)方法打開數(shù)據(jù)庫文件</p><p>  '

35、;DBCon.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=BM.mdb;Persist Security Info=False"</p><p>  DBCon.Open </p><p>  Con2Srv = Errs(Err, "數(shù)據(jù)庫連接失敗!")</p&g

36、t;<p>  End Function</p><p><b>  '查詢數(shù)據(jù)庫</b></p><p>  Public Function query(SQL As String) As Boolean</p><p>  On Error Resume Next</p><p>  Set D

37、BRec = New Recordset</p><p>  Call DBRec.Open(SQL, DBCon, adOpenDynamic, adLockOptimistic, -1)</p><p>  query = Errs(Err, "數(shù)據(jù)庫查詢失敗!")</p><p>  End Function</p><

38、p><b>  '關閉數(shù)據(jù)庫</b></p><p>  Public Function DisCon() As Boolean</p><p>  On Error Resume Next</p><p>  If DBCon.State = adStateOpen Then DBCon.Close</p><

39、;p>  DisCon = True</p><p>  End Function</p><p>  模塊(MODBM)部分代碼:</p><p><b>  '選中文本框的內容</b></p><p>  Public Function TextFocus(Text As TextBox)</p&

40、gt;<p>  Text.SelStart = 0</p><p>  Text.SelLength = Len(Text.Text)</p><p>  End Function</p><p><b>  '向列表框添加項目</b></p><p>  Public Function CboL

41、ist(Cbo As ComboBox, SQL As String)</p><p>  On Error Resume Next</p><p>  Dim DBRecList As New Recordset</p><p><b>  Cbo.Clear</b></p><p>  Call DBRecList.

42、Open(SQL, DBCon, adOpenDynamic, adLockOptimistic, -1)</p><p>  If Errs(Err, "數(shù)據(jù)庫查詢失敗!") = True Then</p><p>  While Not DBRecList.EOF</p><p>  Cbo.AddItem DBRecList.Fields(

43、0).Value</p><p>  DBRecList.MoveNext</p><p><b>  Wend</b></p><p><b>  End If</b></p><p>  DBRecList.Close</p><p>  End Function<

44、/p><p><b>  '向網格添加信息</b></p><p>  Public Function MsgList(MSG As MSFlexGrid, DBRec As ADODB.Recordset) As Integer</p><p>  On Error Resume Next</p><p>  MS

45、G.Rows = 1</p><p>  MSG.Cols = DBRec.Fields.Count</p><p>  MSG.Row = 0</p><p>  For i = 0 To DBRec.Fields.Count - 1</p><p>  MSG.Col = i</p><p>  MSG.Text

46、= DBRec.Fields(i).Name</p><p>  MSG.CellAlignment = 4</p><p>  MSG.ColWidth(i) = DBRec.Fields(i).DefinedSize * 100</p><p>  If MSG.ColWidth(i) < 1000 Then MSG.ColWidth(i) = 1000&

47、lt;/p><p><b>  Next i</b></p><p>  DBRec.MoveFirst</p><p>  While Not DBRec.EOF</p><p>  MSG.AddItem Empty</p><p>  MSG.Row = MSG.Rows - 1</p&g

48、t;<p>  MSG.RowData(MSG.Row) = DBRec.Fields(0).Value</p><p>  For i = 0 To DBRec.Fields.Count - 1</p><p>  MSG.Col = i</p><p>  MSG.Text = DBRec.Fields(i).Value</p>&l

49、t;p>  If MSG.Text Like "True" Then</p><p>  MSG.Text = "已借"</p><p>  ElseIf MSG.Text Like "False" Then</p><p>  MSG.Text = "未借"</p>

50、<p><b>  End If</b></p><p>  MSG.CellAlignment = 4</p><p><b>  Next i</b></p><p>  DBRec.MoveNext</p><p>  MsgList = MsgList + 1</p>

51、<p><b>  Wend</b></p><p>  End Function</p><p><b>  第四章 詳細設計</b></p><p>  §4-1用戶進入模塊</p><p>  通過輸入用戶名和密碼進行登陸。界面如下:</p><p&

52、gt;<b>  圖4.1 登陸界面</b></p><p><b>  程序如下:</b></p><p>  Private Sub Command1_Click() '輸入用戶名和密碼</p><p>  Dim sql As String</p><p>  Dim rs_log

53、in As New ADODB.Recordset</p><p>  Dim conn As New ADODB.Connection</p><p>  conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\BM.mdb"</p&g

54、t;<p>  If Trim(Text1.Text) = "" Then</p><p>  MsgBox "用戶名不能為空,請重新輸入!"</p><p>  Text1.SetFocus</p><p><b>  Else</b></p><p>  sql

55、= "select * from 用戶 where 用戶名='" & Trim(Text1.Text) & "'"</p><p>  rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>  If rs_login.EOF = True Th

56、en</p><p>  MsgBox "沒有這個用戶,請重輸入!", vbOKOnly + vbExclamation, ""</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text1

57、.SetFocus</p><p><b>  Else</b></p><p>  username = Text1.Text</p><p>  If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then</p><p><b>  Unload Me</b

58、></p><p>  FrmMain.Show</p><p><b>  Else</b></p><p>  MsgBox "密碼不正確,請重輸入!", vbOKOnly + vbExclamation, ""</p><p>  Text2.SetFocus</

59、p><p>  Text2.Text = ""</p><p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End If</b></p><p>  cnt = cnt

60、+ 1</p><p>  If cnt = 3 Then</p><p><b>  Unload Me</b></p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private

61、Sub Command2_Click()</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p><b>  界面分析和功能:</b></p><p>  在代碼中要求輸入正確的用戶、密碼才可以進去。輸入的用戶

62、密碼在屬性PasswordChar中設置了用*。</p><p>  §4-2系統(tǒng)主界面管理模塊</p><p>  主界面(frmMain)如下圖:</p><p><b>  圖4.2 主界面</b></p><p>  主界面包括圖書資料、讀者資料、用戶信息、借還書信息以及統(tǒng)計等功能。并且利用Toolba

63、r工具加入按鈕使其進行快速查找。利用Statusbar的屬性填寫個人的基本信息及對日期和時間進行設置。</p><p>  §4-3 圖書管理模塊</p><p>  圖書管理模塊主要功能是實現(xiàn)圖書的添加、刪除以及修改。</p><p>  4-3-1圖書的添加功能模塊</p><p><b>  界面如下:</b&

64、gt;</p><p>  圖4.3 圖書添加界面</p><p><b>  程序代碼如下:</b></p><p>  Private Sub Cbo_GotFocus()</p><p>  Call CboList(Cbo, "select 分類 from 圖書 group by 分類")&l

65、t;/p><p><b>  End Sub</b></p><p>  Private Sub Cmd_Click(Index As Integer)</p><p>  Select Case Index</p><p>  Case 2 '<添加></p><p><b

66、>  AddBook</b></p><p>  Case 3 '<取消></p><p><b>  Unload Me</b></p><p>  End Select</p><p><b>  End Sub</b></p><p&g

67、t;  Function AddBook()</p><p>  If Not (Text(1).Text = Empty Or Text(2).Text = Empty Or Text(3).Text = Empty Or _</p><p>  Text(4).Text = Empty Or Cbo.Text = Empty) Then</p><p>  If

68、 Query("select * from 圖書 where 書名 like '" & Text(1).Text & _</p><p>  "' and 作者 like '" & Text(2).Text & "' and 出版社 like '" & Text(3).Tex

69、t & "'") = True Then</p><p>  If MsgList(MSG, DBRec) = 0 Then</p><p>  DBRec.AddNew</p><p>  For i = 1 To 4</p><p>  DBRec.Fields(i).Value = Text(i).T

70、ext</p><p><b>  Next i</b></p><p>  DBRec.Fields(5).Value = Cbo.Text</p><p>  DBRec.Update</p><p>  Call MsgList(MSG, DBRec)</p><p>  MsgBox &q

71、uot;資料添加成功!", vbInformation, "圖書管理系統(tǒng)"</p><p>  MsgBox "請將表格中顯示的圖書編號填寫在標簽上,并貼到圖書的書脊上!" & vbCrLf & "這是此書在數(shù)據(jù)庫中的唯一編號!", vbInformation, "圖書管理系統(tǒng)!"</p>&l

72、t;p>  For i = 1 To 4</p><p>  Text(i).Text = Empty</p><p><b>  Next i</b></p><p><b>  Cbo.Clear</b></p><p><b>  Else</b></p>

73、;<p>  MsgBox "數(shù)據(jù)庫中已有該書的資料,請確認!", vbCritical, "圖書管理系統(tǒng)"</p><p><b>  End If</b></p><p><b>  End If</b></p><p><b>  Else</b&

74、gt;</p><p>  MsgBox "圖書資料未填完整!", vbCritical, "圖書管理系統(tǒng)"</p><p><b>  End If</b></p><p>  Text(1).SetFocus</p><p>  End Function</p>

75、<p>  Private Sub Text_Change(Index As Integer)</p><p>  Text(Index).Text = Trim(Text(Index).Text)</p><p><b>  End Sub</b></p><p>  Private Sub Text_GotFocus(Index

76、As Integer)</p><p>  Call TextFocus(Text(Index))</p><p><b>  End Sub</b></p><p>  Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p>  

77、If Index = 0 Or Index = 4 Then KeyAscii = Num(KeyAscii)</p><p><b>  End Sub</b></p><p>  4-3-2圖書修改的功能模塊</p><p><b>  界面如下:</b></p><p>  圖4.4 圖書修改

78、界面</p><p><b>  程序代碼如下:</b></p><p>  Private Sub Cbo_GotFocus()</p><p>  Call CboList(Cbo, "select 分類 from 圖書 group by 分類")</p><p><b>  End S

79、ub</b></p><p>  Private Sub Cmd_Click(Index As Integer)</p><p>  Select Case Index</p><p>  Case 0 '<查詢></p><p>  If QueryInt("select * from 圖書 whe

80、re 圖書編號=", Text(0), MSG) = True Then</p><p>  Cmd(1).Enabled = True</p><p>  Cmd(1).SetFocus</p><p><b>  End If</b></p><p>  Case 1 '<編輯><

81、/p><p>  EnableEdit</p><p>  DBRec.MoveFirst</p><p>  For i = 1 To 4</p><p>  Text(i).Text = DBRec.Fields(i).Value</p><p><b>  Next i</b></p>

82、;<p>  Cbo.Text = DBRec.Fields(5).Value</p><p>  Case 2 '<修改></p><p><b>  ModBook</b></p><p>  Case 3 '<取消></p><p><b>  Unl

83、oad Me</b></p><p>  End Select</p><p><b>  End Sub</b></p><p>  Function ModBook()</p><p>  Dim i As Integer</p><p>  If Not (Text(1).Tex

84、t = Empty Or Text(2).Text = Empty Or Text(3).Text = Empty Or _</p><p>  Text(4).Text = Empty Or Cbo.Text = Empty) Then</p><p>  DBRec.MoveFirst</p><p>  For i = 1 To 4</p>&l

85、t;p>  DBRec.Fields(i).Value = Text(i).Text</p><p><b>  Next i</b></p><p>  DBRec.Fields(5).Value = Cbo.Text</p><p>  DBRec.Update</p><p>  Call MsgList(M

86、SG, DBRec)</p><p>  MsgBox "資料修改成功", vbInformation, "圖書管理系統(tǒng)"</p><p>  For i = 1 To 4</p><p>  Text(i).Text = Empty</p><p><b>  Next i</b>

87、;</p><p>  Cbo.Text = Empty</p><p>  UnEnableEdit</p><p>  Text(0).Text = Empty</p><p><b>  Else</b></p><p>  MsgBox "圖書資料未填完整!", vbC

88、ritical, "圖書管理系統(tǒng)"</p><p><b>  End If</b></p><p>  End Function</p><p>  Private Sub Text_Change(Index As Integer)</p><p>  Text(Index).Text = Trim

89、(Text(Index).Text)</p><p><b>  End Sub</b></p><p>  Private Sub Text_GotFocus(Index As Integer)</p><p>  Call TextFocus(Text(Index))</p><p><b>  End S

90、ub</b></p><p>  Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p>  If Index = 0 Or Index = 4 Then KeyAscii = Num(KeyAscii)</p><p><b>  End Sub<

91、/b></p><p>  Function EnableEdit()</p><p>  Dim i As Integer</p><p>  For i = 1 To 4</p><p>  Text(i).Enabled = True</p><p>  Lbl(i).Enabled = True</

92、p><p><b>  Next i</b></p><p>  Lbl(5).Enabled = True</p><p>  Cbo.Enabled = True</p><p>  Cmd(0).Enabled = False</p><p>  Cmd(1).Enabled = False&l

93、t;/p><p>  Cmd(2).Enabled = True</p><p>  Text(0).Enabled = False</p><p>  Lbl(0).Enabled = False</p><p>  Cmd(2).Default = True</p><p>  Text(1).SetFocus<

94、/p><p>  End Function</p><p>  Function UnEnableEdit()</p><p>  Dim i As Integer</p><p>  For i = 1 To 4</p><p>  Text(i).Enabled = False</p><p>

95、  Lbl(i).Enabled = False</p><p><b>  Next i</b></p><p>  Lbl(5).Enabled = False</p><p>  Cbo.Enabled = False</p><p>  Cmd(0).Enabled = True</p><p

96、>  Cmd(1).Enabled = False</p><p>  Cmd(2).Enabled = False</p><p>  Text(0).Enabled = True</p><p>  Lbl(0).Enabled = True</p><p>  Cmd(0).Default = True</p>&l

97、t;p>  Text(0).SetFocus</p><p>  End Function</p><p>  4-3-3圖書的刪除功能模塊</p><p><b>  界面如下:</b></p><p>  圖4.5 圖書刪除界面</p><p><b>  程序代碼如下:<

98、;/b></p><p>  Private Sub Cmd_Click(Index As Integer)</p><p>  Select Case Index</p><p>  Case 2 '<刪除></p><p><b>  DelBook</b></p><p

99、>  Case 3 '<取消></p><p><b>  Unload Me</b></p><p>  End Select</p><p><b>  End Sub</b></p><p>  Function DelBook()</p><p&

100、gt;  If QueryInt("select * from 圖書 where 圖書編號=", Text(0), MSG) = True Then</p><p>  If MsgBox("真的要刪除圖書資料嗎?", vbQuestion + vbYesNo, "圖書管理系統(tǒng)2008") = vbYes Then</p><p>

101、;  DBRec.MoveFirst</p><p>  DBRec.Delete</p><p>  DBRec.Update</p><p>  Call MsgList(MSG, DBRec)</p><p>  MsgBox "資料已經刪除", vbInformation, "圖書管理系統(tǒng)2008&quo

102、t;</p><p>  Text(0).Text = Empty</p><p><b>  End If</b></p><p><b>  End If</b></p><p>  End Function</p><p>  Private Sub Text_Chan

103、ge(Index As Integer)</p><p>  Text(Index).Text = Trim(Text(Index).Text)</p><p><b>  End Sub</b></p><p>  Private Sub Text_GotFocus(Index As Integer)</p><p>

104、  Call TextFocus(Text(Index))</p><p><b>  End Sub</b></p><p>  Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p>  If Index = 0 Or Index = 4 Then K

105、eyAscii = Num(KeyAscii)</p><p><b>  End Sub</b></p><p>  §4-4借還書管理模塊</p><p>  借還書管理模塊主要實現(xiàn)借書業(yè)務和還書業(yè)務。</p><p>  4-4-1借書管理模塊</p><p><b> 

106、 界面如下:</b></p><p>  圖4.6借書管理界面</p><p><b>  程序代碼如下:</b></p><p>  Private Sub Cmd_Click(Index As Integer)</p><p>  Select Case Index</p><p>

107、;<b>  Case 0</b></p><p>  BorrowBook</p><p><b>  Case 1</b></p><p><b>  Unload Me</b></p><p>  End Select</p><p><b&

108、gt;  End Sub</b></p><p>  Function BorrowBook()</p><p>  If QueryInt("select * from 讀者 where 讀者編號=", Text(0), MSG(0)) = True Then</p><p>  DBRec.MoveFirst</p>

109、<p>  If DBRec.Fields(DBRec.Fields.Count - 1) = False Then</p><p>  If QueryInt("select * from 圖書 where 圖書編號=", Text(1), MSG(1)) = True Then</p><p>  DBRec.MoveFirst</p>&

110、lt;p>  If DBRec.Fields(DBRec.Fields.Count - 1) = False Then</p><p>  If Query("select * from 業(yè)務 where 業(yè)務編號=0") = True Then</p><p>  DBRec.AddNew</p><p>  DBRec.Fields(1

111、).Value = Val(Text(0).Text)</p><p>  DBRec.Fields(2).Value = Val(Text(1).Text)</p><p>  DBRec.Fields(3).Value = Date</p><p>  DBRec.Update</p><p>  If Query("selec

112、t * from 讀者 where 讀者編號=" & Val(Text(0).Text)) = True Then</p><p>  DBRec.Fields(DBRec.Fields.Count - 1).Value = True</p><p>  DBRec.Update</p><p>  Call MsgList(MSG(0), DBR

113、ec)</p><p><b>  End If</b></p><p>  If Query("select * from 圖書 where 圖書編號=" & Val(Text(1).Text)) = True Then</p><p>  DBRec.Fields(DBRec.Fields.Count - 1).

114、Value = True</p><p>  DBRec.Update</p><p>  Call MsgList(MSG(1), DBRec)</p><p><b>  End If</b></p><p>  MsgBox "業(yè)務辦理成功!", vbInformation, "圖書管

115、理系統(tǒng)"</p><p>  Text(0).Text = Empty</p><p>  Text(1).Text = Empty</p><p><b>  End If</b></p><p>  Else '圖書已經借出</p><p>  MsgBox "該書

116、已經借出!", vbCritical, "圖書管理系統(tǒng)"</p><p><b>  End If</b></p><p><b>  End If</b></p><p>  Else '讀者業(yè)務狀態(tài)為已借</p><p>  Call QueryInt(&q

117、uot;select T.業(yè)務編號,T.讀者編號,R.姓名,T.圖書編號,B.書名,T.借出日期 from 業(yè)務 as T,圖書 as B,讀者 as R where T.圖書編號=B.圖書編號 and B.業(yè)務狀態(tài)=True and T.讀者編號=R.讀者編號 and T.讀者編號=", Text(0), MSG(1))</p><p>  MsgBox "該讀者尚有圖書未還!不能辦理新的借

118、書業(yè)務!", vbCritical, "圖書管理系統(tǒng)"</p><p><b>  End If</b></p><p><b>  End If</b></p><p>  Text(0).SetFocus</p><p>  End Function</p&g

119、t;<p>  Private Sub Text_Change(Index As Integer)</p><p>  Text(Index).Text = Trim(Text(Index).Text)</p><p><b>  End Sub</b></p><p>  Private Sub Text_GotFocus(In

120、dex As Integer)</p><p>  Call TextFocus(Text(Index))</p><p><b>  End Sub</b></p><p>  Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p&g

121、t;  KeyAscii = Num(KeyAscii)</p><p><b>  End Sub</b></p><p>  4-4-2還書管理模塊</p><p>  界面如下:此管理模塊主要功能是實現(xiàn)還書信息。</p><p>  圖4.7 還書管理界面</p><p>  §4

122、-5 讀者資料管理模塊</p><p>  讀者管理模塊主要功能是實現(xiàn)讀者的添加、刪除以及修改。</p><p>  4-5-1添加讀者信息</p><p>  此管理模塊主要功能是實現(xiàn)讀者的添加。</p><p>  4-5-2修改讀者信息</p><p>  此管理模塊主要功能是實現(xiàn)讀者的修改。</p>

123、<p>  4-5-3刪除讀者信息</p><p>  此管理模塊主要功能是實現(xiàn)讀者的刪除。</p><p>  §4-6用戶信息管理模塊</p><p>  用戶信息管理模塊主要實現(xiàn)用戶的添加、刪除和修改等功能。</p><p>  4-6-1用戶添加管理模塊</p><p>  界面如下:此

124、管理模塊主要功能是實現(xiàn)用戶的添加。</p><p>  圖4.8 用戶添加理界面</p><p>  4-6-2用戶修改管理模塊</p><p>  此管理模塊主要功能是實現(xiàn)用戶的修改。</p><p>  4-6-3用戶刪除管理模塊</p><p>  此管理模塊主要功能是實現(xiàn)用戶的刪除。</p>&l

125、t;p>  §4-7統(tǒng)計辦理業(yè)務信息</p><p><b>  辦理統(tǒng)計界面如下:</b></p><p><b>  圖4.8統(tǒng)計界面</b></p><p>  辦理統(tǒng)計界面主要查詢所有業(yè)務資料、所有未還資料、所有已還資料的情況。也可以按照讀者姓名、圖書書名、圖書作者、圖書出版社、圖書分類、圖書價格進

126、行分類查詢。</p><p><b>  第五章 設計結論</b></p><p>  經過這段時間的設計和開發(fā),圖書管理系統(tǒng)基本開發(fā)完畢。其功能基本符合需求,能夠完成圖書管理,借閱,查詢、統(tǒng)計、用戶管理。并提供部分系統(tǒng)維護功能,使管理員能夠方便進行數(shù)據(jù)添加和修改、數(shù)據(jù)刪除等功能。 但是由于畢業(yè)設計時間較短,所以該系統(tǒng)還有許多不盡如人意的地方,比如聯(lián)機文檔比較少,用

127、戶界面不夠美觀,出錯處理不夠等多方面問題。這些都有待進一步改善。</p><p>  在設計過程中,感受最深的一點是:自己的專業(yè)知識很不夠,對理論的應用還欠缺火候,許多知識還不能應用到實際中去。在系統(tǒng)的實際調試過程中,很多問題往往要借助于別人的幫忙才能解決,從而明白自己對已學過的知識掌握不夠,而且不能很好的加以應用,理論不能和實踐相結合</p><p>  通過畢業(yè)設計,使我提高了實際操作

128、能力,從以前的理論上升到實踐,從感性認識上升到理性認識,真正做到學有所用,懂得先要發(fā)現(xiàn)問題,分析問題,解決問題,雖然在設計過程中我也遇到一些困難,但在老師的幫助和自己的努力下,我都認真克服了,但由于時間緊觸,我并不能做到盡善盡美,應該說這是一大遺憾吧,我相信這對以后會有別開生會的體驗。最后感謝老師的精心指導。</p><p><b>  參考資料</b></p><p&g

129、t;  [1]Visual Basic課程設計 作者:白曉勇 余健 清華大學出版社.</p><p>  [2]數(shù)據(jù)庫應用課程設計案例精編 作者:徐要強 清華大學出版社.</p><p>  [3]Visual Basic 6.0程序設計教程 作者:曾強聰 中國水利水電出版社. </p><p>  [4]Visual Basic 6.0 完全自學手冊

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論