软件工程大作业.docx

软件工程大作业.docx

《软件工程大作业.docx》由会员分享，可在线阅读，更多相关《软件工程大作业.docx（27页珍藏版）》请在冰点文库上搜索。

软件工程大作业

软件工程大作业

题目:

学生档案管理系统

小组成员:

戚盈洁（

王大伟（

王磊（

霍成海（

第一章.系统调查（3

1.1系统调查内容（3

1.2系统调查方法（3

第二章.系统分析（3

2.1系统分析（3

2.2系统调结构图（4

2.3子系统功能描述（4

第三章.系统设计（6

3.1界面设计原则（6

3.2数据库设计（6

3.3代码设计（10

第四章.学生照片管理模块设计（14

4.1ImageFunc模块（14

4.2设计照片管理窗体（16

4.3在学生信息管理窗体中添加照片管理代码（17

第五章.系统测试（18

5.1系统测试项目（18

5.2系统评估（20

第一章.系统调查

1.1系统调查内容

学校各院系基本概况:

院系名称,专业设置,课程设置,课时安排,学生人数,学生班级数等。

学校资源条件调查,包括计算机配备,网络支持条件等。

各院系专业设置概况:

现有开设专业及规划中开设专业设置,专业开设课程,各课程授课教师与成绩处理。

学校各部门（学生处、教务处、档案管理室、各院系对学生基本情况的需求与掌握,对学生基本信息的处理方式与业务流程。

学校各部门、单位、教师、学生对系统的其他要求和希望。

1.2系统调查方法

通过对部分高校学生档案管理人员的访问,了解到目前大部分高校的档案管理工作存在工作效率低,成本高,保密性差,查询困难等问题。

大部分工作人员都提出需要一个具有检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等优点的现代化信息管理系统。

为解决此问题我们决定开发一个既方便又操作简单,功能较为齐全的学生档案管理系统。

第二章.系统分析

2.1系统分析

1系统开发的总体任务是学生档案管理的系统化和规范化。

2系统开发的目标是使档案管理工作科学化和规范化,提高安全系数。

3系统功能树本系统主要功能是实现学生基本情况的管理。

图3.1学生档案管理系统功能模块

2.2系统调结构图

图3.2学生档案管理系统结构图

2.3子系统功能描述

院系管理

由创建院系及班级信息,修改院系班级记录,删除院系班级记录,查看院系班级数据四部分组成。

创建院系与班级信息。

主要是院系名称,班级专业名称,院系具体描述,班级介绍,院系编号由数据库系统自动编号,不显示在前台程序。

修改院系与班级记录。

可对院系或班级名称,描述,介绍等记录进行修改。

删除院系与班级记录。

可选择删除院系或班级,如果所选院系或班级已含有数据记录,如含有专业班级资料,或学生资料,则必须先将其所含有的记录资料删除,才能成功完成操作。

查询院系与班级资料。

在院系管理的主界面查看已有院系及班级记录。

2学生信息管理

由创建、修改、删除学生信息资料,添加、修改、删除学生教育经历,添加与删除学生照片组成。

学生信息资料创建,将刚入学的学生资料添加到数据库中加以保存。

信息资料由学生编号、姓名、照片、性别、民族、生日、政治面貌、籍贯、身份证号、学生证号、家庭电话、居住住址、邮政编码、入校日期、职务、所在院系编号、备注和填表时间组成。

基于保护数据记录安全性考虑学生编号由数据库系统自动生成,不显示在前台程序。

院系编号亦不在学生信息管理界面显示,只在后台数据库显示。

添加、修改、删除学生教育经历,创建并管理所选择学生过去的教育经历,曾就读与某校,任何职务。

添加、删除学生照片。

为所选择学生添加个人照片,如需更新照片,只需再次添加,既可覆盖原有照片数据记录。

3奖惩信息管理

由添加学生奖惩信息,修改奖惩信息,删除奖惩信息,浏览学生奖惩信息组成。

添加、修改学生奖惩信息,设置学生奖励或处罚资料,奖励与处罚项目使用备选项,亦可再加以具体说明。

删除奖惩信息。

奖励与惩罚记录分开显示,选择某条奖惩记录,将其删除。

4学生学籍信息管理

由添加、修改、删除学生退学、转学、休学、调班等学籍信息组成。

添加、修改学生学籍信息资料。

通过在院系表中选择目标班级,可选择学生姓名,

删除学生学籍变更数据记录。

学生调班成功后,系统敬爱能够自动更新该学生在院系班级表,学生基本信息表中的相关数据记录。

5课程管理

由创建、修改、删除课程信息,学生课程成绩信息组成。

