學(xué)生成績(jī)管理系統(tǒng)--設(shè)計(jì)報(bào)告

1、學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)報(bào)告摘要本數(shù)據(jù)庫(kù)的主要功能如下：學(xué)生信息設(shè)置，該模塊包括數(shù)據(jù)的添加、修改、刪除、查詢，數(shù)據(jù)庫(kù)后臺(tái)SQL Sever 2000和前臺(tái)Delphi都可實(shí)現(xiàn)這些功能；院系信息設(shè)置，該模塊包括數(shù)據(jù)的添加、修改、刪除、查詢，數(shù)據(jù)庫(kù)后臺(tái)SQL Sever 2000和前臺(tái)Delphi都可實(shí)現(xiàn)這些功能；課程信息設(shè)置，該模塊包括數(shù)據(jù)的添加、修改、刪除、查詢，數(shù)據(jù)庫(kù)后臺(tái)SQL Sever 2000和前臺(tái)Delphi都可實(shí)現(xiàn)這些功能；學(xué)生成績(jī)查詢，該模塊包括學(xué)生各門課程成績(jī)的查詢，因?yàn)樵撃K是利用數(shù)據(jù)庫(kù)視圖，所以不能對(duì)數(shù)據(jù)進(jìn)行修改、添加及刪除。關(guān)鍵字：教學(xué)管理數(shù)據(jù)庫(kù)SQL Sever 2000

2、Delphi 表 查詢 修改 添加 刪除第一章緒論1.1數(shù)據(jù)庫(kù)技術(shù)的現(xiàn)狀數(shù)據(jù)庫(kù)技術(shù)是計(jì)算機(jī)科學(xué)技術(shù)的一個(gè)重要分支。從20世紀(jì)50年代中期開始，計(jì)算機(jī)應(yīng)用從科學(xué)研究部門擴(kuò)展到企業(yè)管理及政府行政部門，人們對(duì)數(shù)據(jù)處理的要求也越來(lái)越高。1968年，世界上誕生了第一個(gè)商品化的信息管理系統(tǒng)IMS(Information Management System)，從此，數(shù)據(jù)庫(kù)技術(shù)得到了迅猛發(fā)展。在互聯(lián)網(wǎng)日益被人們接受的今天，Internet又使數(shù)據(jù)庫(kù)技術(shù)、知識(shí)、技能的重要性得到了充分的放大?，F(xiàn)在數(shù)據(jù)庫(kù)已經(jīng)成為信息管理、辦公自動(dòng)化、計(jì)算機(jī)輔助設(shè)計(jì)等應(yīng)用的主要軟件工具之一，幫助人們處理各種各樣的信息數(shù)據(jù)。在這30多

3、年的歷程中，人們?cè)跀?shù)據(jù)庫(kù)技術(shù)的理論研究和系統(tǒng)開發(fā)上都取得了輝煌的成就，而且已經(jīng)開始對(duì)新一代數(shù)據(jù)庫(kù)系統(tǒng)的深入研究。數(shù)據(jù)庫(kù)系統(tǒng)已經(jīng)成為現(xiàn)代計(jì)算機(jī)系統(tǒng)的重要組成部分。1.2、學(xué)生成績(jī)管理系統(tǒng)開發(fā)的目的與意義1.掌握數(shù)據(jù)庫(kù)設(shè)計(jì)的基本技術(shù)，熟悉數(shù)據(jù)庫(kù)設(shè)計(jì)的每個(gè)步驟中的任務(wù)和實(shí)施方案，并加深對(duì)數(shù)據(jù)庫(kù)系統(tǒng)系統(tǒng)概念和特點(diǎn)的理解。2.初步掌握數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)分析、設(shè)計(jì)和實(shí)現(xiàn)方法。3.進(jìn)一步提高學(xué)生的知識(shí)綜合運(yùn)用能力。4.為學(xué)習(xí)更高深的計(jì)算機(jī)技術(shù)打下基礎(chǔ)。提高其綜合素質(zhì)，便于未來(lái)就業(yè)以及更深發(fā)展。第二章系統(tǒng)需求分析2.1 概述1.信息需求高校學(xué)生的成績(jī)管理工作量大、繁雜,人工處理非常困難。學(xué)生成績(jī)管理系統(tǒng)借助于計(jì)算

