数据库实验设计.docx
《数据库实验设计.docx》由会员分享，可在线阅读，更多相关《数据库实验设计.docx（17页珍藏版）》请在冰点文库上搜索。
数据库实验设计
数据库实验设计
报告
班级:
学号:
姓名:
专业:
指导老师:
2009/12/19
目录
第1章引言2
第2章设计要求3
1.1本报告的实验课题3
第3章程序设计过程4
2.1需求分析4
2.2程序设计目标5
2.3程序实现思路5
2.2.1前台程序结构及其简单叙述5
2.2.2后台程序结构及其简单叙述7
2.2.3系统功能模块介绍9
2.3系统流程截图10
2.4系统调试测试12
2.5完整程序代码12
实验心得体会20
参考文献21
数据库实验设计报告书
引言
档案管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套学生档案管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。
设计要求
实验课题
班级学生姓名学号专业
发题日期：
2009年12月07日完成日期：
2009年12月11日
题目档案管理系统
题目类型：
课程设计技术专题研究理论研究软件系统开发
一、设计任务及要求
1、目的：
（1）要求学生达到熟练掌握数据库的基本知识和技能；
（2）基本掌握数据库程序设计的基本思路和方法；
（3）能够利用所学的基本知识和技能，解决简单的数据库程序设计问题。
2、基本要求：
（1）模块化程序设计
（2）要求在设计的过程中，建立清晰的层次；
（3）锯齿型书写格式
（4）必须上机调试通过
3、创新要求：
在基本要求达到后，可进行创新设计，如根据查找结果进行修改的功能及设计出比友好的界面等。
4、写出设计说明书
程序设计过程
需求分析
计算机已经成为我们学习和工作的得力助手：
今天，计算机的价格已经十分低廉，性能却有了长足的进步。
它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：
首先，计算机可以代替人工进行许多繁杂的劳动；
其次，计算机可以节省许多资源；
第三，计算机可以大大的提高人们的工作效率；
第四，计算机可以使敏感文档更加安全，等等。
在中小学中用计算机管理学生档案的意义
现在我国的中小学校中档案的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。
我作为一个计算机应用的本科生，希望可以在这方面有所贡献。
改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我三年的所学编制出一个实用的程序来帮助中小学进行更有效的学籍管理。
归纳起来，好处大约有以下几点：
1．可以存储历届的学生档案，安全、高效；
2．只需一到二名档案录入员即可操作系统，节省大量人力；
3．可以迅速查到所需信息。
程序设计目标
通过设计一个较为简单的《档案管理系统》,进一步熟悉数据库中数据模型的概念、数据的保存、连接的实现方式。
了解系统开发的需求分析、层次设计、模块分析、编码测试、模块组装与整体调试的全过程，加深对数据库的理解与SQL2000环境的使用；逐步熟悉程序设计的方法，并养成良好的编程习惯。
题目：
档案管理系统
档案主要有五类人员属性：
人员编号、姓名、年龄、性别、
家庭住址。
要求：
1）可以对人员编号进行限制,人员编号必须大于上一个的人员编号.
2）可以在DataGrid网格上直接修改数据.
3）可以在DataGrid网格上点选删除,也可以通过人员编号删除.
4）可以按姓名或人员编号查找.
5）可以通过引用MSExcel输出数据库里的人员信息报表.
程序实现思路
前台程序结构及其简单叙述
一、前台程序我选择了VB作为前台的开发软件,当然也可以用C++等其他编程软件作为开发工具.
二、Windows下的VisualBasicBasic。
VisualBasic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。
开发人员可以最有效利用所创建的每一个对象。
使用应用程序具有可通用性可说扩展性和强有力的功能。
VisualBasic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。
三、实现菜单选项
菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，VisualBasic也提供了强大的创建菜单功能是程序更加标准。
您可以使用VisualBasic的ApplicationWizard也可以使用VisualBasic的菜单编辑器建立菜单或者修改已经存在的菜单。
四、实现工具栏
CoolBar控件与Office97种看到的CoolBar是类似的。
CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。
通过在CoolBar中迁入其他空间你局可以向用户提供更好的灵活性和义用性。
Toolbar是工具条控件，是实现工具条的主体。
其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。
Toolbar也是一个控件容器且具有Style属性，并可以为其增加下拉按钮和平滑按钮等。
选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。
在“控件”选项卡列表中选择“MicrosoftWindowsCommonControls6.0”后工具相中增加改控件。
其属性及对象如下：
1．Align属性定义工具条在窗体中的位置
2．ToolTipText属性是字符串类型，定义控件的提示字符
3．Style属性定义按钮外观。
4．ImageList属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的图像。
5．HotImangeList属性设置一个ImageList控件名，该控件定义按钮获得热点时显示的图像。
6．DisabledImageList属性定义工具条按钮无效时显示的图像。
创建工具条包括ImageList和Toolbar控件
ImageList用于为其他控件提供图像库，将ImageList控件加入到工具箱的操作于前述Toolbar控件相同。
后台程序结构及其简单叙述
数据库是一种存储数据并对数据进行操作的工具。
数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。
计算机的数据库可以分为两类：
非关系数据库（flat-file）和关系数据库（relational）。
关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。
新建一个数据库
创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。
创建一个数据库结构的过程被认为是数据模型设计。
1．标识需要的数据；
2．收集被标识的字段到表中；
3．标识主关键字字段；
4．绘制一个简单的数据图表；
5．规范数据；
6．标识指定字段的信息；
7．创建物理表。
修改已建的数据库
数据库的修改分为：
添加、编辑和删除记录。
这三种操作均可由VisualBasic创建的程序来完成，下面的章节将详细描述实现的具体方法。
实现数据库之间的联系
数据库之间的关系指明两个库之间共享一个共同的关键字值。
一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。
一个更高级的连接形式称为自连接。
这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。
数据库中有三种不同类型的关键字：
主关键字、组合关键字和外关键字。
在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。
系统总体规划
系统功能模块介绍
1．可以进行文本操作；
对文本进行清空的操作.
2．添加一个数据库项目；
用Insert语句插入数据库.
3．删除一个数据库项目；
用Delete语句删除数据库.
4．修改一个数据库项目；
用Update语句修改数据库.
5．查询信息；
用Select语句查询语句.
6．输出报表
使用VB的引用将数据库中的信息自动生成可以打印的报表.
7.登陆界面
可以存储用户信息,设置登陆限制.保证数据库的安全性.
菜单显示
系统流程截图
登陆界面
操作界面
查询信息
按编号查询
按姓名查询
输出的Excel报表
系统层次框图
后台档案管理系统
前台档案管理系统
家庭住址
性别
年龄
姓名
系统调试测试
在实验过程中，经过调试，在程序中发现很多问题。
如前台程序与数据库之间的连接问题。
数据写入的问题，以及用Excel输出报表单元格与数据库数据相对应的问题。
完整程序代码
Form1代码：
PrivateSubCommand1_Click（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"select*fromaccesswhereadmin='"&Text1.Text&"'andpwd='"&Text2.Text&"'",cn,adOpenStatic,adLockOptimistic
IfText2.Text<>IIf（IsNull（rs!
Pwd）,"",rs!
Pwd）Then
MsgBox"密码错误",vbExclamation+vbOKOnly,"操作提示"
txtPwd.SetFocus
Try_times=Try_times+1
IfTry_times>=3Then
MsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭",vbExclamation+vbOKOnly,"操作提示"
'关闭连接
Conn.Close
'释放Conn
SetConn=Nothing
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
Form2代码：
DimzsbexcelAsExcel.Application
PrivateSubcmdExcel_Click（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
Setzsbexcel=NewExcel.Application
zsbexcel.Visible=True
zsbexcel.SheetsInNewWorkbook=1
Setzsbworkbook=zsbexcel.Workbooks.Add
Withzsbexcel.ActiveSheet.Range（"A2:
E4"）.Borders'边框设置
.LineStyle=xlBorderLineStyleContinuous
.Weight=xlThin
.ColorIndex=1
EndWith
Withzsbexcel.ActiveSheet.Range（"A2:
E4"）.Font'字体设置
.Size=14
.Bold=True
.Italic=True
.ColorIndex=3
EndWith
zsbexcel.ActiveSheet.Rows.HorizontalAlignment=xlVAlignCenter'水平居中
zsbexcel.ActiveSheet.Rows.VerticalAlignment=xlVAlignCenter'垂直居中
Withzsbexcel.ActiveSheet
.Cells（1,2）.Value="姓名"
.Cells（1,3）.Value="年龄"
.Cells（1,4）.Value="性别"
.Cells（1,1）.Value="编号"
.Cells（1,5）.Value="家庭住址"
zsbexcel.Range（"A"&Trim（Str（intCnt）））.Value=rs.Fields（"nno"）.Value
zsbexcel.Range（"B"&Trim（Str（intCnt）））.Value=rs.Fields（"na"）.Value
zsbexcel.Range（"C"&Trim（Str（intCnt）））.Value=rs.Fields（"ni"）.Value
zsbexcel.Range（"D"&Trim（Str（intCnt）））.Value=rs.Fields（"sex"）.Value
zsbexcel.Range（"E"&Trim（Str（intCnt）））.Value=rs.Fields（"ad"）.Value
EndWith
zsbexcel.ActiveSheet.PageSetup.Orientation=xlPortrait'
zsbexcel.ActiveSheet.PageSetup.PaperSize=xlPaperA4
zsbexcel.ActiveSheet.PrintOut
zsbexcel.DisplayAlerts=False
zsbexcel.Quit
zsbexcel.DisplayAlerts=True
Setzsbexcel=Nothing
SetDataGrid1.DataSource=rs
EndSub
PrivateSubCommand1_Click（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"insertintopersoninfovalues（'"&Text5.Text&"','"&Text1.Text&"','"&Text2.Text&"','"&Text3.Text&"','"&Text4.Text&"'）",cn,adOpenStatic,adLockOptimistic
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"select*frompersoninfo",cn,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=rs
EndSub
PrivateSubCommand2_Click（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"updatepersoninfosetna='"&Text1.Text&"',ni='"&Text2.Text&"',sex='"&Text3.Text&"',ad='"&Text4.Text&"'wherenno='"&Text5.Text&"'",cn,adOpenStatic,adLockOptimistic
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"select*frompersoninfo",cn,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=rs
EndSub
PrivateSubCommand3_Click（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"deletepersoninfowherenno='"&Text5.Text&"'",cn,adOpenStatic,adLockOptimistic
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"select*frompersoninfo",cn,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=rs
EndSub
PrivateSubCommand4_Click（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"select*frompersoninfowherenno='"&Text5.Text&"'",cn,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=rs
EndSub
PrivateSubCommand5_Click（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"select*frompersoninfowherena='"&Text1.Text&"'",cn,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=rs
EndSub
PrivateSubCommand6_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
EndSub
PrivateSubCommand7_Click（）
End
EndSub
PrivateSubForm_Load（）
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn.Open"dsn=mydb"
rs.Open"select*frompersoninfo",cn,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=rs
EndSub
模块语句：
PubliccnAsADODB.Connection
PublicrsAsADODB.Recordset
实验心得体会
经过一个星期的上机实践学习，使我对SQL语言有了更进一步的认识和了解，要想学好它要重在实践，要通过不断的上机操作才能更好地学习它，通过实践，我也发现我的好多不足之处，首先是自己在指法上还不行，经常按错字母，通过学习也有所改进；再有对VB的一些控件和引用不太了解，还有对函数调用的正确使用不够熟悉，还有对VB中经常出现的错误也不了解，通过实践，使我在这几个方面的认识有所提高。
但是由于实验设计时间较短，所以该系统还有许多不尽如人意的地方，比如功能比较少，用户界面不够美观，出错处理不够等多方面问题。
这些都有待进一步改善。
通过实践的学习，我认到学好计算机要重视实践操作，不仅仅是学习数据库，还是其它的语言，以及其它的计算机方面的知识都要重在实践，所以后在学习过程中，我会更加注视实践操作，使自己便好地学好软件。
参考文献
1VisualBasic6.0使用指南BobReselman电子工业出版社
2中文版MicrosoftOffice2003自学通NedSnell机械工业出版社
3VisualBasic6.0中文版控件大全Microsoft电子工业出版社
4数据库系统实现（英文第二版）GarciaMolina
机械工业出版社
升级会员 