创建、修改课程信息,可创建或修改新课程名称,授课教师,课时设置,课程类型。

删除课程信息。

选择某个课程记录,可将其所包含的所有信息删除。

学生课程成绩信息,由添加、修改、删除课程成绩信息组成。

设置院系学生中学生课程成绩信息。

6系统管理

由创建用户,修改用户,删除用户,浏览用户信息组成。

创建用户。

该功能只对系统管理员开放,使用系统管理员身份登陆后可创建起他用户。

修改、删除用户。

该权限只对系统管理员开放。

非系统管理员只能对自己的用户名和密码进行修改。

第三章.系统设计

3.1界面设计原则

一个好的应用程序不仅要有强大的功能,还要有美观实用的用户界面。

用户界面是应用程序的一个重要组成部分,一个应用程序的界面往往决定了该程序的易用性与可操作性,一个美观的界面的美观和用户亲和性是应用软件成功的首要条件。

界面设计具有一般性的原则,最为重要的有:

界面要具有一致性;常用操作要有捷径;提供简单的错误处理;提供信息反馈;操作可逆。

我们在设计界面时充分从一致性、友好性、交互性、信息子最小量原则、易用性、数据输入等方考虑,遵循以下原则

操作简单,易学,易掌握;界面美观,操作舒适;快速反应,响应合理;语言规范,语义一致。

一致性,在同一界面中,所有的菜单选择、命令输入、数据显示和其他功能应保持风格的一致性。

信息最小量原则。

人机界面设计要尽量减少用户记忆负担,采用有助于记忆的设计方案。

用户界面应能对用户的决定做出及时的响应,提高对话、移动的思考的效率,最大可能的减少击键次数,缩短鼠标移动距离,避免使用户产生无所适从的感觉。

人机界面应该提供上下文敏感的求助系统,让用户及时获得帮助,尽量用简短的动词和动词短语提示命令。

操作可逆。

操作应该可逆,对于不具备专业知识的操作人员非常有用,可逆的动作可以是单个的操作,也可以是一个相对独立的操作序。

界面设计过程（略

3.2数据库设计

数据流程图DFD（DataFlowDiagram是描述系统数据流程的工具,它将数据独立抽象出来,通用图形方式描述信息的来龙去脉和实际流程。

图4.1数据流程分析图

数据字典（DataDictionary,DD是DBMS中的一个特殊文件,用于存储数据库的一些说明信息,这些说明信息称为元数据（MetaData。

DD是在新的信息系统数据流程图的基础上,进一步定义和描述数据处理过程、外交实体及数据存储（数据库的详细逻辑内容工具。

本系统后台数据库采用MicrosoftSQLServer2000数据库。

建立了一个数据库StudentSys,包括了九个表:

院系班级表Classes、学生基本信息表Students、学生教育经历记录表Experience、学生奖惩表Evaluation、学生学籍变动表Change、课程设置表Lessons、考试成绩表Scores、用户信息表Users。

表1Classes结构

表5Change结构

表6Lessons结构

3.3代码设计

一个高效的软件不仅应该比实现同样功能的软件运行得更快,还应该消耗更少的系统资源。

所以代码的设计就显得非常重要。

考虑到以后对系统更新与维护的可行性与方便性,减少程序员工作量,等各方面的考虑,我们在代码设计过程中遵循科学性,系统性,可扩展性,规范化,人性化,通用性,含义单纯性,容易理解等原则考虑。

以下只列举部分关键代码院系管理

添加院系信息

IfTrim（txtClass=""Then

MsgBox"请输入院系班级名称"

ExitSub

EndIf

WithMyClass

.Class_Name=MakeStr（txtClass

.Describe=MakeStr（txtDescribe

IfModify=FalseThen'插入

If.In_DB（.Class_Name=TrueThen

MsgBoxTrim（txtClass+"已经存在"

ExitSub

EndIf

.UpperId=CurClass.Class_Id

Bh=.Insert

Tmp_Key="a"+Trim（Str（Bh

FrmClassMan.TreeView1.SelectedItem.Image=1

FrmClassMan.TreeView1.SelectedItem.ExpandedImage=2

FrmClassMan.TreeView1.SelectedItem.SelectedImage=3

SetTmpNode=FrmClassMan.TreeView1.Nodes.Add（FrmClassMan.TreeView1.SelectedItem.Key,_tvwChild,Tmp_Key,.Class_Name,4,5

TmpNode.Selected=True

Else'修改

IfCurClass.Class_Name<>Trim（txtClassThen

If.In_DB（Trim（txtClass=TrueThen

MsgBoxTrim（txtClass+"已经存在"

ExitSub

EndIf

EndIf

.UpperId=CurClass.UpperId

