vfp中级教程(1)

第一课更多对象编辑框对象(editbox)使用编辑框控件可以编辑诸如字符型变量、数组元素、一般字段以及备注型字段的内容，而用得最多的地方就是编辑备注型字段。

VFP所有的标准编辑功能都能在此使用，比如剪切、复制、粘贴等。

编辑框中的文本可以垂直滚动，并且是自动换行的。

形状对象(shape)用于创建矩形、圆角矩形、圆和椭圆。

这里最重要的属性是curvature，用于设定曲率，为0时没有曲率，形状为矩形；99为最大曲率，为圆；0-99之间的数值可创建圆角矩形，将圆角矩形压扁到一定程度，使其两边的直线没有，而是圆角对圆角就成了椭圆。

另外设置backcolor，可改变它的填充颜色。

在线条对象中供下载的秒表程序里面有对形状的应用。

选项按钮组对象(optiongroup)选项按钮组是一个容器，其中包含若干选项按钮，它可以让您在一组按钮中选择一个，它是单选的，即您选了一个按钮，原来所选的按钮就释放，始终只能有一个按钮被选中。

被选中的按钮是怎样的不需要我再啰嗦了吧。

使用buttoncount属性可以设置组中按钮的个数。

在程序运行时选了第几个按钮，它的value属性就是几，如果您设置了controlsource属性为一个变量，那么该变量的值也是这个数，您可以通过这个变量或其value值得知是那个按钮被选了。

在线条对象中供下载的秒表程序里面有对选项按钮组的应用。

第二课用新的控件改进人事管理（一）这一课我们用上一课讲的一些控件来对前面的人事管理软件进行改进，使其更易用，更不容易出错，最主要当然是为了进一步说明这些控件的用法。

先讲第一个改进，用选项按钮来选择性别在新增和修改人事档案的表单中，本来性别是要输入的，虽然只能输入“.t.”或“.f.”，倒是不会出现输入其它字符的错误，但是很不直观，所以我们用选项按钮来改进。

（1）、将表单上输入性别的文本框换为选项按钮组，选项按钮组做好后隐含两个按钮，这里正好我们需要两个，因为性别就两种（大概不会有第三种）。

但是按钮隐含的排列是上下排列，这样很占地方，我们将其调整为水平排列，方法是：先把选项按钮组拉的比较大，使两个按钮都能看见，暂时将别的控件盖住也不要紧。

然后在属性窗口中选择optiongroup1下面的option2，然后将其放到与option1水平排列的地方，如不能精确调整它的位置，看一下初级教程第七课中的精确调整对象位置。

接着设置标题，将option1的caption设为“男”，option2该设为......，设好如图1。

将optiongroup1的controlsource设为xb，为什么要这样，直接设为“性别”字段不行吗？不行！因为性别字段的值是逻辑型，而op tiongroup1的值为数值型，因此要用一个数值型的变量来接收optiongroup1的选择值，然后用适当方法将其变换为逻辑型存入数据表。

具体方法下面会讲。

（2）、设置xb的初始值，进入“编辑人员”（bjry）表单的修改，在其load 事件中输入如下代码：在这里先将xb设为公共变量，因为load 事件程序是一个子程序，当这个程序运行完毕，其中所有的私有变量（即在本程序中创建的变量）都将释放，之后就再也找不到这个变量了，但这个变量在其它地方又要用，故将其设为公共变量然后根据当前记录的性别字段设置xb的值，如果是“真”就设为1，即“男”，否则为2，即“女”，这样进入表单后选项按钮的黑点就会根据xb的值来显示。

注：在需要逻辑表达式作判断时，如果是逻辑变量，因为其本身就是一个逻辑表达式，为“真”的话就直接写这个变量名，为假的话就写为“.not. 变量名”，而不要写成“变量名=.t.”或“变量名=.f.”（3）、将“新增”按钮的click事件程序改为如下：仔细看看与以前有什么不同（4）、将“上一条”按钮的click事件程序改为如下：“下一条”按钮也做相应改动，看看自己会不会做。

（5）、将“退出”按钮的click事件程序改为如下：第三课用新的控件改进人事管理（二）这一课讲用组合框选择输入部门和职务。

之所以要用选择输入，是因为对于同一值不同人在不同时候输入是不一样的，比如“人事部门”，有人可能会输入成“人事部”，再加上无意识的输入错误，使得一个部门会有好几种说法，这将给查询、统计等带来很大问题，因此我们对于一个其内容只有有限个选择的字段的输入，最好采用选择输入。

从我们前面所讲过的控件中可以看出，复选框、选项按钮组、列表框、组合框都可以用作选择输入，那么时候该用哪一个控件呢？一般原则是：1、对于具有“是”、“否”两种选择的，用复选框；2、选项是固定的，并且选项不太多，可以用选项按钮组；3、对于选项是可变的，并且选项不是非常多，可用列表框；4、对于选项是可变的，并且选项非常多，可用组合框，因为选项非常多的情况下，用列表框找起来是很麻烦的，而组合框可以直接输入，只是在必要的时候才查一下。

另外如果不希望该输入控件占太多地方，也可用组合框，因为它平时只占一行，拉下时才显示框，而列表框始终要占一块位置，当然您高兴也可以让列表框只占一行，但那样操作起来一定别扭。

