数据库技术实验报告-教学管理系统

数据库技术实验报告——教学管理系统的设计

院系：

专业：

班级：

姓名：

学号：

引言

数据库技术是一个理论和实际紧密联系的技术,在学习过程中，除了解数据模型，数据库系统结构，数据库应用方法等知识外，通过实验对相关技术加深认识，切实加强学生的实践能力，是教学中一个重要且必要的环节。以下就如何选择实验环境，制定实验计划，组织实验教学和检查效果等问题，提出了一套实验方案。

1.实验目标

上机实验的主要目标如下：

（1）通过上机操作，加深对数据库系统理论知识的理解。

（2）通过使用具体DBMS,了解一种实际的数据库管理系统并掌握其操作技术。

（3）通过上机实验，提高动手能力，提高分析和解决问题的能力。

2.实验安排

(1) 前期准备阶段。

数据库课程实验的第一阶段为前期准备阶段，该阶段配合

第一章和第二章的教学内容进行。前期准备阶段的主要任

务是理解数据库，数据模型和数据库系统的基本概念：掌握数据库的概念模型，数据模型及数据库系统的设计方法：根据这些自己设计一个数据库系统的实际应用项目，写出系统分析和系统设计报告，提出在系统中要解决的问题。

前期准备阶段的实验要求学生自选一个应用项目，按照数据库系统设计的要求调研，分析与设计，写出实验报告。

实验１和实验２为前期准备阶段的实验。

（２）基本操作阶段．

数据库课程实验的第二阶段为基本操作阶段，该阶段配合SQL语言部分，SQL Server部分和第数据库管理部分进行。基本操作阶段的主要任务是掌握数据库系统的基本操作，包括SQL语言的应用，利用DBMS的工具进行数据库定义，维护，查询，并能够针对实际问题提出解决方法，得出正确的实验结果．在掌握数据安全性的基本概念，数据备份的一般原则的基础上，会在DBMS中进行安全规划与定义，掌握数据库备份和恢复技术的操作方法。

3. 实验环境

本书选择的实软件环境是Ｍicrosoft SQL Server7.0或

Microsoft SQL Server 2000.设置实验环境时,要根据实验室的计算机硬件和操作系统情况,选择合适的SQL Server版本.具体实验环境方案有如下3种。

*选择SQL Server的个人版

如果操作系统是Windows95/98,计算机内存在案128MB以下,应选择SQL Server2000的个人版或SQL Server7.0桌面版.在这种环境下,数据库系统不存在客户/服务器结构,本机为SQL服务器,数据库的建立和操作均在本机实现。

*选择SQL Server7.0的标准版

如果操作系统是Windows NT或Windows2000标准版,应选择SQL Server2000或SQL Server7.0的标准版.SQL Server标准版的实验环境能够支持客户机/服务器结构,实现SQL服务器管理,实现计算机间的数据通信。

*选择SQL Server7.0的企业版

如果操作系统是Windows NT或Windows2000企业版,应选择SQL Server2000或SQL Server7.0的企业版.SQL Server企业版的实验环境能够支持SQL Server的所有功能,并能够实现和管理大型的数据库系统。

一、系统需求分析

1提出问题

数据库是一门研究数据管理的技术，始于20世纪60年代，经过40多年的发展，现在已经形成了理论体系，成为计算机软件的一个重要分支。数据库技术体现了当代先进的数据管理方法，使计算机的应用真正渗透到国民经济各个部门，在数据处理领域发挥着越来越大的作用。

随着社会的发展和经济时代的到来，管理信息系统在各行各业都占据着越来越重要的地位，特别是教育事业。在经济发达的国家，许多教育机构（如公办、私立、培训机构等），都投入了大量的资金开发MIS系统，以求在将来激烈的竞争中立于不败之地。因此，开发一套能够为此提供规范化的事务管理、充足的信息和快捷的查询手段的学生信息管理系统是非常必要的。

2项目开发目标

学生信息管理系统是面向教育部门的学生管理事务，包括学生基本信息管理，学生成绩管理等工作，是利用计算机进行集中管理而开发的系统。该系统是以SQL 2000为后台数据库进行开发的毕业生就业管理系统，力求与实际相结合具有查询、管理等功能，使教育的管理趋于计算机化，使之更加方便、快捷以提高工作效率。