.Update（CurClass.Class_Id

IfCurClass.Class_Name<>Trim（txtClassThen

FrmClassMan.TreeView1.SelectedItem.Text=Trim（txtClass

EndIf

CurClass.Class_Name=Trim（txtClass

EndIf

EndWith

UnloadMe

删除院系资料IfTreeView1.SelectedItem.Key="a0"Then

MsgBox"此项不能删除"

ExitSub

EndIf

IfCurClass.HaveSon（CurClass.Class_Id=TrueThen

MsgBoxCurClass.Class_Name+"包含下级院系班级,不能删除"

ExitSub

EndIf

IfMyClass.HaveStudent（CurClass.Class_Id=TrueThen

MsgBoxCurClass.Class_Name+"包含学生,不能删除"

ExitSub

EndIf

IfMsgBox（"是否确定要删除"+Trim（TreeView1.SelectedItem.Text,vbYesNo,"请确认"=vbNoThen

ExitSub

EndIf

CallCurClass.Delete（CurClass.Class_Id

TreeView1.Nodes.RemoveTreeView1.SelectedItem.Index

TreeView1_Click

学生信息资料管理

添加学生基本信息资料

WithMyStu

.Student_Name=MakeStr（txtStu_Name

.Sex=ComboSex.Text

.Nationality=MakeStr（txtNationality

IfIsDate（ComboBirth.Text=FalseThen

MsgBox"请选择正确的出生日期"

ExitSub

EndIf

.Birth=ComboBirth.Text

.Political_Party=MakeStr（txtPolitical_Party

.Family_Place=MakeStr（txtFamily_Place

.Id_Card=MakeStr（txtId_Card

.BadgeID=MakeStr（txtBadgeID

.Home_phone=MakeStr（txtHomePhone

.Residence=MakeStr（txtResidence

.Postcode=MakeStr（txtPostcode

IfIsDate（ComboInDate.Text=FalseThen

MsgBox"请选择正确的入校日期"

ExitSub

EndIf

.InDate=ComboInDate.Text

.Title=MakeStr（txtTitle

.Memo=MakeStr（txtMemo

dd=Date

dd=Format（dd,"yyyy-mm-dd"

t=Time

tt=Trim（Str（Hour（t+":

"+Trim（Str（Minute（t+":

"+Trim（Str（Second（t.Fillin_Time=dd+""+tt

.Class_Id=CurClass.Class_Id

IfModify=FalseThen

.Insert

Else

.Update（CurStu.Student_Id

EndIf

EndWith

FrmStuMan.TmpOk=True

UnloadMe

照片管理

IfButton=1Then

IfFrmPhotoMenu.Visible=TrueThen

UnloadFrmPhotoMenu

EndIf

EndIf

IfButton=2Then

IfCurStu.Student_Id<=0Then

ExitSub

EndIf

FrmPhotoMenu.Left=X+Image1.Left+200'-1610

FrmPhotoMenu.Top=Y+Image1.Top+1900

FrmPhotoMenu.Show

EndIf

DimDiskFileAsString

IfCurStu.Student_Id<=0Then

MsgBox"请选择学生"

UnloadMe

ExitSub

EndIf

CommonDialog1.Filter="BMP文件（*.bmp|*.bmp|JPEG文件（*.jpg|*.jpg|GIF文件（*.gif|*.gif"

CommonDialog1.ShowOpen

DiskFile=CommonDialog1.

IfDiskFile=""Then

MsgBox"请选择照片文件"

UnloadMe

ExitSub

EndIf

CallSaveImage（DiskFile,FrmStuMan.AdoStuDetail

CallShowImage（FrmStuMan.Image1,FrmStuMan.AdoStuDetail

UnloadMe

IfCurStu.Student_Id<=0Then

MsgBox"请选择学生"

UnloadMe

ExitSub

EndIf

FrmStuMan.AdoStuDetail.Recordset.Fields（2.AppendChunk""

FrmStuMan.AdoStuDetail.Recordset.Update

FrmStuMan.Image1.Picture=LoadPicture（""

UnloadMe

学籍管理

添加学籍管理信息资料

FrmChangeEdit.ComboDate.Text=Format（Now,"yyyy-mm-dd"

SelStu.Init

FrmChangeEdit.ComboName.Text=""

FrmChangeEdit.ComboType.ListIndex=ComboType.ListIndex

FrmChangeEdit.ComboClass=""

FrmChangeEdit.txtMemo=""

FrmChangeEdit.Modify=False

FrmChangeEdit.Show1

Refresh_Change

修改学籍管理信息资料

FrmChangeEdit.OriId=Adodc1.Recordset.Fields（0

