【正文】 s As Long, ByVal dwReserved As Long) As Long （ Enter）代碼： Private Sub Command1_Click() If = Then MsgBox 用戶名不能為空 !, 1 + vbExclamation, 輸入用戶名 ElseIf = Then MsgBox 密碼不能為空 !, 1 + vbExclamation, 輸入用戶密碼 ElseIf library Then MsgBox 非法用戶 !, 1 + vbExclamation, 用戶名錯誤 ElseIf 123 Then MsgBox 密碼不正確 !, 1 + vbExclamation, 密碼錯誤 Else End If End Sub Private Sub Command2_Click() = = End Sub Private Sub Form_Load() = = End Sub (FrmMain)代碼： Const EWX_LOGOFF = 0 39。安全關閉計算機 Const EWX_REBOOT = 2 39。終止所有進程 Const EWX_POWEROFF = 8 39。添加按鈕 If Command1(0).Caption = 添加 Then Command1(0).Caption = 確認 Else If = Then MsgBox 讀者編號不能為空！ Exit Sub ElseIf = Then MsgBox 讀者姓名不能為空！ Exit Sub ElseIf = Then MsgBox 電話號碼不能為空！ Exit Sub ElseIf = Then MsgBox 系別不能為空！ Exit Sub ElseIf IsDate() Then = Format(, yyyymmdd) Else MsgBox 借書日期應輸入日期（ yyyymmdd）！ , 1 + vbExclamation, 警告 Exit Sub End If Command1(0).Caption = 添加 MsgBox (添加成功！ ) End If Case 1 39。 amp。 39。取消按鈕 If Command1(0).Caption = 確認 Then = = = = = = = Label10 = 0 Command1(0).Caption = 添加 End If Case 3 39。查找按鈕 Dim mm As String mm = InputBox$(請輸入讀者編號 , 查找窗 ) 讀者編號 = 39。 mm amp。 If Then MsgBox 查無此人 !, , 提示 End If Case 5 39。下一條按鈕 If = True Then End If Case 7 39。末記錄按鈕 Case 9 39。 amp。 ) amp。 If Not () And ( 1) Then MsgBox 該序號已被占用！請選擇其它編號！ Exit Sub Else Command1(0).Caption = 添加 On Error Resume Next MsgBox (添加成功！ ) End If End If End If Case 1 xm = InputBox(請輸入待刪 除書的類編號： ) 類編號 = amp。 amp。 39。如果找不到 MsgBox (沒有這類書！ ) Else xm = MsgBox(確認刪除嗎？ , vbYesNo) If xm = vbYes Then MsgBox (刪除成功！ ) End If End If Case 2 If Command1(2).Caption = 修改 Then Command1(2).Caption = 確認 Else Command1(2).Caption = 修改 MsgBox (修改成功！ ) End If Case 3 On Error Resume Next If = True Then End If Case 4 On Error Resume Next If = True Then End If Case 5 End Select End Sub Private Sub Form_Load() Dim path As String mpath = If Right(mpath, 1) \ Then mpath = mpath + \ = mpath + = booktype End Sub （ 2） 書籍信息管理（ FrmBookInfor）代碼 : Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 If Command1(0).Caption = 添加 Then Command1(0).Caption = 確認 On Error Resume Next Else If = Then MsgBox 書類編號不能為空！ Exit Sub ElseIf Len(Trim( amp。 amp。 ) amp。 If Not () And ( 1) Then MsgBox 該序號已被占用！請選擇其它編號！ Exit Sub Else Command1(0).Caption = 添加 On Error Resume Next MsgBox (添加成功！ ) End If End If End If Case 1 xm = InputBox(請輸入待刪除書的序號： ) 序號 = amp。 amp。 39。如果找到 xm = MsgBox(確認刪除嗎？ , vbYesNo) If xm = vbYes Then MsgBox (刪除成功！ ) End If Else MsgBox (查不到這本書！ ) End If Case 2 If Command1(0).Caption = 確認 Then = = = = = = = Label10 = 0 Command1(0).Caption = 修改 End If Case 3 If Command1(3).Caption = 修改 Then Command1(3).Caption = 確認 Else Command1(3).Caption = 修改 MsgBox (修改成功！ ) End If