数据库应用设计实习报告

1、西安郵電大學数据库应用系统课程设计报告书（员工薪资管理系统）系部名称：信息与管理工程系学生姓名：石林专业名称：信息管理与信息系统班 级：信管1101时间：2013.6.32013.6.28目录一.数据库应用设计实习任务指导书11.1数据库应用设计的目的： 11.2数据库应用设计时间与地点安排：11.3数据库应用设计任务与要求：11.3.1设计报告要求11.3.2参考文献21.4.数据库应用设计内容与步骤：21.4.1设计内容（不局限于下列内容）：21.4.2、设计步骤：31.5纪律与注意事项：31.6、成绩考核：4二.“员工薪资管理系统”程序功能简介42.1程序概述42.2程序各个模

2、块的功能42.3.程序流程设计52.3.1程序设计52.3.2SQL数据库设计52.3.3窗体设计6三.实习小结214.1 遇到的问题及解决方案214.2实习心得21一.数据库应用设计实习任务指导书1.1数据库应用设计的目的： 1 掌握VB中数据库的使用方法2 掌握Data数据控件和ADO数据控件的使用3 掌握SQL的使用1.2数据库应用设计时间与地点安排：信管11级数据库应用课程设计上机时间安排表17 -18周 上午 8:0012:00下午 14:3016:30地点：图书馆四层实验室1.3数据库应用设计任务与要求：本次设计，重点在于培养学生设计数据库的能力，为学生提供在实际环境中使

3、用数据库工具开发软件的实践机会。先导课程为：数据库系统概论。设计环境和开发工具： 操作系统， Windows2000。 数据库管理系统，选用Mircrosoft 公司的Sql Server 2000。 开发工具，选用vb6.0 具体要求： 1.3.1设计报告要求 设计报告按照以下提纲书写：1) 摘要。2) 需求分析。3) 数据库概念结构设计。4) 数据库逻辑结构设计。5) 数据库物理设计。6) 数据流图及程序结构框图。7) 程序原代码及其说明(电子版)。8) 总结。1.3.2参考文献1) 王珊. 数据库系统概论(第三版).北京：高等教育出版社，2000。2) Visual Basic 6.0

4、帮助文件。3) SQL Server 2000 帮助文件。1.4.数据库应用设计内容与步骤：1.4.1设计内容（不局限于下列内容）：1>图书借阅管理背景资料：1) 图书室有各种图书一万多册。2) 每种图书都有书名、书号（ISBN）、一名或多名作者（译者）、出版社、定价和内容简介。3) 借书证记录有借阅者的姓名、所在单位、职业等。4) 凭借书证借书，每次最多能借8本书。借书期限最长为30天。要求：1) 进行需求分析，编写数据字典。2) 设计E-R图。3) 实现新进图书的数据录入。4) 实现对所有购进图书的分类查询和分类统计。5) 能够按书名、作者等分类查询现有图书的数量。6) 记录借阅者的

5、个人资料和所借图书的书名、书号数据等。2>员工薪资管理背景资料：5) 某单位现有1000名员工，其中有管理人员、财务人员、技术人员和销售人员。6) 该单位下设4个科室，即经理室、财务科、技术科和销售科。7) 工资由基本工资、福利补贴和奖励工资构成，失业保险和住房公积金在工资中扣除。8) 每个员工的基本资料有姓名、性别、年龄、单位和职业（如经理、工程师、销售员等）。9) 每月个人的最高工资不超过3000元。工资按月发放，实际发放的工资金额为工资减去扣除。要求：1) 进行需求分析，编写数据字典。2) 设计E-R图。3) 实现按照科室录入个人的基本资料、工资和扣除金额的数据。 4) 计算个人的

