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

精品文档】如有侵权，请联系网站删除，仅供学习与交流数据库课程设计 (17).....精品文档......课程设计报告课程设计题目：档案管理系统 专 业：网络工程班 级：10211303姓 名：朱秀刚学 号: 1021130326指导教师: 游胜玉2011年12月3日一、目的：通过本次课程设计让学生能够综合运用所学的关系数据库原理知识解决并能设计一个实际问题，进一步掌握数据库原理的相关理论和数据库的设计实现过程，进一步提高学生的分析问题和解决问题的能力以及学生的动手能力二、课程设计要求：1．对各个系统进行系统功能需求分析2. 数据库设计分析阶段，进行详细的数据库需求分析，进行概念数据库的设计，画出数据库的E-R图（局部和整体E-R图）3. 设计出详细的逻辑数据库结构，将各个实体和联系转化为相应的二维表即关系模式，指定各个关系的主关键字和外部关键字，并对各个关系的约束加以限定4. 通过企业管理器或是查询分析器实现各个二维关系（建议最好用SQL代码实现），要求建立相关的索引5. 根据系统功能需求设计相应的查询视图6. 要求根据系统功能需求建立存储过程7. 根据功能需求建立相应的触发器以保证数据的一致性8. 通过建立用户和权限分配实现数据库一定的安全性，考虑数据库的备份与恢复（此内容选作）三、实现思路 1.实验要求建立一个档案管理系统，实现档案信息的录入、修改、删除查询等功能。

通过分析本实验的E-R图如下：姓名身份证号政治面貌身份证号性别年龄婚姻状况家庭住址人档案基本信息个人档案详细信息现居住地籍贯包括学历工作单位包括迁出地址迁动号身份证号迁入地址迁入迁出迁出时间迁入时间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:\DanganData.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 '未婚', 现居住地 varchar(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 SubPrivate 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.Visible = 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.DataField = "政治面貌"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 = FalseDataGrid3.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.Visible = False'Frame1.Visible = FalseCmdadd.Visible = FalseCmdchange.Visible = FalseCmddelete.Visible = FalseCmdprev.Visible = FalseCmdnext.Visible = FalseCmdfirst.Visible = FalseCmdlast.Visible = FalseCommand1.Visible = TrueDataGrid1.Visible = TrueDataGrid2.Visible = TrueDataGrid3.Visible = True'清楚信息Text1.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.Caption 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 = 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.Enabled = 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 Ado。