1、學生成績管理系統設計報告摘要本數據庫的主要功能如下：學生信息設置，該模塊包括數據的添加、修改、刪除、查詢，數據庫后臺SQL Sever 2000和前臺Delphi都可實現這些功能；院系信息設置，該模塊包括數據的添加、修改、刪除、查詢，數據庫后臺SQL Sever 2000和前臺Delphi都可實現這些功能；課程信息設置，該模塊包括數據的添加、修改、刪除、查詢，數據庫后臺SQL Sever 2000和前臺Delphi都可實現這些功能；學生成績查詢，該模塊包括學生各門課程成績的查詢，因為該模塊是利用數據庫視圖，所以不能對數據進行修改、添加及刪除。關鍵字：教學管理數據庫SQL Sever 2000

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

3、年的歷程中，人們在數據庫技術的理論研究和系統開發上都取得了輝煌的成就，而且已經開始對新一代數據庫系統的深入研究。數據庫系統已經成為現代計算機系統的重要組成部分。1.2、學生成績管理系統開發的目的與意義1.掌握數據庫設計的基本技術，熟悉數據庫設計的每個步驟中的任務和實施方案，并加深對數據庫系統系統概念和特點的理解。2.初步掌握數據庫應用系統分析、設計和實現方法。3.進一步提高學生的知識綜合運用能力。4.為學習更高深的計算機技術打下基礎。提高其綜合素質，便于未來就業以及更深發展。第二章系統需求分析2.1 概述1.信息需求高校學生的成績管理工作量大、繁雜,人工處理非常困難。學生成績管理系統借助于計算

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

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

6、名，性別，年齡，所屬院系），其主關鍵字為學號;（2）課程（課程名，課程號，學時，學分，教學教師），其中主關鍵字為課程號；（3）成績（課程號，學號，學生，課程名，分數）其中主關鍵字為學號和課程號。（4）院系（系號，系名，系主任）其中主鍵為院系名稱。第三章 系統設計3.1 概念設計（E-R圖）3.1.1 設計方法及關鍵技術邏輯設計采用3NF（第三范式）的設計方法。該方法用關系數據理論為指導來設計數據庫的邏輯模型，是設計關系數據庫時在邏輯階段可以采用的一種有效方法。設計邏輯結構時一般要分3步進行：（1）將概念結構轉換為一般的關系、網狀、層次模型；（2）將轉換來的關系、網狀、層次模型向特定的支持下的數

7、據模型轉換；（3）對數據模型進行優化。此教學管理數據庫采用關系模型。院系名3.1.2 系統的E-R圖3.2 邏輯設計3.2.1 設計方法及關鍵技術邏輯設計采用3NF（第三范式）的設計方法。該方法用關系數據理論為指導來設計數據庫的邏輯模型，是設計關系數據庫時在邏輯階段可以采用的一種有效方法。設計邏輯結構時一般要分3步進行：（1）將概念結構轉換為一般的關系、網狀、層次模型；（2）將轉換來的關系、網狀、層次模型向特定的支持下的數據模型轉換；（3）對數據模型進行優化。此教學管理數據庫采用關系模型。3.2.2 系統的邏輯模型關系模式的定義（表、字段、類型、長度及是否為空）數據庫表名關系模式名稱備注學生表

8、學生學生表課程表課程課程表成績表成績成績表院系表院系院系表學生表，結構如下： 課程表，結構如下： 成績表，結構如下：院系表，結構如下：3.3.3系統的完整性與安全性設計包括主外鍵，參照完整性、用戶自定義完整性（約束、默認值與規則） 和觸發器，安全性 3.3 物理設計數據庫物理設計的任務是為上一階段得到的數據庫邏輯模式，即數據庫的邏輯結構選擇合適的應用環境的物理結構，既確定有效地實現邏輯結構模式的數據庫存儲模式，確定在物理設備上所采用的存儲結構和存取方法，然后對該存儲模式進行性能評價、修改設計，經過多次反復，最后得到一個性能較好的存儲模式。數據庫物理設計內容包括記錄存儲結構的設計，存儲路徑的設計

