教務管理系統數據庫

(SQLServer2008+delphi7)

實驗報告

班級：_

姓名：_________

學號：—

指導教師：

完成日期：

目錄

第一章系統概述.................................3

第二章系統分析

第三章系統設計..................................4

第四章系統功能..................................9

第五章系統實現..................................9

第六章源程序附錄................................15

第七章參考文獻..................................73

第一章系統概述

學校學生管理信息系統是針對學校人事處的大量業務處理工作而開發的管理軟件，是典型的管

理信息系統(ManagementInformationSystem)。它是一個教育單位不可缺少的局部，它的內容對于

學校的決策者和管理者來說都至關重要,它能夠為用戶提供充足的信息和快捷的查詢手段。能有效的

幫助學校和老師掌握學生的情況，為學生提供成績跟課程方面的查詢。

本系統是以delphi7編輯用戶界面，以SQLserver2008為數據源后臺而成的學生信息管理系統。

本系統是以計算機為根底，由人和計算機結合的對信息進行收集、存儲、維護、加工、傳遞和使用

的一種管理系統，其目的是使人流、物流、資金流和信息流處于最正確狀態，以最少的資源投入獲

得最正確的綜合效益。本系統主要包括學生信息管理模塊、教師信息管理模塊、課程信息管理模塊、

成績信息管理模塊和系統維護模塊等局部。在校務管理中，為有關部門提供完整、綜合、共享的信

息，對于學校的教育管理、教務和科研等都有很大的實用價值。

第二章系統分析

1、問題定義

隨著科學技術的不斷提高，計算機科學日漸成熟，其強大功能已為人們深刻認識，它已進入

人們生活的各個領域，并發揮了越來越重要的作用，針對人工管理的缺點，最好的解決方法就是借

期計算機技術提供一個電子化的學生信息管理平臺。為了更好地管理學生和教職工的資料文檔，我

開發一個軟件工程學生信息管理系統。教師和學生可以應用該系統實現如下功能：

1、可隨時查詢出不同系及各系教師與各系學生情況，系、教師與學生各反映如下情況：

系：系號、系名、系負責人、專業數等。

教師；工號、姓名、性別、職券、工齡、出生年月、根本工資等。

學生：學號、姓名、性別、年齡等。

2、為簡單起見教師與學生區分系別，而課程不分系，課程需反映如下信息：

課程代號、課程名、課時數、必修課、學分。

3、學生入學時新生需錄入登記，登記后即可選課學習課程（一學期約20學分）。

4、一門只由一位教師上，一位教師可上多門課，滿30人才開課。

5、學生選每門課有個成績，假設成績不及格那么補考后還需記錄補考成績。

1）在某數據庫管理系統中建立各關系模式對應的庫表，并設計所需的視圖、索引等。

2）能對各庫表進行輸入、修改、刪除、添加、查詢、打印等根本操作。

3）新生入校登記后可即時選課，老生每學期開始前可選課或作選課調整，一般要選共約20學分的

假設干門課程。

4）能明細杳詢某學生的選課情況及某課程的選修學生情況。

5）能統計查詢出某學生的成績單（包括總成績、平均成績、不及格門數等）及某門課的選課人數、最

高分、最低分、平均成績等統計信息。

6）能分析出某教師的教學質量情況（可根據該教師所任所有課優良數平均超過一定百分比來粗略評

定）。

其他你認為子系統應有的查詢、統計功能。

8）要求子系統設計得界面友好，功能選擇方便合理，并適當考慮子系統在其平安性、完整性、備份、

恢復等方面的功能要求

2、可行性分析

1.工程目標：學生和老師可以方便的進行各自所需要的信息管理活動，同時可以查詢和修改各自

的信息，以便學校管理。

2.運行環境:

：1）以Windows98以上/ME/2000/XP作為學生選課管理系統的后臺操作系統。

：2）前臺開發程序為DELPHI,SQLServer2008o

：3）后臺數據SQLServer2008。

主要硬件設備：PC機一臺

