- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PB课设—员工管理系统讲述
员工管理系统
一、本 组 设 计 的 功 能 描 述 功能说明如下:
新员工的基本信息的添加
员工信息查看,修改
3. 修改密码
4. 查询员工的信息
(1)姓名查询
(2)工号查询
导出数据到各种格式中,打印员工基本信息表
员工基本信息操作:打印、删除、保存修改
员工培训信息查询
部门信息管理
岗位信息管理
员工培训课程管理 本 组 设 计 的 主 要 特 色 菜单是在窗口中与用户直接接触的一个重要对象,菜单必须依附于窗口,除了子窗口和响应窗口外,其他类型的窗口都可以带有菜单。
窗口是应用程序的图形用户界面的基本元素,其他的应用程序组件往往是通过窗口联系起来的,所以对于一个应用程序来说,创建窗口对象是极其基本的一步工作。继承是面向对象编程的一个重要概念,它是自动共享各个类、子类中的方法和数据的有效机制。作为过程式系统所没有的一个有力机制,继承使得我们可以通过从父类中继承公共方法和数据,进而通过添加新的数据和方法定义一个新的类。
在此程序设计中,设计了一些窗口和数据窗口,还有一个菜单对象。数据窗口的显示风格有Grid、Freeform、Gross Tab和N_Up;数据源类型有Quick Select,SQL Select等。在生成数据窗口是,还定义了String型检索参数变量来分别表示其中的内容,在数据窗口中还改变了一些控件的编辑风格和属性并在其中添加了计算域控件和文本控件。在设计窗口时,用到了窗口继承的方法,那样既方便又快捷,还节约了工作量。
三、系 统 分 析 与 设 计系统功能模块系统流程图
由于对框架的完善,加入了员工培训的内容。
数据库关系图
该关系图体现了数据库中表的格局与内容。但是另外的课程信息表并没有涉及,而是另外的两个表。
三、各部分功能简要说明
1、w_login登录窗口
”登录“按钮代码
string password,username
SELECT user.admin,
user.password
INTO :username,
:password
FROM user
WHERE user.admin = :sle_1.text;
if sle_1.text= or sle_2.text= then
messagebox(错误!,用户名或密码不能为空!,exclamation!,ok!,2)
else
if username=sle_1.text and password=sle_2.text then
messagebox(通过验证!,用户名和密码正确,欢迎您使用本系统!,Information!,ok!,2)
else
messagebox(错误!,用户名或密码错误,请重新输入!,exclamation!,ok!,2)
end if
end if
点击修改密码进入密码修改页面,也可由主界面进入。
确定按钮代码
string ll_password,ll_username
if trim(sle_1.text) ll_password then
messagebox(提示,旧密码错误)
else
if trim(sle_2.text)=(sle_3.text) then
ll_password=trim(sle_2.text)
UPDATE user1
SET password = :ll_password
WHERE (name = :ll_username) and
(password = :ll_password);
if sqlca.sqlcode0 then
messagebox(提示,密码修改不成功)
else
close(parent)
messagebox(提示,密码修改完成)
end if
else
messagebox(提示,两次密码不相同)
end if
end if
2、w_main主界面
主界面由主菜单设置
3、员工信息查询,
1)、按工号查询
2)、按姓名查询
4、员工基本情况浏览
1)婚姻情况
修改的代码
if messagebox(提示信息,是否保存修改?,Question!,YesNo!,1)=1 then
dw_1.update()
messagebox(提示信息,保存完成)
else
messagebox(提示信息,保存失败)
end if
部门信息
添加按钮
int g1
g1=dw_1.Insertrow(0)
dw_1.Scroll
文档评论(0)