数据库课程设计 (17)(19页).doc

《数据库课程设计 (17)(19页).doc》由会员分享，可在线阅读，更多相关《数据库课程设计 (17)(19页).doc（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-课程设计报告课程设计题目：档案管理系统 专 业：网络工程班 级：10211303姓 名：朱秀刚学 号: 1021130326指导教师: 游胜玉 2011年12月3日一、目的：通过本次课程设计让学生能够综合运用所学的关系数据库原理知识解决并能设计一个实际问题，进一步掌握数据库原理的相关理论和数据库的设计实现过程，进一步提高学生的分析问题和解决问题的能力以及学生的动手能力。二、课程设计要求：1对各个系统进行系统功能需求分析2. 数据库设计分析阶段，进行详细的数据库需求分析，进行概念数据库的设计，画出数据库的E-R图（局部和整体E-R图）3. 设计出详细的逻辑数据库结构，将各个实体和联系转化为相应

2、的二维表即关系模式，指定各个关系的主关键字和外部关键字，并对各个关系的约束加以限定4. 通过企业管理器或是查询分析器实现各个二维关系（建议最好用SQL代码实现），要求建立相关的索引5. 根据系统功能需求设计相应的查询视图6. 要求根据系统功能需求建立存储过程7. 根据功能需求建立相应的触发器以保证数据的一致性8. 通过建立用户和权限分配实现数据库一定的安全性，考虑数据库的备份与恢复（此内容选作）三、实现思路 1.实验要求建立一个档案管理系统，实现档案信息的录入、修改、删除查询等功能。通过分析本实验的E-R图如下：姓名身份证号政治面貌身份证号性别年龄婚姻状况家庭住址人档案基本信息个人档案详细信息

3、现居住地籍贯包括学历工作单位包括迁出地址迁动号身份证号迁入地址迁入迁出迁出时间迁入时间2.利用SQL建立一个名为：DangAn的数据库，数据库中在建立三张表分别为：个人档案基本信息、个人档案详细信息、迁动信息。3.利用VB做为前台，对数据库中的数据进行管理操作。四、实现过程 1.建立数据库和变的代码如下： create database DangAnOn( name=DangAn_data, filename=D:DangAnData.mdf, size=10, maxsize=50, fileGrowth=5) loG on( name=DangAn_Log, filename=D:Dang

4、anData.ldf, size=5, maxsize=25, fileGrowth=5)create table 个人档案基本信息(省份证号 int constraint Number_prim primary key, 姓名 char(10),性别 char(2)default 男,年龄 int,籍贯 char(12),家庭住址 varchar(40),)create table 个人档案详细信息( 身份证号 int constraint xiangxi_prim primary key, 政治面貌 char(10), 婚姻状况 char(4) default 未婚, 现居住地 varch

5、ar(40), 工作单外 varchar(40) )create table 迁动信息(身份证号 int constraint qingdong_prim primary key,迁出时间 datetime,迁入时间 datetime,)2.建立VB前台界面图如下：2.功能实现的代码如下：(1).登录界面代码：Private Sub Command1_Click() 登录按钮的功能 If Text1.Text = zhuxiugang And Text2.Text = 123 Then Form1.Visible = False Form2.Visible = True End IfEnd S

6、ubPrivate Sub Denglu_Click() 编辑菜单中登录项的功能Label1.Visible = TrueLabel2.Visible = TrueLabel3.Visible = TrueText1.Visible = TrueText2.Visible = TrueCommand1.Visible = TrueEnd SubPrivate Sub Form_Load() 窗体1的初始化Label1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = TrueText1.Visible = FalseText2.Visi

7、ble = FalseCommand1.Visible = FalseEnd SubPrivate Sub Tuichu_Click() 单击退出按钮退出程序EndEnd Sub(2)操作界面的代码实验总结如下：Private Sub Bianji_Click() 编辑信息初始化Text1.DataField = 身份证号Text2.DataField = 姓名Text3.DataField = 性别Text4.DataField = 年龄Text5.DataField = 籍贯Text6.DataField = 家庭住址Text7.DataField = 身份证号Text8.DataFiel

8、d = 政治面貌Text9.DataField = 婚姻状况Text10.DataField = 现居住地Text11.DataField = 学历Text12.DataField = 工作单位Text13.DataField = 迁动号Text14.DataField = 身份证号Text15.DataField = 迁出时间Text16.DataField = 迁入时间Text17.DataField = 迁出地址Text18.DataField = 迁往地址SSTab1.Tab = 0DataGrid1.Visible = FalseDataGrid2.Visible = FalseDa

