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