vb ActX控件基础用法(9)

（4）单击“退出”按钮关闭表单。

三、新建如图6-35所示的表单form_ex10，功能要求如下：这是一个多项选择题，选择题的正确答案为“顺序结构”、“分支结构”和“循环结构”，选择答案后，单击“判断”按钮，弹出消息框显示“答题正确！”或“答题错误！”。

图6-36 表单 form_ex11运行结果 图6-35 表单 form_ex10运行结果

四、新建如图6-36所示的表单form_ex11，功能要求如下：用户可以选择相应的选项按钮和复选框选项来设置“放飞的心情”字样的颜色和字体。

提示：“斜体”属性名为FontItalic，“粗体”属性名为FontBold，“下划线”属性名为FontUnderline。如“斜体”复选框的Click事件代码：thisform.label1.FontItalic=this.value

选项按钮组的Click事件代码用DO CASE分支结构来完成。 五、建立如图6-37所示的表单form_ex12，功能要求如下： （1）表单标题为“数据浏览和维护”；

（2）用选项按钮组（Optiongroup1）控件选择职工表(Option1)或订购单表(Option2)； （3）用复选框（check1）控件确定显示的表是否需要存盘；

（4）单击“确定”（Command1）命令按钮，若“存盘”复选框被选中，则用SQL语句将选项按钮组指定的表的内容存入表temp中，否则用SQL语句显示该表的内容；

图6-37 表单 form_ex12运行结果

（5）单击“退出”（command2）命令按钮，关闭并释放表单。

提示：有四种可能情况：①选中“存盘”并选择职工表；②选中“存盘”并选择订购单表；③不选中“存盘”并选择职工表；④不选中“存盘”并选择订购单表，“确定”命令按钮的Click事件代码用分支结构完成。

六、新建如图6-38所示的表单form_ex13，功能要求如下：单击“查询”按钮时，列表框中显示所有职工的职工号，仓库号和所在的城市。

图6-38 表单 form_ex13运行结果 图6-39 表单 form_ex14运行结果

七、新建如图6-39所示的表单form_ex14，功能要求如下： （1）用户从组合框中选择仓库号；

（2）单击“统计”命令按钮，文本框中显示该仓库的职工人数。 （3）单击“退出”按钮关闭表单。

图6-40 表单 form_ex15运行结果

八、新建如图6-40所示的表单form_ex15，功能要求如下：表单运行时，先在文本框中输入要查询的职工号，如“E1”，单击“查询”按钮，则表格控件中显示该职工的职工号、仓库号以及订购单号，单击“退出”按钮关闭表单。

九、新建如图6-41所示的表单form_ex16，功能要求如下：

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

图6-41 表单 form_ex16运行结果

（2）第2个表格控件名称是gridst，用于显示与职工表当前记录对应的订购单表的记录。 十、根据“仓库管理”数据库中的“供应商”和“订购单”表建立一个名为view_order的视图，该视图包含职工号、订购单号、供应商名和地址四个字段，并要求按职工号升序排序，职工号相同情况下按订购单号降序排序。

新建如图6-42所示的表单form_ex17，表单中含有一个表格控件，该表格控件的数据源是前面建立的视图view_order；然后在表单中添加一个命令按钮，该命令按钮的标题为“退出”，要求单击按钮时关闭表单。

图6-42 表单 form_ex17运行结果

提示：把视图view_order添加到表单的数据环境中。

实验三 表单常用控件（三）

实验目的

（1）掌握页框、微调器、计时器控件的常用属性

（2）了解线条、形状、超级链接、ActiveX绑定控件的常用属性

实验内容

一、页框控件的使用

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

（1）表单上包含1个有4个选项卡的页框和1个“退出”命令按钮，要求4个选项卡按从

图6-43 表单form_yk运行结果

左到右的顺序标题分别为“student表”、“sc表”、“dep表”和“course表”；

（2）每个选项卡上均有1个表格控件，分别显示相应表的内容。 操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个命令按钮和1个页框控件。 3．设置控件属性。

（1）设置命令按钮标题：设置Command1的Caption属性值为“退出”。

（2）设置页框控件属性：设置PageFrame1的PageCount属性值为4，右击页框控件，在弹出的快捷菜单中选择“编辑”命令，分别设置4个页面的Caption属性。

4．设置数据环境。打开数据环境设计器，将student、sc、dep和course表添加进数据环境。在页框控件的“编辑”状态下，分别从数据环境中拖动表到相应的页面中，则页面中自动产生一个表格控件显示相应表的记录。

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

二、由微调器控制列表框的显示列数

新建如图6-44所示的表单form_wtq，功能要求如下：根据微调器中数字变化决定列表框中显示“student”表的前几个字段的信息。

图6-44 表单form_wtq运行结果

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加2个标签、1个微调器和1个列表框控件。 3．设置数据环境。打开数据环境设计器，将“student”表添加进数据环境。 4．设置控件属性。按照题目要求如表6-8所示设置控件属性。

表6-8 表单form_wtq属性设置

控件 属性 KeyboardHighValue KeyboardLowValue Spinner1 SpinnerHighValue SpinnerLowValue Value List1 Label1 Label2 RowSource RowSourceType Caption Caption 10 1 10 1 1 Student 2－别名 显示student表的前 个字段 属性值 说明 设定键盘输入数值高限 设定键盘输入数值低限 设定按钮微调数值高限 设定按钮微调数值低限 设置微调器的当前值 指定列表框数据源 指定列表框数据源的类型 设置Label1标题 设置Label2标题 5．编写微调器Spinner1的InteractiveChange事件代码： thisform.list1.columncount=this.value

6．保存表单，表单文件名为form_wtq。 7．运行表单form_wtq。

三、计时器控件和形状控件的使用

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

（1）表单中的圆形形状本来的填充颜色是红色，单击“开始”按钮，圆形形状的颜色反复在绿色和红色之间切换，时间间隔为1秒钟；

图6-45 表单form_timer运行结果

（2）单击“结束”按钮颜色停止变换； （3）单击“退出”按钮关闭表单。