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