FrmChangeEdit.ComboDate.Text=Trim（Adodc1.Recordset.Fields（1

SelStu.Student_Id=Adodc1.Recordset.Fields（2

SelStu.GetInfo（SelStu.Student_Id

FrmChangeEdit.ComboName.Text=Trim（Adodc1.Recordset.Fields（3

FrmChangeEdit.ComboType.ListIndex=ComboType.ListIndex

SelectCaseComboType.ListIndex

Case0,1'退学、休学

FrmChangeEdit.txtNewSchool=""

FrmChangeEdit.ComboClass=""

FrmChangeEdit.txtReason=Trim（Adodc1.Recordset.Fields（4

FrmChangeEdit.txtMemo=Trim（Adodc1.Recordset.Fields（5

Case2'转学

FrmChangeEdit.txtNewSchool=Trim（Adodc1.Recordset.Fields（4

FrmChangeEdit.ComboClass=""

FrmChangeEdit.txtReason=Trim（Adodc1.Recordset.Fields（5

FrmChangeEdit.txtMemo=Trim（Adodc1.Recordset.Fields（6

Case3'调班

FrmChangeEdit.txtNewSchool=""

FrmChangeEdit.ComboClass=Trim（Adodc1.Recordset.Fields（5

CurClass.GetInfo（Adodc1.Recordset.Fields（4

FrmChangeEdit.txtReason=Trim（Adodc1.Recordset.Fields（6

FrmChangeEdit.txtMemo=Trim（Adodc1.Recordset.Fields（7

EndSelect

FrmChangeEdit.Modify=True

FrmChangeEdit.Show1

Refresh_Change

第四章.学生照片管理模块设计

4.1ImageFunc模块

ImageFunc模块用来管理与数据库读写图像字段相关的变量和函数。

其中包含两个用户自定义过程:

ShowImage和SaveImage。

因为SQLServer2000的图像字段不能够使用Insert和Update等语句插入和更新,所以本系统中使用GetChunk和AppendChunk方法读取和填写图像字段。

GetChunk方法用来返回大型文本或二进制数据Field对象的全部或部分内容,AppendChunk方法则将数据追加到大型文本、二进制数据Field或Parameter对象中。

ShowImage（包含两个参数,Image1表示用来显示图像的Image控件,Adodc1表示用来提供图像字段的ADOData控件。

ShowImage（过程的代码如下:

PublicSubShowImage（Image1AsImage,Adodc1AsAdodc

ErasebyteChunk（

FieldSize=Adodc1.Recordset.Fields（2.ActualSize

IfFieldSize<=0Then

Image1.Picture=LoadPicture（""

ExitSub

EndIf

'提供一个尚未使用的文件号

SourceFile=FreeFile

'打开文件

OpenTempBinaryAccessWriteAsSourceFile

'计算数据块

NumBlocks=FieldSize\BlockSize

LeftOver=FieldSizeModBlockSize'得到剩余字节数

'分块读取图像数据,并写入到文件中

IfLeftOver<>0Then

ReDimbyteChunk（LeftOver

byteChunk（=Adodc1.Recordset.Fields（2.GetChunk（LeftOver

PutSourceFile,,byteChunk（

EndIf

Fori=1ToNumBlocks

ReDimbyteChunk（BlockSize

byteChunk（=Adodc1.Recordset.Fields（2.GetChunk（BlockSize

PutSourceFile,,byteChunk（

Nexti

CloseSourceFile

'将文件装入到Image1控件中

Image1.Picture=LoadPicture（TempFile

'删除临时文件

Kill（TempFile

EndSub

SaveImage（也包含两个参数,ImageFile表示图像的文件名,Adodc1表示用来存储图像字段的ADOData控件。

ShowImage（过程的代码如下:

PublicSubSaveImage（ByValImageString,Adodc1AsAdodc

IfAdodc1.Recordset.BOF=TrueOrAdodc1.Recordset.EOF=TrueThen

ExitSub

EndIf

IfImageFile=""Then

ExitSub

EndIf

'提供一个尚未使用的文件号

SourceFile=FreeFile

'打开文件

OpenImageBinaryAccessReadAsSourceFile

'得到文件长度

=LOF（SourceFile

'判断文件是否存在

If=0Then

CloseSourceFile

MsgBoxDiskFile&"无内容或不存在!

"

Else

NumBlocks=\BlockSize'得到数据块的个数

LeftOver=ModBlockSize'得到剩余字节数

Adodc1.Recordset.Fields（2.Value=Null

ReDimbyteData（BlockSize'重新定义数据块的大小

Fori=1ToNumBlocks

GetSourceFile,,byteData（'读到内存块中

Adod