vb ActX控件基础用法(8)

7．编写“退出”命令按钮的Click事件代码：thisform.release 8．保存表单，表单文件名为form_dl。 9．运行表单form_dl。

九、组合框从磁盘上获取表清单的应用

新建如图6-30所示的表单form_zhkb，功能要求如下：

（1）表单运行时，在左边的下拉列表框中显示“E:\\VFP项目”文件夹中所有的VFP表的文件名；

图6-30 表单 form_zhkb运行结果

（2）从左边下拉列表框中选择一个表文件，则该表的字段名将自动显示在右边的列表框中。

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个标签、1个组合框和1个列表框控件。 3．设置控件属性。按照题目要求如表6-6所示设置控件属性。

表6-6 表单form_zhkb属性设置

控件 Combo1 属性 RowSourceType RowSource Style List1 Label1 RowSourceType Caption 属性值 7-文件 E:\\VFP项目\\*.dbf 2-下拉列表框 8-结构 选择表文件： 说明 指定Combo1数据源类型 指定Combo1数据源 指定Combo1类型 指定List1数据源类型 设置Label1标题 4．编写组合框Combo1的InteractiveChange事件代码： filename=this.value use &filename

thisform.list1.rowsource=filename

5．保存表单，表单文件名为form_zhkb。 6．运行表单form_zhkb。

十、用临时表作为表格的数据源

新建如图6-31所示的表单form_bg，功能要求如下：表单运行时，先在文本框中输入要查询的学号，如“200902”，单击“查询”按钮，则表格控件中显示该学生的姓名以及各门课程的成绩，单击“退出”按钮关闭表单。

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个标签、1个文本框、2个命令按钮和1个表格控件。

图6-31 表单 form_bg运行结果

3．设置控件属性。如图6-31所示分别设置标签和命令按钮控件的Caption属性。

4．设置数据环境。打开数据环境设计器，将“student”表和“sc”表添加进数据环境。 5．编写“查询”命令按钮的Click事件代码： xh=alltrim(thisform.text1.value)

select 姓名,课程号,成绩 from student,sc;

where student.学号=sc.学号 and student.学号=xh into cursor tmp thisform.grid1.recordsourcetype=1 thisform.grid1.recordsource=\

6．编写“退出”命令按钮的Click事件代码：release thisform 7．保存表单，表单文件名为form_bg。 8．运行表单form_bg。

十一、在两个表格控件之间建立关联

新建如图6-32所示的表单form_lbg，功能要求如下：

（1）第1个表格控件名称是gridstu，用于显示表student中的记录；

图6-32 表单 form_lbg运行结果

（2）第2个表格控件名称是gridsc，用于显示与表student当前记录对应的sc表中的记录。 操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加2个表格控件。

3．设置数据环境。打开数据环境设计器，将“student”表和“sc”表添加进数据环境。 4．为子表建索引。在数据环境中观察是否已经为子表sc的关联字段“学号”建索引，如果没有，打开sc表的表设计器，建立以“学号”为关键字的普通索引。

5．设置控件属性。按照题目要求如表6-7所示设置控件属性。

表6-7 表单form_lbg属性设置

控件 Grid1

Name 属性 属性值 gridstu 说明 指定grid1的名称

RecordSourceType RecordSource Name RecordSourceType Grid2 RecordSource LinkMaster ChildOrder RelationalExpr 1-别名 student gridsc 1-别名 sc student 学号 学号 指定grid1数据源类型 指定grid1数据源 指定grid2的名称 指定gird2数据源类型 指定grid2数据源 指定父表别名 指定子表的索引标识名 指定父表的关联关键字 6．保存表单，表单文件名为form_lbg。 7．运行表单form_lbg。 课后练习

一、新建如图6-33所示的表单form_ex8，功能要求如下： （1）单击“仓库”按钮时，浏览“仓库”表； （2）单击“职工”按钮时，浏览“职工”表； （3）单击“订购单”按钮时，浏览“订购单”表；

图6-33 表单 form_ex8运行结果

（4）单击“供应商”按钮时，浏览“供应商”表。

图6-34 表单 form_ex9运行结果

二、新建如图6-34所示的表单form_ex9，功能要求如下：

（1）表单的标题为“订单情况统计”。表单中有一个选项组控件（myOption）和两个命令按钮“统计”（Command1）和“退出”（Command2）。其中，选项按钮组控件包含有两个选项按钮“升序”（Option1）和“降序”（Option2）。

（2）设置选项按钮组中各个选项按钮的访问键：“升序”按钮的访问键为字母“A”，降序按钮的访问键为字母“D”。

（3）运行表单时，首先在选项按钮组控件中选择“升序”或“降序”，单击“统计”命令按钮后，按照订单总数的“升序”或“降序”（根据选项组控件的选择结果）将每个职工的职工号和订单总数分别存入emp_sorta.dbf和emp_sortd.dbf文件中。