9、。3.4 系統功能設計3.5 系統開發平臺選擇此系統的后臺選擇SQL Server 2000，前臺選擇Delphi 7。SQL Server能夠滿足今天的商業環境要求不同類型的數據庫解決方案。它一種應用廣泛的數據庫管理系統，具有許多顯著的優點：易用性、適合分布式組織的可伸縮性、用于決策支持的數據倉庫功能、與許多其他服務器軟件緊密關聯的集成性、良好的性價比等。性能、可伸縮性及可靠性是基本要求，而進入市場時間也非常關鍵。Delphi提供了多種32位可視組件庫。Delphi是一種面向對象的程序設計語言，因此可做到可視窗體的繼承。Delphi采用3層數據管理模式(數據層、對象層、應用程序層)，把諸如數

10、據模型、業務規則、窗體、對象等集中存儲在對象存儲庫中。應用程序可通過在Delphi中使用Borland公司提供的數據引擎(BDE)功能，可以毫無障礙地使用多種數據庫，不論是大型數據庫還是PC機中的數據庫。Delphi中的數據庫感知功能，可使用戶在開發應用程序時就可看到數據庫的動態變化。使用Delphi提供的數據庫瀏覽器，則可使用用戶在Delphi的集成開發環境中，方便瀏覽、修改、索引數據庫。為了便于維護程序，Delphi將數據訪問與業務規則從程序中分離出來，集中存儲在數據模型對象中，當業務規則需要修改時，只需在數據模型級進行修改。程序運行調用這些數據模型時，修改的結果會自動反映在應用程序中。第

11、四章 數據庫應用系統的實現4.1 數據庫的定義4.1.1 數據庫的定義1.數據庫的創建點擊開始所有程序Microsoft SQL server企業管理器Microsoft SQL serversSQL server組(local) (Windows NT)數據庫新建數據庫（名為：學生成績管理系統）2.數據庫對象的定義將設計的數據庫表用SQL語言（create table *）或企業管理器中對象樹狀結構的展開圖，各對象要與設計時的名稱一致。包括數據庫的定義、表的定義、主鍵外鍵定義（關系圖）、默認值、規則、約束、觸發器、索引、視圖等的定義4.2 應用系統的開發登陸代碼為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+'對不起，你不能使用本系統') ; /顯示錯誤信息 edit2.SetFocus; / 使edit2獲得焦點 edit2.Se

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

14、rm4.show;end;學生成績查詢代碼：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; /初始化枚舉變量為相應的值

15、end;procedure TForm2.FormClick(Sender: TObject);begin if fcolor=black then fcolor:=red else fcolor:=succ(fcolor); / 計算后繼顏色 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 姓名,學號,年齡,性別,院系名 from 學生表 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; /將奇偶行設置不同背景色 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; /定義畫筆顏色(藍色) MoveTo(Rect.Left, Rect.Bottom); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫藍色的橫線 Pen.Color := $0000ff00; /定義畫筆顏色(綠色) MoveTo(Rect.Right, Rect.Top); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫綠色的豎線 end;en

21、d;刪除代碼為：procedure TForm4.Button4Click(Sender: TObject);beginif MessageDlg('你確定要刪除嗎?', 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; /將奇偶行設置不同背景色 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; /定義畫筆顏色(藍色) MoveTo(Rect.Left, Rect.Bottom); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫藍色的橫線 Pen.Color := $0000ff00; /定義畫筆顏色(綠色) MoveTo(Rect.Right, Rect.Top); /畫筆定位 LineTo(Rect.Right, Rect.Bottom); /畫綠色的豎線 end;end;查詢代碼為：ADOQuery1.SQL.clear; ADOQuery1.SQL.Add('select 學生,課程,成績 from 成績表 where 學生='''+Edit1.Text+'