【正文】 Exit Sub ElseIf = Then MsgBox 讀者姓名不能為空！ Exit Sub ElseIf = Then MsgBox 借書(shū)的類(lèi)別不能為空！ Exit Sub ElseIf = Then MsgBox 借書(shū)的編號(hào)不能為空！ Exit Sub ElseIf = Then MsgBox 借書(shū)名稱(chēng)不能為空！ Exit Sub ElseIf IsDate() Then = Format(, yyyymmdd) Else MsgBox 借書(shū)日期應(yīng)輸入日期（ yyyymmdd)！ , 1 + vbExclamation, 警告 Exit Sub End If Command1(0).Caption = 添加 39。 End If End If If Trim(str) = Then MsgBox 請(qǐng)?jiān)O(shè)置查詢(xún)條件！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else str1 = select * from bookInfor where amp。 ) amp。 amp。 Else str = str amp。 ) amp。 amp。 End If End If If = vbChecked Then If Trim(str amp。 ) amp。 amp。 Else str = str amp。 ) amp。 amp。 End If End If If = vbChecked Then If Trim(str amp。 ) amp。 amp。 Else str = str amp。 ) amp。 amp。 End If If = vbChecked Then If Trim(str amp。 ) amp。 amp。 If Not () Then 39。 xm amp。 39。 39。 Trim( amp。 )) 7 Then MsgBox 序號(hào)必需由 1 位類(lèi)編號(hào)和 6 位數(shù)字組成！ Exit Sub ElseIf = Then MsgBox 書(shū)名不能為空！ Exit Sub ElseIf = Then MsgBox 價(jià)格不能為空 Exit Sub Else 序號(hào) =39。 If Then 39。 xm amp。 39。 39。 Trim( amp。返回按鈕 End Select End Sub Private Sub Form_Load() Dim path As String mpath = If Right(mpath, 1) \ Then mpath = mpath + \ = mpath + = reader 男 女 = 0 End Sub ： （ 1） 書(shū)籍類(lèi)別管理（ FrmBooktype）代碼： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 If Command1(0).Caption = 添加 Then Command1(0).Caption = 確認(rèn) On Error Resume Next Else If = Then MsgBox 類(lèi)編號(hào)不能為空！ Exit Sub ElseIf = Then MsgBox 類(lèi)名不能為空！ Exit Sub Else 類(lèi)編號(hào) =39。首記錄按鈕 Case 8 39。上一條按鈕 If = True Then End If Case 6 39。 39。 amp。修改按鈕 If Command1(3).Caption = 修改 Then Command1(3).Caption = 確認(rèn) Else Command1(3).Caption = 修改 MsgBox (修改成功！ ) End If Case 4 39。 If Then MsgBox 查無(wú)此人 !, , 提示 Else xm = MsgBox(確認(rèn)刪除嗎？ , vbYesNo) If xm = vbYes Then MsgBox (刪除成功！ ) End If End If Case 2 39。 no amp。刪除按鈕 Dim no As String no = InputBox$(請(qǐng)輸入讀者編號(hào) , 查找窗 ) 讀者編號(hào) = 39。關(guān)閉計(jì)算機(jī) ,如果計(jì)算機(jī)支持節(jié)電特性 ,關(guān)閉電源 Private Sub book_Infor_Click(Index As Integer) End Sub Private Sub book_type_Click(Index As Integer) End Sub Private Sub borrow_Infor_Click(Index As Integer) End Sub Private Sub close_Click(Index As Integer) act = EWX_LOGOFF + EWX_SHUTDOWN + EWX_FOREC + EWX_POWEROFF answer = ExitWindowsEx(act, dwReserved) End Sub Private Sub exit_Click(Index As Integer) End Sub Private Sub MDIForm_Load() mpath = If Right(mpath, 1) \ Then mpath = mpath + \ Picture = LoadPicture(mpath + ) End Sub Private Sub read_Infor_Click(Index As Integer) End Sub Private Sub return_bInfor_Click(Index As Integer) End Sub （ FrmReader）代碼： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 39。重新啟動(dòng)計(jì)算機(jī) Const EWX_FOREC = 4 39。終止所有進(jìn)程 ,退出登錄 Const EWX_SHUTDOWN = 1 39。整個(gè)系統(tǒng)的運(yùn)行大致是這樣的。在添加的過(guò)程中，相應(yīng)的提示信息如圖 圖 圖 圖 9 所示。在組合查詢(xún)中選擇相應(yīng)的項(xiàng)，并輸入查詢(xún)條件，單擊“查詢(xún)”即可將符合條件的記錄顯示出來(lái)。單擊“返回”即可關(guān)閉當(dāng)前窗口，返回到主界面。如果想查找某條記錄，單擊“查找”，在輸入框中輸入待查找的讀者編號(hào)，即可將符合條件的記錄定位到當(dāng)前記錄。如果在“添加”信息時(shí)，如果想取消，即可取消添加操作，將所有的文本框清空。 七． 系統(tǒng)的運(yùn)行界面： 雙擊 即可進(jìn)入登陸窗體，如圖 1 所示，輸入正確的用戶(hù)名和密碼就進(jìn)入了 圖書(shū)館管理系統(tǒng)的主界面，如圖 2 所示，系統(tǒng)菜單是用于系統(tǒng)管理的，單擊“系統(tǒng)”— “關(guān)閉電腦”即可不通過(guò)開(kāi)始菜單就可以很方便的關(guān)閉電腦，單擊“系統(tǒng)”菜單中的“退出”即可退出系統(tǒng)，單擊“讀者管理”中的“讀者信息管理”即可進(jìn)入讀者信息管理界面，如圖 3 所示： 圖 3 此界面提供了讀者管理的功能，單擊“添加”，然后在文本框中輸入符合要求的數(shù)據(jù)，再按“確認(rèn)”即可添加一條讀者信息，這時(shí)系統(tǒng)就會(huì)進(jìn)行輸入數(shù)據(jù)的合法性檢查，如果有哪一項(xiàng)輸入錯(cuò)誤，將會(huì)提示相應(yīng)的錯(cuò)誤信息，并將 光標(biāo)停留在文本框中，直到正確為止，才能完成添加。特別是圖書(shū)館中的對(duì)借書(shū)數(shù)量的限制以及時(shí)間和罰款等規(guī)章制度是如何實(shí)現(xiàn)的。 六． 關(guān)