【正文】 這段代碼是將查詢出來的滿足條件的數(shù)據(jù)顯示在界面相對應(yīng)的位置上，如圖６－４所示。where = Mid(where, 5, Len(where))這段代碼是指由于 where 條件在積累時最前面有一個 ”AND”存在，這不符合 SQL 的書寫規(guī)則，因此使用“Mid” 函數(shù)將前面的“And”去掉，保證 SQL 能正確執(zhí)行。SQLStr = SELECT COUNT(*) FROM xinxi WHERE amp。 whereSet db_set = (SQLStr)這段代碼是以積累的 where 條件查詢表 xinxi,看看有幾條滿足 where 條件的數(shù)據(jù)記錄。If (0) = 0 Then MsgBox 沒有滿足條件的記錄。, vbOKOnlyExit Sub這段代碼的作用是，如果沒有滿足 where 條件的記錄，則顯示 messagebox”沒有滿足條件的記錄。 ”Else = True SQLStr = SELECT * FROM xinxi WHERE amp。 where Set db_set = (SQLStr) 這段代碼的作用是，如果沒有滿足 where 條件的記錄時，則查詢所有滿足 where 條件的記錄。 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) With MSHFlexGrid1 39。定義列數(shù) .Cols = 9 39。定義列標題 .TextMatrix(0, 0) = 姓名 .TextMatrix(0, 1) = 性別 .TextMatrix(0, 2) = 籍貫 .TextMatrix(0, 3) = 出生年月 .TextMatrix(0, 4) = 學(xué)歷 .TextMatrix(0, 5) = 專業(yè) .TextMatrix(0, 6) = 部門 .TextMatrix(0, 7) = 職務(wù) .TextMatrix(0, 8) = 工齡( 年) .TextMatrix(line, 0) = xingming .TextMatrix(line, 1) = xingbie .TextMatrix(line, 2) = jiguan .TextMatrix(line, 3) = shengri .TextMatrix(line, 4) = xueli .TextMatrix(line, 5) = zhuanye .TextMatrix(line, 6) = bumen .TextMatrix(line, 7) = zhiwu .TextMatrix(line, 8) = gongling 39。固定表頭 .FixedRows = 1 39。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 500 .ColWidth(2) = 1500 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 800 End With LoopEnd IfExit SubEnd Sub這段代碼是將查詢出來的滿足條件的數(shù)據(jù)顯示在界面相對應(yīng)的位置上，如圖６－４所示。（３）學(xué)生信息修改模塊１）學(xué)生信息修改模塊的 IPO 圖。輸入：原來學(xué)生信息（姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注）和現(xiàn)在學(xué)生信息（姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注） 。處理：①以原來的學(xué)生信息為 where 條件查詢數(shù)據(jù)庫。②如果記錄存在，則以現(xiàn)在的學(xué)生信息，將 xinxi 表中的學(xué)生信息更新。③如果記錄不存在，則不更新數(shù)據(jù)庫。輸出：更新后的學(xué)生信息。２）本模塊界面如圖所示。３）本模塊所使用的數(shù)據(jù)表。本頁面使用了 數(shù)據(jù)庫中的 xinxi 數(shù)據(jù)表。４）操作。當(dāng)進入主頁面后，單擊“學(xué)生信息查詢”便會出現(xiàn)上面的界面。 ［取消］按鈕的作用是回到主頁面。５）代碼及實現(xiàn)方式。在［修改］按鈕的 Click 時間中輸入如下代碼：Private Sub Command5_Click()Dim xingming1Dim xingbie1Dim jiguan1Dim shengri1Dim xueli1Dim zhuanye1Dim bumen1Dim zhiwu1Dim gongling1Dim wherewhere = xingming = xingbie = jiguan = shengri = xueli = zhuanye = bumen = zhiwu = gongling = xingming1 = xingbie1 = jiguan1 = shengri1 = xueli1 = zhuanye1 = bumen1 = zhiwu1 = gongling1 = If xingming Then where = where amp。 AND xingming = 39。 amp。 xingming amp。 39。End IfIf xingbie Then where = where amp。 AND xingbie = 39。 amp。 xingbie amp。 39。End IfIf jiguan Then where = where amp。 AND jiguan = 39。 amp。 jiguan amp。 39。End IfIf shengri Then where = where amp。 AND shengri = 39。 amp。 shengri amp。 39。End IfIf xueli Then where = where amp。 AND xueli = 39。 amp。 xueli amp。 39。End IfIf zhuanye Then where = where amp。 AND zhuanye = 39。 amp。 zhuanye amp。 39。End IfIf bumen Then where = where amp。 AND bumen = 39。 amp。 bumen amp。 39。End IfIf zhiwu Then where = where amp。 AND zhiwu = 39。 amp。 zhiwu amp。 39。End IfIf gongling Then where = where amp。 AND gongling = 39。 amp。 gongling amp。 39。End IfIf where = Then MsgBox 請輸入原信息。, vbOKOnly Exit SubEnd Ifwhere = Mid(where, 5, Len(where))Set Glb_MyWkSp = Workspaces(0)Set Glb_MyDB = (Con_DBpath)SQLStr = SELECT COUNT(*) FROM xinxi WHERE amp。 whereSet db_set = (SQLStr)If (0) = 0 Then MsgBox 沒有滿足條件的記錄。, vbOKOnly Exit SubElse SQLStr = UPDATE xinxi SET xingming=39。 amp。 xingming1 amp。 39。 , xingbie=39。 amp。 xingbie1 amp。 39。 , jiguan=39。 amp。 jiguan1 amp。 39。 , shengri=39。 amp。 shengri1 amp。 39。 , xueli=39。 amp。 xueli1 amp。 39。 ,zhuanye=39。 amp。 zhuanye1 amp。 39。, bumen=39。 amp。 bumen1 amp。 39。 , zhiwu=39。 amp。 zhiwu1 amp。 39。 ,gongling=39。 amp。 gongling1 amp。 39。 WHERE amp。 where SQLStr MsgBox 商品信息更新成功。, vbOKOnly = = = = = = = = = = End IfExit SubEnd Sub（４）信息刪除模塊１）學(xué)生信息刪除的 IPO 圖。輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。處理：①以輸入的信息為條件②如果記錄不存在，則將信息從數(shù)據(jù)庫的 xinxi 表中刪除。③如果記錄不存在，則顯示 messagebox,提示無此記錄。輸出：無。２）本模塊界面入圖所示。當(dāng)點擊［確定］按鈕后將滿足條件的數(shù)據(jù)查出來并顯示。３）模塊所使用的數(shù)據(jù)表。本頁面使用了 數(shù)據(jù)庫中的 xinxi 數(shù)據(jù)表。４）操作。當(dāng)進入主頁面后，單擊“學(xué)生信息查詢”便會出現(xiàn)上面的界面。 ［取消］按鈕的作用是回到主頁面。本模塊包括兩個子模塊。（１）學(xué)生工資錄入模塊１）學(xué)生工資錄入模塊的 IPO 圖。輸入：姓名、性別、學(xué)歷、工齡、遲到天數(shù)、獎金、當(dāng)時年和當(dāng)時月。處理：①判斷信息是否全部輸入。②如果信息全部輸入，則將頁面上輸入的信息添加到數(shù)據(jù)庫的 gongzi 表中。③如果信息未全部輸入，顯示出是哪一條信息未輸入。輸出：無。２）本模塊界面如圖所示。圖６－５（a）３）模塊所使用的數(shù)據(jù)表。本頁面使用了 數(shù)據(jù)庫中的 gongzi 數(shù)據(jù)表。４）操作。當(dāng)進入主界面后，單擊“ 學(xué)生工資查詢”便會出現(xiàn)如圖６－５（a ）所示界面。［取消］按鈕的作用是回到主頁面。（２）學(xué)生工資一覽模塊１）學(xué)生工資一覽的 IPO 圖。輸入：姓名、性別、學(xué)歷、工齡、遲到天數(shù)、當(dāng)時年和當(dāng)時月。處理：以頁面上輸入的信息為 where 條件對數(shù)據(jù)庫的 gongzi 表進行查詢，并將結(jié)果顯示在頁面上。其中工資的計算方式如下：基本工資＝５００學(xué)歷工資：研究生（1000） 、本科（600） 、?？疲?00） 、?？埔韵拢?00）工齡工資：一年（100） 、兩年（200） 、三年（300） 、四年（400） 、五年（500）扣除工資：遲到一天扣５元，以此類推，如果遲到６天以上扣發(fā)當(dāng)月獎金總工資＝基本工資＋學(xué)歷工資＋工齡工資＋獎金＋扣除金額輸出：姓名、性別、基本工資、學(xué)歷、學(xué)歷工資、工齡、工齡工資、遲到天數(shù)、扣除獎金、獎金和總工資。２）本模塊界面如圖 65(b) 所示。65(b)當(dāng)點擊［一覽］按鈕時，將顯示學(xué)生工資信息。３）模塊所使用的數(shù)據(jù)表。本頁面使用了 數(shù)據(jù)庫的 gongzi 數(shù)據(jù)表。４）操作。當(dāng)進入主頁面后，單擊“學(xué)生工資查詢”便會出現(xiàn)上面的界面。 ［取消］按鈕的作用是回到主頁面。第七章 結(jié)束語通過努力，學(xué)生查詢系統(tǒng)全部完成。可以實現(xiàn)可以實現(xiàn)學(xué)生信息查詢和學(xué)生工資查詢的功能，但由于時間倉促，個人能力有限，系統(tǒng)還不夠完善，比如截面單一，功能不夠全面，這些問題還有待于進一步改進第八章、參考文獻1. 黃明 梁旭編著“《Visual Basic 信息系統(tǒng) 設(shè)計與開發(fā)實例（第二版）》，機械工業(yè)出版社 2022 年 1 月 第 2 版；2. 鄭有增 主編：《Visual Basic 可視化程序設(shè)計》，中國水利水電出版社。2022 年1 月 第一版。 謝婷編著：《Visual Basic 項目化教程》，清華大學(xué)出版社，北方交通大學(xué) 2022 年 10 月第一版； 主編《Visual Basic 課程設(shè)計與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社，2022 年 8 也第一版。