4、機(jī)強(qiáng)大的處理能力,大大減輕了管理人員的工作量,并提高了處理的準(zhǔn)確性。學(xué)生成績(jī)管理系統(tǒng)的開發(fā)運(yùn)用,實(shí)現(xiàn)了學(xué)生成績(jī)管理的自動(dòng)化,不僅能使管理者從繁重的成績(jī)管理工作中解脫出來(lái)、把學(xué)校從傳統(tǒng)的成績(jī)管理模式中解放出來(lái),而且對(duì)學(xué)生成績(jī)的判斷和整理更合理、更公正,同時(shí)也給教師提供了一個(gè)準(zhǔn)確、清晰、輕松的成績(jī)管理環(huán)境。2.功能需求能夠進(jìn)行數(shù)據(jù)庫(kù)的數(shù)據(jù)定義、數(shù)據(jù)操縱、數(shù)據(jù)控制等處理功能,進(jìn)行聯(lián)機(jī)處理的相應(yīng)時(shí)間要短。具體功能應(yīng)包括：系統(tǒng)應(yīng)該提供課程安排數(shù)據(jù)的插入、刪除、更新、查詢；課程的添加、刪除、查詢，學(xué)生基本信息查詢的功能。3. 安全性與完整性要求一個(gè)學(xué)生可以選修多門課程，一門課程可供多名學(xué)生選修；一個(gè)學(xué)生選

5、修一門課程會(huì)有一個(gè)成績(jī)。一個(gè)院系有一個(gè)系名，對(duì)應(yīng)有一個(gè)系主任 。2.2 學(xué)生成績(jī)管理系統(tǒng)需求分析1.2.1 數(shù)據(jù)流圖1.2.2 系統(tǒng)功能需求能夠進(jìn)行數(shù)據(jù)庫(kù)的數(shù)據(jù)定義、數(shù)據(jù)操縱、數(shù)據(jù)控制等處理功能,進(jìn)行聯(lián)機(jī)處理的相應(yīng)時(shí)間要短。具體功能應(yīng)包括：系統(tǒng)應(yīng)該提供課程安排數(shù)據(jù)的插入、刪除、更新、查詢；成績(jī)的添加、修改、刪除、查詢，學(xué)生所在院系及其對(duì)應(yīng)系主任的功能。1.2.3 系統(tǒng)數(shù)據(jù)需求（數(shù)據(jù)字典）關(guān)系模式的定義（表、字段、類型、長(zhǎng)度及是否為空），分析各關(guān)系的函數(shù)依賴，并規(guī)范到第三范式。設(shè)計(jì)學(xué)生成績(jī)管理數(shù)據(jù)庫(kù)，包括課程、學(xué)生、院系、成績(jī)四個(gè)關(guān)系, 其關(guān)系模式中對(duì)每個(gè)實(shí)體定義的屬性如下：（1）學(xué)生（學(xué)號(hào)，姓

6、名，性別，年齡，所屬院系），其主關(guān)鍵字為學(xué)號(hào);（2）課程（課程名，課程號(hào)，學(xué)時(shí)，學(xué)分，教學(xué)教師），其中主關(guān)鍵字為課程號(hào)；（3）成績(jī)（課程號(hào)，學(xué)號(hào)，學(xué)生，課程名，分?jǐn)?shù)）其中主關(guān)鍵字為學(xué)號(hào)和課程號(hào)。（4）院系（系號(hào)，系名，系主任）其中主鍵為院系名稱。第三章 系統(tǒng)設(shè)計(jì)3.1 概念設(shè)計(jì)（E-R圖）3.1.1 設(shè)計(jì)方法及關(guān)鍵技術(shù)邏輯設(shè)計(jì)采用3NF（第三范式）的設(shè)計(jì)方法。該方法用關(guān)系數(shù)據(jù)理論為指導(dǎo)來(lái)設(shè)計(jì)數(shù)據(jù)庫(kù)的邏輯模型，是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)時(shí)在邏輯階段可以采用的一種有效方法。設(shè)計(jì)邏輯結(jié)構(gòu)時(shí)一般要分3步進(jìn)行：（1）將概念結(jié)構(gòu)轉(zhuǎn)換為一般的關(guān)系、網(wǎng)狀、層次模型；（2）將轉(zhuǎn)換來(lái)的關(guān)系、網(wǎng)狀、層次模型向特定的支持下的數(shù)

