?。?）為什么這些菜單可以調用這些子窗體或者執(zhí)行退出主窗體的操作呢？在圖10.50的主窗體中用鼠標雙擊，在出現(xiàn)的代碼窗口中的主要代碼如下。 ――――――――――――――――――――――――――――――――――――― ‘選擇菜單項DirectorInsertMenu后將顯示子窗體FormInsertDirector PRivate Sub DirectorInsertMenu_Click() FormInsertDirector.Show End Sub ‘選擇菜單項DirectorSelectMenu 后將顯示子窗體FormSelectDirector Private Sub DirectorSelectMenu_Click() FormSelectDirector.Show End Sub ‘選擇菜單項DirectorUpdateMenu后將顯示子窗體FormUpdateDirector Private Sub DirectorUpdateMenu_Click() FormUpdateDirector.Show End Sub ‘選擇菜單項GraduateInsertMenu后將顯示子窗體FormInsertGraduate Private Sub GraduateInsertMenu_Click() FormInsertGraduate.Show End Sub ‘選擇菜單項GraduateSelectMenu后將顯示子窗體FormSelectGraduate Private Sub GraduateSelectMenu_Click() FormSelectGraduate.Show End Sub ‘選擇菜單項GraduateUpdateMenu后將顯示子窗體FormUpdateGraduate Private Sub GraduateUpdateMenu_Click() FormUpdateGraduate.Show End Sub ‘選擇菜單項MajorInsertMenu后將顯示子窗體FormInsertMajor Private Sub MajorInsertMenu_Click() FormInsertMajor.Show End Sub ‘選擇菜單項MajorUpdateMenu后將顯示子窗體FormUpdateMajor Private Sub MajorUpdateMenu_Click() FormUpdateMajor.Show End Sub ‘選擇菜單項ExitMenu后將顯示退出主窗體 Private Sub ExitMenu_Click() End End Sub ―――――――――――――――――――――――――――――――――――――
模塊的設計
模塊Module1的其他主要代碼如下。 ――――――――――――――――――――――――――――――――――――― ‘定義了名為ConnectString的無參數(shù)函數(shù)，連接數(shù)據(jù)庫 Public Function ConnectString() As String ConnectString = "DSN=graduateDB;UID=graduateuser;PWD=12345678" End Function ‘定義了名為ExecuteSQL的帶參數(shù)函數(shù)，參數(shù)SQL和MsgString都為字符串型。該函數(shù)用于執(zhí)行SQL語句。 Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset ‘conn為ADODB的connection連接對象 Dim conn As ADODB.Connection ‘rest為ADODB的記錄集對象 Dim rest As ADODB.Recordset ‘若執(zhí)行SQL錯誤轉向ExecuteSQL_Error標記處 On Error GoTo ExecuteSQL_Error Set conn = New ADODB.Connection ‘連接數(shù)據(jù)庫 conn.Open ConnectString Set rest = New ADODB.Recordset ‘執(zhí)行SQL字符串語句 rest.Open Trim$(SQL), conn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rest MsgString = "查詢到" & rest.RecordCount & " 條記錄" ‘執(zhí)行SQL完畢后關閉連接和記錄集 ExecuteSQL_Exit: Set rest = Nothing Set conn = Nothing Exit Function ‘執(zhí)行SQL錯誤時的處理方法 ExecuteSQL_Error: MsgString = "查詢錯誤: " & _ Err.Description Resume ExecuteSQL_Exit End Function ‘定義了名為Checktxt的帶參數(shù)函數(shù)，參數(shù)txt為字符串型。該函數(shù)用于檢測txt字符串是否有內容。 Public Function Checktxt(txt As String) As Boolean If Trim(txt) = "" Then Checktxt = False Else Checktxt = True End If End Function ――――――――――――――――――――――――――――――――――――― 各子窗體的設計
