数据库课程设计

摘要。随着计算机的普及应用越来越广，各行各业越来越依赖于计算机管理相关数据，因此一个好的管理系统对一个公司来说是至关重要的。数据库课程设计是学生掌握一定计算机知识后进行的集中实践环节，对于非计算机专业学生存在一定的困难。如何让学生通过数据库课程设计，使他们的各方面能力得到培养和锻炼，是高等学校计算机教育教学改革和培养人才的重要教育教学环节。

在数据库中为本系统建立了薪资管理系统数据库，员工工资、员工奖励、员工惩罚、员工登录、管理员登陆等表，分别记录员工的个人工资，工资状况，奖励惩罚工资，以及用员工、管理员进入系统的验证工资。

在vb界面中，本系统主要分为两个模块，在登陆是分开，一个是员工登录，一个是管理员登陆。员工登录后可以查询自己的所有工资，管理员登陆后不仅可以查自己的所有工资，还可以查、添加、修改其他人及自己的工资。

关键词：数据库、vb、薪资管理系统。

目录。1 系统功能概述 1

1.1 系统功能 1

1.2 系统结构总图 2

2 数据库设计 3

2.1 需求分析 3

2.2 表结构设计 3

3 系统各功能模块的详细设计 6

3.1 主要功能界面 6

3.2 各个功能实现的后台** 12

参考文献 22

员工登录。个人工资查询。

个人工资查询。

个人奖惩查询。

管理员登录。

员工及个人工资查询。

员工及个人奖惩查询。

工资修改、更新。

奖惩修改、更新。

图1.1 模块图。

建立一套功能完善的管理工资系统，既能满足业务人员日常处理的需要，增强企业经营全过程的数字化管理水平；又能满足管理人员决策分析的需要，提高公司管理层对公司经营反馈工资的响应速度。从而大幅度提高工作效率，提高实施管理的准确性、科学性，使担负管理的工作人员从繁杂的手工劳作中解脱出来。因而程序需要实现的功能有如下：

员工工资管理：工资录入，工资查询，工资修改，删除员工工资。

工资管理：工资录入，工资查询，工资修改，删除员工工资。

员工奖励管理：奖励录入，奖励查询，奖励修改，删除员工奖励。

员工惩罚管理：惩罚录入，惩罚查询，惩罚修改，删除员工惩罚。

系统管理：注册用户工资。

实体e-r图。

图2.1 员工信息。

图2.2 员工惩罚。

图2.3 员工奖励。

图2.4 员工工资。

整体e-r图。

图2.5 整体e-r图。

登录界面。该界面主要完成用户的登录或注册选择，登录分为员工和管理员两种类型。

图3.1 用户登陆界面。

员工界面。该界面主要实现员工自己的信息查询，个人基本信息，月工资查询（按月份范围查询），个人奖惩查询（分奖惩两类型，按月份范围查询），退出返回注册界面。

图3.2 员工信息查询界面。

管理员界面。

该窗体设置课三个主菜单，第一个包含了该管理员的所有个人信息的查询快速；第二个包含了对所有员工的信息的管理，包括查询、修改、删除、信息录入；第三个是退出，关闭该界面，回到登录界面。

图3.3 管理员主界面。

员工信息删除。

该界面包含删除某一员工的各种信息，但如果删除该员工基本信息，则其他信息也一并被删除。

图3.4 员工信息删除。

员工信息更新。

该界面主要实现员工的信息跟新，选择查找类型，根据提供的条件查出要修改的人的信息，直接在返回的数据项上修改。

图3.5 更新员工信息。

插入员工信息。

该界面由管理员录入要增加的员工的信息，其中姓名与员工号不能为空，职位从已知的选，方便简洁。

图3.6 添加员工信息。

插入员工工资。

在该界面中，输入要增加的员工的员工号，将增加的项填入相应的输入框或选择项即可为该员工添加工资。

图3.7 增加员工工资。

奖惩的增添与工资增添基本相同。

登录界面。dim mecount as integer

private sub 登录_click()

dim eesql as string

dim ersql as string

if 员工。value = true then

eesql = select * from 员工登录表 where 员工号 = text用户。text &

员工登录库。recordsource = eesql

员工登录库。refresh

if 员工登录库。 then '若没找到符合条件的记录。

msgbox "用户名错误，重新输入", vbexclamation, "警告"

text用户。text =

text用户。setfocus 'text用户获得焦点。

else ' 判断密码是否正确。

if 员工登录库。"密码") text密码。text then

员工信息窗口。tag = text用户。text

员工信息窗口。show

unload me

elsemsgbox "密码错误，重新输入 ",vbexclamation, "警告"

text密码。text =

text密码。setfocus

end if

elseif 管理员。value = true then

'管理登录库。refresh

ersql = select * from 管理登录表 where 员工号= 'text用户 &

管理登录库。recordsource = ersql

管理登录库。refresh

if 管理登录库。 then '若没找到符合条件的记录。

msgbox "用户名错误，重新输入", vbexclamation, "警告"

text用户。text =

text用户。setfocus 'text用户获得焦点。

else ' 判断密码是否正确。

if 管理登录库。"密码") text密码 then

员工信息窗口。tag = text用户。text

管理窗口。show

unload me

elsemsgbox "密码错误，重新输入 ",vbexclamation, "警告"

text密码。text =

text密码。setfocus

end if

elsemsgbox "请选择登录方式 ",vbexclamation, "警告"

end if

mecount = mecount + 1

if mecount = 5 then

unload me

end if

end sub

private sub 注册_click()

注册窗口。show

unload me

end sub

员工界面。private sub form_load()

年 "2002"

年 "2003"

年 "2004"

年 "2005"

年 "2006"

年 "2007"

年 "2008"

年 "2009"

年 "2010"

年 "2011"

年 "2012"

年 "2013"

年 "2000"

年 "2001"

年 "2002"

年 "2003"

年 "2004"

年 "2005"

年 "2006"

年 "2007"

年 "2008"

年 "2009"

年 "2010"

年 "2011"

年 "2012"

年 "2013"

月 "01"

月 "02"

月 "03"

月 "04"

月 "05"

月 "06"

月 "07"

月 "08"

月 "09"

月 "10"

月 "11"

月 "12"

月 "01"

月 "02"

月 "03"

月 "04"

月 "05"

月 "06"

月 "07"

月 "08"

月 "09"

月 "10"

月 "11"

月 "12"

end sub

private sub label1_click()

数据库课程设计

数据库库课程设计

数据库课程设计总结数据库课程设计个人总结

数据库课程设计

其他用户还读了