6、实际发放工资。5) 按科室、职业分类统计人数和工资金额。6) 实现分类查询。7) 能够删除辞职人员的数据。3>库存物资管理背景资料：10) 有一个存放商品的仓库，每天都有商品出库和入库。11) 每种商品都有名称、生产厂家、型号、规格等。12) 出入库时必须填写出入库单据，单据包括商品名称、生产厂家、型号、规格、数量、日期、时间、入库单位（或出库单位）名称、送货（或提货）人姓名。要求：1) 进行需求分析，编写数据字典。2) 设计E-R图。3) 设计出入库单据的录入。4) 实现按商品名称、出入库日期的查询。5) 实现分别按日、月和年对出入库商品数量的统计。1.4.2、设计步骤：1、数据库设计

7、1) 需求分析，根据设计任务书给出的背景资料，查找相关资料，对数据进行分析，编写详细的数据词典。2) 概念结构设计：在需求分析的基础上，设计E-R模型，详细描述实体的属性和实体之间的联系，消除冗余。3) 逻辑结构设计：实现E-R图向关系模型的转换，特别注意实体的1:n联系，优化数据模型。详细说明实体、实体属性和实体之间的关系。2、创建数据库： 3、创建表：至少有四个以上表，每个表至少有十条以上的纪录。4、应用程序设计1) 要有界面，菜单，工具栏。2) 对用户进行分级，不同的用户拥有不同的权限，如管理员，普通用户。3) 添加数据，要有下拉组合控件，图片控件，复选框，文件列表，驱动器列表，日期控件

8、，Timer控件,尽可能使用更多的控件。4) 查询，设置组合查询，至少三项以上，必须有时间范围查询，并且支持模糊查询。5) 对查找的结果删除，修改，统计分析(直方图，饼图)，浏览支持两种方式，一为单条浏览，二为整体浏览，使用datagrid控件。6) 打印预览，打印功能。7) 最后要生成安装程序，并且可以脱离VB环境运行。1.5纪律与注意事项： 1)如果教师认定为抄袭，则双方成绩为0分，并提交管理部门处理。2)文档统一用WORD格式，命名为“XXXXXXX设计文档.doc”。3)所有程序及文档必须放在同一目录下，此目录名格式为：信管11（班号）_组号，例如：“信管1101_01”。4)所有程序

9、及文档必须保证无病毒，且能正确运行，否则扣除一定分数。5)所有文档及程序必须在2013年7月1日前提交。 1.6、成绩考核： 答辩以抽查形式进行。Ø 考勤10Ø 数据库设计文档60Ø 程序30采用五级评分制优、良、中、及格、不及格。                            &

10、#160;             西安邮电大学管理工程学院                                  &

11、#160;                      2013年  6 月1日二.“员工薪资管理系统”程序功能简介2.1程序概述“员工薪资管理系统”是选用Mircrosoft 公司的Sql Server 2000和VB6.0开发环境而设计的，并且与SQL数据库相连接。能够很方便的让员工进行信息查询，以及工资查询。同时也方便了管理员对企业员工的基本信息和工资信息进行管理，实现对员

12、工信息进行增，删，改，查。程序界面设计简单明了，容易操作。2.2程序各个模块的功能进入窗体frmwel：加载界面登录窗体denglu：学生和教师实现用户名，密码登录菜单窗体main：包括相应菜单栏，实现查询，添加，编辑等查询窗体chaxun1和chaxun2 查询员工基本信息和薪资信息编辑信息窗体xxbj 管理员进入，对员工信息进行编辑修改密码窗体xgmm 修改员工和管理员密码计算器窗体 scientific 帮助计算工资添加窗体tjyh 天加用户关于窗体about 关于本程序介绍2.3.程序流程设计2.3.1程序设计各模块功能分析2.3.2SQL数据库设计表设计E-R图各个表字段名及属性2.

13、3.3窗体设计1)进入窗体设计frmwel代码如下：Private Sub Timer1_Timer()Static N As Integer N = N + 1 Label3.Caption = "正在加载数据，请等候" & String(N, ".") If N = 2 Then With denglu .Show End With denglu.Show Unload Me End IfEnd Sub2)登录窗体denglu设计代码如下Option ExplicitPrivate Sub Form_Load() Label5.Width =

