【文章內(nèi)容簡介】 務(wù)（EC ） 、專家系統(tǒng)（ES） 、計算機集成制造系統(tǒng)（CIMS） 。查詢信息系統(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)模型。再在此基礎(chǔ)上與用戶交流，將模型不斷補充，修改完善，如此反復(fù)，最終直至用戶和開發(fā)者都比較滿意為止，就形成了一個相對穩(wěn)定、較為理想的查詢信息系統(tǒng)。②原型法的開發(fā)過程采用原型法開發(fā)查詢信息系統(tǒng)可以分為如下幾個階段：A、確定用戶的基本需求。由用戶提出對新系統(tǒng)的基本要求，如功能、基本界面形式、所需的數(shù)據(jù)、應(yīng)用范圍、運行環(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ī)模不大、不太復(fù)雜或需求經(jīng)常發(fā)生變化的系統(tǒng)。(2)面向?qū)ο蟮拈_ 發(fā)方法面向?qū)ο螅∣bject Oriented）的技術(shù)于 20 世紀 80 年興起，隨后廣泛地應(yīng)用于計算機技術(shù)的幾乎所有領(lǐng)域。面向?qū)ο蟮募夹g(shù)中最重要的概念是對象。面向?qū)ο笫腔趩栴}對象的自底向上的一種系統(tǒng)開發(fā)方法。在開發(fā)過程中，分析和設(shè)計階段獨立于程序設(shè)計語言，信息系統(tǒng)模型設(shè)計好后，最終用具體的程序設(shè)計語言、數(shù)據(jù)庫或硬件來實現(xiàn)。面向?qū)ο蠓ㄗ钪饕奶攸c是對對象為基礎(chǔ)，對象是分析問題和解決問題的核心。①面對對象法的開發(fā)過程面對對象法的開發(fā)過程一般分為四個階段：A、認識客觀世界（如一個學校）中的對象以及行為，分別獨立設(shè)計各個對象的實體。B、分析對象之間的聯(lián)系和相互之間所傳遞的信息，由此構(gòu)造客觀世界（學校）所對應(yīng)的信息查詢系統(tǒng)的模型。C、由信息系統(tǒng)的模型轉(zhuǎn)換成計算機軟件系統(tǒng)的模型。D、由計算機軟件系統(tǒng)的模型再轉(zhuǎn)化成一個現(xiàn)實系統(tǒng)。②面向?qū)ο蠓ǖ膬?yōu)缺點：面向?qū)ο蠓ǖ膬?yōu)點是便于幫助分析者、設(shè)計者和用戶清楚地表達抽象概念，互相進行交流；交流特定的軟件工具模塊，直接地完成了從對象的描述到軟件體系結(jié)構(gòu)之間的轉(zhuǎn)換，避免了其它的方法在開發(fā)過程的客觀世界描述和軟件結(jié)構(gòu)不一致性和復(fù)雜性問題，便利系統(tǒng)開發(fā)簡單、統(tǒng)一，開發(fā)周期短，費用低。面向?qū)ο蠓ǖ闹饕秉c與原型法一樣，因此這種方法也不適用于開發(fā)大的、復(fù)雜的系統(tǒng)。本系統(tǒng)在開發(fā)過程中具體是采用了原型法和面向?qū)ο髢煞N方法相結(jié)合的開發(fā)思路，力求在開發(fā)過程中盡量吸收這兩種方法的長處，而克服它們的短處。第三章 學生查詢系統(tǒng)開發(fā)工具和環(huán)境本學生查詢系統(tǒng)是在 Visual Basic 環(huán)境下開發(fā)的。何謂 Visual Basic？“Visual”指的是開發(fā)圖形用戶界面 (GUI) 的方法。不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對象 add 到屏幕上的一點即可。如果已使用過諸如 Paint 之類的繪圖程序，則實際上已掌握了創(chuàng)建用戶界面的必要技巧?！癇asic”指的是 BASIC (Beginners AllPurpose Symbolit Instruction Code) 語言，一種在計算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言。Visual Basic 在原有 BASIC 語言的基礎(chǔ)上進一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。專業(yè)人員可以用 Visual Basic 實現(xiàn)其它任何 Windows 編程語言的功能，而初學者只要掌握幾個關(guān)鍵詞就可以建立實用的應(yīng)用程序。Visual Basic 不僅是 Visual Basic 編程語言。Visual Basic 編程系統(tǒng)和 VBA 都使用這一語言。Visual Basic Scripting Edition (VBScript) 是廣泛使用的腳本語言，它是 Visual Basic 語言的子集。這樣，在學習 Visual Basic 中得到的經(jīng)驗可應(yīng)用到所有這些領(lǐng)域中。從開發(fā)個人或小組使用的小工具，到大型學校應(yīng)用系統(tǒng)，甚至通過 Inter 的遍及全球分布式應(yīng)用程序，都可在 Visual Basic 提供的工具中各取所需。 數(shù)據(jù)訪問特性允許對包括 Microsoft SQL Server 和其它學校數(shù)據(jù)庫在內(nèi)的大部分數(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 能力強大，使得您很容易在應(yīng)用程序內(nèi)通過 Inter 或 intra 訪問文檔和應(yīng)用程序，或者創(chuàng)建 Inter 服務(wù)器應(yīng)用程序。已完成的應(yīng)用程序是使用 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。第五章 總體設(shè)計 系 統(tǒng)層 次框圖工資查詢系統(tǒng)的系統(tǒng)模塊土如圖 31 所示。圖 31 系 統(tǒng)模 塊設(shè)計已注冊的用戶進入系統(tǒng)，必須先進行登陸。 以查詢員的身份的登陸的用戶有權(quán)限注冊新用戶。3. 學生信息查詢模塊（1） 學生信息錄入模塊：可將學生信息存入到數(shù)據(jù)庫中。（2） 學生信息查詢模塊：可對學生信息進行查詢操作。（3） 學生信息修改模塊：可對學生信息進行修改操作。（4） 學生信息刪除模塊：可對學生信息進行刪除操作。 學生查詢系統(tǒng)退出系統(tǒng)員工工資查詢（）員工信息查詢（）用戶注冊（）用戶登陸（）4. 學生工資模塊（1） 學生工資錄入模塊：可對學生的工資進行存儲操作。（2） 學生工資一覽模塊：可對學生的工資進行一覽操作。 數(shù)據(jù) 庫設(shè)計根據(jù)系統(tǒng)功能的設(shè)計要求以及功能模塊的劃分，對于系統(tǒng)用戶信息數(shù)據(jù)庫，可以列出以下數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：1． 名稱：工資信息標識：gongzi。如表 51 所示，工資信息數(shù)據(jù)表包括姓名、性別、學歷、工齡、遲到天數(shù)、獎金、當時年和當時月 8 個字段。圖 512． 名稱：用戶標識：user。如表 52 所示，用戶數(shù)據(jù)表包括用戶名和密碼兩個字段。 圖 523． 名稱：學生信息如表 53 所示，學生信息數(shù)據(jù)表包括姓名、性別、籍貫、生日、學歷、專業(yè)、部門、職務(wù)、工齡和備注 10 個字段。名 稱 字 段 名 稱 類 型 主 鍵 忽 略 空 值姓 名 xingming 文 本 否 否性 別 xingbie 文 本 否 否學 歷 xueli 文 本 否 否工 齡 gongling 文 本 否 否遲 到 天 數(shù) chidaotianshu 文 本 否 否獎 金 jiangjin 文 本 否 否當 時 年 date_yy 文 本 否 否當 時 月 date_mm 文 本 否 否名 稱 字 段 名 稱 類 型 主 鍵 忽 略 空 值用 戶 名 yonghuming 文 本 否 否密 碼 mima 文 本 否 否圖 53第六章 詳細設(shè)計詳細設(shè)計主要是由 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）,閃屏是一個簡單的提示信息（如應(yīng)用程序的名稱、版權(quán)信息和簡單位圖）的窗體。使用 sub main 過程以便在啟動時顯示閃屏，在應(yīng)用程序的啟動執(zhí)行時，用戶忙于注視閃屏，這讓用戶感覺好象應(yīng)用程序正在快速加載，在啟動例程完成時，可以加載應(yīng)用程序中的第一個窗體，并卸載閃屏。在標準模塊下編寫如下代碼：Public Sub main() Load Fmain Unload Form1Set Form1 = Nothing End Sub當閃屏消失后，就會出現(xiàn)第一個窗體，如圖所示圖６－３按用戶登陸按鈕遍可進入登陸模塊。 用 戶登 陸模塊的 設(shè)計與實現(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)后，就可以注冊新用戶。在“用戶名” 標簽后的文本框中輸入“admin ”,在“密碼”標簽后的文本框中輸入“admin”，單