【文章內(nèi)容簡介】 ommand5第一條Command6最后一條Command7退出ADODataAdodc1(空)DataGridDataGrid1(空)圖書借閱、圖書賠償子窗體分別如圖所示：圖書借閱子窗體圖書賠償子窗體(2) 增加用戶子窗體如圖所示，其控件如表5所示。增加用戶子窗體表5 增加用戶子窗體控件控 件 類 別控件Name控件TextLabelLabel1輸入用戶名Label2輸入密碼Label3確認(rèn)密碼Label4選擇權(quán)限TextBoxText1(空)Text2(空)Text3(空)ComboBoxComb1(空)CommandButtonCommandl確定Command2取消(3) 修改密碼子窗體如圖所示。修改密碼子窗體(4) 庫房管理子窗體如圖27所示。庫房管理子窗體其控件如表6所示。表6 庫房管理子窗體控件控 件 類 別控件Name控件TextTextBoxText1(空)ComboBoxCombo1MSFlexGridMSFlexGrid1(5) 查詢子窗體如圖所示，其控件如表7所示。查詢子窗體表7 查詢子窗體控件控 件 類 別控件Name控件TextOptionButtonOption1按編號查詢Option2按購買日期查詢LabelLabel1從Label2到Label3從Label4年Label5月Label6日Label7到Label8年Label9月Label10日Combo(0) ComboBoxCombo1(空)Combo(1) ComboBoxCombo1(空)Comboy(0) ComboBoxComboy(空)Comboy(1) ComboBoxComboy(空)Combom(0) ComboBoxCombom(空)Combom(1) ComboBoxCombom(空)Combod(0) ComboBoxCombod(空)Combod(1) ComboBoxCombod(空)CommandButtonCommand1查詢Command2取消(6) 用戶登錄子窗體如圖29所示。用戶登錄子窗體(7) 值班管理子窗體如圖所示，值班管理子窗體 (8) 投訴管理子窗體如圖31所示，投訴管理子窗體建立公共模塊可以提高代碼的效率，同時使得修改和維護代碼都很方便。創(chuàng)建公共模塊的步驟如下:(1) 在菜單中選擇“工程”→“添加模塊”命令，則出現(xiàn)模塊對話框，如圖所示。(2) 選擇模塊圖標(biāo)后，單擊“打開”按鈕，則模塊已經(jīng)添加到項目中了。默認(rèn)情況下名為Module1。模塊對話框(3) 在模塊中定義整個項目的公共變量。Public conn As New 39。 標(biāo)記連接對象Public userID As String 39。 標(biāo)記當(dāng)前用戶IDPublic userpow As String 39。 標(biāo)記用戶權(quán)限Public find As Boolean 39。 標(biāo)記查詢Public sqlfind As String 39。 查詢語句Public rs_data1 As New Public findok As BooleanPublic frmdata As BooleanPublic Const keyenter = 13 39。 enter鍵的ASCII碼在主窗體添加完菜單之后，就要為各個子菜單創(chuàng)建事件處理程序。、主窗體代碼在本項目中，子菜單事件都是Click事件，這里先給出主窗體部分的代碼。下面是響應(yīng)“增加用戶”子菜單Click事件，調(diào)出增加用戶窗體代碼。Private Sub adduser_Click()End Sub下面是響應(yīng)“查詢輸出”子菜單Click事件，調(diào)出查詢輸出窗體代碼。Private Sub chaxunshuchu_Click()End Sub下面是響應(yīng)“退出”子菜單Click事件，調(diào)出退出窗體代碼。Private Sub exit_Click()Unload MeEnd Sub下面是響應(yīng)“圖書登記”子菜單Click事件，調(diào)出圖書登記窗體代碼。Private Sub checkin_Click()End Sub下面是響應(yīng)“修改密碼”子菜單Click事件，調(diào)出修改密碼窗體代碼。Private Sub changepwd_Click()End Sub下面是響應(yīng)“圖書借閱”子菜單Click事件，調(diào)出圖書借閱窗體代碼。Private Sub borrow_Click()End Sub下面是響應(yīng)“圖書賠償”子菜單Click事件，調(diào)出圖書賠償窗體代碼。Private Sub tushupeichang_Click() 1End Sub下面是響應(yīng)“值班管理”菜單Click事件，調(diào)出值班管理窗體代碼。Private Sub zhibanguanli_Click() 1End Sub下面是響應(yīng)“投訴管理”子菜單Click事件，調(diào)出投訴管理窗體代碼。Private Sub tousuguanli_Click() 1End Sub、各子窗體的代碼在各個子窗體建立好后，就可以根據(jù)各個子窗體的功能給它們添加相應(yīng)代碼了。、圖書登記子窗體代碼本窗體用來填寫圖書登記的信息，用ADO來連接數(shù)據(jù)庫，是本窗體的重點。采用MDI的子程序，所以運行后，它出現(xiàn)在主程序的界面下，如圖所示。圖書登記子窗體按鈕控件要求先填寫基本信息，然后與數(shù)據(jù)庫信息比較。Private Sub Command1_Click()On Error GoTo adderrExit Subadderr:MsgBox End SubPrivate Sub Command2_Click()On Error GoTo deleteerrWith If Not .EOF And Not .BOF ThenIf MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then.Delete.MoveNextIf .EOF Then .MoveLastEnd IfEnd IfEnd WithExit Subdeleteerr:MsgBox End SubPrivate Sub Command3_Click()If ThenMsgBox 這是最后一條記錄, vbOKCancel + vbQuestionEnd IfEnd SubPrivate Sub Command4_Click()If ThenMsgBox 這是第一條記錄, vbOKCancel + vbQuestionEnd IfEnd SubPrivate Sub Command5_Click()If ThenMsgBox 記錄空, vbOKCancel + vbQuestionEndElseExit SubEnd SubPrivate Sub Command6_Click()If = 0 ThenMsgBox 空記錄, vbOKCancel + vbQuestionEndElseEnd IfEnd SubPrivate Sub Command7_Click()End Sub圖書借閱和圖書賠償子窗體運行后如圖所示，因為它們的代碼和圖書登記子窗體的代碼雷同，在此不做重復(fù)。圖書借閱子窗體運行效果圖書賠償子窗體運行效果增加用戶子窗體是用來增加用戶的用戶名、密碼和權(quán)限的。其運行效果如圖所示。單擊“確定”按鈕后，還要返回一個信息框，提示成功信息，如圖所示。增加用戶子窗體運行效果成功信息框窗體部分代碼的思路是，收集輸入的表中的字符串，然后與數(shù)據(jù)庫中的系統(tǒng)的用戶數(shù)據(jù)比較，如果不存在，則允許添加。Private Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = ThenMsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit SubElsesql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimisticWhile ( = False)If Trim((0)) = Trim() ThenMsgBox 已有這個用戶, vbOKOnly + vbExclamation, = = = = Exit SubElseEnd IfWendIf Trim() Trim() ThenMsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit SubElseIf Trim() system And Trim() guest ThenMsgBox 請選擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit SubElse(0) = (1) = (2) = 下面是返回成功信息對話框的代碼:MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd IfEnd Sub修改密碼子窗體是用來修改用戶密碼的。其運行效果如圖38所示。 修改密碼子窗體運行效果在“確定”按鈕的Click事件中添加如下代碼:Private Sub Command1_Click()Dim rs_chang As New Dim sql As StringIf Trim() Trim() ThenMsgBox 密碼不一致!, vbOKOnly + vbExclamation, = = Elsesql = select * from 系統(tǒng)管理 where 用戶名=39。 amp。 userID amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic(1) = MsgBox 密碼修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd Sub在上述代碼中，首先比較兩個表中的數(shù)據(jù)是否一致，(1) = 。最后，用MsgBox 密碼修改成功, vbOKOnly + vbExclamation，語句彈出一個信息框，告訴修改成功，如上圖所示。 庫房管理子窗體是用來管理圖書資料的。其運行效果如圖所示。庫房管理子窗體實際上，設(shè)計庫房管理子窗體的程序代碼