14、 denglu.ScaleWidth Label5.Left = denglu.ScaleWidth End SubPrivate Sub Command2_Click() Dim intResult As Integer '请求用户确认是否真的退出系统登录 intResult = MsgBox("你选择了退出系统登录，退出将不能启动员工薪资管理系统！是否真的退出？", vbYesNo, "登录验证") If intResult = vbYes Then End '根据用户选择结束应用程序End SubPrivate Sub Comman

15、d1_Click()If Option1.Value = True Then Dim str As String str = "select* from 员工表 where 用户名='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = str Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox "此用户名不存在，请重试！", vbOKOnly + vbExclamation, "登录&

16、quot; Text1.Text = "" Text1.SetFocus ElseIf Trim(Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then main.Show Me.Hide Else MsgBox "密码不正确，请重试！", vbOKOnly + vbExclamation, "登录" End IfEnd IfIf Option2.Value = True Then Dim str1 As String str1 = "select* f

17、rom 管理员表 where 用户名='" & Trim(Text1.Text) & "'" Adodc2.RecordSource = str1 Adodc2.Refresh If Adodc2.Recordset.EOF = True Then MsgBox "此用户名不存在，请重试！", vbOKOnly + vbExclamation, "登录" Text1.Text = "" Text1.SetFocus ElseIf Trim(Adodc2.Recordset.

18、Fields("密码") = Trim(Text2.Text) Then main.Show Me.Hide Else MsgBox "密码不正确，请重试！", vbOKOnly + vbExclamation, "登录" End IfEnd IfEnd SubPrivate Sub Timer1_Timer() If Label5.Left + Label5.Width >= 0 Then Label5.Left = Label5.Left - 50 Else Label5.Left = denglu.ScaleWidth E

19、nd IfEnd Sub3)菜单窗体main设计代码：Private Sub jbxx_Click()If denglu.Option2.Value = True Then xxbj.Show Me.HideElse MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"End IfEnd SubPrivate Sub mmxg_Click()xgmm.ShowMe.HideEnd SubPrivate Sub pc_Click()Me.Hidescientific.ShowEnd SubPrivate

20、 Sub tcxt_Click()Me.Hidedenglu.ShowEnd SubPrivate Sub tj_Click()If denglu.Option2.Value = True Then tjyh.Show Me.HideElse MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"End IfEnd SubPrivate Sub xtjj_Click()about.ShowMe.HideEnd SubPrivate Sub xxcx_Click()chaxun1.ShowMe.HideE

21、nd SubPrivate Sub xzcx_Click()chaxun2.ShowMe.HideEnd SubPrivate Sub xzxx_Click()If denglu.Option2.Value = True Then xxbj.Show Me.HideElse MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"End IfEnd Sub4)查询窗体chaxun1和chaxun2设计代码：chuxun1Private Sub Command1_Click()Dim str1 As Str

22、ingIf Text1 = vbNullString Then MsgBox "请输入所要查询的员工号", , "错误" Text1.SetFocus Exit Sub If Adodc1.Recordset.EOF = True Then MsgBox "信息库中没有你所要查找的员工的信息！", , "结果" Text1.SetFocus Text1 = vbNullString End IfEnd Ifstr1 = "select* from 基本表 where 员工号='" &am

23、p; Trim(Text1.Text) & "'"Adodc1.RecordSource = str1Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload Memain.ShowEnd SubPrivate Sub Command3_Click()Dim str As String str = "select * from 基本表 " Adodc1.RecordSource = str Adodc1.RefreshEnd Sub代码chuxun2Private Sub Comman

24、d1_Click()Dim str As StringIf Text1 = vbNullString Then MsgBox "请输入所要查询的员工号", , "错误" Text1.SetFocus Exit Sub If Adodc1.Recordset.EOF = True Then MsgBox "信息库中没有你所要查找的员工的信息！", , "结果" Text1.SetFocus Text1 = vbNullString End IfEnd If str = "select * from 薪资表

