【導(dǎo)讀】通過對MIS系統(tǒng)基本理論的闡述并在此理論指導(dǎo)下，詳細給出了從學(xué)生。檔案管理系統(tǒng)分析到總體設(shè)計、詳細設(shè)計與實現(xiàn)及維護的各個環(huán)節(jié)。據(jù)庫進行了架構(gòu)，編制了系統(tǒng)代碼，開發(fā)了友好的系統(tǒng)界面，實現(xiàn)了系統(tǒng)的功能；最后還制定了系統(tǒng)維護和評價策略。準確與及時性，滿足了學(xué)校日益發(fā)展的需要。

　　

【正文】 ddirectoor char 8 NOT NULL 系主任 (5)class 表（班級信息表） 表 35 class表（班級信息表） 字段名稱 類 型 寬 度 允許空值 主 鍵 說 明 dname char 14 NOT NULL 是 系名 class char 20 NOT NULL 班級 系統(tǒng)菜單設(shè)計 系統(tǒng)菜單設(shè)計 如圖所示 表 36 系統(tǒng)菜單表 系統(tǒng)維護 檔案管理 成績管理 查詢系統(tǒng) 成績統(tǒng)計 關(guān)于幫助 系單位管理 系班級管理 課程管理 成績庫管理 退出 檔案瀏覽 檔案修改 檔案錄入 刪除單條 連續(xù)刪除 全部刪除 成績修改 成績錄入 替換 成績刪除 瀏覽成績 按學(xué)號查詢 按姓名查詢 查詢成績 補考名單 查詢課程 自定義查詢 統(tǒng)計總分 排列名次 排序 高級 幫助主題 關(guān)于 系統(tǒng)流程設(shè)計 流程圖： 學(xué)生檔案管理信息系統(tǒng) 第 26 頁 共 47 頁 Y Y ① 查詢流程圖： 圖 516 查詢流程圖 圖 517 統(tǒng)計流程圖 N Y N Y 查詢成績 Y 查詢基本信息 輸入條件 在基本信息中查找 是否找到 提示信息 輸出基本信息 查詢所在的班級 取出成績表 是否有成績表 輸出滿足條件的成績 提示信息 N ② 統(tǒng)計流程圖： 統(tǒng)計總分 選擇可加的成績字段 是否有總分字段 新建總分字段 計算總分 學(xué)生檔案管理信息系統(tǒng) 第 27 頁 共 47 頁 第六章 系統(tǒng)實施 系統(tǒng)實施是管理信息系統(tǒng)（ MIS）在開發(fā)過程中的最后一個階段，所謂系統(tǒng)實施指的是系統(tǒng)工程設(shè)計階段的結(jié)果在計算機上實現(xiàn)。主要活動是編碼，系統(tǒng)測試，系統(tǒng)安裝等。 目前的程序設(shè)計方法主要有結(jié)構(gòu)化方法，原型法， 面向?qū)ο蠓ā１鞠到y(tǒng)編程語言是 需構(gòu)建大量的用戶對象和窗體。所以基本上是采用結(jié)構(gòu)化方法，再加上面向?qū)ο蠓ā? 程序編寫 本系統(tǒng)的實現(xiàn)是在系統(tǒng)設(shè)計的基礎(chǔ)上，用 Visual Foxpro 作為 主語言進行的程序設(shè)計。 應(yīng)用程序的開發(fā)步驟如下： （ 1）了解計算機系統(tǒng)的性能和軟硬件的環(huán)境：包括計算機系統(tǒng)的運算速度與存取速度、內(nèi)存和外存的大小、操作系統(tǒng)、程序設(shè)計語言以及開發(fā)工具、外設(shè)連接及通訊能力等重要性能指標(biāo)。了解這些內(nèi)容以便于明確程序設(shè)計的環(huán)境和條件，使程序能夠正確、有效、高效率地在此環(huán)境下運行； （ 2）充分理解系統(tǒng)概要設(shè)計和詳細設(shè)計的文檔，準確把握系統(tǒng)的軟件功能、模塊間的邏輯關(guān)系、算法的詳細方案以及輸入輸出要求； （ 3）根據(jù)設(shè)計要求和硬軟件環(huán)境條件，選定程序設(shè)計語言； （ 4）編寫程序代碼； （ 5）程序的檢查、編譯與調(diào)試。 系統(tǒng)的開發(fā)環(huán)境 硬件環(huán)境： CUP：奔騰 M 學(xué)生檔案管理信息系統(tǒng) 第 28 頁 共 47 頁 內(nèi)存： 512 M 硬盤： 40G 顯卡： 64M 軟件環(huán)境 操作系統(tǒng)： Windows XP SP2 軟件開發(fā)環(huán)境： Visual FoxPro 軟件開發(fā)語言： FoxPro 數(shù)據(jù)庫開發(fā)環(huán)境： Visual FoxPro 自帶 顯示器分辨率： 1024*768 系統(tǒng)運行環(huán)境 CUP：奔騰Ⅲ 以上 內(nèi)存： 256 M 以上 硬盤： 2G 以上 顯卡： 32M 以上 操作系統(tǒng)： Windows2021 以上 顯示器分辨率： 800*600 以上 系統(tǒng)源代碼 系統(tǒng)功能的實現(xiàn)是通過編寫特定的程序代碼來完成， 完成本系統(tǒng)的功能需要大量的程序代碼，由于論文的篇幅限制，無法一一介紹，現(xiàn)給出部分程序的 源代碼 ： ① 主程序 源程序： set talk off set escape off set clock status =學(xué)生檔案管理系統(tǒng) = 學(xué)生檔案管理信息系統(tǒng) 第 29 頁 共 47 頁 =picture\ amp。amp。指定應(yīng)用程序圖標(biāo) =2 amp。amp。設(shè)置啟動時應(yīng)用程序為全屏顯示 public pot pot=0 mypath=left(sys(16)， rat(\， sys(16))) amp。amp。返回路徑 set defa to amp。mypath do form amp。amp。調(diào)用登錄對話框 read events modi windows screen close amp。amp?；謴?fù)主窗口的關(guān)閉能力 set sysmenu to defa amp。amp。恢復(fù) VFP 的默認菜單 close all release all return ② 查詢源代碼 Form1 對象 Init 事件 功能： 將查詢的字段添加到列表框中 public tiaojian， backtj， ftype tiaojian=select * from student!學(xué)生基本信息 where backtj=tiaojian open database data\student use 學(xué)生基本信息 for i=1 to fcount()1 (fields(i)) endfor =.f. =.t. =.f. 學(xué)生檔案管理信息系統(tǒng) 第 30 頁 共 47 頁 對象 Click 事件 tiaojian=select * from student!學(xué)生基本信息 where backtj=tiaojian = close database open database data\student use 學(xué)生基本信息 for i=1 to fcount()1 (fields(i)) endfor =.t. =.f. =.t. =.f. 對象 Click 事件 功能： 選擇查詢的字段 tiaojian=backtj if len(alltrim())=0 ret=messagebox(字段不能為空 !， 16， 查詢 ) else =.t. tiaojian=backtj+alltrim() =tiaojian 學(xué)生檔案管理信息系統(tǒng) 第 31 頁 共 47 頁 endif 對象 Click 事件 功能 ：選擇查詢條件 =.f. ziduan=alltrim() ftype=type(amp。ziduan) do case case ftype=C tiaojian=tiaojian+39。39。+39。39。 case ftype=N tiaojian=tiaojian case ftype=D tiaojian=tiaojian+ctod() endcase backtj=tiaojian 對象 InteractiveChange 事件 功能 :獲得查詢的值 do case case ftype=C tiaojian=stuff(backtj ， len(backtj) ， 0 ，alltrim()) endcase =tiaojian Command1 查詢按鈕 Click 事件 學(xué)生檔案管理信息系統(tǒng) 第 32 頁 共 47 頁 功能： 查詢滿足條件的記錄，并將結(jié)果賦于表單的表格中 create sql view xsst1 as amp。tiaojian =xsst1 drop view xsst1 =.t. 系統(tǒng)制作 工程的創(chuàng)建，首先打 開 VF，在文件里選擇 New，再里面先擇 Project 來創(chuàng)建一個工程文件。如下圖所示： 圖 61 系統(tǒng)編寫環(huán)境 數(shù)據(jù)庫的創(chuàng)建，當(dāng)完成一個新的工程文件的后，點 Data 下面的 Databases，再先擇右面的 New 按鈕，來創(chuàng)建一個新的數(shù)據(jù)庫，并按以下表的設(shè)計來建立一些表，如下所示： 學(xué)生檔案管理信息系統(tǒng) 第 33 頁 共 47 頁 圖 62 數(shù)據(jù)庫創(chuàng)建環(huán)境 Form 的制做：首先做一個 Main，點擊 Documents 下的 Forms，之后先擇右面New 按鈕，在新表單的上面放上幾個按鈕，分別寫上學(xué)生基本信息、登陸用戶、學(xué)生所學(xué)課程、學(xué)生成績管理，退出。先在退出按鈕 里寫入如下代碼： 之后，再新建一個 denglu 的 form，這個表單相對復(fù)雜一點，首先要在打開它時做一些事，所以在 里面寫代碼： set talk off set safety off close all open database D:\學(xué)生檔案管理系統(tǒng) \ exclusive select a use D:\學(xué)生檔案管理系統(tǒng) \ 再在登陸按鈕里寫入 如下代碼 if len(alltrim())=0 學(xué)生檔案管理信息系統(tǒng) 第 34 頁 共 47 頁 ret=messagebox(請選擇登錄的身份 !,46,登錄 ) else if trim()=管理員 if len(alltrim())=0 ret=messagebox(賬號不能為空 !,16,管理員登錄 ) else use data\ locate for alltrim(adminname)=alltrim() if eof() if alltrim()=admin and alltrim()=admin use set sysmenu to do else ret=messagebox(沒有此管理員 ,請重新輸入 !,46,用戶登錄 ) = = endif else if alltrim(password)==alltrim() use set sysmenu to 學(xué)生檔案管理信息系統(tǒng) 第 35 頁 共 47 頁 do else ret=messagebox(密碼錯誤 ,請重新輸入 !,16,用戶登錄 ) = endif endif endif else if len(alltrim())=0 ret=messagebox(學(xué)號不能為空 !,16,用戶登錄 ) else use data\ locate for alltrim(username)=alltrim() if eof() ret=messagebox(沒有該學(xué)生 ,請重新輸入 !,46,用戶登錄 ) = = else if alltrim(password)==alltrim() use set sysmenu to do else 學(xué)生檔案管理信息系統(tǒng) 第 36 頁 共 47 頁 ret=messagebox(密碼錯誤 ,請重新輸入 !,16,用戶登錄 ) = endif endif endif endif endif 這樣，如果用戶登陸的用戶名和密碼不正確的話，就無法進入 main 窗口， 做完登陸窗口以后分別對其它各表做