【正文】 謝婷編著：《Visual Basic 項(xiàng)目化教程》，清華大學(xué)出版社，北方交通大學(xué) 2022 年 10 月第一版； 主編《Visual Basic 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社，2022 年 8 也第一版?？梢詫?shí)現(xiàn)可以實(shí)現(xiàn)學(xué)生信息查詢和學(xué)生工資查詢的功能，但由于時(shí)間倉促，個(gè)人能力有限，系統(tǒng)還不夠完善，比如截面單一，功能不夠全面，這些問題還有待于進(jìn)一步改進(jìn)第八章、參考文獻(xiàn)1. 黃明 梁旭編著“《Visual Basic 信息系統(tǒng) 設(shè)計(jì)與開發(fā)實(shí)例（第二版）》，機(jī)械工業(yè)出版社 2022 年 1 月 第 2 版；2. 鄭有增 主編：《Visual Basic 可視化程序設(shè)計(jì)》，中國水利水電出版社。 ［取消］按鈕的作用是回到主頁面。４）操作。３）模塊所使用的數(shù)據(jù)表。２）本模塊界面如圖 65(b) 所示。處理：以頁面上輸入的信息為 where 條件對數(shù)據(jù)庫的 gongzi 表進(jìn)行查詢，并將結(jié)果顯示在頁面上。（２）學(xué)生工資一覽模塊１）學(xué)生工資一覽的 IPO 圖。當(dāng)進(jìn)入主界面后，單擊“ 學(xué)生工資查詢”便會(huì)出現(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。 whereSet db_set = (SQLStr)If (0) = 0 Then MsgBox 沒有滿足條件的記錄。End IfIf where = Then MsgBox 請輸入原信息。 gongling amp。 AND gongling = 39。 39。 amp。End IfIf zhiwu Then where = where amp。 bumen amp。 AND bumen = 39。 39。 amp。End IfIf zhuanye Then where = where amp。 xueli amp。 AND xueli = 39。 39。 amp。End IfIf shengri Then where = where amp。 jiguan amp。 AND jiguan = 39。 39。 amp。End IfIf xingbie Then where = where amp。 xingming amp。 AND xingming = 39。５）代碼及實(shí)現(xiàn)方式。當(dāng)進(jìn)入主頁面后，單擊“學(xué)生信息查詢”便會(huì)出現(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 條件的記錄時(shí)，則查詢所有滿足 where 條件的記錄。, vbOKOnlyExit Sub這段代碼的作用是，如果沒有滿足 where 條件的記錄，則顯示 messagebox”沒有滿足條件的記錄。 whereSet db_set = (SQLStr)這段代碼是以積累的 where 條件查詢表 xinxi,看看有幾條滿足 where 條件的數(shù)據(jù)記錄。where = Mid(where, 5, Len(where))這段代碼是指由于 where 條件在積累時(shí)最前面有一個(gè) ”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 IfIf gongling Then where = where amp。 zhiwu amp。 AND zhiwu = 39。 39。 amp。End IfIf bumen Then where = where amp。 zhuanye amp。 AND zhuanye = 39。 39。 amp。End IfIf xueli Then where = where amp。 shengri amp。 AND shengri = 39。 39。 amp。End IfIf jiguan Then where = where amp。 xingbie amp。 AND xingbie = 39。 39。 amp。在［查詢］按鈕的 Click 事件中輸入以下代碼：Private Sub Command4_Click()Dim wherewhere = xingming = xingbie = jiguan = shengri = xueli = zhuanye = bumen = zhiwu = gongling = i = 1For 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 WithNextIf xingming Then where = where amp。 ［取消］按鈕的作用是回到主界面。４）操作。圖６－４３）模塊使用的數(shù)據(jù)表。②將頁面上輸入的項(xiàng)目作為 where 條件，沒有輸入的項(xiàng)目不作為 where.輸出：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。MsgBox 學(xué)生信息輸入成功！, vbOKOnlyExit SubEnd 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 Ifjiguan = shengri = xueli = zhuanye = bumen = zhiwu = gongling = beizhu = 這段代碼是將 的值賦給變量 xingming；如果 Option 的 Value 屬性為 True，則將 的值賦給變量 xingbie；如果 Option2 的 Value 屬性為 True,則將 的值賦給變量 xingbie。, vbOKOnly Exit SubEnd If　　這段代碼的作用是，如果沒有選擇“學(xué)生性別” ，則顯示 Messagebox“請選擇性別。, vbOKOnly Exit SubEnd If這段代碼的作用是在按【錄入】時(shí)，分別檢測各個(gè)文本框，如果有空值的就顯示Messagebox 提示要輸入的內(nèi)容。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請輸入學(xué)生職務(wù)。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請輸入學(xué)生專業(yè)。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請輸入學(xué)生出生年月日。在【錄入】按鈕的 Click 事件中輸入如下代碼：Private Sub Command1_Click()If = Then MsgBox 請輸入學(xué)生姓名。４）操作。３）模塊使用的數(shù)據(jù)表。②將頁面上輸入的信息添加到數(shù)據(jù)苦的 xinxi 表中。輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注。 學(xué)生信息查詢模 塊的設(shè)計(jì)與實(shí)現(xiàn)本模塊包括４個(gè)子模塊：學(xué)生信息錄入模塊、學(xué)生信息查詢模塊、學(xué)生信息修改模塊和學(xué)生信息刪除模塊。 Set db_set = (SQLStr) If (0) 0 Then Else response = MsgBox(輸入錯(cuò)誤,請重新輸入., vbOKOnly, 錯(cuò)誤) End If End IfElse MsgBox 六次輸入錯(cuò)誤，拒絕輸入！ Unload MeEnd If i = i + 1End Sub 注冊用戶界面當(dāng)用戶以查詢員身份登陸系統(tǒng)后，就可以注冊新用戶。 amp。 AND mima=39。 amp。Private Sub CmdOk_Click()Static i As IntegerIf 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 Form1Set Form1 = Nothing End Sub當(dāng)閃屏消失后，就會(huì)出現(xiàn)第一個(gè)窗體，如圖所示圖６－３按用戶登陸按鈕遍可進(jìn)入登陸模塊。 % DoEvents Next rate = 0 ‘啟動(dòng)窗體加載時(shí)鼠標(biāo)形狀 End WithEnd Sub有時(shí)，在啟動(dòng)窗體時(shí)可能需要執(zhí)行一些長過程，如數(shù)據(jù)加載大量數(shù)據(jù)或加載幾個(gè)大的位圖，在這種情況下，您可能想在啟動(dòng)時(shí)顯示閃屏（Splash Screen）,閃屏是一個(gè)簡單的提示信息（如應(yīng)用程序的名稱、版權(quán)信息和簡單位圖）的窗體。 初始化閃屏 如圖 61圖 61在啟動(dòng)窗體 中添加了如下代碼：Private Sub Form_Load() = 1 39。名 稱 字 段 名 稱 類 型 主 鍵 忽 略 空 值姓 名 xingming 文 本 否 否性 別 xi