7、據(jù)模型轉(zhuǎn)換；（3）對(duì)數(shù)據(jù)模型進(jìn)行優(yōu)化。此教學(xué)管理數(shù)據(jù)庫(kù)采用關(guān)系模型。院系名3.1.2 系統(tǒng)的E-R圖3.2 邏輯設(shè)計(jì)3.2.1 設(shè)計(jì)方法及關(guān)鍵技術(shù)邏輯設(shè)計(jì)采用3NF（第三范式）的設(shè)計(jì)方法。該方法用關(guān)系數(shù)據(jù)理論為指導(dǎo)來(lái)設(shè)計(jì)數(shù)據(jù)庫(kù)的邏輯模型，是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)時(shí)在邏輯階段可以采用的一種有效方法。設(shè)計(jì)邏輯結(jié)構(gòu)時(shí)一般要分3步進(jìn)行：（1）將概念結(jié)構(gòu)轉(zhuǎn)換為一般的關(guān)系、網(wǎng)狀、層次模型；（2）將轉(zhuǎn)換來(lái)的關(guān)系、網(wǎng)狀、層次模型向特定的支持下的數(shù)據(jù)模型轉(zhuǎn)換；（3）對(duì)數(shù)據(jù)模型進(jìn)行優(yōu)化。此教學(xué)管理數(shù)據(jù)庫(kù)采用關(guān)系模型。3.2.2 系統(tǒng)的邏輯模型關(guān)系模式的定義（表、字段、類型、長(zhǎng)度及是否為空）數(shù)據(jù)庫(kù)表名關(guān)系模式名稱備注學(xué)生表

8、學(xué)生學(xué)生表課程表課程課程表成績(jī)表成績(jī)成績(jī)表院系表院系院系表學(xué)生表，結(jié)構(gòu)如下： 課程表，結(jié)構(gòu)如下： 成績(jī)表，結(jié)構(gòu)如下：院系表，結(jié)構(gòu)如下：3.3.3系統(tǒng)的完整性與安全性設(shè)計(jì)包括主外鍵，參照完整性、用戶自定義完整性（約束、默認(rèn)值與規(guī)則） 和觸發(fā)器，安全性 3.3 物理設(shè)計(jì)數(shù)據(jù)庫(kù)物理設(shè)計(jì)的任務(wù)是為上一階段得到的數(shù)據(jù)庫(kù)邏輯模式，即數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)選擇合適的應(yīng)用環(huán)境的物理結(jié)構(gòu)，既確定有效地實(shí)現(xiàn)邏輯結(jié)構(gòu)模式的數(shù)據(jù)庫(kù)存儲(chǔ)模式，確定在物理設(shè)備上所采用的存儲(chǔ)結(jié)構(gòu)和存取方法，然后對(duì)該存儲(chǔ)模式進(jìn)行性能評(píng)價(jià)、修改設(shè)計(jì)，經(jīng)過(guò)多次反復(fù)，最后得到一個(gè)性能較好的存儲(chǔ)模式。數(shù)據(jù)庫(kù)物理設(shè)計(jì)內(nèi)容包括記錄存儲(chǔ)結(jié)構(gòu)的設(shè)計(jì)，存儲(chǔ)路徑的設(shè)計(jì)

9、。3.4 系統(tǒng)功能設(shè)計(jì)3.5 系統(tǒng)開發(fā)平臺(tái)選擇此系統(tǒng)的后臺(tái)選擇SQL Server 2000，前臺(tái)選擇Delphi 7。SQL Server能夠滿足今天的商業(yè)環(huán)境要求不同類型的數(shù)據(jù)庫(kù)解決方案。它一種應(yīng)用廣泛的數(shù)據(jù)庫(kù)管理系統(tǒng)，具有許多顯著的優(yōu)點(diǎn)：易用性、適合分布式組織的可伸縮性、用于決策支持的數(shù)據(jù)倉(cāng)庫(kù)功能、與許多其他服務(wù)器軟件緊密關(guān)聯(lián)的集成性、良好的性價(jià)比等。性能、可伸縮性及可靠性是基本要求，而進(jìn)入市場(chǎng)時(shí)間也非常關(guān)鍵。Delphi提供了多種32位可視組件庫(kù)。Delphi是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，因此可做到可視窗體的繼承。Delphi采用3層數(shù)據(jù)管理模式(數(shù)據(jù)層、對(duì)象層、應(yīng)用程序?qū)?，把諸如數(shù)

