第四步:在确定按钮的CLICK事件中编写代码:
T=THISFORM.COMBO1.VALUE &&获得选中表的文件名
T=LEFT(t,LEN(T)-3) &&去掉文件名后面的.dbf M=0
* 判断哪些条目被选中,从而得到被选中的字段保存在变量T中
FOR I=1 TO thisform.list1.LISTCOUNT
IF THISFORM.LIST1.SELECTED(I)
T=T+THISFORM.LIST1.LIST(I)+','
M=M+1
ENDIF
ENDFOR
T=LEFT(t,LEN(T)-1) &&删除最后一个字段后面的逗号
*显示指定字段上的内容
If m<>0
THISFORM.LIST1.ColumnCount=m
THISFORM.LIST1.Rowsource=T
THISFORM.LIST1.RowsourceType=6
Endif
第五步:在表单的DESTORY事件中编写代码释放公共变量MA数组
4)【提示】 操作步骤：
第一步:创建表单,添加所需控件,修改有关的CAPTION值,将学生表添加到数据环境,然后分别将文本框
和复选框的Controlsource属性改为和其相对应的字段做为数据源
第二步:上一条按钮的CLICK事件代码:
SKIP -1
THISFORM.REFRESH
第二步:下一条按钮的CLICK事件代码:
SKIP
THISFORM.REFRESH
第三步:关闭按钮的CLICK事件代码:
THISFORM.RELEASE
习题九
一、填空题 1)条形菜单 弹出式菜单 2)SET SYSMENU NOSAVE SET SYSMENU TO DEFAULT
3)常规选项 ShowWindow Init 4)RightClick
二、上机题
1)【提示】设计浏览选项时判断当前工作区是否有打开表用函数USED(工作区号),在提示选项对话框的跳过中输入表达式
USED()=.F.
其它选项请学员自己设计完成
2)【提示】
第一步:建立表单,添加组合框控件,修改表单的LOAD事件代码如下:
public M(2)
M(1)=\学生\
M(2)=\选课\
表单的DESTORY事件中释放公共变量M
第二步:组合框控件的RightClick事件中调用快捷菜单MYM: DO MYM.MPR
第三步:保存表单文件名为MYF.SCX
第四步:建立快捷菜单
在\表文件名\选项中选择\过程\代码如下:myf.combo1.rowsourcetype=0
myf.combo1.rowsource='m(2)'
myf.combo1.rowsourcetype=5
在\学生表字段\选项中选择\过程\代码如下:use 学生
myf.combo1.rowsourcetype=0
myf.combo1.rowsource='学生'
myf.combo1.rowsourcetype=8
在\选课表字段\选项中选择\过程\代码如下:use 选课
myf.combo1.rowsourcetype=0
myf.combo1.rowsource='选课'
myf.combo1.rowSourcetype=8
在\组合/列表框\选项中选择\过程\代码如下:if myf.combo1.style=0
myf.combo1.style=2 else
myf.combo1.style=2
endif
3)【提示】打开第1题菜单，在“常规选项”对话框中选择“顶层表单”复选框，注意要重新生成菜单程序；
将表单的ShowWindow属性设为2，在表单的Init事件中添加调用菜单程序命令
习题十
一、选择题 1)A 2)D 3)B 4)B
二、填空题 1)数据源 布局 2)文件 通用型字段 3)组标头 组注脚 4)“页面设置”对话框的列数
习题十一
一、 选择题 1)B 2)D 3)C 4)D 5)A
二、填空题
1)应用程序框架 2)可以在桌面上运行的.EXE程序
3)在VF主窗口中运行的.APP程序 4)清理 5)向导 全部 6）数