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