10、據(jù)模型、業(yè)務(wù)規(guī)則、窗體、對(duì)象等集中存儲(chǔ)在對(duì)象存儲(chǔ)庫(kù)中。應(yīng)用程序可通過(guò)在Delphi中使用Borland公司提供的數(shù)據(jù)引擎(BDE)功能，可以毫無(wú)障礙地使用多種數(shù)據(jù)庫(kù)，不論是大型數(shù)據(jù)庫(kù)還是PC機(jī)中的數(shù)據(jù)庫(kù)。Delphi中的數(shù)據(jù)庫(kù)感知功能，可使用戶在開發(fā)應(yīng)用程序時(shí)就可看到數(shù)據(jù)庫(kù)的動(dòng)態(tài)變化。使用Delphi提供的數(shù)據(jù)庫(kù)瀏覽器，則可使用用戶在Delphi的集成開發(fā)環(huán)境中，方便瀏覽、修改、索引數(shù)據(jù)庫(kù)。為了便于維護(hù)程序，Delphi將數(shù)據(jù)訪問(wèn)與業(yè)務(wù)規(guī)則從程序中分離出來(lái)，集中存儲(chǔ)在數(shù)據(jù)模型對(duì)象中，當(dāng)業(yè)務(wù)規(guī)則需要修改時(shí)，只需在數(shù)據(jù)模型級(jí)進(jìn)行修改。程序運(yùn)行調(diào)用這些數(shù)據(jù)模型時(shí)，修改的結(jié)果會(huì)自動(dòng)反映在應(yīng)用程序中。第

11、四章 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的實(shí)現(xiàn)4.1 數(shù)據(jù)庫(kù)的定義4.1.1 數(shù)據(jù)庫(kù)的定義1.數(shù)據(jù)庫(kù)的創(chuàng)建點(diǎn)擊開始所有程序Microsoft SQL server企業(yè)管理器Microsoft SQL serversSQL server組(local) (Windows NT)數(shù)據(jù)庫(kù)新建數(shù)據(jù)庫(kù)（名為：學(xué)生成績(jī)管理系統(tǒng)）2.數(shù)據(jù)庫(kù)對(duì)象的定義將設(shè)計(jì)的數(shù)據(jù)庫(kù)表用SQL語(yǔ)言（create table *）或企業(yè)管理器中對(duì)象樹狀結(jié)構(gòu)的展開圖，各對(duì)象要與設(shè)計(jì)時(shí)的名稱一致。包括數(shù)據(jù)庫(kù)的定義、表的定義、主鍵外鍵定義（關(guān)系圖）、默認(rèn)值、規(guī)則、約束、觸發(fā)器、索引、視圖等的定義4.2 應(yīng)用系統(tǒng)的開發(fā)登陸代碼為procedure TFor

12、m1.Button1Click(Sender: TObject);begin if (edit2.Text = mima) and (edit1.text = yonghu) then begin ShowMessage('Hello! '+edit1.Text) ; / 顯示歡迎信息 edit1.clear; edit2.clear; form2.Show ; end else begin ShowMessage(edit1.Text+'對(duì)不起，你不能使用本系統(tǒng)') ; /顯示錯(cuò)誤信息 edit2.SetFocus; / 使edit2獲得焦點(diǎn) edit2.Se

13、lectAll; / 全選edit2中的文本 edit1.clear; edit2.clear; end;end;退出代碼為：procedure TForm1.Button2Click(Sender: TObject);beginform1.close;end;end.學(xué)生信息查詢代碼為：procedure TForm2.Button1Click(Sender: TObject);beginform2.Close;form3.show;end;課程信息查詢代碼為：procedure TForm2.Button2Click(Sender: TObject);beginform2.Close;fo

14、rm4.show;end;學(xué)生成績(jī)查詢代碼：procedure TForm2.Button3Click(Sender: TObject);beginform2.Close;form5.show;end;退出代碼為：procedure TForm2.Button2Click(Sender: TObject);beginform1.close;end;end.窗體顏色變化代碼為：procedure TForm2.FormActivate(Sender: TObject);begin form2.Color:=clGreen; / 初始化為灰色 fcolor:=gray; /初始化枚舉變量為相應(yīng)的值

