数据库实验七

数据库应用设计设计报告

题目名称：________员工薪资管理__ ____

设计环境：_______ Oracle 11g__ ___

指导教师：_________张世玲_______________

专业班级：________计科1401______________

姓名：________董嗣川________________

学号：________513543543____________

联系电话：________ __________

电子邮件：_______4qq._______

设计日期：2015年10月25日至2015年11月15 日设计报告日期：2015 年11 月18 日

参考文献

［1］中国计算机科学与技术学科教程2002研究组.中国计算机科学与技术学科教程2002.

清华大学出版社，2002

［2］Tony Greening.21世纪计算机科学教育.高等教育出版社

［3］王珊，萨师煊.数据库系统概论（第四版）.高等教育出版社，2006

［4］杨冬青，唐世渭.数据库系统概念（第三版）.机械工业出版社，2003

［5］Hector Garcia-Molina，Jeffrey D.Ullman.数据库系统全书.机械工业出版社，2003 ［6］宋振会.SQL Server 2000中文版基础教程.清华大学出版社，2005

［7］郑阿奇. SQL Server实用教程.电子工业出版社，2002

［8］刘自伟.管理信息系统开发技术.武汉理工大学出版社，2003

一.“员工薪资管理系统”程序功能简介

2.1程序概述

“员工薪资管理系统”是选用Mircrosoft 公司的Sql Server 2000和VB6.0开发环境而设计的，并且与SQL数据库相连接。能够很方便的让员工进行信息查询，以及工资查询。同时也方便了管理员对企业员工的基本信息和工资信息进行管理，实现对员工信息进行增，删，改，查。程序界面设计简单明了，容易操作。

2.2程序各个模块的功能

进入窗体frmwel：加载界面

登录窗体denglu：学生和教师实现用户名，密码登录

菜单窗体main：包括相应菜单栏，实现查询，添加，编辑等查询窗体chaxun1和chaxun2 查询员工基本信息和薪资信息编辑信息窗体xxbj 管理员进入，对员工信息进行编辑

修改密码窗体xgmm 修改员工和管理员密码

计算器窗体scientific 帮助计算工资

添加窗体tjyh 天加用户

关于窗体about 关于本程序介绍

2.3.程序流程设计

2.3.1程序设计

各模块功能分析

2.3.2SQL数据库设计表设计

E-R图

姓名

员工号

单位

职业

员工管理员

工资

编号姓名

管理

职称部门各个表字段名及属性

2.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 If

End Sub

2)登录窗体denglu设计

代码如下

Option Explicit

Private Sub Form_Load()

Label5.Width = denglu.ScaleWidth

Label5.Left = denglu.ScaleWidth

End Sub

Private Sub Command2_Click()

Dim intResult As Integer

'请求用户确认是否真的退出系统登录

intResult = MsgBox("你选择了退出系统登录，退出将不能启动员工薪资管理系统！是否

真的退出？", vbYesNo, "登录验证")

If intResult = vbYes Then End

'根据用户选择结束应用程序

End Sub

Private Sub Command1_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, "登录"

Text1.Text = ""

Text1.SetFocus

ElseIf Trim(Adodc1.Recordset.Fields("密码")) = Trim(Text2.Text) Then main.Show

Me.Hide

Else

MsgBox "密码不正确，请重试！", vbOKOnly + vbExclamation, "登录"

End If

End If

If Option2.Value = True Then

Dim str1 As String

str1 = "select* from 管理员表where 用户名='" & Trim(Text1.Text) & "'"

Adodc2.RecordSource = str1

Adodc2.Refresh

If Adodc2.Recordset.EOF = True Then

MsgBox "此用户名不存在，请重试！", vbOKOnly + vbExclamation, "登录"