【正文】 各個(gè)學(xué)校自身情況開(kāi)發(fā)一個(gè)學(xué)生成績(jī)管理系統(tǒng)，其目的是提高學(xué)校對(duì)學(xué)生的成績(jī)科學(xué)化管理。從而可以進(jìn)一步滿足大學(xué)對(duì)管理成績(jī)系統(tǒng)的要求，規(guī)范教學(xué)管理行為，從而提高了管理效率和水平。 為了實(shí)現(xiàn)有效管理必須了解管理模式，使系統(tǒng)分析員進(jìn)一步了解調(diào)查的對(duì)象，在此學(xué)校的組織層次，如下圖所示：圖11 組織機(jī)構(gòu)圖 可行性分析系統(tǒng)可行性分析的任務(wù)是在初步調(diào)查的基礎(chǔ)上確定項(xiàng)目開(kāi)發(fā)是否必要和可 行。可行性研究是針對(duì)系統(tǒng)進(jìn)行全面、概要的分析，主要包括三方面：技術(shù)可行性、經(jīng)濟(jì)可行性和營(yíng)運(yùn)可行性。一經(jīng)討論、審定通過(guò)后，根據(jù)確定的系統(tǒng)方案對(duì)系統(tǒng)開(kāi)發(fā)者下達(dá)系統(tǒng)設(shè)計(jì)任務(wù)書(shū)，對(duì)新系統(tǒng)開(kāi)發(fā)工作的可行性做出結(jié)論或提出建議。 技術(shù)可行性 技術(shù)上的可行性分析主要分析現(xiàn)有技術(shù)條件能否順利完成開(kāi)發(fā)工作，軟、硬 件配置能否滿足開(kāi)發(fā)者需要等。 本系統(tǒng)將采用 Windows 操作系統(tǒng)平臺(tái)，Microsoft Access 數(shù)據(jù)庫(kù)，采用 。學(xué)校領(lǐng)導(dǎo)非常重視信息系統(tǒng)的建設(shè)， 對(duì)于系統(tǒng)的開(kāi)發(fā)給予了大量的支持，教職工人員對(duì)此也有共識(shí)，最終操作人員 對(duì)新系統(tǒng)也表示歡迎。 綜上所述，該學(xué)校學(xué)生成績(jī)管理系統(tǒng)可以而且有必要開(kāi)發(fā)。掌握本系統(tǒng)內(nèi)學(xué)生成績(jī)情況，以便最大限度的分析學(xué)生課程學(xué)習(xí)和成績(jī)的情況。 Delphi Delphi是著名的Borland（現(xiàn)在已和Inprise合并）公司開(kāi)發(fā)的可視化軟件開(kāi)發(fā)工具。Delphi被稱為第四代編程語(yǔ)言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)?？梢哉f(shuō)Delphi同時(shí)兼?zhèn)淞薞C功能強(qiáng)大和VB簡(jiǎn)單易學(xué)的特點(diǎn)。　　Delphi具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強(qiáng)大的數(shù)據(jù)庫(kù)支持，與Windows編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。 Object Pascal語(yǔ)言是在Pascal語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，簡(jiǎn)單易學(xué)。除此之外，還允許用戶掛接其它的應(yīng)用程序開(kāi)發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）?！　elphi發(fā)展至今，從DelphiDelphi2到現(xiàn)在的Delphi5，不斷添加和改進(jìn)各種特性，功能越來(lái)越強(qiáng)大。 Microsoft Access與 ADO作為應(yīng)用程序與OLE DB連接的橋梁，ActiveX Data Objects (ADO)為Visual Basic 下開(kāi)發(fā)的應(yīng)用程序訪問(wèn)本地或遠(yuǎn)程數(shù)據(jù)庫(kù)提供了有效的手段。ADO 支持用于建立基于客戶端/服務(wù)器和 Web 的應(yīng)用程序的主要功能。Access2007 是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息一共查詢、存儲(chǔ)和檢索。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。如上所述，Access作為關(guān)系數(shù)據(jù)庫(kù)來(lái)發(fā)工具具備了許多優(yōu)點(diǎn)，可以再一個(gè)數(shù)據(jù)包中用時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。學(xué)生主要功能：實(shí)現(xiàn)學(xué)生自己的成績(jī)查詢，自己登錄密碼的修改，個(gè)人信息的查詢的基本功能。退出系統(tǒng)模塊：實(shí)現(xiàn)系統(tǒng)的正常退出。其中必填信息包括用戶名、密碼、核對(duì)密碼、性別、出生年月、聯(lián)系地址、聯(lián)系電話、郵政編碼、電子郵箱、所在系別和所在班級(jí)；選填信息包括個(gè)人愛(ài)好和用戶備注。超級(jí)管理員登陸模塊：輸入管理員身份驗(yàn)證和通行密碼，實(shí)現(xiàn)驗(yàn)證和放棄。為了提交學(xué)生的基本信息，就需要要有提交信息的功能的按鍵，在這個(gè)模塊中也有錄入、重置和取消的功能按鍵。功能鍵包括錄入、重置、取消。其中查詢可以選擇條件查詢，里面可以選擇的條件有所在系別、所在專業(yè)、所在班級(jí)、課程名稱、課程代號(hào)，只要選擇了其中的查詢條件查詢就可以在顯示框里面顯示出來(lái)；修改部分和查詢部分的查詢條件一樣，這樣就可以方便修改課程信息了，而且還可以進(jìn)行上一條和下一條課程信息的修改，操作過(guò)的信息都可以在顯示框里面顯示出來(lái)。學(xué)生成績(jī)管理系統(tǒng)模塊：該模塊的功能包括有系部錄入、專業(yè)錄入、班級(jí)錄入、課程資源數(shù)據(jù)錄入、學(xué)生基本信息錄入、成績(jī)錄入等功能。第3章 程序流程圖層分析 數(shù)據(jù)流程圖根據(jù)以上的需求分析，并略掉一些細(xì)節(jié)（如不考慮用戶的登錄；對(duì)記錄的維護(hù)），得出整個(gè)系統(tǒng)的基本數(shù)據(jù)流程圖。E——R圖由實(shí)體、屬性、聯(lián)系三部分組成。在本系統(tǒng)中課程是核心，也是基本，沒(méi)有了課程其它的也就沒(méi)有什么意義了。學(xué)生信息添加主要是向數(shù)據(jù)庫(kù)中添加新進(jìn)的學(xué)生及對(duì)已有學(xué)生信息的修改。在這里，我選用的是關(guān)系數(shù)據(jù)庫(kù)。如下圖所示：圖34 學(xué)生基本信息表數(shù)據(jù)類型圖35 管理員表數(shù)據(jù)類型圖36 課程資源表數(shù)據(jù)類型圖37 成員信息表數(shù)據(jù)類型圖38 數(shù)據(jù)處理錄入表數(shù)據(jù)類型 數(shù)據(jù)業(yè)務(wù) 系統(tǒng)數(shù)據(jù)業(yè)務(wù)圖310 成績(jī)管理系統(tǒng)圖圖311 用戶注冊(cè)圖超級(jí)用戶管理操作查詢用戶名模糊查詢選/必填信息圖312 用戶管理圖第4章 系統(tǒng)實(shí)現(xiàn) 首先運(yùn)行程序出現(xiàn)下面的登陸界面圖41 登陸 登錄界面像一般的程序登錄界面一樣，可以實(shí)現(xiàn)輸入用戶登錄、退出系統(tǒng)，在沒(méi)有用戶賬號(hào)的前提下，可以在登錄界面的新用戶注冊(cè)實(shí)現(xiàn)注冊(cè)新賬號(hào)。 日常操作模塊 新用戶注冊(cè)模塊圖42 新用戶注冊(cè)這個(gè)模塊設(shè)計(jì)得簡(jiǎn)要明了，是為了新用戶注冊(cè)提供方便快捷的服務(wù)；這個(gè)模塊分為了兩部分，一部分是新用戶注冊(cè)所必要填寫的信息和選填信息。具體實(shí)現(xiàn)這些功能的代碼見(jiàn)附錄。 由于篇幅因篇幅有限，在這就不一一把所有的功能模塊圖都截出來(lái)，更多請(qǐng)參見(jiàn)源程序。在系統(tǒng)的開(kāi)發(fā)過(guò)程中，以前學(xué)習(xí)感到很抽象的課程，如軟件工程、數(shù)據(jù)庫(kù)原理、面向?qū)ο蟪绦蛟O(shè)等變得清晰起來(lái)。以前做一些應(yīng)用的系統(tǒng)開(kāi)發(fā)，隨意性大，想到那里做到那里，沒(méi)有統(tǒng)一的規(guī)劃，一旦系統(tǒng)成型，出現(xiàn)錯(cuò)誤返工修改工作量大，最終的系統(tǒng)可靠性不高。這次的畢業(yè)設(shè)計(jì)開(kāi)發(fā)，主要有以下幾點(diǎn)收獲：1．對(duì)原型化的系統(tǒng)開(kāi)發(fā)方法有了一定的了解。對(duì)于后期的系統(tǒng)維護(hù)也提供了很大的幫助。為以后的工作、學(xué)習(xí)的進(jìn)一步提高打下了堅(jiān)實(shí)的基礎(chǔ)。她認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。參考文獻(xiàn)[1]刑增平，Delphi 最佳專輯，人民郵電出版社 2002[2]伍俊良，清華大學(xué)出版社 2003[3]張瀚文，Delphi數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例與解析，高等教育出版社 2003[4]陳瑞，Delphi程序設(shè)計(jì)實(shí)用教程，電子工業(yè)出版社 2003[5]肖慶航，Delphi 7數(shù)據(jù)庫(kù)開(kāi)發(fā)教程，清華大學(xué)出版社 2003[6]陳明，軟件工程學(xué)教程，科學(xué)出版社 2001[7]鄭人杰，殷人昆，軟件工程概論，清華大學(xué)出版社 2001[8]陳世鴻，彭蓉，面向?qū)ο筌浖こ?，電子工業(yè)出版社 2002[9]丁寶康，數(shù)據(jù)庫(kù)原理，經(jīng)濟(jì)科學(xué)出版社 2000附錄主要程序代碼學(xué)生成績(jī)管理系統(tǒng)模塊代碼procedure (AId: integer。var QryTmp:TADOQuery。 myLabel:TLabel。 :=39。Data Source=39。Persist Security Info=False39。select * from 數(shù)據(jù)處理錄入表39。 (39。+inttostr(AId))。 while not do begin myNode:=(FatherNode,(39。).AsString)。 :=false。AutoId39。 :=myLabel。AutoId39。 //遞歸調(diào)用過(guò)程 。 。procedure (Sender: TObject)。 myNode:TTreeNode。新增系部39。請(qǐng)輸入系部名稱： 39。39。 strName:=trim(strName)。39。 myNode:=(,strName)。 :=true。procedure (CurrNode,FatherNode: TTreeNode)。 QryTmp:TADOQuery。 //為節(jié)點(diǎn)標(biāo)位begin if not assigned(FatherNode) then AId:=0 else if not assigned() then AId:=0 else AId:=strtoint(TLabel().caption)。 :=39。Data Source=39。Persist Security Info=False39。select * from 數(shù)據(jù)處理錄入表39。 (39。+inttostr(AId))。 。FatherId39。 QryTmp[39。]:=。 //創(chuàng)建記錄currNode的AutoId表識(shí)標(biāo) myLabel:=(self)。 :=(39。).AsString。 。 procedure (Sender: TObject)。[0].Width:=178。[2].Text:=39。+datetostr(date)+39。+timetostr(time)。歡迎您回來(lái)！39。procedure (Sender: TObject)。 myNode:TTreeNode。新增系部39。請(qǐng)輸入系部名稱： 39。39。 strName:=trim(strName)。39。 myNode:=(,strName)。 :=true。procedure (Sender: TObject)。 myNode:TTreeNode。新增專業(yè)39。請(qǐng)輸入專業(yè)名稱： 39。39。 strName:=trim(strName)。39。 myNode:=(,strName)。 :=true。procedure (Sender: TObject)。 myNode:TTreeNode。新增班級(jí)39。請(qǐng)輸入班級(jí)名稱： 39。39。 strName:=trim(strName)。39。 myNode:=(,strName)。 :=true。procedure (Sender: TObject)。 myNode:TTreeNode。新增系部39。請(qǐng)輸入系部名稱： 39。39。 strName:=trim(strName)。39。 myNode:=(,strName)。 :=true。procedure (Sender: TObject)。 myNode:TTreeNode。新增專業(yè)39。請(qǐng)輸入專業(yè)名稱： 39。39。 strName:=trim(strName)。39。 myNode:=(,strName)。 :=true。procedure (Sender