【導(dǎo)讀】快捷、費用低的優(yōu)點正慢慢地進(jìn)入人們的生活。從傳統(tǒng)的圖書管理方式徹底的解脫出來，間來獲取信息、了解信息、掌握信息?；顒又兴l(fā)揮的重要作用不言而喻?？墒请S著社會與科技的發(fā)展,傳統(tǒng)意義上的圖書館。正發(fā)生著日益明顯的變化，不斷被賦予新的特征。其直接動因就是圖書數(shù)量成級數(shù)增長，書籍種類多樣化、電子化，遠(yuǎn)遠(yuǎn)超越了“紙”的概念。設(shè)想一下,再讓信息需求者頻頻。者的熱情勢必會消退。除了讀者方面因素之外,如此龐大繁多的圖書又將如何管理?還是沿襲”編冊”這個古老的唯一方法，圖書館管理人員必將是苦不堪言。要求找到切實的解決辦法，使得信息管理快捷化、集約化、無紙化。Access主要適用于中小型應(yīng)用系統(tǒng)，或作為客戶機(jī)/服務(wù)器系統(tǒng)中的客戶端數(shù)據(jù)庫。Access允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。以直接建立或處理MicrosoftAccess格式的數(shù)據(jù)庫，并提供強(qiáng)大的數(shù)據(jù)存儲和檢索功能。這五個階段共同構(gòu)成了系統(tǒng)開發(fā)的生命周期。

　　

【正文】 outMnu_Click() (1) End Sub Private Sub AddMnu_Click() (1).Text = 添加新書 (1) (1).Text = SFlag End Sub 本 科 畢 業(yè) 設(shè) 計 第 47 頁 共 66 頁 Private Sub BackMnu_Click() cmdBackBook_Click End Sub Private Sub cmdBackBook_Click() 39。打開還書對話框 cmdKong_Click (1) cmdKong_Click End Sub Private Sub cmdKong_Click() 39。清空所有文本 = = = = = txtBookName = txtZhiCheng = = = = False = True End Sub Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 1 If (是否借出 ) = True Then 本 科 畢 業(yè) 設(shè) 計 第 48 頁 共 66 頁 MsgBox 此書已經(jīng)借出！ , 0 + 48, 提示 = = False = True Exit Sub End If (圖書編號 ) = (圖書編號 ) (書名 ) = (書名 ) (價格 ) = (價格 ) (出版社 ) = (出版社 ) (借出日期 ) = (借出日期 ) (借書證號 ) = BookId (姓名 ) = (類別 ) = (類別 ) (是否借出 ) = True (借出日期 ) = (借出日期 ) DataRef = 39。 = False = True End Select End Sub 本 科 畢 業(yè) 設(shè) 計 第 49 頁 共 66 頁 Private Sub CmdLogin_Click() loop1: 39。如果沒有此證，返回 (1) If LoginFlag Then =, BookId 39。查找借書證號碼 If Then MsgBox 沒有此借書證號碼！ , 0 + 48, 錯誤 LoginFlag = False GoTo loop1 39。返回 loop1 End If = BookId = (姓名 ) amp。 vbNullString = (班級 ) amp。 vbNullString = (部門 ) amp。 vbNullString txtZhiCheng = (職稱 ) amp。 vbNullString = (罰款 ) amp。 Empty = = False = True DataRef 39。輸出所借圖書 LoginFlag = False If (罰款 ) 0 Then If MsgBox(txtBookId amp。 amp。 txtName amp。 共計欠費 _ amp。 (罰款 ) amp。 元 是否從數(shù)據(jù)庫中刪除？ , 4 + 48, 欠費 ) _ = vbYes Then 39。從數(shù)據(jù)庫中刪除欠費記錄 本 科 畢 業(yè) 設(shè) 計 第 50 頁 共 66 頁 (罰款 ) = 0 = (罰款 ) amp。 Empty End If Else 39。把罰款復(fù)制為 0 (罰款 ) = 0 End If End If End Sub Private Sub dc_Click() = 2 End Sub Private Sub dzbb_Click() = 2 End Sub Private Sub EditIdMnu_Click() (1).Text = 編輯借書證 (1) 本 科 畢 業(yè) 設(shè) 計 第 51 頁 共 66 頁 (1).Text = 編輯借書證 End Sub Private Sub EditMnu_Click() (1).Text = 編輯圖書 (1) (1).Text = 編輯圖書 End Sub Private Sub ExitMnu_Click() End End Sub Private Sub FenMnu_Click() (1) End Sub Private Sub Form_Load() Set db1 = Workspaces(0).OpenDatabase( amp。 \DataBase\, False) Set rst1 = (Personal, dbOpenTable) = 借書證號 Set db2 = Workspaces(0).OpenDatabase( amp。 \DataBase\, False) Set rst2 = (BookFf, dbOpenTable) Set qry2 = () = 圖書編號 本 科 畢 業(yè) 設(shè) 計 第 52 頁 共 66 頁 Set db3 = Workspaces(0).OpenDatabase( amp。 \DataBase\, False) Set rst3 = (Book, dbOpenTable) = 圖書編號 Open amp。 \DataBase\ For Random As 1 Len = Len(SetFlag) Get 1, 1, SetFlag BookNum = FaCost = = lvwReport , , 借書證號 , , 借書人姓名 , , 圖書編號 , , 書名 , , 價格 , , 類別 , , 出版社 , , 借出日期 = = = = = txtBookName = txtZhiCheng = = 本 科 畢 業(yè) 設(shè) 計 第 53 頁 共 66 頁 txtCost = txtChuBan = txtLentDate = (1).Text = 當(dāng)前圖書管的操作人員為： amp。 Libadmin End Sub Private Sub Form_Unload(Cancel As Integer) Close 1 End Sub Private Sub LoginMnu_Click() CmdLogin_Click End Sub Private Sub mnuSysAdmin_Click() End Sub Private Sub SearchMnu_Click() 本 科 畢 業(yè) 設(shè) 計 第 54 頁 共 66 頁 End Sub Private Sub SetMnu_Click() End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 3 (1).Text = 編輯借書證 (1) (1).Text = 編輯 借書證 Case 5 (1) Case 7 Case 9 Case 12 End End Select End Sub Private Sub Toolbar1_ButtonMenuClick(ByVal buttonmenu As ) Select Case Case 添加 (1).Text = 添加新書 (1) 本 科 畢 業(yè) 設(shè) 計 第 55 頁 共 66 頁 (1).Text = SFlag Case 編輯 (1).Text = 編輯圖書 (1) (1).Text = 編輯圖書 Case 新借 MsgBox Add BookCard Case 編借 MsgBox Edit BookCard End Select End Sub Private Sub Toolbar2_ButtonClick(ByVal Button As ) Select Case Case 1 CmdLogin_Click Case 3 cmdKong_Click Case 7 cmdBackBook_Click Case 5 End Select End Sub Private Sub tsbb_Click() = 2 本 科 畢 業(yè) 設(shè) 計 第 56 頁 共 66 頁 End Sub Private Sub txtBookBian_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If = Then MsgBox 請先登錄！ , 0 + 48, 提示 = Exit Sub End If =, If Then MsgBox 沒有此圖書編號，請重新填寫 , 0 + 48, 填寫錯誤 = False = True Exit Sub End If = True = False = = (書名 ) amp。