【文章內(nèi)容簡介】 計、系統(tǒng)實施三個小階段，構成系統(tǒng)開發(fā)生命周期的三個主要階段。 系統(tǒng)分析階段的主要活動有：系統(tǒng)初步調查、可行性研究、系統(tǒng)詳細調查、新系統(tǒng)邏輯方案的提出。這是管理信息系統(tǒng)開發(fā)的起始階段，也是非常重要的階段。按照結構化方法嚴格劃分工作階段，?先邏輯、后物理?的原則，系統(tǒng)分析階段的目標，就是按系統(tǒng)規(guī)劃所定的某個開發(fā)項目范圍，明確系統(tǒng)開發(fā)的目標和用戶的信息需求，提出系統(tǒng)的邏輯方案。系統(tǒng)分析在整個系統(tǒng)開發(fā)過程中，是要解決?做什么?的問題，把要解決哪些問題、滿足用戶哪些具體的信息需求，調查、分析清楚，從邏 輯上，或者說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進行物理方案設計、解決?怎么做?提供依據(jù)。本階段主要解決用戶要求做什么，該問題值不值得做，是否有可行的解決辦法，以防止花費了大量人力、物力、財力和時間后，卻發(fā)現(xiàn)問題無解，而造成浪費。若有解，且值得做，就應該推薦一個較好的解決方案，并制定一個初步計劃。由此，可見系統(tǒng)分析的重要。 需求分析 每所高校每年都有大量的學生入學，如何對學生的信息進行有效的管理，這是一件比較復雜的問題。為更好的做好學生信息管理這項工作，提高工作效率，更好的為 學校的發(fā)展和一線教學服務，結合我校實際情況，自行研制一套學生信息管理系統(tǒng)。在我校目前的學生信息管理中，雖然應用了計算機進行管理，擺脫了全手工的管理方式，但由于沒有一套統(tǒng)一的方式、方法和軟件系統(tǒng)支持，仍然存在著諸如數(shù)據(jù)分散、不一致、可利用率低等的問題，以致影響了工作效率的進一步提高。目前我校的校園網(wǎng)絡已經(jīng)基本建設完畢，網(wǎng)絡的應用為我校的發(fā)展提 9 供的良好的基礎支持。本系統(tǒng)以后可以進一步充分利用這一有利條件，不久的將來開發(fā)一套完全網(wǎng)絡化的學生信息管理系統(tǒng)，進一步提高工作效率，使之更加便捷。 學生信息管理系統(tǒng)的實現(xiàn)， 可以使學校更方便的對學生信息進行查詢和錄入，配合學校教學的步伐。 可行性分析 通過調查分析，建立新的學生信息管理信息系統(tǒng)有其充分的必要性和可能性?？梢越⒃撔畔⑾到y(tǒng)的可能性具體包含了它具有經(jīng)濟可行性、技術可行性和社會可行性，新系統(tǒng)能達到以最小的開發(fā)成本取得最佳的經(jīng)濟效益，開發(fā)中所需人員、硬軟件支持以及其它費用進行估算情況均滿意，技術條件也能保證順利完成開發(fā)工作。 最終認為該系統(tǒng)完全可行，并根據(jù)其特點決定采用 作為開發(fā)工具。 10 第 四 章 系統(tǒng)總體 規(guī)劃 系統(tǒng)功能 學生管理系統(tǒng)是一個交互式查詢系統(tǒng)，利用該系統(tǒng)學生作為只讀用戶可以查詢自己的信息，修改自己個人信息如進入系統(tǒng)的口令；學校教師作為普通用戶則可以錄入自己學生的基本信息等，當然條件是在系統(tǒng)允許的情況下；查詢所教科目的學生成績，修改系統(tǒng)口令。系統(tǒng)管理員用戶作為超級用戶可管理所有用戶的權限。 管理 ： 此項功能權限僅限于超級用戶即系統(tǒng)管理員，實現(xiàn)的功能有：用戶注冊，角色定義，權限分配，用戶信息維護等。普通用戶的帳號不擁有這些權限。 ： 此項權限由超級用戶和給予權限的普通用戶享 有。由于歸于系統(tǒng)用戶的范疇，因此，所進行的操作是對原始數(shù)據(jù)庫的編輯，選中數(shù)據(jù)庫中的某一表便可以進行數(shù)據(jù)編輯，當然，修改時一定要慎之又慎，要考慮到數(shù)據(jù)的參照完整性。否則，修改后的數(shù)據(jù)很難得出正確的查詢結果。 如圖 41 為系統(tǒng)功能圖： 圖 41 11 系統(tǒng)流程圖 總結 通過對本章的總體設計部分的分析，我們對程序的總體設計有了充分的認識，對系統(tǒng)的各部分模塊有了總體的認識，我們下一步所做的工作就是應該進行數(shù)據(jù)庫的設計 、界面及 程序代碼的設計。 12 第 五 章 系 統(tǒng) 詳細設計 系統(tǒng)子模塊功能概括 該學生信息管理系統(tǒng)包括系統(tǒng)管理模塊、學生信息管理模塊。其中學生信息管理模塊又包括班級管理模塊、學生檔案管理模塊、學生交費管理模塊、課程管理模塊、成績管理模塊。 本系統(tǒng)具有如下功能： 系統(tǒng)管理：包括添加用戶，修改密碼，重新登陸，退出； 班級管理：包括班級瀏覽，添加班級，班級查詢； 學生信息管理：包括信息添加，信息瀏覽，信息查詢； 學生交費管理：包括基本學費設置，學生交費瀏覽，學生交費添加，學生交費查詢； 課程管理：包括基本課程設置，班級課程設置； 成績管理：包括考試 類型設置，成績添加，成績?yōu)g覽，成績查詢； 打印報表： 包括學生檔案信息報表，學生班級信息報表，學費信息報表； 幫助：包括關于，幫助主題，用戶手冊； 退出：退出整個系統(tǒng)。 用戶界面的實現(xiàn) 登錄界面 首先，系統(tǒng)的界面是至關重要的。它是與用戶溝通的橋梁，用戶工作時要時時面對它，所以界面一定要簡潔、直觀，操作簡單。本系統(tǒng)界面的登錄口令畫面如圖 521 所示，根據(jù)選擇的相應用戶和對應的口令進入系統(tǒng)，進行相應的操作。若密碼錯誤，則彈出?密碼錯誤?對話框。 圖 521 登錄界面 13 登錄流程圖： 主界面 密碼無誤，正確登錄后會看到主界面。如圖 522 圖 522 主界面 14 系統(tǒng)管理界面 點擊系統(tǒng)管理后看到的界面如圖 523(1) 圖 523(1) 若是超級用戶（管理員）則可以使用添加用戶功能，在此可以添 加用戶的同時給用戶賦予權限。超級用戶是權限最高的用戶，他可以享有系統(tǒng)的所有功能。只讀用戶權限最低，只可以瀏覽系統(tǒng)的某些內(nèi)容，而不能參與修改。普通用戶可以根據(jù)超級用戶賦予的權限進行權限欄中的任意一項或多項功能。普通用戶和只讀用戶都沒有添加用戶功能。作為普通用戶在進行未賦予權限的功能和只讀用戶在進行?寫?操作時，會彈出對話框?對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！? 圖 523(2) 15 圖 523(3) 學生信息管理 部分包括 班級 管理、 學生檔案 管理、 學生交費 管理、 課程 管理、成績 管理。而每一 部分都包括對該部分信息的添加、 瀏覽 、 查詢、 修改 、刪除 。其實現(xiàn)過程是相似的。我們以學生 檔案 管理為例，介紹其實現(xiàn)過程。 學生檔案管理界面 點擊后出現(xiàn)如圖 524(1)界面。 圖 524(1) 在學生信息管理的添加界面中，我們先通過變量傳遞得到輸入的學號，然后進行判斷。 首先程序先對輸入的學號進行判斷，若已存在，則給出提示信息，若不存在，則顯示所要添加的內(nèi)容。輸入學生信息后，我們將信息加入到數(shù)據(jù)庫中，如圖524(2)。 而 對于記錄刪除，可以使用 下面程序完成： Dim mrc As txtsql1 = select * from xj where 學號 =39。 amp。 Trim(Text1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql1) If modi = False Then If = False Then sss = MsgBox(已經(jīng)存在該學號的記錄 ,學號不能重復！ , vbExclamation + vbOKOnly, 警告 ) Text1(0).SetFocus Text1(0).SelStart = 0 16 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If 圖 524(2) 另外，對于記錄查找，可以使用下面程序來完成： Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(0).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(0).Text) amp。 39。 End If End If If Trim(Text1(1).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(1).Text) amp。 39。 Else 17 txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(1).Text) amp。 39。 End If End If If Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(2).Text) amp。 39。 Else txtsql = txtsql amp。 and =39。 amp。 Trim(Text1(2).Text) amp。 39。 End If End If If Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = like 39。% amp。 Trim(Text1(3).Text) amp。 %39