【正文】 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。固定表頭 .FixedRows = 1 39。 whereSet db_set = (SQLStr)這段代碼是以積累的 where 條件查詢表 xinxi,看看有幾條滿足 where 條件的數(shù)據(jù)記錄。 where Set db_set = (SQLStr) 這段代碼的作用是，如果沒有滿足 where 條件的記錄時，則查詢所有滿足 where 條件的記錄。固定表頭 .FixedRows = 1 39。處理：①以原來的學(xué)生信息為 where 條件查詢數(shù)據(jù)庫。２）本模塊界面如圖所示。當(dāng)進(jìn)入主頁面后，單擊“學(xué)生信息查詢”便會出現(xiàn)上面的界面。 AND xingming = 39。End IfIf xingbie Then where = where amp。 39。 jiguan amp。 amp。 AND xueli = 39。End IfIf zhuanye Then where = where amp。 39。 bumen amp。 amp。 AND gongling = 39。End IfIf where = Then MsgBox 請輸入原信息。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 where SQLStr MsgBox 商品信息更新成功。③如果記錄不存在，則顯示 messagebox,提示無此記錄。３）模塊所使用的數(shù)據(jù)表。 ［取消］按鈕的作用是回到主頁面。處理：①判斷信息是否全部輸入。２）本模塊界面如圖所示。當(dāng)進(jìn)入主界面后，單擊“ 學(xué)生工資查詢”便會出現(xiàn)如圖６－５（a ）所示界面。處理：以頁面上輸入的信息為 where 條件對數(shù)據(jù)庫的 gongzi 表進(jìn)行查詢，并將結(jié)果顯示在頁面上。３）模塊所使用的數(shù)據(jù)表。 ［取消］按鈕的作用是回到主頁面。 謝婷編著：《Visual Basic 項目化教程》，清華大學(xué)出版社，北方交通大學(xué) 2022 年 10 月第一版； 主編《Visual Basic 課程設(shè)計與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社，2022 年 8 也第一版?？梢詫崿F(xiàn)可以實現(xiàn)學(xué)生信息查詢和學(xué)生工資查詢的功能，但由于時間倉促，個人能力有限，系統(tǒng)還不夠完善，比如截面單一，功能不夠全面，這些問題還有待于進(jìn)一步改進(jìn)第八章、參考文獻(xiàn)1. 黃明 梁旭編著“《Visual Basic 信息系統(tǒng) 設(shè)計與開發(fā)實例（第二版）》，機械工業(yè)出版社 2022 年 1 月 第 2 版；2. 鄭有增 主編：《Visual Basic 可視化程序設(shè)計》，中國水利水電出版社。４）操作。２）本模塊界面如圖 65(b) 所示。（２）學(xué)生工資一覽模塊１）學(xué)生工資一覽的 IPO 圖。本頁面使用了 數(shù)據(jù)庫中的 gongzi 數(shù)據(jù)表。③如果信息未全部輸入，顯示出是哪一條信息未輸入。（１）學(xué)生工資錄入模塊１）學(xué)生工資錄入模塊的 IPO 圖。４）操作。２）本模塊界面入圖所示。輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。 39。 39。 39。 39。 39。 39。 39。 39。 39。 whereSet db_set = (SQLStr)If (0) = 0 Then MsgBox 沒有滿足條件的記錄。 gongling amp。 39。End IfIf zhiwu Then where = where amp。 AND bumen = 39。 amp。 xueli amp。 39。End IfIf shengri Then where = where amp。 AND jiguan = 39。 amp。 xingming amp。５）代碼及實現(xiàn)方式。本頁面使用了 數(shù)據(jù)庫中的 xinxi 數(shù)據(jù)表。③如果記錄不存在，則不更新數(shù)據(jù)庫。（３）學(xué)生信息修改模塊１）學(xué)生信息修改模塊的 IPO 圖。定義列數(shù) .Cols = 9 39。, vbOKOnlyExit Sub這段代碼的作用是，如果沒有滿足 where 條件的記錄，則顯示 messagebox”沒有滿足條件的記錄。where = Mid(where, 5, Len(where))這段代碼是指由于 where 條件在積累時最前面有一個 ”AND”存在，這不符合 SQL 的書寫規(guī)則，因此使用“Mid” 函數(shù)將前面的“And”去掉，保證 SQL 能正確執(zhí)行。定義列數(shù) .Cols = 9 39。 39。End IfIf gongling Then where = where amp。 AND zhiwu = 39。 amp。 zhuanye amp。 39。End IfIf xueli Then where = where amp。 AND shengri = 39。 amp。 xingbie amp。 39。在［查詢］按鈕的 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。４）操作。②將頁面上輸入的項目作為 where 條件，沒有輸入的項目不作為 where.輸出：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。MsgBox 學(xué)生信息輸入成功！, vbOKOnlyExit SubEnd Sub這段代碼是指插入成功后，顯示 messagebox“學(xué)生信息輸入成功！ ”。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。將 的值賦給變量 zhiwu。將 的值賦給變量 shengri。, vbOKOnly Exit SubEnd If　　這段代碼的作用是，如果沒有選擇“學(xué)生性別” ，則顯示 Messagebox“請選擇性別。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請輸入學(xué)生職務(wù)。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請輸入學(xué)生出生年月日。４）操作。②將頁面上輸入的信息添加到數(shù)據(jù)苦的 xinxi 表中。 學(xué)生信息查詢模 塊的設(shè)計與實現(xiàn)本模塊包括４個子模塊：學(xué)生信息錄入模塊、學(xué)生信息查詢模塊、學(xué)生信息修改模塊和學(xué)生信息刪除模塊。 amp。 amp。在標(biāo)準(zhǔn)模塊下編寫如下代碼：Public Sub main() Load Fmain Unload Form1Set Form1 = Nothing End Sub當(dāng)閃屏消失后，就會出現(xiàn)第一個窗體，如圖所示圖６－３按用戶登陸按鈕遍可進(jìn)入登陸模塊。 初始化閃屏 如圖 61圖 61在啟動窗體 中添加了如下代碼：Private Sub Form_Load() = 1 39。如表 52 所示，用戶數(shù)據(jù)表包括用戶名和密碼兩個字段。（2） 學(xué)生工資一覽模塊：可對學(xué)生的工資進(jìn)行一覽操作。（2） 學(xué)生信息查詢模塊：可對學(xué)生信息進(jìn)行查詢操作。第五章 總體設(shè)計 系 統(tǒng)層 次框圖工資查詢系統(tǒng)的系統(tǒng)模塊土如圖 31 所示。? 光驅(qū)：CDROM48X。已完成的應(yīng)用程序是使用 Visual Basic 虛擬機真正 .exe 文件，您可以自由發(fā)布。 數(shù)據(jù)訪問特性允許對包括 Microsoft SQL Server 和其它學(xué)校數(shù)據(jù)庫在內(nèi)的大部分?jǐn)?shù)據(jù)庫格式建立數(shù)據(jù)庫和前端應(yīng)用程序，以及可調(diào)整的服務(wù)器端部件。Visual Basic 編程系統(tǒng)和 VBA 都使用這一語言。“Basic”指的是 BASIC (Beginners AllPurpose Symbolit Instruction Code) 語言，一種在計算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言。第三章 學(xué)生查詢系統(tǒng)開發(fā)工具和環(huán)境本學(xué)生查詢系統(tǒng)是在 Visual Basic 環(huán)境下開發(fā)的。D、由計算機軟件系統(tǒng)的模型再轉(zhuǎn)化成一個現(xiàn)實系統(tǒng)。面向?qū)ο蠓ㄗ钪饕奶攸c是對對象為基礎(chǔ)，對象是分析問題和解決問題的核心。(2)面向?qū)ο蟮拈_ 發(fā)方法面向?qū)ο螅∣bject Oriented）的技術(shù)于 20 世紀(jì) 80 年興起，隨后廣泛地應(yīng)用于計算機技術(shù)的幾乎所有領(lǐng)域。D、形成最終的查詢信息。其主要目的是為了描述開發(fā)者所理解的用戶的基本需求。②原型法的開發(fā)過程采用原型法開發(fā)查詢信息系統(tǒng)可以分為如下幾個階段：A、確定用戶的基本需求。下面僅對原型法和面對對象的開發(fā)方法進(jìn)行簡單的描述。(5)輔助決策功能：通過對數(shù)據(jù)的加工處理，可以快速地獲取對決策有影響的信息，從而為合理的配置學(xué)校的各項資源，做出最佳的決策提供科學(xué)的依據(jù)。(1)數(shù)據(jù)處理功能：數(shù)據(jù)處理是查詢信息系統(tǒng)最基本的功能，它包括對各種類型數(shù)據(jù)的收集、加工處理、傳遞、存儲等工作。查詢信息系統(tǒng)運用了數(shù)據(jù)庫的技術(shù)，對基礎(chǔ)數(shù)據(jù)進(jìn)行統(tǒng)一規(guī)劃、存儲，供各層查詢?nèi)藛T使用，從而實現(xiàn)了數(shù)據(jù)的一致和共享。 ”因此，我們可以看出，查詢系統(tǒng)系統(tǒng)具有幾個基本含義：（1）查詢信息系統(tǒng)不是一個單純的軟件系統(tǒng)，而是一個人－機系統(tǒng)，由人和機器協(xié)同工作。1985 年，查詢信息系統(tǒng)創(chuàng)始人，明尼蘇達(dá)大學(xué)卡爾森查詢學(xué)院的著名教授戴維斯（ ）給出了一個具有代表性的定義： “查詢信息系統(tǒng)是一個利用計算機硬件和軟件，手工作業(yè)、分析、計劃、控制和決策模型以及數(shù)據(jù)庫的用戶－機器系統(tǒng)。黑盒測試故意不考慮程序的控制結(jié)構(gòu)，而把注意力集中于信息域。? 性能上是否滿足要求。因此，黑盒測試又稱為功能測試或數(shù)據(jù)驅(qū)動測試。一般意義上的測試大多是指動態(tài)測試。8） 靜態(tài)測試。6） 對發(fā)現(xiàn)錯誤較多的程序段，應(yīng)進(jìn)行更深入的測試。2） 測試用例不僅要選用合理的輸入數(shù)據(jù)，還要選擇不合理的輸入數(shù)據(jù)。 測試軟件測試的目的是為了發(fā)現(xiàn)程序中的錯誤而執(zhí)行程序的過程。根據(jù)軟件系統(tǒng)的類型，可能還要進(jìn)行代碼設(shè)計、輸入/輸出格式設(shè)計和人機對話設(shè)計。詳細(xì)設(shè)計的主要任務(wù)是：為每個模塊進(jìn)行詳細(xì)的算法設(shè)計。數(shù)據(jù)庫設(shè)計指數(shù)據(jù)存儲文件的設(shè)計，主要進(jìn)行概念、邏輯和物理三個方面的設(shè)計。(2)數(shù)據(jù)結(jié)構(gòu)及數(shù)據(jù) 庫設(shè)計。2） 確定每個模塊的功能。為了完整描述目標(biāo)系統(tǒng)，還要做一些補充：說明目標(biāo)系統(tǒng)的人機界面；說明至今尚未詳細(xì)考慮的細(xì)節(jié)。建立目標(biāo)系統(tǒng)的邏輯模型。當(dāng)前系統(tǒng)是指目前正在運行的系統(tǒng)，可能是需要改進(jìn)的正在計算機上運行的軟件系統(tǒng)，也可能是人工處理系統(tǒng)。需求分析是基本任務(wù)是要準(zhǔn)確地定義新系統(tǒng)的目標(biāo)，回答系統(tǒng)必須“做什么”的問題。推薦可行的方案。典型的可行性研究有下列具體步驟：確定規(guī)模和目標(biāo)。此項查詢功能用戶界面友好，用戶可以簡單、快捷地查詢到自己需要的信息。畢業(yè)生就業(yè)信息查詢。為了節(jié)省篇幅，本畢業(yè)設(shè)計在后面的系統(tǒng)中，較為詳細(xì)地介紹了第 4 個階段。⑥編碼。②可行性研究。本畢業(yè)設(shè)計主要使用軟件工程方法來完成對MIS 系統(tǒng)設(shè)計與開發(fā)。學(xué)生信息查詢系統(tǒng)就是把分散的企事業(yè)單位的學(xué)生信息實行統(tǒng)一、集中、規(guī)范的收集查詢，建立分類編號查詢、電腦存儲查詢以及防火、