vfp做的企业人事标准管理系统

企业人事管理系统

第一章课程设计题目

1.1数据库技术和应用课程设计题目

此次为期一周课程设计题目为设计一个企业人事管理系统。

第二章课程设计要求及目标

2.1数据库技术和应用课程设计要求及目标

2.1.1课程设计要求

1.符合课题要求，实现对应功效。能够加以其它功效或修饰，

使程序愈加完善、合理；

2.要求界面友好美观，操作方便易行；

3.注意程序实用性、安全性；

4.随时统计设计情况（备查，也为编写设计说明书作好准备）；

2.1.2课程设计目标

本课程设计其目标在于加深对《数据库技术和应用》原理和程

序了解、巩固、提升，让学生做到学以致用，把所学理论知识应用于

实际问题处理、编制出完整应用程序，为以后实际编制大型应用软件

打下基础。

第三章课程设计说明介绍

3.1数据库技术和应用课程设计说明介绍

先建立职员基础信息表、职员考评信息表，在数据库中建立关联,

方便后面建立表单使用。

3.1.1进入界面

“进入”代码以下:

docase

casethisform.optiongroupI.value=1

doform管理员登陆界面

thisform.release

casethisform.optiongroup1.value=2

doform通常见户登陆界面

thisform.release

endcase

“退出”代码以下:

quit

3.1.2登录界面

“确定”代码以下：

*设置密码不能为空，如许可为空则不需此步骤

IfLen(Alltrim(Thisform.text2.Value))=0

Messagebox。请输入用户名或密码！')

Return

Endif

Usegly.dbf

LocateForAlltrim(用户名尸二Alltrim(ThisfomUext1.Value)

*假如没有找到相同统计时实施下面代码

IfEof()

Use

Messagebox，没有此用户！’)

Thisform.textl.Value="

Thisform.text2.Value=H

Thisform.text1.SetFocus

i=i+l

ifi<=3

messagebox("密码或用户名错，请重新输入广)

thisform.text2.value="n

thisform.text2.setfocus

else

MessageboxC连续三次输入错误，系统将退出！,)

Use

Quit

Endif

Return

ENDIF

*找到后实施动做

IfAlltrim（Thisform.text2.Value尸=Alltrim（密码）

Mesagebox（11能够进入！”，4+8,”信息窗口”）

doform管理界面

thisform.release

*在这里添加在正确登录后你要继续实施程度

Else

Use

Messagebox,密码错误！'）

Thisform.text2.Value=n

Thisform.text2.SetFocus

i=i+l

ifi<=3

messagebox（"密码错，请重新输入!”）

thisform.text2.value=,M'

thisform.text2.setfocus

else

MessageboxC连续三次输入错误，系统将退出！’）

Use

Quit

Endif

Return

ENDIF

“取消”代码以下：

thisform.text1.value=M"

thisform.text2.value='M,

thisform.refresh

“退出”代码以下：

doform进入界面

thisform.release

3.1.3管理员功效界面

「「管理员功能界面_□

欢迎登陆企业人事管理系统

添加职工基本信息

等加圮录.

匚添加职工考核信息

修改职工基本信息

修改记录

修改职工考核信息

功删除职工基本信息

删除记录

能删除职工基本信息

界

面查询职工基本信息

查询

查询职工考核信息

统计

报表打印

3.1.3.1添加信息界面

添加记录

添加职工基本信息

职工号［100203姓名丽福性别因

籍贯|河南省平顶山节出生日期104/06/1985

学历|大学本科政治面貌冲共党员

所属部门|经理办公室现任职务|总经理秘书

进公司年份（2006年婚姻状况日i

简

历添加I

保存I

退出I

“添加”代码以下：

use职员信息表

appendblank

thisform.txt职员v.readonly=.f.

thisform.txt姓名.readonly=.f.

thisform.txt性别.readonly=.f.

thisform.txt学历.readonly=.f.

thisform.txt籍贯.readonly=.f.

thisform.txt出生日期.readonly=.f.

thisform.txt政治面貌.readonly二.f.

thisform.txt所属部门.readonly二.f.

thisform.txt进企业年份.rcadonly=.f.

thisform.txt婚姻情况.readonly二.f.

thisform.edt简历2.readonly=.f.

thisform.txt职员号.setfocus

thisform.refresh

“保留”代码以下：

!?1=111底5跄8m0*（"是否保留？”,4+48,”信息窗口”）

ifm=6

!11©§$28匕13（火（"信息已保留”,48,“信息窗口"）

else

delete

pack

endif

thisform.txt职员号.readonly二t

thisform.txt姓名.readonly=.t.

thisfom.txt性别.readonly二.t.

thisform.txt学历.readonly=.t.

thisform.txt籍贯.readonly=.t.

thisform.txt出生日期.readonly=.t.

thisform.txt政治面貌.readonly=.t.

thisform.txt所属部门.readonly=.t.

thisform.txt进企亚年份.readonly=.t.

thisform.txt婚姻情况.readonly=.t.

thisform.edt简历2.readonly二.t.

thisform.txt职员号.setfocus

thisform.refresh

“退出”代码以下:

thisform.release

3.1.3.2修改信息

可进行修改并保留，同时经过查找所要修改统计，方便管理

员修改。

“修改”代码以下：

use职员信息表

thisform.txt职员号.readonly=.f.