9、taGrid3.Visible = FalseCommand1.Visible = False Form1.Visible = False Form2.Visible = True Cmdadd.Visible = TrueCmdchange.Visible = TrueCmddelete.Visible = TrueCmdprev.Visible = TrueCmdnext.Visible = TrueCmdfirst.Visible = TrueCmdlast.Visible = TrueEnd SubPrivate Sub chaxun_Click() 查询信息初始化Form1.Visi

10、ble = FalseFrame1.Visible = FalseCmdadd.Visible = FalseCmdchange.Visible = FalseCmddelete.Visible = FalseCmdprev.Visible = FalseCmdnext.Visible = FalseCmdfirst.Visible = FalseCmdlast.Visible = FalseCommand1.Visible = TrueDataGrid1.Visible = TrueDataGrid2.Visible = TrueDataGrid3.Visible = True清楚信息Tex

11、t1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text = Text15.Text = Text16.Text = Text17.Text = Text18.Text = End SubPrivate Sub Cmdadd_Click() 增加信息Select Case Cmdadd.Cap

12、tion Case 增加 Select Case SSTab1.Tab Case 0 Ado1.Recordset.AddNew Case 1 Ado2.Recordset.AddNew Case 2 Ado3.Recordset.AddNew End Select 在添加操作完成之前禁止其他操作 SSTab1.TabEnabled(0) = False SSTab1.TabEnabled(1) = False SSTab1.TabEnabled(2) = False Cmdadd.Caption = 确定 Cmdchange.Enabled = False Cmddelete.Enabled

13、 = False Cmdprev.Enabled = False Cmdnext.Enabled = False Cmdfirst.Enabled = False Cmdlast.Enabled = False Case 确定 SSTab1.TabEnabled(0) = True SSTab1.TabEnabled(1) = True SSTab1.TabEnabled(2) = True Cmdadd.Caption = 增加 Cmdchange.Enabled = True Cmddelete.Enabled = True Cmdprev.Enabled = True Cmdnext.E

14、nabled = True Cmdfirst.Enabled = True Cmdlast.Enabled = TrueEnd SelectEnd SubPrivate Sub Cmdchange_Click() 修改信息Select Case Cmdchange.Caption Case 修改 Select Case SSTab1.Tab Case 0 Ado1.Recordset.EditMode Case 1 Ado2.Recordset.EditMode Case 2 Ado3.Recordset.EditMode End Select 在添加操作完成之前禁止其他操作 SSTab1.T

15、abEnabled(0) = False SSTab1.TabEnabled(1) = False SSTab1.TabEnabled(2) = False Cmdadd.Caption = False Cmdchange.Enabled = 确定 Cmddelete.Enabled = False Cmdprev.Enabled = False Cmdnext.Enabled = False Cmdfirst.Enabled = False Cmdlast.Enabled = False Case 确定 SSTab1.TabEnabled(0) = True SSTab1.TabEnable

16、d(1) = True SSTab1.TabEnabled(2) = True Cmdadd.Caption = True Cmdchange.Enabled = 修改 Cmddelete.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = True Cmdfirst.Enabled = True Cmdlast.Enabled = TrueEnd SelectEnd SubPrivate Sub Cmddelete_Click() 删除信息 Dim i As Integer i = MsgBox(确定要删除此记录？, vbYesNo

17、 + vbExclamation + vbDefaultButton1, 编辑) If i = vbYes Then 删除当前选项卡所对应表中的记录 Select Case SSTab1.Tab Case 0 Ado1.Recordset.Delete Ado1.Refresh Case 1 Ado2.Recordset.Delete Ado2.Refresh Case 2 Ado3.Recordset.Delete Ado3.Refresh End Select End IfEnd SubPrivate Sub Cmdfirst_Click() 移动到第一条记录Select Case SST

18、ab1.Tab Case 0 Ado1.Recordset.MoveFirst Cmdfirst.Enabled = False Cmdprev.Enabled = False Cmdnext.Enabled = True Cmdlast.Enabled = True Case 1 Ado2.Recordset.MoveFirst Cmdfirst.Enabled = False Cmdprev.Enabled = False Cmdnext.Enabled = True Cmdlast.Enabled = True Case 2 Ado3.Recordset.MoveFirst Cmdfir

19、st.Enabled = False Cmdprev.Enabled = False Cmdnext.Enabled = True Cmdlast.Enabled = True End SelectEnd SubPrivate Sub Cmdlast_Click() 移动到最后一条记录Select Case SSTab1.Tab Case 0 Ado1.Recordset.MoveLast Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = False Cmdlast.Enabled = False Case 1 A

20、do2.Recordset.MoveLast Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = False Cmdlast.Enabled = False Case 2 Ado3.Recordset.MoveLast Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = False Cmdlast.Enabled = FalseEnd SelectEnd SubPrivate Sub Cmdnext_Click() 显示下一条记录Selec