15、end;procedure TForm2.FormClick(Sender: TObject);begin if fcolor=black then fcolor:=red else fcolor:=succ(fcolor); / 計(jì)算后繼顏色 case fcolor of red: form2.Color:=clRed; yellow: form2.Color:=clYellow; green: form2.Color:=clGreen; blue: form2.Color:=clBlue; purple: form2.Color:=clPurple; gray: form2.Color:=

16、clGray; black: form2.Color:=clBlack; end;end;查詢代碼為：procedure TForm3.Button3Click(Sender: TObject);beginADOQuery1.Close;ADOQuery1.SQL.clear; ADOQuery1.SQL.Add('select 姓名,學(xué)號(hào),年齡,性別,院系名 from 學(xué)生表 where 姓名='''+Edit1.Text+''''); ADOQuery1.Open; ADOQuery1.Active:= true; edit1

17、.clear;end;返回代碼為：procedure TForm3.Button1Click(Sender: TObject);begin form2.show; form3.Close;end;退出代碼為：procedure TForm3.Button2Click(Sender: TObject);beginform1.close;end;DBtable的顏色變化代碼為：procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; St

18、ate: TGridDrawState);var i :integer;beginif gdSelected in State then Exit; /定義表頭的字體和背景顏色： for i :=0 to (Sender as TDBGrid).Columns.Count-1 do begin DBGrid1.Columnsi.Title.Font.Name :='宋體'/字體 DBGrid1.Columnsi.Title.Font.Size :=9;/字體大小 (Sender as TDBGrid).Columnsi.Title.Font.Color :=$000000ff;

19、 /字體顏色(紅色) (Sender as TDBGrid).Columnsi.Title.Color :=$0000ff00; /背景色(綠色) end; /將奇偶行設(shè)置不同背景色 if ADOTable1.RecNo mod 2 = 0 then (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk else (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); /定義表格線的顏色： DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Co

20、lumn,State); with (Sender as TDBGrid).Canvas do /畫 cell 的邊框 begin Pen.Color := $00ff0000; /定義畫筆顏色(藍(lán)色) MoveTo(Rect.Left, Rect.Bottom); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫藍(lán)色的橫線 Pen.Color := $0000ff00; /定義畫筆顏色(綠色) MoveTo(Rect.Right, Rect.Top); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫綠色的豎線 end;en

21、d;刪除代碼為：procedure TForm4.Button4Click(Sender: TObject);beginif MessageDlg('你確定要?jiǎng)h除嗎?', mtConfirmation, mbYes, mbNo, 0)=mrYes then ADOTable1.Delete; end;添加代碼為：procedure TForm4.Button3Click(Sender: TObject);begin AdoTable1.Append;end;返回代碼為：procedure TForm4.Button1Click(Sender: TObject);begin fo

22、rm2.show; form3.Close;end;退出代碼為：procedure TForm4.Button2Click(Sender: TObject);beginform1.close;end;DBtable的顏色變化代碼為：procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var i :integer;beginif gdSelected in State then Exi

23、t; /定義表頭的字體和背景顏色： for i :=0 to (Sender as TDBGrid).Columns.Count-1 do begin DBGrid1.Columnsi.Title.Font.Name :='宋體'/字體 DBGrid1.Columnsi.Title.Font.Size :=9;/字體大小 (Sender as TDBGrid).Columnsi.Title.Font.Color :=$000000ff; /字體顏色(紅色) (Sender as TDBGrid).Columnsi.Title.Color :=$0000ff00; /背景色(綠色

24、) end; /將奇偶行設(shè)置不同背景色 if ADOTable1.RecNo mod 2 = 0 then (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk else (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); /定義表格線的顏色： DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); with (Sender as TDBGrid).Canvas do /畫 cell 的邊框 begin Pen.Co

25、lor := $00ff0000; /定義畫筆顏色(藍(lán)色) MoveTo(Rect.Left, Rect.Bottom); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫藍(lán)色的橫線 Pen.Color := $0000ff00; /定義畫筆顏色(綠色) MoveTo(Rect.Right, Rect.Top); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫綠色的豎線 end;end;查詢代碼為：ADOQuery1.SQL.clear; ADOQuery1.SQL.Add('select 學(xué)生,課程,成績(jī) from 成績(jī)表 where 學(xué)生='''+Edit1.Text+'