vb ActX控件基础用法(4)

浮雕式，按钮类型为图形按钮，排序字段选择职工号（升序），表单标题为“职工信息”。

图6-13 表单form_ex1运行结果 图6-14 表单form_ex2运行结果

二．使用一对多表单向导新建如图6-14所示的form_ex2表单，用于显示“职工”表和其所对应的“订购单”表中的记录。要求从父表“职工”中选择“职工号”和“仓库号”字段，从子表“订购单”中选择“订购单号”、“供应商号”和“订购日期”字段，通过“职工号”字段建立两表之间的关系，表单样式为新奇式，按钮类型为文本按钮，排序字段为职工号（升序），表单标题为“职工订单管理”。

三．新建如图6-15所示的form_ex3表单，要求：

（1）单击“隐藏Form_ex1”按钮时，将表单form_ex1隐藏起来（不是关闭）； （2）单击“显示Form_ex1”按钮时，重新显示表单form_ex1；

图6-15 表单form_ex3运行结果

（3）单击“退出Form_ex1”按钮时，结束表单form_ex1的运行。 提示：（1）运行表单form_ex3前，先要运行表单form_ex1。

（2）调用其他表单的方法的格式为：表单文件名.方法名，如“隐藏Form_ex1”

按钮的click事件代码为：Form_ex1.hide。

四．新建如图6-16所示的表单form_ex4，要求： （1）单击“变长”按钮时，表单的高度变为500； （2）单击“变短”按钮时，表单的高度变为250；

图6-16 表单form_ex4 运行结果

（3）单击“退出”按钮结束表单运行。 提示：高度属性名为height。

五．新建如图6-17所示的表单form_ex5，要求：

（1）单击“显示月份”命令按钮时，如果当前日期是1月份，则把表单的标题改为“探春”；如果当前日期是2月份，则把表单的标题改为“迎春”；如果是其他月份，则在表单标题栏显示当前月份，例如是5月，则标题栏显示为“5月份”；

图6-17 表单form_ex5运行结果

（2）单击“退出”按钮结束表单运行。

提示：使用month(date( ))表达式得到当前日期的月份，并将它赋值给某个变量，当变量值不同时，有三种不同情况，使用DO CASE语句加以判断；要使数值型数据和字符型数据连在一起显示，可以使用STR() 函数将数值型数据转换成字符型数据，再用“+”号连接两个字符串。

六．设计一个能判断某个年份是否是闰年的表单form_ex6，表单运行情况如图6-18所示。判断方法如下：如果这个年份能够被4整除，并且不能被100整除，那么，这个年份是闰年，或者，如果这个年份能够被400整除，那么这个年份也是闰年。

图6-18 表单form_ex6运行结果

要求：Text1中只能输入四位数字，且默认年份为2009。Text2只读。在Text1中输入年份后，单击“判断”按钮，Text2中显示判断结果：“****年是闰年”或“****年不是闰年”。

七．新建如图6-19所示的表单form_ex7，功能要求如下： （1）在Text1中输入要查询的职工号；

（2）单击“查询”按钮，显示该职工的职工号，仓库号和订购单号信息；

图6-19 表单form_ex7运行结果

（3）单击“退出”按钮结束表单运行。

提示：可以通过“thisform.text1.value”表达式得到文本框中输入的职工号。

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

实验目的

（1）掌握命令按钮组、选项按钮组、复选框、列表框、组合框和表格控件的常用属性 （2）掌握容器层次中的对象引用 （3）掌握设置访问键的方法 （4）练习编写较复杂的控件代码

实验内容

一、命令按钮组的使用

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

（1）单击“student”按钮时，弹出消息框，显示“您选择了student表”，并浏览student表；

（2）单击“sc”按钮时，弹出消息框，显示“您选择了sc表”，并浏览sc表；

图6-20 表单form_cg运行结果

（3）单击“dep”按钮时，弹出消息框，显示“您选择了dep表”，并浏览dep表； （4）单击“course”按钮时，弹出消息框，显示“您选择了course表”，并浏览course表。

操作步骤：

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

（1）命令按钮组中默认有2个命令按钮，修改ButtonCount属性值为4，则命令按钮组中包含4个命令按钮。

（2）右击命令按钮组，在弹出的快捷菜单中选择“编辑”命令，命令按钮组周围出现一圈绿色的边框，此时可分别选中命令按钮组中的每个按钮，分别设置它们的Caption属性为“student”、“sc”、“dep”和“course”。

4．编写命令按钮组的Click事件代码： do case

case this.value=1

messagebox(\您选择了student表\ select * from student

case this.value=2

messagebox(\您选择了sc表\ select * from sc case this.value=3

messagebox(\您选择了dep表\ select * from dep otherwise

messagebox(\您选择了course表\ select * from course endcase

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

二、用命令按钮组生成器设置命令按钮组的属性 新建如图6-21所示的表单form_cgs，功能要求如下：

（1）通过单击表单中相应按钮可以查看course表中的记录；

图6-21 表单form_cgs运行结果

（2）当表中记录指针已指向文件头时，“上一条”按钮不可用；当表中记录指针已指向文件尾时，“下一条”按钮不可用。

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．设置数据环境。打开数据环境设计器，将“course”表添加进数据环境。

图6-22 命令按钮组生成器

3．绑定字段。从“数据环境设计器”中拖动“课程号”、“课程名”和“任课老师”字段到表单中，这时表单中将自动生成3个标签和3个文本框控件分别对应3个字段。 …… 此处隐藏：728字，全部文档内容请下载后查看。喜欢就下载吧 ……