【正文】 Set g_rs = Nothing MsgBox 刪除成功，請點確定鍵返回！ , vbInformation + vbOKOnly, 信息 End If = False = False End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Form_Load() dbl End Sub Private Sub Text1_Change() = UCase$() End Sub Public Sub textf() = = = End Sub ‘管理員設置’現(xiàn)實代碼： Private Sub Command1_Click() If = Then MsgBox 登陸名稱不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox 登陸密碼不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox 密碼確認不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If Then MsgBox 兩次密碼不一樣，請重新輸入！ , vbInformation + vbOKOnly, 提示 = = Exit Sub End If If = False And = False And = False Then MsgBox 請選擇操作權限！ , vbInformation + vbOKOnly, 警告 Exit Sub End If Set g_rs = (select * from systeminfo where 名稱 =39。 amp。 的類別信息嗎？ , _ vbInformation + vbOKCancel, 刪除 ) = vbCancel Then Set g_rs = Nothing Exit Sub Else g_strsql = select * from booktype where 類別代碼 =39。釋放 textf End Sub Private Sub Command4_Click() Set g_rs = (select * from booktype, dbOpenDynaset) If = Then MsgBox 請輸入圖書種類 !, vbInformation + vbOKOnly, 警告 Set g_rs = Nothing Exit Sub End If If = Then MsgBox 請輸入可借天數(shù) !, vbInformation + vbOKOnly, 警告 Set g_rs = Nothing Exit Sub End If (書籍類別 ).Value = (借出天數(shù) ).Value = CInt() MsgBox 信息成功修改，請點確定鍵退出！ , vbInformation + vbOKOnly, 信息 Set g_rs = Nothing textf = False = False End Sub Private Sub Command5_Click() Set g_rs = (select * from booktype, dbOpenDynaset) If MsgBox(你確定要刪除類別代碼為 amp。 ‘基本設置’實現(xiàn)代碼如下： Private Sub Command1_Click() If = Then MsgBox 基本參數(shù)不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox 基本參數(shù)不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If Set g_rs = (g_strsql) (借出冊數(shù) ).Value = (罰款 ).Value = Set g_rs = Nothing MsgBox 設置完畢，請點確定鍵返回！ , vbInformation + vbOKOnly, 信息 Unload Me End Sub Private Sub Command2_Click() If = Then MsgBox 基本參數(shù)不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox 基本參數(shù)不能為空！ , vbInformation + vbOKOnly, 警告 Exit Sub End If Set g_rs = (g_strsql) (借出冊數(shù) ).Value = (罰款 ).Value = Set g_rs = Nothing End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() dbl g_strsq + vbOKOnly, 警告 Set g_rs = Nothing Exit Sub End If If = Then MsgBox 請輸入圖書種類 !, vbInformation + vbOKOnly, 警告 Set g_rs = Nothing Exit Sub End If If = Then MsgBox 請輸入可借天數(shù) !, vbInformation + vbOKOnly, 警告 Set g_rs = Nothing Exit Sub End If Do While Not If g_rs!類別代碼 = Then MsgBox 該類別代碼已存在，請重新輸入！ , vbInformation + vbOKOnly, 警告 Set g_rs = Nothing Exit Sub End If Loop 39。Jet OLEDB:Database Password=xgg2213 = adUseClient = adCmdText End Sub Private Sub Option1_Click() = 按編號查詢 End Sub Private Sub Option2_Click() = 按姓名查詢 End Sub “添加”模塊設計： 本模塊包括‘添加圖書’、‘添加讀者’兩方面。Mode=ReadWrite。 amp。 ) End If = adCmdText = X If = 0 Then MsgBox 對不起沒有你所需要的讀者信息！ , vbInformation + vbOKOnly, 信息 = = False = False Exit Sub Exit Sub End If Loop If MsgBox(是否確定要刪除讀者編號為 + strReadID + 的信息？ , vbInformation + vbOKCancel, 刪 除 ) = vbOK Then With .Delete If .EOF Then .MoveLast Else .MoveNext End If End With MsgBox 編號為 + strReadID + 的信息已經(jīng)刪除！ , vbInformation + vbOKOnly, 信息 Exit Sub End If Else Exit Sub End If End If End Sub Private Sub Command7_Click() Unload Me End Sub End Sub ‘讀者借閱查詢’代碼實現(xiàn)： Private Sub Command1_Click() Dim StrSQL As String If = Then MsgBox 請輸入查詢內(nèi)容 , vbInformation + vbOKOnly, 警告 Exit Sub End If If = False And = False Then MsgBox 請選擇查詢方式 , vbInformation + vbOKOnly, 警告 End Sub Private Sub Command2_Click() = False = False = End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() dbl = provider=。) End If If = True Then X = select * from readerinfo where 辦證日期 in( amp。) End If If = True Then X = select * from readerinfo where 所屬單位 in( + 39。) End If If = True Then X = select * from readerinfo where 讀者姓名 in( + 39。 If = Then MsgBox 請輸入查詢內(nèi)容 , vbInformation + vbOKOnly, 警告 Exit Sub End If If = False And = False And = False And = False Then MsgBox 請選擇查詢方式 , vbInformation + vbOKOnly, 警告 = True Exit Sub End If If = True Then X = select * from readerinfo where 讀者編號 in( + 39。 amp。 Else strcon(1) = 書籍編號 like 39。 amp。 查找圖書界面 ‘查找圖書’ 代碼的實現(xiàn)： Private Sub Command1_Click() Dim findsql As String Dim strcon(6) As String Dim X As Integer findsql = select * from bookinfo where If = False And = False And = False And _ = False And = False And = False Then MsgBox 請選擇查詢方式 , vbInformation + vbOKOnly, 警告 = True Exit Sub End If If = Then MsgBox 請?zhí)顚懖樵儍?nèi)容！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = True Then If = 0 Then strcon(1) = 書籍編號 =39。 39。 amp。 amp