21、t Case SSTab1.Tab Case 0 Ado1.Recordset.MoveNext If Ado1.Recordset.EOF Then Ado1.Recordset.MoveLast Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = False Cmdlast.Enabled = False Else Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = True Cmdlast.Enabled = True End If

22、Case 1 Ado2.Recordset.MoveNext If Ado2.Recordset.EOF Then Ado2.Recordset.MoveLast Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = False Cmdlast.Enabled = False Else Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = True Cmdlast.Enabled = True End If Case 2 Ado3.Record

23、set.MoveNext If Ado3.Recordset.EOF Then Ado3.Recordset.MoveLast Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = False Cmdlast.Enabled = False Else Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = True Cmdlast.Enabled = True End IfEnd SelectEnd SubPrivate Sub Cmdprev_

24、Click() 显示上一条记录 Select Case SSTab1.Tab Case 0 Ado1.Recordset.MovePrevious If Ado1.Recordset.BOF Then Ado1.Recordset.MoveFirst Cmdfirst.Enabled = False Cmdprev.Enabled = False Cmdnext.Enabled = True Cmdlast.Enabled = True Else Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = True Cmdl

25、ast.Enabled = True End If Case 1 Ado2.Recordset.MovePrevious If Ado2.Recordset.BOF Then Ado2.Recordset.MoveFirst Cmdfirst.Enabled = False Cmdprev.Enabled = False Cmdnext.Enabled = True Cmdlast.Enabled = True Else Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = True Cmdlast.Enabled =

26、 True End If Case 2 Ado3.Recordset.MovePrevious If Ado3.Recordset.BOF Then Ado3.Recordset.MoveFirst Cmdfirst.Enabled = False Cmdprev.Enabled = False Cmdnext.Enabled = True Cmdlast.Enabled = True Else Cmdfirst.Enabled = True Cmdprev.Enabled = True Cmdnext.Enabled = True Cmdlast.Enabled = True End IfE

27、nd SelectEnd SubPrivate Sub Command1_Click() 按条件查找Dim sql As StringSelect Case SSTab1.TabCase 0 sql = select * from 个人档案基本信息 where 身份证号 = + Text1.Text + Ado4.RecordSource = sql Ado4.RefreshCase 1 sql = select * from 个人档案详细信息 where 身份证号 = + Text7.Text + Ado5.RecordSource = sql Ado5.RefreshCase 2 sql

28、= select * from 迁动信息 where 身份证号 = + Text14.Text + Ado6.RecordSource = sql Ado6.RefreshEnd SelectEnd SubPrivate Sub Form_Load()DataGrid1.Visible = FalseDataGrid2.Visible = FalseDataGrid3.Visible = FalseCommand1.Visible = FalseAdo1.Visible = FalseAdo2.Visible = FalseAdo3.Visible = FalseAdo4.Visible =

29、FalseAdo5.Visible = FalseAdo6.Visible = False建立信息源Text1.DataField = 身份证号Text2.DataField = 姓名Text3.DataField = 性别Text4.DataField = 年龄Text5.DataField = 籍贯Text6.DataField = 家庭住址Text7.DataField = 身份证号Text8.DataField = 政治面貌Text9.DataField = 婚姻状况Text10.DataField = 现居住地Text11.DataField = 学历Text12.DataField

30、 = 工作单位Text13.DataField = 迁动号Text14.DataField = 身份证号Text15.DataField = 迁出时间Text16.DataField = 迁入时间Text17.DataField = 迁出地址Text18.DataField = 迁往地址SSTab1.Tab = 0End SubPrivate Sub Tuichu_Click()EndEnd Sub五、分析得与失在该程序中用到了VB作为操作前台，操作见面和Windows系统相似，这让操作人员使用时更直观，容易掌握，没有SQL语言基础的人也能进行对数据的管理，界面也更美观。但是由于本人的水平和时

31、间有限，在程序中没能实现复杂是查询，只是实现了一个基本的按身份证号查询，这大大减少了程序的功能和可利用价值。六、心得体会 通过一周的努力，在老师悉心的指导和同学之间的相互交流下我终于完成了一个小小的档案管理系统，虽然这指是一个小小的系统，但是从分析到他的实现过程都市我自己亲自完成的，在这过程中得到了不少的经验，如：系统的需求分析，数据库的建立和怎样也VB建立联系，通过VB操作前台实现对数据库的数据管理等。在这期间我也和同学进行了很多讨论，也体会到了团队的精神。感谢老师，感谢同学们的帮助。1.结构分析如下面的E-R图：姓名身份证号政治面貌身份证号性别年龄婚姻状况家庭住址人档案基本信息个人档案详细信息现居住地籍贯包括包括学历工作单位迁动号迁出地址身份证号迁入地址迁入迁出迁出时间迁入时间-第 19 页-