25、where 员工号 = '" & Trim(Text1.Text) & "'" Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload Memain.ShowEnd SubPrivate Sub Command3_Click()Dim str As String str = "select * from 薪资表 " Adodc1.RecordSource = str Adodc1.RefreshEnd Su

26、b5)编辑信息窗体xxbj设计代码：Private str1 As StringPrivate str2 As StringPrivate Sub Command1_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 Adodc1.Recordset.AddNew Adodc2.Recordset.AddNew Case 1 ask = MsgBox("删除否？", vbYesNo) If ask = 6 Then Adodc1.RecordSource = str1 Adodc1.Reco

27、rdset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Adodc2.RecordSource = str2 Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext IfAdodc2.Recordset.EOF ThenAdodc2.Recordset.MoveLast End If Case 2 Adodc1.Recordset.Update Adodc2.Recordset.Update MsgBox "更

28、新成功！", vbOKOnly + vbExclamation, "提示" End SelectEnd SubPrivate Sub Command2_Click() Unload Me main.ShowEnd SubPrivate Sub Command5_Click()If Text14 = vbNullString Then MsgBox "请输入所要查询的员工号", , "错误" Text14.SetFocus Exit SubEnd Ifstr1 = "select* from 基本表 where 员工

29、号='" & Trim(Text14.Text) & "'"Adodc1.RecordSource = str1Adodc1.Refreshstr2 = "select* from 薪资表 where 员工号='" & Trim(Text14.Text) & "'"Adodc2.RecordSource = str2Adodc2.RefreshIf Adodc1.Recordset.EOF = True Then MsgBox "信息库中没有你所要查找

30、的员工的信息！", , "结果" Text14.SetFocus Text14 = vbNullString Else Text1.Text = Adodc1.Recordset.Fields("员工号") Text2.Text = Adodc1.Recordset.Fields("姓名") Text3.Text = Adodc1.Recordset.Fields("性别") Text4.Text = Adodc1.Recordset.Fields("年龄") Text5.Text =

31、 Adodc1.Recordset.Fields("职业") Text15.Text = Adodc1.Recordset.Fields("单位") Text7.Text = Trim(Adodc1.Recordset.Fields("备注") Text8.Text = Adodc2.Recordset.Fields("基本工资") Text9.Text = Adodc2.Recordset.Fields("福利补贴") Text10.Text = Adodc2.Recordset.Fields

32、("奖励工资") Text11.Text = Adodc2.Recordset.Fields("失业保险") Text12.Text = Adodc2.Recordset.Fields("住房基金") Text6.Text = Adodc2.Recordset.Fields("员工号") Text16.Text = Adodc2.Recordset.Fields("姓名") Text13.Text = Val(Text8.Text) + Val(Text9.Text) + Val(Text10.

33、Text) - Val(Text11.Text) - Val(Text12.Text)End IfEnd Sub6)修改密码窗体xgmm设计代码Private Sub Command1_Click()If Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "两次密码不一致，请重新输入!", vbOKOnly + vbExclamation, "信息提示" Text1.SetFocus Text1.Text = "" Text2.Text = ""ElseI

34、f denglu.Option1.Value = True Then Adodc1.RecordSource = "select * from 员工表 where 用户名='" & denglu.Text1.Text & " '" Adodc1.Refresh Adodc1.Recordset.Fields("密码") = Text1.Text Adodc1.Recordset.Update MsgBox "密码修改成功！", vbOKOnly + vbExclamation, &q

35、uot;修改密码"ElseIf denglu.Option2.Value = True Then Adodc1.RecordSource = "select * from 管理员表 where 用户名='" & denglu.Text1.Text & " '" Adodc1.Refresh Adodc1.Recordset.Fields("密码") = Text1.Text Adodc1.Recordset.Update MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"End IfEnd SubPrivate Sub Command2_Click()Unload Memain.ShowEnd Sub7)计算器窗体 scientific设计代码省略8)添加窗体tjyh设计代码Private Sub Command1_Click()Adodc1.RefreshAd