【正文】 處理：以頁面上輸入的信息為 where 條件對數(shù)據(jù)庫的 gongzi 表進(jìn)行查詢，并將結(jié)果顯示在頁面上。 （２）學(xué)生工資一覽模塊 １）學(xué)生工資一覽的 IPO 圖。當(dāng)進(jìn)入主界面后，單擊“ 學(xué)生工資查詢”便會出現(xiàn)如圖６－５（ a）所示界面。本頁面使用了 數(shù)據(jù)庫中的 gongzi 數(shù)據(jù)表。 ２）本模塊界面如圖所示。 ③如果信息未全部輸入，顯示出是哪一條信息未輸入。 處理： ①判斷信息是否全部輸入。 （１）學(xué)生工資錄入模塊 １）學(xué)生工資錄入模塊的 IPO 圖。［取消］按鈕的作用是回到主頁面。 ４）操作。 ３）模塊所使用的數(shù)據(jù)表。 ２）本模塊界面入圖所示。 ③如果記錄不存在，則顯示 messagebox,提示無此記錄。 輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。 where SQLStr MsgBox 商品信息更新成功。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 where Set db_set = (SQLStr) If (0) = 0 Then MsgBox 沒有滿足條件的記錄。 End If If where = Then MsgBox 請輸入原信息。 gongling amp。 AND gongling = 39。 39。 amp。 End If If zhiwu Then where = where amp。 bumen amp。 AND bumen = 39。 39。 amp。 End If If zhuanye Then where = where amp。 xueli amp。 AND xueli = 39。 39。 amp。 End If If shengri Then where = where amp。 jiguan amp。 AND jiguan = 39。 39。 amp。 End If If xingbie Then where = where amp。 xingming amp。 AND xingming = 39。 ５）代碼及實(shí)現(xiàn)方式。當(dāng)進(jìn)入主頁面后，單擊“學(xué)生信息查詢”便會出現(xiàn)上面的界面。本頁面使用了 數(shù)據(jù)庫中的 xinxi 數(shù)據(jù)表。 ２）本模塊界面如圖所示。 ③如果記錄不存在，則不更新數(shù)據(jù)庫。 處理： ①以原來的學(xué)生信息為 where 條件查詢數(shù)據(jù)庫。 （３）學(xué)生信息修改模塊 １）學(xué)生信息修改模塊的 IPO 圖。固定表頭 .FixedRows = 1 39。定義列數(shù) .Cols = 9 39。 where Set db_set = (SQLStr) 這段代碼的作用是，如果沒有滿足 where 條件的記錄時，則查詢所有滿足 where 條件的記錄。 , vbOKOnly Exit Sub 這段代碼的作用是，如果沒有滿足 where 條件的記錄，則顯示 messagebox”沒有滿足條件的記錄。 where Set db_set = (SQLStr) 這段代碼是以積累的 where 條件查詢表 xinxi,看看有幾條滿足 where 條件的數(shù)據(jù)記錄。 where = Mid(where, 5, Len(where)) 這段代碼是指由于 where 條件在積累時最前面有一個 ”AND”存在，這不符合 SQL 的書寫規(guī)則，因此使用“ Mid”函數(shù)將前面的“ And”去掉，保證 SQL 能正確執(zhí)行。固定表頭 .FixedRows = 1 39。定義列數(shù) .Cols = 9 39。 , vbOKOnly Exit Sub Else = True SQLStr = SELECT * FROM xinxi Set db_set = (SQLStr) line = 0 Do While = False line = line + 1 xingming = (0) xingbie = (1) jiguan = (2) shengri = (3) xueli = (4) zhuanye = (5) bumen = (6) zhiwu = (7) gongling = (8) 這段代碼是使用 Do… While… loop 依次循環(huán)將查詢出來的數(shù)據(jù)賦給變量 xingming、xingbie、 jiguan、 shengri、 xueli、 zhuanye、 bumen、 zhiwu 和 gongling。 39。 amp。 End If If gongling Then where = where amp。 zhiwu amp。 AND zhiwu = 39。 39。 amp。 End If If bumen Then where = where amp。 zhuanye amp。 AND zhuanye = 39。 39。 amp。 End If If xueli Then where = where amp。 shengri amp。 AND shengri = 39。 39。 amp。 End If If jiguan Then where = where amp。 xingbie amp。 AND xingbie = 39。 39。 amp。在［查詢］按鈕的 Click 事件中輸入以下代碼： Private Sub Command4_Click() Dim where where = xingming = xingbie = jiguan = shengri = xueli = zhuanye = bumen = zhiwu = gongling = i = 1 For i = 1 To 499 With MSHFlexGrid1 .TextMatrix(i, 0) = .TextMatrix(i, 1) = .TextMatrix(i, 2) = .TextMatrix(i, 3) = .TextMatrix(i, 4) = .TextMatrix(i, 5) = .TextMatrix(i, 6) = .TextMatrix(i, 7) = .TextMatrix(i, 8) = End With Next If xingming Then where = where amp。［取消］按鈕的作用是回到主界面。 ４）操作。 圖６－４ ３）模塊使用的數(shù)據(jù)表。 ②將頁面上輸入的項目作為 where 條件，沒有輸入的項目不作為 where. 輸出：姓名、性別、籍貫、出生年月、學(xué)歷、 專業(yè)、部門、職務(wù)和工齡。 輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。 MsgBox 學(xué)生信息輸入成功！ , vbOKOnly Exit Sub End Sub 這段代碼是指插入成功后，顯示 messagebox“學(xué)生信息輸入成功！”。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。將 Text17 的值賦給變量 beizhu。將 的值賦給變量 zhiwu。將 的值賦給變量 zhuanye。將 的值賦給變量 shengri。 xingming = If = True Then xingbie = Else xingbie = End If jiguan = shengri = xueli = zhuanye = bumen = zhiwu = gongling = beizhu = 這段代碼是將 的值賦給變量 xingming；如果 Option 的 Value 屬性為 True，則將 Option１ .Caption 的值賦給變量 xingbie；如果 Option2 的 Value 屬性為 True,則將 的值賦給變量 xingbie。 , vbOKOnly Exit Sub End If 這段代碼的作用是，如果沒有選擇“學(xué)生性別”，則顯示 Messagebox“請選擇性別。 , vbOKOnly Exit Sub End If 這段代碼的作用是在按【錄入】時，分別檢測各個文本框，如果有空值的就顯示Messagebox 提示要輸入的內(nèi)容。 , vbOKOnly Exit Sub End If If = Then MsgBox 請輸入學(xué)生職 務(wù)。 , vbOKOnly Exit Sub End If If = Then MsgBox 請輸入學(xué)生專業(yè)。 , vbOKOnly Exit Sub End If If = Then MsgBox 請輸入學(xué)生出生年月日。 在【錄入】按鈕的 Click 事件中輸入如下代碼： Private Sub Command1_Click() If = Then MsgBox 請輸入學(xué)生姓名。 ４）操作。 ３）模塊使用的數(shù)據(jù)表。 ②將頁面上輸入的信息添加到數(shù)據(jù)苦的 xinxi 表中。 輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注。 本模塊包括４個子模塊：學(xué)生信息錄入模塊、學(xué)生信息查詢模塊、學(xué)生信息修改模塊和學(xué)生信息刪除模塊。 Set db_set = (SQLStr) If (0) 0 Then Else response = MsgBox(輸入錯誤 ,請重新輸入 ., vbOKOnly, 錯誤 ) End If End If Else MsgBox 六次輸入錯誤，拒絕輸入！ Unload Me End If i = i + 1 End Sub 當(dāng)用戶以查詢員身份登陸系統(tǒng)后，就可以注冊新用戶。 amp。 AND mima=39。 amp。 Private Sub CmdOk_Click() Static i As Integer If i = 5 Then If = admin And = admin Then Else Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = SELECT COUNT(*) FROM user WHERE yonghuming=39。 在標(biāo)準(zhǔn)模塊下編寫如下代碼： Public Sub main() Load Fmain Unload Form1 Set Form1 = Nothing End Sub 當(dāng)閃屏消失后，就會出現(xiàn)第一個窗體，如圖所示 圖６－３ 按 用戶登陸按鈕遍可進(jìn)入登陸模塊。 % DoEvents Next rate = 0 ‘啟動窗體加載時鼠標(biāo)形狀 End With End Sub 有時，在啟動窗體時可能需要執(zhí)行一些長過程，如數(shù)據(jù)加載大量數(shù)據(jù)或加載幾個大的位圖，在這種情況下，您可能想在啟動時顯示閃屏（ Splash Screen） ,閃屏是一個簡單的提示信息（如應(yīng)用程序的名稱、版權(quán)信息和簡單位圖）的窗體。 如圖 61 圖 61 在啟動窗體 中添加了如下代碼： Private Sub Form_Load() = 1 39。 名稱 字段名稱 類型 主鍵 忽略空值姓名 x i n g m i n g 文本 否 否性別 x i n g bi e 文本 否 否學(xué)歷 x u e l i 文本 否 否工齡 g on g l i n g 文