【文章內(nèi)容簡介】 詢信息系統(tǒng)可以分為如下幾個(gè)階段： A、確定用戶的基本需求。由用戶提出對新系統(tǒng)的基本要求，如功能、基本界面形式、所需的數(shù)據(jù)、應(yīng)用范圍、運(yùn)行環(huán)境等，開 發(fā)者根據(jù)這些信息估算出開發(fā)該系統(tǒng)所需的費(fèi)用，并建立簡明的系統(tǒng)模型。 B、開發(fā)初步的原型系統(tǒng)。系統(tǒng)開發(fā)人員根據(jù)用戶的要求建立原型系統(tǒng)，但該系統(tǒng)只是一個(gè)初步的、不成熟的系統(tǒng)，從系統(tǒng)的工作效率上看也是不完善的。其主要目的是為了描述開發(fā)者所理解的用戶的基本需求。 C、修改、評價(jià)原型系統(tǒng)。將建造好的原型系統(tǒng)交給用戶，并投入試運(yùn)行，用戶將使用過程中發(fā)現(xiàn)的問題一一記錄下來，并與開發(fā)人員進(jìn)行交流。開發(fā)人員針對這些問題不斷地對系統(tǒng)進(jìn)行修改、擴(kuò)充與完善，直至用戶滿意為止。 D、形成最終的查詢信息。對用戶滿意的原型系統(tǒng)進(jìn)行進(jìn)一步 的開發(fā)，不斷補(bǔ)充、完善，最終形成一個(gè)適用的查詢信息系統(tǒng)。 ③原型法的優(yōu)缺點(diǎn) 原型法的優(yōu)點(diǎn)是開發(fā)周期短，費(fèi)用較少，同時(shí)可以較有效地避免因開發(fā)者和用戶的認(rèn)識隔閡所產(chǎn)生的失敗，其缺點(diǎn)是系統(tǒng)的開發(fā)缺乏統(tǒng)一的規(guī)劃和開發(fā)標(biāo)準(zhǔn)，難以對系統(tǒng)的開發(fā)過程加以控制。 原型法一般適用于開發(fā)規(guī)模不大、不太復(fù)雜或需求經(jīng)常發(fā)生變化的系統(tǒng)。 (2)面向?qū)ο蟮拈_發(fā)方法 面向?qū)ο螅?Object Oriented）的技術(shù)于 20世紀(jì) 80 年興起，隨后廣泛地應(yīng)用于計(jì)算機(jī)技術(shù)的幾乎所有領(lǐng)域。面向?qū)ο蟮募夹g(shù)中最重要的概念是對象。 面向?qū)ο笫腔趩栴}對象的 自底向上的一種系統(tǒng)開發(fā)方法。在開發(fā)過程中，分析和設(shè)計(jì)階段獨(dú)立于程序設(shè)計(jì)語言，信息系統(tǒng)模型設(shè)計(jì)好后，最終用具體的程序設(shè)計(jì)語言、數(shù)據(jù)庫或硬件來實(shí)現(xiàn)。面向?qū)ο蠓ㄗ钪饕奶攸c(diǎn)是對對象為基礎(chǔ)，對象是分析問題和解決問題的核心。 ①面對對象法的開發(fā)過程 面對對象法的開發(fā)過程一般分為四個(gè)階段： A、認(rèn)識客觀世界（如一個(gè)學(xué)校）中的對象以及行為，分別獨(dú)立設(shè)計(jì)各個(gè)對象的實(shí)體。 B、分析對象之間的聯(lián)系和相互之間所傳遞的信息，由此構(gòu)造客觀世界（學(xué)校）所對應(yīng)的信息查詢系統(tǒng)的模型。 C、由信息系統(tǒng)的模型轉(zhuǎn)換成計(jì)算機(jī)軟件系統(tǒng)的模型。 D、 由計(jì)算機(jī)軟件系統(tǒng)的模型再轉(zhuǎn)化成一個(gè)現(xiàn)實(shí)系統(tǒng)。 ②面向?qū)ο蠓ǖ膬?yōu)缺點(diǎn)： 面向?qū)ο蠓ǖ膬?yōu)點(diǎn)是便于幫助分析者、設(shè)計(jì)者和用戶清楚地表達(dá)抽象概念，互相進(jìn)行交流；交流特定的軟件工具模塊，直接地完成了從對象的描述到軟件體系結(jié)構(gòu)之間的轉(zhuǎn)換，避免了其它的方法在開發(fā)過程的客觀世界描述和軟件結(jié)構(gòu)不一致性和復(fù)雜性問題，便利系統(tǒng)開發(fā)簡單、統(tǒng)一，開發(fā)周期短，費(fèi)用低。 面向?qū)ο蠓ǖ闹饕秉c(diǎn)與原型法一樣，因此這種方法也不適用于開發(fā)大的、復(fù)雜的系統(tǒng)。 本系統(tǒng)在開發(fā)過程中具體是采用了原型法和面向?qū)ο髢煞N方法相結(jié)合的開發(fā)思路，力求在開發(fā)過程中盡 量吸收這兩種方法的長處，而克服它們的短處。 第三章 學(xué)生查詢系統(tǒng)開發(fā)工具和環(huán)境 本學(xué)生查詢系統(tǒng)是在 Visual Basic 環(huán)境下開發(fā)的。 何謂 Visual Basic？“ Visual”指的是開發(fā)圖形用戶界面 (GUI) 的方法。不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對象 add到屏幕上的一點(diǎn)即可。如果已使用過諸如 Paint 之類的繪圖程序，則實(shí)際上已掌握了創(chuàng)建用戶界面的必要技巧。 “ Basic”指的是 BASIC (Beginners AllPurpose Symbolit Instruction Code) 語言，一種在計(jì)算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言。 Visual Basic 在原有 BASIC 語言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。專業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其它任何 Windows 編程語言的功能，而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。 Visual Basic 不僅是 Visual Basic 編程語言。 Visual Basic 編程系統(tǒng)和 VBA 都使用 這一語言。 Visual Basic Scripting Edition (VBScript) 是廣泛使用的腳本語言，它是 Visual Basic 語言的子集。這樣，在學(xué)習(xí) Visual Basic 中得到的經(jīng)驗(yàn)可應(yīng)用到所有這些領(lǐng)域中。 從開發(fā)個(gè)人或小組使用的小工具，到大型學(xué)校應(yīng)用系統(tǒng)，甚至通過 Inter 的遍及全球分布式應(yīng)用程序，都可在 Visual Basic 提供的工具中各取所需。 數(shù)據(jù)訪問特性允許對包括 Microsoft SQL Server 和其它學(xué)校數(shù)據(jù)庫在內(nèi)的大部分?jǐn)?shù)據(jù)庫格式建立數(shù) 據(jù)庫和前端應(yīng)用程序，以及可調(diào)整的服務(wù)器端部件。 有了 ActiveX(TM) 技術(shù)就可使用其它應(yīng)用程序提供的功能，例如 Microsoft Word 字處理器， Microsoft Excel 電子數(shù)據(jù)表及其它 Windows 應(yīng)用程序。甚至可直接使用 VBP 或 VBE 創(chuàng)建的應(yīng)用程序和對象。 Inter 能力強(qiáng)大，使得您很容易在應(yīng)用程序內(nèi)通過 Inter 或 intra 訪問文檔和應(yīng)用程序，或者創(chuàng)建 Inter 服務(wù)器應(yīng)用程序。 已完成的應(yīng)用程序是使用 Visual Basic 虛擬機(jī) 真正 .exe 文件，您可以自由發(fā)布。 第四章 需求分析 功能需求 性能需求 ? 處理器： Intel Pentium 166 MX 或更高。 ? 內(nèi)存： 32MB。 ? 硬盤空間： 1GB。 ? 光驅(qū)： CDROM48X。 ? 顯卡： SVGA 顯示適配器。 ? 操作系統(tǒng)： Windows 98/ME/2020/XP。 ? 數(shù)據(jù)庫： Microsoft Access 2020。 第五章 總體設(shè)計(jì) 系統(tǒng)層次框圖 工資查詢系統(tǒng)的系統(tǒng)模塊土如圖 31 所示。 圖 31 系統(tǒng)模塊設(shè)計(jì) 已注冊的用戶進(jìn)入系統(tǒng)，必須先進(jìn)行登陸。 以查詢員的身份的登陸的用戶有權(quán)限注冊新用戶。 3. 學(xué)生信息查詢模塊 （ 1） 學(xué)生信息錄入模塊：可將學(xué)生信息存入到數(shù)據(jù)庫中。 （ 2） 學(xué)生信息查詢模塊：可對學(xué)生信息進(jìn)行查詢操作。 （ 3） 學(xué)生信息修改模塊：可對學(xué)生信息進(jìn)行修改操作。 （ 4） 學(xué)生信息刪除模塊：可對學(xué)生信息進(jìn)行刪除操作。 4. 學(xué)生工資模塊 （ 1） 學(xué)生工資錄入模塊：可對學(xué)生的工資進(jìn)行存儲操作。 （ 2） 學(xué)生工資一覽模塊：可對學(xué)生的工資進(jìn)行一覽操作。 學(xué)生查詢系統(tǒng) 退出系統(tǒng) 員工工資查詢（ ） 員工信息查詢（ ） 用戶注冊（ ） 用戶登陸（ ） 根據(jù)系統(tǒng)功能的設(shè)計(jì)要求以及功能模塊的劃分，對于系統(tǒng)用戶信息數(shù)據(jù)庫，可以列出以下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 1． 名稱：工資信息 標(biāo)識： gongzi。 如表 51 所示，工資信息數(shù)據(jù)表包括姓名、性別、學(xué)歷、工齡、遲到天數(shù)、獎(jiǎng)金、當(dāng)時(shí)年和當(dāng)時(shí)月 8 個(gè)字段。 圖 51 2． 名稱：用戶 標(biāo)識： user。 如表 52 所示，用戶數(shù)據(jù)表包括用戶名和密碼兩個(gè)字段。 圖 52 3． 名稱：學(xué)生信息 如表 53 所示，學(xué)生信息數(shù)據(jù)表包括姓名、性別、籍貫、生日、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注 10 個(gè)字段。 名稱 字段名稱 類型 主鍵 忽略空值姓名 x i n g m i n g 文本 否 否性別 x i n g bi e 文本 否 否學(xué)歷 x u e l i 文本 否 否工齡 g on g l i n g 文本 否 否遲到天數(shù) c h i da ot i a n s h u 文本 否 否獎(jiǎng)金 j i a n g j i n 文本 否 否當(dāng)時(shí)年 da t e _y y 文本 否 否當(dāng)時(shí)月 da t e _m m 文本 否 否名稱 字段名稱 類型 主鍵 忽略空值用戶名 y o n g h u m i n g 文本 否 否密碼 m i m a 文本 否 否 圖 53 第六章 詳細(xì)設(shè)計(jì) 詳細(xì)設(shè)計(jì)主要是由 4 個(gè)部分組成：用戶登陸、用戶注冊、學(xué)生信息查詢、學(xué)生工資查詢。本系統(tǒng)主要把學(xué)生信息查詢方面的信息通過整理形成一個(gè)較完整的體系，以便使其查詢更加系統(tǒng)化、完善化。 如圖 61 圖 61 在啟動窗體 中添加了如下代碼： Private Sub Form_Load() = 1 39。標(biāo)簽閃爍顯示代碼 = 500 End Sub Private Sub Timer1_Timer() Dim ctl As Control For Each ctl In Me If TypeOf ctl Is Label And = 1 Then = Not 名稱 字段名稱 類型 主鍵 忽略空值姓名 x i n g m i n g 文本 否 否性別 x i n g bi e 文本 否 否籍貫 j i g u a n 文本 否 否生日 s h e n g r i 文本 否 否學(xué)歷 x u e l i 文本 否 否專業(yè) z h u a n y e 文本 否 否部門 bu m e n 文本 否 否工齡 g on g l i n g 文本 否 否備注 be i z h u 文本 否 否 End If Next End Sub 在啟動 的第一個(gè)窗體中添加如下代碼（控制滾動條速度）； Private Sub Form_Load() Dim rate As Integer With = 11 .Min = 1 .Max = 30000 For rate = .Min To .Max .Value = rate = CInt(rate / .Max * 100) amp。 % DoEvents Next rate = 0 ‘啟動窗體加載時(shí)鼠標(biāo)形狀 End With End Sub 有時(shí)，在啟動窗體時(shí)可能需要執(zhí)行一些長過程，如數(shù)據(jù)加載大量數(shù)據(jù)或加載幾個(gè)大的位圖，在這種情況下，您可能想在啟動時(shí)顯示閃屏（ Splash Screen） ,閃屏是一個(gè)簡單的提示信息（如應(yīng)用程序的名稱、版權(quán)信息和簡單位圖）的窗體。 使用 sub main 過程以便在啟動時(shí)顯示閃屏，在應(yīng)用程序的啟動執(zhí)行時(shí)，用戶忙于注視閃屏，這讓用戶感覺好象應(yīng)用程序正在快速加載，在啟動例程完成時(shí)，可以加載應(yīng)用程序中的第一個(gè)窗體，并卸載閃屏。 在標(biāo)準(zhǔn)模塊下編寫如下代碼： Public Sub main() Load Fmain Unload Form1 Set Form1 = Nothing End Sub 當(dāng)閃屏消失后，就會出現(xiàn)第一個(gè)窗體，如圖所示 圖６－３ 按 用戶登陸按鈕遍可進(jìn)入登陸模塊。 本模塊界面如圖 62 所示 : 圖 62 ‘在通用中輸入如下代碼，表明連接的數(shù)據(jù)庫是當(dāng)前路徑中 DB 文件夾里的數(shù)據(jù)庫文件 Const Con_DBpath As String = DB\ Public Glb_MyWkSp As Workspace Public Glb_MyDB As Database Dim db_set As Recordset 在確定按鈕中輸入如下代碼，如果輸入的用戶名和密 碼不是查詢員“ admin” ,也不是user 表里的用戶名和密碼，就會提示“輸入錯(cuò)誤 ,請重新輸入”，這里給了 6 次機(jī)會，超過 6次就強(qiáng)行退出。 Private Sub CmdOk_Click() Static i As Integer If 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。 amp。 amp。 39。 AND mima=39。 amp。 amp。 39。 Set db_set = (SQLStr) If (0) 0 Then Else response = MsgBox(輸入錯(cuò)誤 ,請重新輸入 ., vbOKOnly, 錯(cuò)誤 ) End If End If Else MsgBox 六次輸入錯(cuò)誤，拒絕輸入！ Unload Me End If i = i + 1 End Sub 當(dāng)用戶以查詢員身份登陸系統(tǒng)后，就可以注