学籍管理系统课程设计报告.docx
《学籍管理系统课程设计报告.docx》由会员分享，可在线阅读，更多相关《学籍管理系统课程设计报告.docx（32页珍藏版）》请在冰豆网上搜索。
学籍管理系统课程设计报告
数据库课程设计课程设计报告——
《学生学籍管理系统》
学院：
信息科学与工程学院
班级：
控制0805班
学号：
0909081021
姓名：
伍中意
日期：
2009-12-20
目录
前言……………………………………………………………1
摘要……………………………………………………………1
一、绪论………………………………………………………2
二、系统需求分析……………………………………………2
2．1开发软件…………………………………………………2
2．2设计方法…………………………………………………2
2．3数据字典…………………………………………………2
2．4数据流图…………………………………………………3
三、关系数据模型的设计……………………………………6
3.1系统概念模型………………………………………………7
3.2E-R图………………………………………………………7
3.3SQL表关系图……………………………………………8
3.4数据库物理结构设计………………………………………8
四、系统实现…………………………………………………9
4.1数据库的建立………………………………………………9
4.2Delphi应用程序开发………………………………………10
4.3各功能模块的设计…………………………………………11
4.4窗体设计……………………………………………………14
附录……………………………………………………………17
前言：
目前社会上信息管理系统发展飞快,各个企事业单位都引入了信息管理软件来管理自己日益增长的各种信息,随着学校向全国及至世界范围的持续扩张，学生人数的增加，对于学生的信息管理也越来越复杂，要求也越来越高，因此需要一个全面、详细的信息管理系统，以便完成对学生信息的管理。
学生信息管理系统，可以用集中的数据库将与人力资源管理相关的信息全面、有机地联系起来，有效地减少了信息更新和查找中的重复劳动，保证了信息的相容性，从而大大地提高了工作效率，还能使原来不可能提供的分析报告成了可能。
在采用和实施学生信息管理系统之后，就会将依赖于人的过程改为依赖于计算机系统的过程。
学校管理人员只要获取了相应的权限，就可以随时进入系统，直接查阅相应的信息。
采用和实施学生信息管理系统不仅仅是为了提高工作效率。
应该看到，在实施学生信息管理系统后，经过整合的、较为全面、准确、一致和相容的信息不仅可以让学校领导对本学校学生资源的现状有一个比较全面和准确的认识，同时也可以生成综合的分析报表供学校领导人在决策时参考。
摘要：
本次课程设计采用SQL数据库与Delphi结合的方式，通过用SQL建立起基本表，然后分析各表之间的联系，以及要实现的功能，然后通过Delphi来设计用户操作界面，从而完成学生管理系统的设计。
一、绪论
SQL是一种介于关系代数与关系演算之间的语言，其功能包括数据查询（query）、数据操作（datamanipulation）、数据定义（datadefinition）和数据控制（datacontrol）四个方面，是一个通用的，功能极强的关系数据库语言。
目前SQL语言已经成为关系数据库的标准语言。
SQL具有高度统一、高度非过程化、采用面向集合操作方式、支持三级模式结构、具有一种语法、两种使用方式、结构简洁、易学易用的特点，所以为广大用户和业界所接受，成为国际标准。
做学生管理系统是由于现在学校学生数量很多，而学生信息的管理及其课程管理与选课过程都是一个大量的重复的工作，且信息散乱，本系统的作用就是使这些散乱的信息具体化、直观化。
二、系统需求分析
2、1开发软件
采用Delphi可视化编译环境，开发windows应用程序；采用SQLSever数据库作为支撑，构建一套规范且符合教学管理需求的教学管理系统。
2、2设计方法
采用规范式设计法，分为四个阶段：
需求分析、概念设计、逻辑设计、物理设计。
数据库采用基于E-R模型以及基于3NF的设计方法。
2、4数据字典
●数据项
学生表（XS）
名称
数据类型
大小
约束
Xh（主键）
char
10
notnull
Xm
char
10
notnull
Xb
char
10
null
Cssj
char
10
null
Zy
char
10
null
Zxf
char
10
null
Bz
char
10
null
Kch
char
10
Notnull
课程表（XS_KC）
名称
数据类型
大小
约束
Xh（主键）
char
10
Notnull
Xch
char
100
null
Cj
char
10
null
性别表（XBM）
名称
数据类型
大小
约束
Xb
Char
10
Notnull
Xbm
Char
10
Notnull
●数据约束
（1）实体完整性约束：
基本关系的所有主键的属性都不能取空值且主键作为唯一性标识。
需要满足该约束的主键：
学生表（XS）.学号（xh）、课程表（KCB）.课程编号（kch）.
（2）参照完整性约束：
外键的值只能取空值或等于关联主键的值。
需要满足该约束的外键：
学生表（XS）.学号与课程表（KCB）
课程号外键关联.
（3）用户定义完整性约束：
针对某一具体关系数据库的约束条件，反映某一具体应用所涉及的数据必须满足的语义要求。
需要满足该约束的属性：
学生表（XS）.学号，课程表（KCB）.课程编号，.都不能为空，学生表（XS）.性别只能为男或女。
●数据流图
●数据存储信息
XS表：
Xh（主键）、Xb、Xb、Cssj、Zy、Zxf、Bz、Kch（外键）。
KC表：
Kch（主键）、kCM、Cj。
XBM表：
Xb、Xbm。
三、关系数据库的模型建立
3、1系统概念模型
学生信息管理E-R图
3、2SQL表关系图
3、3数据库的物理结构设计
数据库物理模型可以从概念模型转化形成，物理模型设计产生数据库数据库的物理结构，即将数据库设计映射到一个具体的类型的物理数据库上。
逻辑结构中的实体会形成物理结构中的数据表。
将该数据库设计映射到SQL数据库上，生成学生管理系统的数据库表XS、KCB、XBM，如下为这三个表的结构：
四、系统实现
4、1数据库建立
使用SQL语言在SQLServer2000的查询分析器中建基本表。
具体处理流程如下：
创建XS表：
创建XS_KC表：
创建XBM表：
我们还可以在企业管理器中创建表，操作比较简单，在这里不做过多解释。
4、2Delphi应用程序开发
使用Delphi7作为开发工具，完成与SQLServer数据库的连接，以及用户界面的设计。
4、2、1系统功能模块图
系统各功能模块图
●功能的实现
添加功能：
使用ADOQuery组件的Append方法或SQL语句添加数据。
修改功能：
使用ADOQuery组件的Edit方法或SQL语句修改数据。
删除功能：
使用ADOQuery组件的Delete方法或SQL语句删除数据。
查询功能：
通过编辑ADOQuery组件的SQL语句进行查询。
信息的显示：
对于批量数据使用DBGrid组件显示，对于单个数据使用Edit、DBEdit、Combobox以及DataTimepicker等组件显示。
数据的输入：
使用Edit、DBEdit、Combobox以及DataTimepicker等组件进行数据的输入。
●连接数据库
采用ADO方式连接和访问数据库。
●使用ADOConnection组件连接SQLServer数据库：
连接数据库
属性设计：
4、4窗体设计
●主界面：
查询界面：
修改界面：
插入界面:
删除界面：
附录
Delphi应用程序源代码
一、工程代码
数据库链接：
unitUnit1;
interface
uses
SysUtils,Classes,DB,ADODB;
type
TXSCJDM=class（TDataModule）
XSCJADOConnection:
TADOConnection;
XSCJADOCommand:
TADOCommand;
XSCJADODataSet:
TADODataSet;
ADOStoredProc1:
TADOStoredProc;
XSCJDataSource:
TDataSource;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
XSCJDM:
TXSCJDM;
implementation
{$R*.dfm}
end.
主界面
unitUnit6;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,Menus,ExtCtrls,jpeg;
type
TXSCJGL=class（TForm）
Panel1:
TPanel;
MainMenu1:
TMainMenu;
MainMenu2:
TMainMenu;
N1:
TMenuItem;
N3:
TMenuItem;
Select_Button:
TMenuItem;
Update_Button:
TMenuItem;
Delete_Button:
TMenuItem;
N6:
TMenuItem;
Insert_Button1:
TMenuItem;
Insert_Button2:
TMenuItem;
Image1:
TImage;
Image2:
TImage;
procedureSelect_ButtonClick（Sender:
TObject）;
procedureInsert_Button1Click（Sender:
TObject）;
procedureUpdate_ButtonClick（Sender:
TObject）;
procedureDelete_ButtonClick（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
XSCJGL:
TXSCJGL;
implementation
usesUnit7,Unit8,Unit9,Unit3;
{$R*.dfm}
procedureTXSCJGL.Select_ButtonClick（Sender:
TObject）;
begin
XSCJGL.Visible:
=false;
CX.Show;
end;
procedureTXSCJGL.Insert_Button1Click（Sender:
TObject）;
begin
XSCJGL.Visible:
=false;
CR1.Show;
end;
procedureTXSCJGL.Update_ButtonClick（Sender:
TObject）;
begin
XSCJGL.Visible:
=false;
XG.Show;
end;
procedureTXSCJGL.Delete_ButtonClick（Sender:
TObject）;
begin
XSCJGL.Visible:
=false;
SC.Show;
end;
end.
查询：
unitUnit7;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,Grids,StdCtrls,ExtCtrls,DBGrids,jpeg;
type
TCX=class（TForm）
Panel2:
TPanel;
Label1:
TLabel;
Edit1:
TEdit;
Button1:
TButton;
Button2:
TButton;
Panel3:
TPanel;
DBGrid1:
TDBGrid;
Label2:
TLabel;
Image1:
TImage;
procedureButton1Click（Sender:
TObject）;
procedureButton2Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
CX:
TCX;
implementation
usesUnit6,Unit1;
{$R*.dfm}
procedureTCX.Button1Click（Sender:
TObject）;
Var
Xh,Sql:
String;
begin
Xh:
=Edit1.Text;
Sql:
='selectXH,XM,XBM,CSSJ,ZY,ZXF,BZfromXS,XBMwhereXH='+''''+XH+'''andXBM.XB=XS.XB';
XSCJDM.XSCJADODataSet.Active:
=false;
XSCJDM.XSCJADODataSet.CommandText:
=Sql;
XSCJDM.XSCJADODataSet.Active:
=true;
if（XSCJDM.XSCJADODataSet.FieldValues['XH']=NULL）then
showmessage（'要查询的学生数据不存在!
'）;
end;
procedureTCX.Button2Click（Sender:
TObject）;
begin
XSCJGL.Visible:
=true;
CX.Visible:
=false;
end;
end
插入成绩
unitUnit2;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,jpeg,ExtCtrls;
type
TForm1=class（TForm）
Panel2:
TPanel;
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
Edit1:
TEdit;
Edit2:
TEdit;
Edit3:
TEdit;
Button1:
TButton;
Button2:
TButton;
Label4:
TLabel;
Image1:
TImage;
procedureButton1Click（Sender:
TObject）;
procedureButton2Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
{$R*.dfm}
procedureTForm1.Button1Click（Sender:
TObject）;
Var
Xh,Kch,Cj,Xf,Sql1,Sql2,Sql3,Temp1,Temp2:
string;
begin
Xh:
=Edit1.Text;
Kch:
=Edit2.Text;
Cj:
=Edit3.Text;
Sql1:
='selectXHfromXSwhereXH='+''''+Xh+'''';
XSCJDM.XSCJADODataSet.Active:
=false;
XSCJDM.XSCJADODataSet.CommandText:
=Sql1;
XSCJDM.XSCJADODataSet.Active:
=true;
Temp1:
=XSCJDM.XSCJADODataSet.FieldValues['XH'];
if（Temp1:
<>NULL）then
begin
Sql2:
='selectKCH,XFFromKCwhereKCH='+''''+Kch+'''';
XSCJDM.XSCJADODataSet.Active:
=false;
XSCJDM.XSCJADODataSet.CommandText:
=Sql2;
XSCJDM.XSCJADODataSet.Active:
=true;
Temp2:
=XSCJDM.XSCJADODataSet.FieldValues['KCH'];
Xf:
=XSCJDM.XSCJADODataSet.FieldValues['XF'];
if（Temp2:
<>NULL）then
begin
Sql3:
='InsertXS_KCvalues（'''+Xh+''','''+Kch+''','+Cj+','Xf+'）';
XSCJDM.XSCJADOCommand.CommandText:
=Sql3;
XSCJDM.XSCJADOCommand.Execute;
showmessage（'插入成功!
'）
end;
end;
end;
end;
procedureTForm1.Button2Click（Sender:
TObject）;
begin
XSCJGL.Visible:
=true;
CR2.Visible:
=false;
end;
end.
插入学生信息
unitUnit3;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,Menus,ExtCtrls,StdCtrls,jpeg;
type
TCR1=class（TForm）
Panel2:
TPanel;
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
Label4:
TLabel;
Label5:
TLabel;
Label6:
TLabel;
Edit1:
TEdit;
Edit2:
TEdit;
Edit3:
TEdit;
Edit4:
TEdit;
Edit5:
TEdit;
Label7:
TLabel;
RadioButton1:
TRadioButton;
RadioButton2:
TRadioButton;
Label8:
TLabel;
Label9:
TLabel;
Memo1:
TMemo;
Button1:
TButton;
Button2:
TButton;
Label10:
TLabel;
Image1:
TImage;
procedureButton1Click（Sender:
TObject）;
procedureButton2Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
CR1:
TCR1;
implementation
usesUnit1,Unit6;
{$R*.dfm}
procedureTCR1.Button1Click（Sender:
TObject）;
Var
Xh,Xm,Xb,Cssj,Zy,Zxf,Bz,Sql1,Sql2:
string;
begin
Xh:
=Edit1.Text;
Xm:
=Edit2.Text;
ifRadioButton1.Checked=truethen
Xb:
='1'
else
Xb:
='0';
Zy:
=Edit4.Text;
Cssj:
=Edit3.Text;
Zxf:
=Edit5.Text;
Bz:
=Memo1.Text;
Sql1:
='selectXHfromXSwhereXH='+''''+Xh+'''';
XSCJDM.XSCJADODataSet.Active:
=false;
XSCJDM.XSCJADODataSet.CommandText:
=Sql1;
XSCJDM.XSCJADODataSet.Active:
=true;
if（XSCJDM.XSCJADODataSet.FieldValues['XH']<>NULL）then
showmessage（'该学生数据存在！
'）
else
begin
sql2:
='InsertXSvalues（'''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''','''+Zy+''','+Zxf+','''+Bz+'''）';
XSCJDM.XSCJADOCommand.CommandText:
=Sql2;
XSCJDM.XSCJADOCommand.Execute;
showmessage（'插入数据成功!
'）
end;
end;
procedureTCR1.Button2Click（Sender:
TObject）;
begin
XSCJGL.Visible:
=true;
CR1.Close;
end;
end.
unitUnit8;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ExtCtrls,jpeg;
type
TXG=class（TForm）
Panel2:
TPanel;
Label1:
TLabel;
Edit1:
TEdit;
Label2:
TLabel;
Edit2:
TEdit;
Label3:
TLabel;
Edit3:
TEdit;
Label4:
TLabel;
Edit4:
TEdit;
Label5:
TLabel;
RadioButton1:
TRadioButton;
Label6:
TLabel;
RadioButton2:
TRadioButton;
Label7:
TLabel;
Label8:
TLabel
升级会员 