根据学生信息管理的需求和特点，该系统实施后，应达到以下目标：

(1)灵活地运用表格输入数据，使信息传递更快捷；

(2)系统采用人机对话方式，界面美观友好、数据存储安全可靠；

(3)键盘操作，快速响应；

(4)实现各种信息的添加、删除、修改、查询等；

(5)系统运行稳定、安全可靠。

3系统的运行环境

数据库管理系统采用SQL2000数据库管理系统，实软件环境是Ｍicrosoft SQL Server7.0或Microsoft SQL Server 2000.设置实验环境时,要根据实验室的计算机硬件和操作系统情况,选择合适的SQL Server版本.具体实验环境方案有如下3种。以及Delphi7。

二、系统总体设计

1 系统总体框架图

本教学管理系统包括学生信息管理，学生成绩管理，教师信息管理，课程信息管理。框图如下：

学生信息管理学生信息添加学生信息修改学生信息删除学生信息查询

学生成绩管理学生成绩添加学生成绩修改学生成绩删除学生成绩查询

课程信息管理课程信息添加课程信息修改课程信息删除课程信息查询

教师信息管理

教师信息查询

教师信息删除

教

学

信

息

管

理

系

统

图4.1 系统设计框图

4.2系统功能模块设计

系统功能包括可视化窗口，对各种信息的添加、修改、删除和查询等具体功能如图4.2所示。

教学信息管理系统

学

生

成绩

管理教

师

信

息

管

理

课

程

信

息

管

理

学

生

信

息

管

理

图4.2 系统功能模块

三、 数据库设计

1 ER 模型的设计

毕业生就业管理系统概念结构设计是在系统的需求分析、数据流程图和数据字典基础上的抽象，结合联系ER 模型的设计方法，进行如下概要结构设计。为了使ER 图表示得更加清晰，将E-R 图分成实体属性ER 图及实体联系ER 图。

(1)用实体及其属性的部分ER 图表示数据库系统的概念模型。 ①学生信息实体ER 图，如图5.1所示：

②学生成绩实体ER 图，如图5.2所示：

③课程信息实体ER 图，如图5.3所示：

④教师实体ER 图，如图5.4所示：

学生信息实体

学号

姓名 性别 出生日期

入学成绩

图5.1 学生信息ER 图

学生成绩实体

学号 课程号 成绩

图5.2 学生成绩ER 图

课程信息实体 课程编码 课程名 教师编码

成绩

图5.3 课程信息ER 图

教师姓名图5.4 学生成绩ER 图

教师信息实体

教师编码

2 数据库逻辑结构设计[3]

逻辑设计的目的是把概念数据模型转化为数据库管理系统可以处理的逻辑

模型。也即将由ER图表示的概念模型转换为DBMS通用的逻辑模型，如关系模型，然后对其进行优化。

以关系模型为目标的逻辑结构设计方法是将ER实体图中概念模型映射为关系模型，并且包括一组关系定义，映射的步骤如下：

(1)把ER实体图中的每个实体变换为一个关系模型。

(2)变换每个关系：多对多模型需要加一个单独的关系模型；而一对一的或者一

对多的联系可用在实体中增加属性（此处为外键）来模型化。

(3)ER图中的属性可转换为关系的属性。

3 数据库物理设计

系统中的数据表如下所示：

学生表(student)

字段名代码类型约束

学号s_no char(6) 主键

姓名s_name char(10) 非空

性别s_sex char(2) 只取男、女

出生日期s_birthday date

入学成绩s_score number(5,1)

附加分s_addf number(3,1)

班级编码class_no char(5) 与班级表中class_no外键关联

班级表(class)，采用企业管理控制台向导创建方式。

字段名代码类型约束

班级编码class_no char(5) 主键

班级名class_name char(10) 非空

所属系部dept_no char(2) 与系部表中dept_no外键关联

系部表(department)，采用命令行方式。

字段名代码类型约束

系部编码dept_no char(2) 主键

系部名dept_name char(10) 非空

课程表(course) ，采用命令行方式。

字段名代码类型约束

课程编码course_no char(5) 主键

课程名course_name char(20) 非空

