PB人事管理系统课程设计.doc
《PB人事管理系统课程设计.doc》由会员分享，可在线阅读，更多相关《PB人事管理系统课程设计.doc（17页珍藏版）》请在冰豆网上搜索。
PB数据库应用程序开发
课程设计报告书
2009/2010学年第2学期
课程名称：
PB数据库应用程序开发
项目：
人事管理系统
学院：
计算机科学与技术
专业：
计算机网络
指导教师：
班级：
成员：
2010年6月
目录
一、功能说明 3
二、整体设计 4
1、软件功能框架设计 4
2、数据库设计及其关系图 4
（1）、数据关系图 5
（2）、数据库视图 5
三、各功能简要说明 6
1.w_login窗体，登录验证后到主界面 6
（1）.“登录”按钮代码 6
2.w_main窗体，显示信息，打印，另存为等操作 7
（1）.“保存修改”按钮代码 7
（2）.“另存为”按钮代码 7
（3）.“打印”按钮代码 7
（4）.“刷新”按钮代码 7
3.w_tianjia窗体，添加新员工 8
（1）.“添加”按钮代码 8
4.w_shanchu窗体，删除员工 9
（1）.“删除”按钮代码 9
5.w_hunying窗体，查看婚姻信息 10
（1）.“修改”按钮代码 10
6.w_xueli窗体，查看学历信息 11
（1）.“保存修改”按钮代码 11
（2）.“打印”按钮代码 11
（3）.“另存为”按钮代码 11
7.w_gonghao窗体，按工号查询员工信息 12
（1）.“查询”按钮代码 12
8.w_xingming窗体，按姓名查询员工信息 13
（1）.“查询”按钮代码 13
9.w_txueli窗体，统计员工学历信息 14
10.w_bumen窗体，查看部门信息 14
（1）.“添加”按钮代码 15
（2）.“删除”按钮代码 15
（3）.“保存修改”按钮代码 15
11.w_gangwei窗体，查看岗位信息 15
（1）.“添加”按钮代码 16
（2）.“删除”按钮代码 16
（3）.“保存修改”按钮代码 16
12.菜单menus 16
四、总结 17
1、程序说明 17
2、心得体会 17
一、功能说明
“人事管理系统”整体功能说明
整个工资管理系统仅一管理员账号，登陆后能查看员工基本信息，员工学历信息，员工婚姻信息，添加、修改、删除员工信息，查看、修改部门和岗位信息
功能说明如下：
1．新员工的基本信息的添加
2．员工信息查看，修改
3．修改密码
4．查询员工的信息
5．导出数据到各种格式中，打印员工基本信息表
6.员工学历统计图
7．部门信息管理
8.岗位信息管理
本程序制作环境：
windows7，PowerBuilder9.0,MSSQL2005
二、整体设计
1、软件功能框架设计
2、数据库设计及其关系图
注意：
以下此数据库图中未包含管理员账号、密码表格，且为MSSQL2005中创建
（1）、数据关系图
（2）、数据库视图
三、各功能简要说明
1.w_login窗体，登录验证后到主界面
（1）.“登录”按钮代码
stringpassword,username
SELECTuser.admin,
user.password
INTO:
username,
:
password
FROMuser
WHEREuser.admin=:
sle_1.text;
ifsle_1.text=""orsle_2.text=""then
messagebox（"错误！
","用户名或密码不能为空！
",exclamation!
ok!
2）
else
ifusername=sle_1.textandpassword=sle_2.textthen
messagebox（"通过验证！
","用户名和密码正确，欢迎您使用本系统！
",Information!
ok!
2）
else
messagebox（"错误！
","用户名或密码错误，请重新输入！
",exclamation!
ok!
2）
endif
endif
2.w_main窗体，显示信息，打印，另存为等操作
（1）.“保存修改”按钮代码
ifmessagebox（"提示信息","是否保存修改?
",Question!
YesNo!
1）=1then
dw_1.update（），messagebox（"提示信息","保存完成"）
else
messagebox（"提示信息","保存失败"）
endif
（2）.“另存为”按钮代码
dw_1.SaveAs（）
（3）.“打印”按钮代码
dw_1.Print（）
（4）.“刷新”按钮代码
dw_1.retrieve（）
3.w_tianjia窗体，添加新员工
（1）.“添加”按钮代码
if（sle_1.text=""orsle_2.text=""orsle_3.text=""orsle_4.text=""orsle_5.text=""orsle_6.text=""orsle_7.text=""orsle_8.text=""orsle_9.text=""orsle_10.text=""orsle_11.text=""orsle_12.text=""orsle_13.text=""orsle_14.text=""orsle_15.text=""orsle_16.text=""）then
messagebox（"提示信息","信息未填完整"）
else
ifmessagebox（"提示信息","是否添加此员工?
",Question!
YesNo!
1）=1then
insertinto员工基本信息表（员工基本信息表.工号,员工基本信息表.姓名,员工基本信息表.学历,员工基本信息表.岗位,员工基本信息表.部门,员工基本信息表.电话号码,员工基本信息表.性别,员工基本信息表.出生日期,员工基本信息表.家庭住址,员工基本信息表.婚否,员工基本信息表.参加工作时间）
values（:
sle_1.text,:
sle_2.text,:
sle_12.text,:
sle_3.text,:
sle_4.text,:
sle_5.text,:
sle_10.text,:
sle_6.text,:
sle_8.text,:
sle_9.text,:
sle_7.text）;
insertinto员工婚姻情况表（员工婚姻情况表.姓名,员工婚姻情况表.性别,员工婚姻情况表.配偶）
values（:
sle_2.text,:
sle_10.text,:
sle_11.text）;
insertinto员工学历情况表（员工学历情况表.姓名,员工学历情况表.学历,员工学历情况表.专业,员工学历情况表.学校,员工学历情况表.外语水平,员工学历情况表.毕业时间）
values（:
sle_2.text,:
sle_12.text,:
sle_13.text,:
sle_14.text,:
sle_15.text,:
sle_16.text）;
messagebox（"提示信息","添加完成"）
else
messagebox（"提示信息","添加失败"）
endif
endif
4.w_shanchu窗体，删除员工
（1）.“删除”按钮代码
if（sle_1.text=""orsle_2.text=""）then
messagebox（"提示信息","请两项都要输入"）
else
ifmessagebox（"提示信息","删除后无法恢复，是否删除此员工所有信息?
",Question!
YesNo!
1）=1then
deletefrom员工基本信息表
where员工基本信息表.姓名=:
sle_1.textand员工基本信息表.工号=:
sle_2.text;
deletefrom员工学历情况表
where员工学历情况表.姓名=:
sle_1.text;
deletefrom员工婚姻情况表
where员工婚姻情况表.姓名=:
sle_1.text;
messagebox（"提示信息","删除完成"）
sle_1.text=""
else
messagebox（"提示信息","删除失败"）
endif
endif
5.w_hunying窗体，查看婚姻信息
（1）.“修改”按钮代码
ifmessagebox（"提示信息","是否保存修改?
",Question!
YesNo!
1）=1then
dw_1.update（）
messagebox（"提示信息","保存完成"）
else
messagebox（"提示信息","保存失败"）
endif
6.w_xueli窗体，查看学历信息
（1）.“保存修改”按钮代码
ifmessagebox（"提示信息","是否保存修改?
",Question!
YesNo!
1）=1then
dw_1.update（）
messagebox（"提示信息","保存完成"）
else
messagebox（"提示信息","保存失败"）
endif
（2）.“打印”按钮代码
dw_1.Print（）
（3）.“另存为”按钮代码
dw_1.saveas（）
7.w_gonghao窗体，按工号查询员工信息
（1）.“查询”按钮代码
if（sle_6.text=""）thenmessagebox（"提示信息","请输入工号"）
else
select员工基本信息表.工号,员工基本信息表.姓名,员工基本信息表.学历,员工基本信息表.岗位,员工基本信息表.部门,员工基本信息表.家庭住址
into:
sle_1.text,:
sle_2.text,:
sle_3.text,:
sle_4.text,:
sle_5.text,:
sle_7.text
from员工基本信息表
where员工基本信息表.工号=:
sle_6.text;
sle_6.text=""
endif
8.w_xingming窗体，按姓名查询员工信息
（1）.“查询”按钮代码
if（sle_6.text=""）then
messagebox（"提示信息","请输入姓名"）
else
select员工基本信息表.工号,员工基本信息表.姓名,员工基本信息表.学历,
员工基本信息表.岗位,员工基本信息表.部门,
员工基本信息表.家庭住址
into:
sle_1.text,:
sle_2.text,:
sle_3.text,:
sle_4.text,:
sle_5.text,:
sle_7.text
from员工基本信息表
where员工基本信息表.姓名=:
sle_6.text;
sle_6.text=""
endif
9.w_txueli窗体，统计员工学历信息
10.w_bumen窗体，查看部门信息
（1）.“添加”按钮代码
intk1
k1=dw_1.InsertRow（0）
dw_1.ScrollToRow（k1）
（2）.“删除”
升级会员 