编辑表单的初始化事件（Init Event）程序代码为
private js，ja，jq，zc1，zc2，zc3，zc4
use 人事档案
count to js
thisform.container1.text1.value=js
count for 性别="男" to ja
thisform.container1.text2.value=ja
count for 性别 ="女" to jq
thisform.container1.text3.value=jq
count for 职称="教授" to zc1
thisform.container2.text1.value=zc1
count for 职称="副教授" to zc2
thisform.container2.text2.value=zc2
count for 职称="讲师" to zc3
thisform.container2.text3.value=zc3
count for 职称="助教" to zc4
thisform.container2.text4.value=zc4
use
5.8报表设计
创建报表rj是一对多报表，数据源为数据表“人事档案”和“家庭成员”。
制作过程：
1．利用“项目管理器”里的“一对多报表向导”，按确定按钮，进入“一对多报表向导”步骤1窗口：从父表选择字段。
2．在“数据库和表”列表框中选择要输出的数据表“人事档案”做为父表，然后在“可用字段”列表中选择要输出的字段。
3．单击“下一步”进入步骤2窗口“从子表选择字段”，先在“数据库和表”列表框中选择要输出的数据表“家庭成员”作为子表，在“可用字段”列表框中选择要输出的字段。
4．数据表“人事档案”和“家庭成员”事先已经建立索引。因而在步骤3窗口中，两个表选取匹配的字段“编号”。
5．单击“下一步”进入步骤4：排序记录。再“下一步”进入步骤5：选择报表样式，选择一个报表样式，输出方向可以根据需要选择纵向或横向。单击“下一步”进入步骤6窗口：完成。
6．在步骤6中可以输入表的标题，可单击“预览”按钮进行预览，不满意时有单击“上一步”来逐步返回进行修改：最后，选择适当选项后单击“完成”按钮，则一个新的报表建立。
5.9主菜单设计
菜单的设计从一开始就是为了方便用户界面的使用。在以往的DOS界面里，程序员为了编写一个自己的菜单系统，往往要花费大量的时间和精力。现在，有了可视化的编程工具，WINDOWS用户界面已经越来越来趋于简单化，其结果是只要了解一些最基本的工具，在加上简单的代码，用户就完全可以编写自己的操作界面。
今天，尽管WINDOWS的各种快捷工具越来越起着重要的作用，但是菜单作为一种方便地操作方式，起作用仍然是不可替代的。使用Visual FoxPro 6.0的“菜单设计器”可以把用户的任务和操作组织起来，并放入合乎逻辑的菜单组。菜单设计提高了Visual FoxPro 6.0应用程序能力[3]。
以下给出主菜单系统参数设置：
主菜单中三个过程文件程序代码如下：
a.系统初始化的过程代码：
SET SAFETY OFF
CLOSE DATABASE
A=MESSAGEBOX("系统记录将被清空，你真的这样做?!!!"，4+16+256，"系统警告")
IF A=4
USE 人事档案
ZAP
USE 家庭成员
ZAP
USE 社会关系
ZAP
ENDIF
USE
b.系统备份的过程代码：
CLOSE DATABASE
A=MESSAGEBOX("请把备份盘插入软驱!!"，4+64+256，"提示信息")
USE 人事档案
IF A=4
COPY TO A:\人事档案.DBF
USE 家庭成员
COPY TO A:\家庭成员.DBF
USE 社会关系
COPY TO A:\社会关系.DBF
ENDIF
USE
b.系统恢复的过程代码：
SET SAFETY OFF
CLOSE DATABASE
A=MESSAGEBOX("请把备份盘插入软驱!!"，4+64+256，"提示信息")
IF A=4
USE A:\人事档案.DBF
COPY TO 人事档案.DBF
USE A:\家庭成员.DBF
COPY TO 家庭成员.DBF
USE A:\社会关系.DBF
COPY TO 社会关系.DBF
ENDIF
USE
主菜单参数设置一烙彭：
|
菜单名称 |
结果 |
编辑或命令 |
跳过 |
|
|
文件 |
子菜单 |
|
K18=0 |
|
|
系统初始化 |
过程 |
|
K1=0 |
|
|
恢复系统 |
过程 |
|
|
|
|
系统备份 |
过程 |
|
K3=0 |
|
|
数据更新 |
命令 |
Do form babj.scx |
K4=0 |
|
|
更改口令 |
命令 |
Do form 密码修改表单.scx |
K5=0 |
|
|
查询 |
子菜单 |
|
K6=0 |
|
|
模糊查询 |
命令 |
Do form rskpcx.scx |
K8=0 |
|
|
精确查询 |
命令 |
Do form cxl.scx |
K7=0 |
|
|
统计 |
子菜单 |
|
K9=0 |
|
|
职务统计 |
命令 |
Report form tjzw.frx preview |
K10=0 |
|
|
学历统计 |
命令 |
Report form wh.frx preview |
K11=0 |
|
|
职称统计 |
命令 |
Do form tjzc.scx |
K12=0 |
|
|
部门统计 |
命令 |
Do form tjbm.scx |
K13=0 |
|
|
报表 |
子菜单 |
|
K14=0 |
|
|
个人档案 |
命令 |
Report form rj.frx preview |
|
|
|
员工社会关系 |
命令 |
Report form rs.frx preview |
|
|
|
职工基本信息 |
命令 |
Report form rsda.frx preview |
|
|
|
报表打印 |
命令 |
Do form dada.scx |
K16=0 |
|
|
浏览 |
子菜单 |
|
K15=0 |
|
|
员工基本情况 |
命令 |
Do form ln.scx |
|
|
|
员工家庭情况 |
命令 |
Do form jiatln |
|
|
|
|
|
|
|
|
5.10编译
当所有的程序编辑好后，需要对系统进行编译，制作成为可以执行的程序。
编译过程简述如下:
1. 将系统中涉及到的文件全部包含到“项目管理器”.需要注意的是主界面等用到图片文件需要手工添加近来，将其包含到“其他”中的“其他文件”项中.无用的表单，数据表等都要移除，最后将他们的源文件从系统目录中删除。
2.单击项目管理器右侧的“连编”按钮，选择连编项目.选择“重新连编全部文件”命令，他的功能是将项目管理器中包含的文件做检查，如果在连编后删除某些文件，就需要使用这个按钮对文件重新连编，这一过程是计算机自动完成的。
3． 编译结束后，如果没有错误，就可以生成可执行文件了，如有错误系统会自动弹出提示，在提示中，可以选择“忽略”，“全部忽略”，“取消”，这里的“忽略”就是不管出现什么样的错误，继续编译，当然通常一旦出现错误提示就应该选择“取消”，然后找出相应的错误，改正后再编译。
上一页 [1] [2] [3] [4] [5] [6] 下一页