教师表(teacher) ，采用企业管理控制台向导创建方式。

字段名代码类型约束

教师编码t_no char(6) 主键

教师姓名t_name char(8) 非空

性别t_sex char(2) 只取男、女

出生日期t_birthday date

职称tech_title char(10)

选修表(choice) ，采用命令行方式。

字段名代码类型约束

学生编码s_no char(6) 主键, 与学生表中s_no外键关联,级联删除

课程编码course_no char(5) 主键, 与课程表中course_no外键关联

成绩score number(5,1)

授课表(teaching) ，采用企业管理控制台创建方式。

字段名代码类型约束

教师编码t_no char(6) 主键, 与教师表中t_no外键关联,级联删除

课程编码course_no char(5) 主键, 与课程表中course_no外键关联

注：要求用企业管理器建立各表的表级约束，包括:每个表的主键约束，

表间的外键约束，实现学生表的学号和课程表中课号的唯一性约束，

实现学生性别只能是”男”或”女”,年龄不大于35的检查性约束.

四、系统详细设计

1 数据库及表创建

启动SQL2000 Server，右击“数据库”点击“新建数据库”，在弹出的“数据库属性”对话框中可键入数据库名及其它其它信息，如下图所示：

数据库创建完毕后，点击可打开。右击“表”选择“新建表”，可以进行表的创建以及进行相关的表属性设置，如下图所示：

创建完表后右击对应表名——“打开表”——“返回所有行”，可对表进行添加、修改、插入、删除等相应编辑操作，如下图所示：

其他表按照此步骤一一建立。然后在关系图这右击新建关系图，加入所有表格，进行连线。如下图所示：

2 创建工程项目

（1）点击打开Delphi7，出现如下图界面。

（2）在菜单栏中选择相应的功能键添加入Form。

3主窗体的建立

（１）选择ADO中的、和中的。

（２）在窗体上插入表格（使用）。

（３）点击功能键在左下角的属性窗口中选择相应的功能，连接数

据库。如下图所示：

4.主界面模块

主界面模块包括查询、添加、删除、修改、退出等功能选择。界面如下：

各功能键代码：

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); begin

form2.show;

form1.Hide;

end;

procedure TForm1.Button2Click(Sender: TObject); begin

form3.show;

form1.hide;

end;

procedure TForm1.Button3Click(Sender: TObject); begin

form4.show;

form1.hide;

end;

procedure TForm1.Button4Click(Sender: TObject); begin

form5.show;

form1.hide;

end;

procedure TForm1.Button5Click(Sender: TObject); begin

form6.show;

form1.Hide;

end;

end.

2.查询窗口

（1）按照步骤建立窗口2，按照相似步骤连接建立表格。

（2）加入相应功能键和Combobox与edit。

如下图所示：

各功能键与Combobox，edit代码：

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

Button1: TButton;

Button2: TButton;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Edit1: TEdit;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

case combobox2.ItemIndex of

0:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 学生表where 学号='''+edit1.Text+'''');

adoquery1.Open;

end;

1:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 学生表where 姓名='''+edit1.Text+'''');

adoquery1.Open;

end;

2:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 班级表 where 班级编码

='''+edit1.Text+'''');

adoquery1.Open;

end;

3:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 班级表where 班级名='''+edit1.Text+'''');

adoquery1.Open;

end;

4:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 系部表where 系部编码='''+edit1.Text+'''');

adoquery1.Open;

end;

5:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 教师表where 教师编码='''+edit1.Text+'''');

adoquery1.Open;

end;

6:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 教师表where 教师姓名='''+edit1.Text+'''');

adoquery1.Open;

end;

end;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form1.show;

form2.Hide;

end;

procedure https://www.360docs.net/doc/d417165271.html,boBox1Change(Sender: TObject); begin

case combobox1.ItemIndex of

0:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 学生表 ');

adoquery1.Open;

end;

1:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 班级表 ');

adoquery1.Open;

end;

2:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 系部表 ');

adoquery1.Open;

end;

3:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 课程表 ');

adoquery1.Open;

end;

4:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 教师表 ');

adoquery1.Open;

end;

5:begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.Add('select * from 选修表 ');

adoquery1.Open;

end;

6:begin

adoquery1.close;

adoquery1.sql.clear;