VFP6.0人事管理系统 第4页
do form bj
case thisform.optiongroup1.option2.value=1
do form jtbj
case thisform.optiongroup1.option3.value=1
do form shehuln
endcase
删除代码：
do case
case thisform.optiongroup1.option1.value=1
do form bj
case thisform.optiongroup1.option2.value=1
do form jtbj
case thisform.optiongroup1.option3.value=1
do form shehuln
endcase
修改代码：
do case
case thisform.optiongroup1.option1.value=1
do form bj
case thisform.optiongroup1.option2.value=1
do form jtbj
case thisform.optiongroup1.option3.value=1
do form shehuln
endcase
4. 保存表单名为dabj.
5.6.2 BJ表单
1.在项目管理器的文档页中选择表单，单击“新建”，弹出表单设计器，设置“Caption”属性“编辑”， 从“表单”菜单中选择“快速表单”，弹出表单生成器. 在“数据库和表”中选择“人事管理”数据库，其下选“人事档案”表.单击向右的双箭头，选所有的字段.
2.按编辑表单要实现的功能，表单应有“更改”、“新增空记录”、“删除”等记录，还添加 “第一个”、“最后一个”等按钮。
“第一个”代码
go top
wait’已到开头’window nowait
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
thisform.refresh
“前一个”代码
skip-1
if bof() &&假如指针已到开头
wait’已到开头’window nowait
go top
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
else &&指头还没有指向第一个记录
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
endif
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
thisform.refresh
“后一个”代码
skip
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
if eof() &&假如指针已到结尾
wait’ 已到结尾’window nowait
go bottom
thisform.command3.enabled=.f.
thisform.command4.enabled=.f.
else &&指针尚未到结尾
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
endif &&假设结束
thisform.refresh
“最后一个”代码
go bottom
wait’已到结尾’window nowait
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.f.
thisform.command4.enabled=.f.
thisform.refresh
3.编辑时，选择相应的记录，便可以在对应的文本框中进行编辑，然后单击“更改”按钮，编辑的结果会反映到人事档案表
4.若要添加一个记录，则先添加“新增空记录”按钮，在相应的文本框中添入数据，然后单击“更改”，记录就会添加到数据库中.若要删除一个记录，选择相应的记录，单击“删除”按钮，
5.为表单添加一个“退出”按钮，以退出编辑表单。
“新增空记录”代码：
append blank
thisform.refresh
“更改”代码：
result= (.f.)
if result==.t.
??chr(7)
=messagebox(“修改成功!”，48，”信息窗口”)
thisform.refresh
endif
“删除”代码：
use 人事档案
if messageBOX("确实要删除记录吗?"，1+64+256，"提示")=1
delete
pack
thisform.refresh
else
thisform.refresh
endif
6.保存表单取名 BJ
5.7统计程序
5.7.1 tj表单
1.新建一个表单“统计”添加一个按钮组4个按钮
2.四个按钮为“统计职务”、“统计部门”、“统计职称”、“统计文化程度”在右边添加一个“图象”空间，并设“STRETCH”属性为”2-STRETCH”，”PICTURE”属性所在位置
“统计职务”代码
wait window "正在统计。。。。" timeout 2
report form tjzw environment preview **调用一个报表
“统计部门”代码
DO form tjbm
RELEASE THISFORM
“统计职称”代码
Do form tjzc
RELEASE THISFORM
“统计文化程度”代码
wait window "正在统计。。。。" timeout 2
report form tjwh environment preview **调用一个报表
5.7.2 tjzc表单设计如下：
这一表单主要统计了两个方面的数据：一是总人数、男职工、女职工的人数，另一方面是统计各类职称的教师人数。
1.创建新表单，在表单中添加一个标签Label1，设置起标题为“统计职称”，再添加两个容器控件Container1，Container2，设置它们的SpecialEffect属性值为：“1-凹下”。
2．编辑容器控件Container1，添加三个标签，caption属性分别设置为“职工总人数”、“男性人数”、“女性人数”，再添加三个文本框控件用来显示统计结果，分别把他们的Read Only设置为真。
3．同理，编辑容器控件Container2，添加四个标签，caption属性分别设置为“教授”、“副教授”、“讲师”、“助教”，再添加四个文本框控件用来显示统计结果，分别把他们的Read Only设置为真。
上一页 [1] [2] [3] [4] [5] [6] 下一页