thisform.txt姓名.rcadonly=.f.

thisform.txt性别.readonly二.f.

thisform.txt学历.readonly=.f.

thisform.txt籍贯.readonly=.f.

thisform.txt出生日期.readonly=.f.

thisform.txt政治面貌.readonly=.f.

thisform.txt所属部门.readonlyjf.

thisform.txt进企业年份.readonly=.f.

thisform.txt婚姻情况.readonly二.f.

thisform.edt简历2.readonly=.f.

thisform.txt职员号.setfocus

“保留”代码以下：

m=messag6box（"是否保留？”,4+48,”信息窗口”）

ifm=6

messagebox（"信息已保留”,48,“信息窗口”）

thisform.txt职员号.readonly=.t.

thisform.txt姓名.readonly=.t.

thisform.txt性别.readonly".

thisform.txt学历.readonly=.t.

thisform.txt籍贯.readonly".

thisform.txt出生日期.readonly=.t.

thisform.txt政治面貌xeadonly=.t.

thisform.txt所属部门.readonly二.t.

thisform.txt进企业年份.readonly=.t.

thisform.txt婚姻情况.readonly=.t.

thisform.edt简历2.readonly=.t.

thisform.txt职员号.setfocus

else

thisform.refresh

endif

“查找”代码以下：

setorderto职员号

seekallt(thisform.textl.value)

if!found()

messagebox("此职员号不存在”,48，“错误")

gotop

endif

thisform.textl.value="n

thisform.refresh

3.1.3.3删除界面

“删除”代码以下：

m=messagebox（"是否删除？”,4+32,"信息窗口”）

ifm=6

messagebox（"统计已经删除!”,48,“信息窗口"）

delete

pack

select职员信息表

gobottom

else

thisform.refresh

endif

3.1.3.4查询界面

“查询”代码以下:

getid=allt(thisform.text1.value)

getname=alk(thisform.text2.value)

getdepart=allt(thisform.text3.value)

flag1=thisform.checkl.value

flag2=thisform.check2.value

flag3=thisform.check3.value

ifflag1=0andflag2=0andflag3=0

messagebox(n请输入查询条件",48,"错误")

endif

ifflagl=landflag2=0andflag3=()

select*from职员信息表where职员号二getidintocursoraa

thisform.grid1.recordsource二“aa”

endif

ifflag1=0andflag2=landflag3=0

select*from职员信息表where姓名二getnameintocursoraa

thisform.grid1.recordsource="aan

endif

ifHag1=0andflag2=0andfiag3=l

select*from职员信息表where所属部门=getdepartintocursoraa

thisform.grid1.recordsource="aan

endif

ifflagl=landflag2=landflag3=0

select*from职员信息表where职员号=gettidand姓名=getname

intocursoraa

thisform.grid1.recordsource="aan

endif

ifflag1=0andflag2=landflag3=l

select*from职员信息表where姓名=getnameand所属部门

=getdepartintocursoraa

thisform.grid1.recordsource="aan

endif

ifflagl=landflag2=0andflag3=l

select*from职员信息表where职员号=getidand所属部门

=getdepartintocursoraa

thisform.grid1.recordsource二“aa”

endif

ifflagl=landflag2=landflag3=l

select*from职员信息表where职员号=getidand姓名二getnameand

所属部门=getdepartintocursoraa

thisform.grid1.recordsource=“aa"

endif

“清除”代码以下：

thisform.check1.va!ue=0

thisform.check2.value=0

thisform.check3.value=()

thisfonn.textl.value=n"

thisform.text2.value='M,

thisfbrm.text3.value=nn

thisform.gridl.recordsource="H

thisform.refresh

3.1.3.5统计界面

□回X

⑤按性别统计

统「按部门统计UBS

取消1

计「按学历统计［退出||

。按政治面貌统计

职工号姓名性别宿贯出生日期诙政治面脱▲

100203谢晓晓女河南省平顶山市04/06/85大学本科中共党员

200112王强男河南省叶县10/21/80大学专科团员

200113张立男河南省信阳市04/08/82大学专科团费

200114郭佳佳女河北省石家庄02/08/83大学本科中共党员—J

200115电全男河南省三门峡市06/02/84大学本科团员

200116李明明男河南省叶县06/07/80大学专科团员

200117何平男河南省洛阳市09/01/80高中团员

200118王贺利男河南省叶县08/15/81高中团员

200119王伟男河南省信阳市01/09/81高中团员

200210张万里男河北省石家庄12/15/75高中群众

200211张鹏男河北省石家庄05/07/79高中群众

200212李东辉男河南省三:口峡市nfi/2S/78高中群众

200213胡家辉男河南省洛阳市09/26/80高中群众

200214林军男河北省石家庄06/24/85高中群众▼

i-----

11►

“统计”代码以下:

docase

casethisform.optiongroupl.value=1

select性别,count(*)as人数from职员信息表groupby性别

intocursorxx

thisform.grid1.recordsource="xx"

thisform.refresh

casethisform.optiongroup1.value=2

select所属部门,count(*)as人数from职员信息表groupby所

属部门intocursoryy

thisform.grid1.recordsource二“yy”

thisform.refresh

casethisform.optiongroupl.value=3

select学历,count(*)as人数from职员信息表groupby学历

intocursorzz

thisform.grid1.recordsou