【正文】 以原來(lái)的學(xué)生信息為 where 條件查詢數(shù)據(jù)庫(kù)。當(dāng)進(jìn)入主頁(yè)面后，單擊“學(xué)生信息查詢”便會(huì)出現(xiàn)上面的界面。 End If If xingbie Then where = where amp。 jiguan amp。 AND xueli = 39。 39。 amp。 End If If where = Then MsgBox 請(qǐng)輸入原信息。 amp。 amp。 amp。 amp。 where SQLStr MsgBox 商品信息更新成功。 ３）模塊所使用的數(shù)據(jù)表。 ③如果記錄不存在，則顯示 messagebox,提示無(wú)此記錄。 amp。 amp。 amp。 amp。 amp。 AND gongling = 39。 bumen amp。 End If If zhuanye Then where = where amp。 amp。 39。 AND xingming = 39。 ２）本模塊界面如圖所示。固定表頭 .FixedRows = 1 39。 where Set db_set = (SQLStr) 這段代碼是以積累的 where 條件查詢表 xinxi,看看有幾條滿足 where 條件的數(shù)據(jù)記錄。 , 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)將查詢出來(lái)的數(shù)據(jù)賦給變量 xingming、xingbie、 jiguan、 shengri、 xueli、 zhuanye、 bumen、 zhiwu 和 gongling。 zhiwu amp。 End If If bumen Then where = where amp。 amp。 39。 AND xingbie = 39。［取消］按鈕的作用是回到主界面。 輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)和工齡。 39。 39。 39。 39。 39。將 的值賦給變量 zhuanye。 , vbOKOnly Exit Sub End If 這段代碼的作用是在按【錄入】時(shí)，分別檢測(cè)各個(gè)文本框，如果有空值的就顯示Messagebox 提示要輸入的內(nèi)容。 在【錄入】按鈕的 Click 事件中輸入如下代碼： Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸入學(xué)生姓名。 輸入：姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注。) SQLStr response = MsgBox(登錄成功 ,你的用戶名是 : amp。 該模塊的代碼如下： Const Con_DBpath As String = DB\ Public Glb_MyWkSp As Workspace Public Glb_MyDB As Database Private Sub Command1_Click() If = Then response = MsgBox(請(qǐng)輸入用戶名 ., vbOKOnly, 錯(cuò)誤 ) Exit Sub End If If = Then response = MsgBox(請(qǐng)輸入密碼 ., vbOKOnly, 錯(cuò)誤 ) Exit Sub End If Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = INSERT INTO user VALUES (39。 amp。本系統(tǒng)主要把學(xué)生信息查詢方面的信息通過(guò)整理形成一個(gè)較完整的體系，以便使其查詢更加系統(tǒng)化、完善化。 4. 學(xué)生工資模塊 （ 1） 學(xué)生工資錄入模塊：可對(duì)學(xué)生的工資進(jìn)行存儲(chǔ)操作。 ? 數(shù)據(jù)庫(kù)： Microsoft Access 2020。 Inter 能力強(qiáng)大，使得您很容易在應(yīng)用程序內(nèi)通過(guò) Inter 或 intra 訪問(wèn)文檔和應(yīng)用程序，或者創(chuàng)建 Inter 服務(wù)器應(yīng)用程序。 Visual Basic 不僅是 Visual Basic 編程語(yǔ)言。 本系統(tǒng)在開(kāi)發(fā)過(guò)程中具體是采用了原型法和面向?qū)ο髢煞N方法相結(jié)合的開(kāi)發(fā)思路，力求在開(kāi)發(fā)過(guò)程中盡 量吸收這兩種方法的長(zhǎng)處，而克服它們的短處。在開(kāi)發(fā)過(guò)程中，分析和設(shè)計(jì)階段獨(dú)立于程序設(shè)計(jì)語(yǔ)言，信息系統(tǒng)模型設(shè)計(jì)好后，最終用具體的程序設(shè)計(jì)語(yǔ)言、數(shù)據(jù)庫(kù)或硬件來(lái)實(shí)現(xiàn)。開(kāi)發(fā)人員針對(duì)這些問(wèn)題不斷地對(duì)系統(tǒng)進(jìn)行修改、擴(kuò)充與完善，直至用戶滿意為止。再在此基礎(chǔ)上與用戶交流，將模型不斷補(bǔ)充，修改完善，如此反復(fù)，最終直至用戶和開(kāi)發(fā)者都比較滿意為止，就形成了一個(gè)相對(duì)穩(wěn)定、較為理想的查詢信息系統(tǒng)。 (4)控制功能： 通過(guò)信息的反饋可以對(duì)整個(gè)學(xué)校生產(chǎn)經(jīng)營(yíng)的各個(gè)部門、各個(gè)環(huán)節(jié)的運(yùn)行情況進(jìn)行監(jiān)測(cè)、協(xié)調(diào)、控制，保證系統(tǒng)的正常運(yùn)行。 （ 2）查詢信息系統(tǒng)的查詢過(guò)程就是對(duì)數(shù) 據(jù)進(jìn)行懼、存儲(chǔ)、加工處理、傳遞，并產(chǎn)生信息的過(guò)程，因此數(shù)據(jù)是查詢信息系統(tǒng)的靈魂。 第二章 查詢信息系統(tǒng)概述 查詢信息系統(tǒng)現(xiàn)狀 ： 查詢信息系統(tǒng)（ MIS）是一門邊緣學(xué)科，集查詢科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計(jì)算機(jī)技術(shù)于一體。 ? 訪問(wèn)外部信息是否有錯(cuò)。動(dòng)態(tài)測(cè)試是指通過(guò)運(yùn)行程序發(fā)現(xiàn)錯(cuò)誤。 5） 長(zhǎng)期保留測(cè)試用例。 編 碼就是把軟件的結(jié)果翻譯成計(jì)算機(jī)可以“理解”的形式 用某種程序設(shè)計(jì)語(yǔ)言書寫的程序。詳細(xì)設(shè)計(jì)階段可以使用的工具 有 :IPO 圖、程序流程圖、盒圖、 PAD 圖等。 5） 評(píng)價(jià)模塊結(jié)構(gòu)的質(zhì)量。 作進(jìn)一步補(bǔ)充和優(yōu)化。 SA分析步驟： 了解當(dāng)前系統(tǒng)的工作流程，或得當(dāng)前系統(tǒng)的物理模型。 導(dǎo)出和評(píng)價(jià)各種方案。查詢的條件包括：生源 、專業(yè)、外語(yǔ)成績(jī)、計(jì)算機(jī)水平、獎(jiǎng)懲情況、參加的社會(huì)工作等。 對(duì)于畢業(yè)設(shè)計(jì)來(lái)說(shuō)，上述 8 個(gè)階段中的（ 3） ~（ 6）是畢業(yè)設(shè)計(jì)報(bào)告（論文）中重點(diǎn)寫的內(nèi)容。 一個(gè)計(jì)算機(jī)軟件，從開(kāi)始構(gòu)思起，經(jīng)過(guò)該軟件成功投入使用，直到生命周期包括 8個(gè)階段： ①問(wèn)題定義。當(dāng)學(xué)校規(guī)模比較小的時(shí)候，人力可以完成，隨著學(xué)校的規(guī)模越來(lái)越大，學(xué)校的學(xué)生人數(shù)也越來(lái)越多，依然維持著人力進(jìn)行學(xué)生信息查詢，必然會(huì)造成工作效率低，工作錯(cuò)誤增高的問(wèn)題。 目錄 摘 要 ........................................................................................................................... 1 引言 ................................................................................................................................. 3 第一章 查詢信息系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)方法 .............................................................................. 3 ................................................................................................................... 5 ................................................................................................................ 5 ................................................................................................................... 5 ................................................................................................................... 6 (1)軟件系統(tǒng)結(jié)構(gòu)設(shè)計(jì)。 ............................................................................................. 6 (2)數(shù)據(jù)結(jié)構(gòu)及數(shù)據(jù)庫(kù)設(shè)計(jì)。 學(xué)生信 息查詢系統(tǒng)就是把分散的企事業(yè)單位的學(xué)生信息實(shí)行統(tǒng)一、集中、規(guī)范的收集查詢，建立分類編號(hào)查詢、電腦存儲(chǔ)查詢以及防火、防潮、防蛀、防盜等現(xiàn)代化、專業(yè)化的查詢系統(tǒng)，為企事業(yè)單位和學(xué)生解除后顧之憂。②可行性研究。為 了節(jié)省篇幅，本畢業(yè)設(shè)計(jì)在后面的系統(tǒng)中，較為詳細(xì)地介紹了第 4 個(gè)階段。此項(xiàng)查詢功能用戶界面友好，用戶可以簡(jiǎn)單、快捷地查詢到自己需要的信息。 推薦可行的方案。當(dāng)前系統(tǒng)是指目前正在運(yùn)行的系統(tǒng)，可能是需要改進(jìn)的正在計(jì)算機(jī)上運(yùn)行的軟件系統(tǒng)，也可能是人工處理系統(tǒng)。為了完整描述目標(biāo)系統(tǒng)，還要做一些補(bǔ)充：說(shuō)明目標(biāo)系統(tǒng)的人機(jī)界面；說(shuō)明至今尚未詳細(xì)考慮的細(xì)節(jié)。 (2)數(shù)據(jù)結(jié)構(gòu)及數(shù)據(jù)庫(kù)設(shè)計(jì)。 詳細(xì)設(shè)計(jì)的主要任務(wù)是： 為每個(gè)模塊進(jìn)行詳細(xì)的算法設(shè)計(jì)。 軟件測(cè)試的目的是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過(guò)程。 6） 對(duì)發(fā)現(xiàn)錯(cuò)誤較多的程序段，應(yīng)進(jìn)行更深入的測(cè)試。一般意義上的測(cè)試大多是指動(dòng)態(tài)測(cè)試。 ? 性能上是否滿足要求。 1985 年，查詢信息系統(tǒng)創(chuàng) 始人，明尼蘇達(dá)大學(xué)卡爾森查詢學(xué)院的著名教授戴維斯（ ）給出了一個(gè)具有代表性的定義：“查詢信息系統(tǒng)是一個(gè)利用計(jì)算機(jī)硬件和軟件，手工作業(yè)、分析、計(jì)劃、控制和決策模型以及數(shù)據(jù)庫(kù)的用戶－機(jī)器系統(tǒng)。查詢信息系統(tǒng)運(yùn)用了數(shù)據(jù)庫(kù)的技術(shù)，對(duì)基礎(chǔ)數(shù)據(jù)進(jìn)行統(tǒng)一規(guī)劃、存儲(chǔ)，供各層查詢?nèi)藛T使用，從而實(shí)現(xiàn)了數(shù)據(jù)的一致和共享。 (5)輔助決策功能： 通過(guò)對(duì)數(shù)據(jù)的加工處理，可以快速地獲取對(duì)決策有影響的信息，從而為合理的配置學(xué)校的各項(xiàng)資源，做 出最佳的決策提供科學(xué)的依據(jù)。 ②原型法的開(kāi)發(fā)過(guò)程 采用原型法開(kāi)發(fā)查詢信息系統(tǒng)可以分為如下幾個(gè)階段： A、確定用戶的基本需求。 D、形成最終的查詢信息。面向?qū)ο蠓ㄗ钪饕奶攸c(diǎn)是對(duì)對(duì)象為基礎(chǔ)，對(duì)象是分析問(wèn)題和解決問(wèn)題的核心。 第三章 學(xué)生查詢系統(tǒng)開(kāi)發(fā)工具和環(huán)境 本學(xué)生查詢系統(tǒng)是在 Visual Basic 環(huán)境下開(kāi)發(fā)的。 Visual Basic 編程系統(tǒng)和 VBA 都使用 這一語(yǔ)言。 已完成的應(yīng)用程序是使用 Visual Basic 虛擬機(jī) 真正 .exe 文件，您可以自由發(fā)布。 第五章 總體設(shè)計(jì) 系統(tǒng)層次框圖 工資查詢系統(tǒng)的系統(tǒng)模塊土如圖 31 所示。 （ 2） 學(xué)生工資一覽模塊：可對(duì)學(xué)生的工資進(jìn)行一覽操作。 如圖 61 圖 61 在啟動(dòng)窗體 中添加了如下代碼： Private Sub Form_Load() = 1 39。 amp。 amp。 amp。 處理：①檢查頁(yè)面的個(gè)項(xiàng)信息是否全部輸入，如果沒(méi)有全部輸入，則彈出 messagebox,顯示沒(méi)有輸入的項(xiàng)。 , vbOKOnly Exit Sub End If If = Then MsgBox 請(qǐng)輸入學(xué)生籍貫。 If = False And = False Then MsgBox 請(qǐng)選擇性別。將 的值賦給變量 bumen。,39。,39。,39。,39。,39。 處理： ①把輸入的項(xiàng)目作為 where 條件，沒(méi)有輸入的項(xiàng)目不作為 where 條件。 ５）代碼及實(shí)現(xiàn)方式。 amp。 End If If shengri Then where = where amp。 xueli amp。 AND bumen = 39。 39。 With MSHFlexGrid1 39。 If (0) = 0 Then MsgBox 沒(méi)有滿足條件的記錄。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 500 .ColWidth(2) = 1500