要实现选择输入，就要将可选择的项目事先准备好，对于选项来说有两种情况，一种是固定的、一种是可变的。

比如性别就是固定的，而部门就可能是不固定的，因为一个单位随时可以增减部门。

固定的选项可以在编程时编好，而不固定的一般就要有个数据表来存放选项，而且这个表可由使用的人任意增删和修改，下面我们就来讲讲怎样实现这种功能。

1.在人事档案数据库中建立一个数据表，就一个字段，字段名为“部门”；2.在菜单中加一项“维护”，下面有一个子菜单项“部门字典”使用的命令是：do form bmzd name bmzd3.建立一个表单，界面如图1；4.5.在“新增”按钮的click事件中写入如下程序：6.在“修改”按钮的click事件中写入如下程序：7.在“删除”按钮的click事件中写入如下程序：8.在“恢复”按钮的click事件中写入如下程序：9.在“退出”按钮的click事件中写入如下程序：10.在表格下的column1下的text1控件的lostfocus事件中写入如下程序：11.存盘退出这样用于输入和维护部门选项的子功能就做好了。

下面在编辑人员的表单中设置一组合框用于输入部门：1.将原来用于输入部门的文本框删除；2.换上一组合框，如图2；3.4.将组合框的controlsource设为“rsda.部门”；5.将rowsourcetype设为“6-字段”；6.将rowsource设为“bmzd.部门”；7.重新设置所有控件的tabindex，设置方法在第七课的第九条“设置控件的tabindex位置”中有讲解。

8.将菜单的初始化代码改为如下：至此用选择输入部门的功能就编好了，用同样方法，我们可以编出用选择输入职务的功能，这做为本课的练习，大家自己做一做。

第四课用新的控件改进人事管理（三）在我们的人事管理软件中，您可能会感觉输入简历的地方小了，这一课我们就来讲利用页框对这一问题进行改进。

1.进入bjry表单的修改状态；2.将表单拉大，把所有控件移到一边；3.按工具栏上的页框按钮，在表单上做上页框，如图1；4.5.在属性窗口中选择pageframe1下的page1，将其caption属性设为“基本情况”，再将page2的caption设为“简历”；6.回到表单把除简历和按钮以外所有控件剪切，再选择page1，将控件粘贴到page1中，如图2，7.8.接着按同样方法把简历控件粘贴到page2中，如图3，由于这个页面中只有一个控件，页标题已说明是“简历”，故“简历”标签可以删掉。

9.10.表单恢复原状；11.将“新增”按钮的click事件程序改为如下：select rsda &&选择人事档案表*根据选项按钮所做的选择，将相应的值存入性别字段if xb=1replace 性别with .t.elsereplace 性别with .f.endifappend blank &&增加一条空记录xb=1 &&将xb设为1*这是一新记录，还不知道是男或女，因此一律设为1，即“男”，作为初始值*将部门设为部门字典中的第一个记录，这样可防止部门没有选择而为空select bmzdgo topselect rsdareplace 部门with bmzd.部门thisform.pageframe1.page1.refresh &&将页面及其控件的内容刷新thisform.pageframe1.page2.refresh &&将页面及其控件的内容刷新thisform.pageframe1.page1.text1.setfocus &&将焦点设到text112.将“上一条”按钮的click事件程序改为如下：skip -1 &&记录指针向上跳一行*以下一段程序检测记录指针是否到了开头，如果是给出提示，*并把指针定位到第一个记录if bof() &&假如指针已到开头wait '已到开头' window nowait &&显示提示，鼠标或键盘一动提示消失go top &&将指针定位到第一个记录endif &&假设结束*根据当前记录的性别字段设置xb的值，如果是“真”就设为1，否则为2*在需要逻辑表达式作判断时，如果是逻辑变量，因为其本身就是一个逻辑表*达式，为“真”的话就直接写这个变量名，为假的话就写为“.not. 变量*名”，而不要写成“变量名=.t.”或“变量名=.f.”if 性别xb=1elsexb=2endifthisform.pageframe1.page1.refresh &&将页面及其控件的内容刷新thisform.pageframe1.page2.refresh &&将页面及其控件的内容刷新thisform.pageframe1.page1.text1.setfocus &&将焦点设到text113.将“下一条”按钮的click事件程序改为如下：skip &&记录指针向下跳一行*以下一段程序检测记录指针是否到了结尾，如果是给出提示，*并把指针定位到最后一个记录if eof() &&假如指针已到结尾wait '已到结尾' window nowait &&显示提示，鼠标或键盘一动提示消失go bottom &&将指针定位到最后一个记录endif &&假设结束*根据当前记录的性别字段设置xb的值，如果是“真”就设为1，否则为2*在需要逻辑表达式作判断时，如果是逻辑变量，因为其本身就是一个逻辑表*达式，为“真”的话就直接写这个变量名，为假的话就写为“.not. 变量*名”，而不要写成“变量名=.t.”或“变量名=.f.”if 性别xb=1elsexb=2endifthisform.pageframe1.page1.refresh &&将页面及其控件的内容刷新thisform.pageframe1.page2.refresh &&将页面及其控件的内容刷新thisform.pageframe1.page1.text1.setfocus &&将焦点设到text114.完事了。