3.技術可行性:本系統僅僅簡單的實現J'教務管理系統的根本功能和需求，具有一定的實用性。但

真正意義上的大型信息管理存儲還是不太現實。對于大量信息的維護也不具有很強的穩定性。

但是操作簡單，適合小型的學生信息管理，維護也更為方便。技術要求也不是很高，有一點delphi

和SQLServer技術根底就行了,

4.總體分析：本錢低，出錯率低，使學校實現現代化網絡教學管理。

第三章系統設計

根據該系統的需求，數據庫采用MicrosoftSQLServer2008,它完全設和本系統的工作需求,

它所支持的字段數據類型包括數值、字符、日期時間及一進制和圖片等類型，是當前的主流數據庫

產品之一。它還具有性能穩定、便于操作維護和具有較好的平安可靠性等特點，是作為效勞器端數

據庫平臺的理想選擇。根據系統的需求，系統用到的各種數據表如下列圖所示。

學生信息表

列名數據類型允許N3值

口

?學號char(10)

姓名口

char(10)□

性別char(10)0

出生口期char(10)

也

專業char(10)S

電話char(10)S

備注char(10)

學號姓名課程號課程學時課程學分平時成績期末成績綜合成績備注

計F，，，

A23小明[24482E48791

123小明*125482E4r87七7

、24小華

123小明

124小華

教師信息表

列名數據類型

口

教師工號char(10)

團

姓名char(10)

團

性別char(10)

團

身份證char(10)

團

電話char(10)

團

住址char(lO)

團

職稱char(10)

學位回

char(10)/

備注char(20)

鬻

備注

稱

性別

教師工號胞身份證電話住址般

授

男

教

101渚師4304214354434

授

女

教

鞋

102聲師*430422

授

男

教

法師*430423

教

授

103女

源師

教

授

104女430424

105班師430425!?

課程信息表

列名數據類型允訐Null值

學號char(lO)團

課程號char(lO)B

課程名char(lO)H

學時char(lO)n

學分char(lO)回i

開課時間char(lO)聞

教師工號char(lO)B

教師名稱char(lO)團

備注char(20)

、

號

課

名

與

時

學分

果

程

l程^

開諜E寸間教師工號教師名稱備注

，

F數

計

統F

124理48

A22011.10.^02裘老師

F數

F據,F

庫8

12542

1X2011,11.(^.03蔣老師

數

FF據F8F

24125庫

1X422011.11.603蔣老師

概

，

F率8r

12326金42

2011.11.C102裘老師

數

F理

，8

F、計F

124124統42

X2011.10.(102裘老師

管理信息表

列名數據類型允許Null值

用戶名char(lO)n

賬號int切

密碼char(lO)B

備注char(50)切

戶名

用賬號密碼備注

生

學

職123123

教

工

職101lOl

教

工

聯\02

教102

工

統\03

系103

理u

管p

生310

學no

工

職

教124124

工

職

教104104

生

學105105

生

學125125

126126

教師課程表

列名數據類型允許Null值

課程號char(lO)B

課程名char(lO)口

教師工號char(lO)切

教師姓名char(lO)回

學分char(lO)回

學時char(lO)團

開課時間char(lO)團

爸注char(20)面

課程號課程名教師工號教師姓名學分開課時間備注

r，

lo14

123F,482011.10.05

計2

lo2

124F482011.10.04

lO3

\25.482011.11.04

1o2

^26F482011.11.05

lo1

1r27F4482011.10.05

l281O

482011.10.05

德12

129X052011.10.05

成績信息表

列名數據類型允許Null值

學號char(10)B

姓名char(20)切

課程號char(10)團

課程名char(10)團

課程學時char(10)團

課程學分char(10)切

平時成績char(10)團

期末成績char(10)團

綜合成績char(10)

備在char(20)切

號

交

號

姓名

?程

F課程學時課程學分二時成績期末成績綜合成績備注

23小明2

l4鈕

F數理統計4887Q1

123小明25

X數據庫4887r87

F24小華25

l數據庫

F23小明26

l概率論

F24小華24

1數理統計48

表與表之間的關系如下列圖所示:

課程信息表*

?學號

教師信息表*

課程號

0教師工號

課程名

姓名

學時

性別

學分

身份證

開課時間

電話

教師工號

住址

教師名稱

職稱

備注

學位

備注

成績信息表*

字號

姓名

課程號

課程名

課程學時

課程學分

電話平時成績

備注期末成績

綜合成績

備注

E-R關系圖

第四章系統功能

1.學生模塊

此模塊為學生操作模塊。學生可以通過此模塊實現查看個人信息、修改密碼、查看課程信息、

才查看成績信息、網上選課（在管理員開通選課前提下）諸多功能。

2.教職工模塊

此模塊為教職工操作模塊。教職工可以通過此模塊實現杳看個人信息、修改密碼、交看課程信

息、輸入學生平時成績和期末成績諸多功能。

3.系統管理員模塊

此模塊為系統管理員操作模塊。系統管理員可以通過此模塊實現查看管理員信息、修改密碼、

查看、新增、修改、刪除學生信息、查看、新增、刪除、修改教職工信息、查看、新增、刪除、

修改課程信息、開通、關閉選課諸多功能。

第五章系統實現

1.主界面

歡迎進入學籍管理子系統

2.登陸界面

3.學生界面

201UI2/

:1）查看個人信息

：2）修改密碼

：3）成績查詢

（4）課程查詢

：5）網上選課

選課提示

已開通選課

2011/12/2Chl9^|

置詢全部供程

課程號I課程名I教師工號I教師姓名I學分I學a寸I開課時間I備主

□，1

123英語101唐老師4482011.10.05

?□1

124數理統計102登老師2482011.10.04

125救掘庫103蔣老師2______482011.11.04

126鯨軍論102裘老師2482011.11.05

127視聽說101唐老師2______482011.10.05

課程巧成果送送|情詢巨選課程?

學目|課程居|課程名|學時|學分|開課時間|教師工號|教師名稱|備注*

?123124數理統計|482201110.05102裘老師

123125數據庫J48220111104103蔣老師

123126祗親論J48J220111105102裘老師

▼H

4□

已選提示

成功提示

刪除提示

4.教職工界面

（1）個人信息（同學生界面）

（2）修改密碼（同學生界面）

（3）課程查詢（同學生界面）

14）成績評定

5.管理員界面

smr9（Y）學生修理他）”后哲理comg塌力

2011/12/28194944

（1）個人信息（同學生界面J

（2）修改密碼（同學生界面）

（3）學生查詢管理

按學號查詢方按姓名查詢查詢|退出

杳詢全部?

字號I姓名卜性別I出生日期惶北I電話I備注」

?123小明里1990.11計科112

124小華男1991.10自動化110

125小寶里1990.10

126小強里1992.05

（4）學生信息修改

<5）教師信息查詢

■按工號查詢.拔姓名直徹查詢

退出

「[7—J

教師工號姓名1性別1身份證1電話1住址職稱1學位

?101唐老師「里4304214354434教授」博士

102裘老師女430422教授博士j

103落老師里430423教授博士

104彭老師—女430424教授_博士□

105曾老帥女430425教授博士

▼

pa?

（6）教師信息修改

(7)課程信息查詢

詢全能

□按課程號查詢D按教師工號查詢ci退出1

查詢1

一ZZZ2

學號I課程號I課程名I學時I學分I開課時間I教師工號I教師名物1豐

>123124數理統計4822011.10.05102裘老師

123125數據庫4822011.11.04103蔣老師

124125數據庫4822011.11.04103落老師

123126概葡侖4822011.11.05102裘老師

124124數理統U4022011.10.04102裘老師

123123英語4842011.10.05101唐老師

（8）課程信息修改

（9）成績查詢

口按學號查詢口按課程號查詢「查尊至鄙|

退出

查詢

轉課程號課程名課程學時I課程學分I平時成績I期末成線▲

?123小明123英語484

123小明124數理統計4828487

123僅月125數據庫4828487

124小華125數據庫4824550

123代月126概率論4828487

124小華124數理統計4824550

第六章源程序附錄

unitUnitl;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,ExtCtrls,StdCtrls/Unit2,jpeg,DR,ADODB;

type

TForml=class(TForm)

Buttonl:TButton;

Button2:TButton;

Panell:TPanel;

Imagel:Tlmage;

Labell:TLabel;

Label2:TLabel;

ADOConnectionl:TADOCornection;

Timerl:TTimer;

procedureButtonlClick(Sender:TObject);

procedureButton2Click(Sender:TObject);

procedureTimerlTimerfSender:TObject);

private

{Privatedeclarations}

public

{Publicdeclarations)

end;

var

Forml:TForml;

implementation

{$R*.dfm}

procedureTForml.ButtonlClickfSender:TObject);

begin

Form2.ManualDock(Forml.Panell/nil,alNone);

Form2.Show;

Panell.Visible:=True;

end;

procedureTForml.Button2Click(Sender:TObject);

begin

確認退出整個系統嗎?

ifMessageDIgC',mtConfirmation；[mbYeszmbNo]zO)=mrYesthen

begin

Application.Terminate;

end;

end;

procedureTForml.TimerlTimer(Sender:TObject);

begin

Label2.Caption:=DateTimeToS:r(Now);

end;

end.

unitUnit2;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls,DB,ADODBzUnit3;

type

TForm2=class(TForm)

Labell:TLabel;

Label2:TLabel;

Label3:TLabel;

ComboBoxl:TComboBox;

Editl:TEdit;

Edit2:TEdit;

Buttonl:TButton;

Button2:TButton;

ADOConnectionl:TADOCornection;

ADOQueryl:TADOQuery;

Label4:TLabel;

Button3:TButton;

Labels：TLabel;

Edit3:TEdit;

procedureComboBoxlChange(Sender:TObject);

procedureButtonlClick(Sender:TObject);

procedureButton2click(Sender:TObject);

procedureFormCreatefSender:TObject);

procedureButton3Click(Serder:TObject);

procedureFormShow(Sender:TObject);

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form2:TForm2;

implementation

uses

Unitl,Unit8,Unitl2;

{$R

procedureTForm2.ComboBoxlChange(Sender:TObject);

begin

caseComboBoxl.Itemindexof

0:Label2.Caption:="!K號

l:Label2.Caption:='2E號

else

Label2.Caption:='學號

end;

end;

procedureTForm2.ButtonlClick(Sender:TObject);

begin

ifEdit3.Text=Label4.Captionthen

begin

caseComboBoxl.Itemindexof

0:begin

ADOQueryl.Close;

ADOQueryl.SQL.CIear;

ADOQueryl.SQL.Text:='select*from管理信息表where賬號="'+Editl.Text+'”AND密碼

='"+Edit2.Text+,"AND用戶名='”+ComboBoxl.Text+””；

ADOQueryl.Open;

ifADOQueryl.RecordCount=0then

begin

ShowMessage(,用戶名或密碼錯誤，請重新登錄)；

end

else

begin

Forml2.Show;

Form2.Close;

Forml.Panell.Visible:=False;

end;

end;

l:begin

ADOQueryl.Close;

ADOQueryl.SQL.CIear;

ADOQueryl.SQL.Text:="select*from管理信息表where賬號="'+Editl.Text+'"and密碼

=,,,+Edit2.Text+'"and用戶名='”+ComboBoxl.Text+“”；

ADOQueryl.Open;

ifADOQueryl.RecordCount=0then

begin

ShowMessage('用戶名或密碼錯誤，請重新登錄')；

end

else

begin

Form8.Show;

Form2.Close;

Forml.Panell.Visible:=False;

end;

end;

2:begin

ADOQueryl.Close;

ADOQueryl.SQL.CIear;

ADOQueryl.SQL.Text:='select*from管理信息表where賬號=*"+Editl.Text+'"and