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,设置起标题为“统计职称”,再添加两个容器控件Container1Container2,设置它们的SpecialEffect属性值为:“1-凹下”。

2.编辑容器控件Container1,添加三个标签,caption属性分别设置为“职工总人数”、“男性人数”、“女性人数”,再添加三个文本框控件用来显示统计结果,分别把他们的Read Only设置为真。

3.同理,编辑容器控件Container2,添加四个标签,caption属性分别设置为“教授”、“副教授”、“讲师”、“助教”,再添加四个文本框控件用来显示统计结果,分别把他们的Read Only设置为真。

上一页  [1] [2] [3] [4] [5] [6] 下一页

Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有