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

　　

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