vb ActX控件基础用法(7)

（3）单击“退出”按钮关闭表单。 操作步骤：

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

表6-4 表单form_zhk属性设置

控件 Combo1 Command1 Command2 属性 Rowsource Style Caption Caption 属性值 男,女 2－下拉列表框 统计 退出 说明 指定Combo1数据源的类型 指定Combo1显示的条目 设置Combo1类型 设置Command1标题 设置Command2标题 RowsourceType 1－值 4．编写“统计”命令按钮的Click事件代码： Select count(*) From student;

where 性别=thisform.combo1.value into array tmp thisform.text1.value=tmp(1)

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

八、组合框从表中获取字段清单的应用

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

（1）从下拉列表框中选择学号，在文本框中输入密码，假设正确的密码为学号的后3位字母，单击“登录”按钮，若密码输入正确，则弹出消息框，显示“欢迎进入教务管理系统！”，然后关闭表单；若密码输入不正确，则弹出消息框，显示“密码错误，请重新输入！”；若三次输入密码错误，则关闭表单。

（2）输入密码时文本框中只显示相同个数的“*”号。

图6-28 表单 form_dl运行结果

（3）单击“退出”按钮结束表单运行。 操作步骤：

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

3．设置数据环境。打开数据环境设计器，将“student”表添加进数据环境。

图6-29 新建属性对话框

4．新建属性。选择“表单”菜单中的“新建属性”命令，打开“新建属性”对话框，如图6-29所示。在“名称”框中输入num，在“默认值/初始值”框中输入“0”，在“说明”框中输入“记录输入密码的次数”，单击“添加”按钮，则为表单新建了一个num属性。

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

表6-5 表单form_dl属性设置

控件 Label1 属性 Caption FontSize Caption FontSize Style Combo1 RowSourceType RowSource Text1 Command1 Command2 FontSize Passwordchar Caption Caption 属性值 用户名： 18 密码： 18 2-下拉列表框 6-字段 Student.学号 12 * 登录 退出 说明 设置Label1的标题 设置Label1字体大小 设置Label2的标题 设置Label2字体大小 设置组合框所包含列表的类型 设置组合框数据源的类型 设置组合框数据源 设置文本框字体大小 指定用作占位符的字符 设置Command1显示标题 设置Command2显示标题 Label2 6．编写“登录”命令按钮的Click事件代码： xh=alltrim(thisform.combo1.value)

if alltrim(thisform.text1.value)==right(xh,3) messagebox(\欢迎进入教务管理系统!\thisform.release else

thisform.num=thisform.num+1

messagebox(\密码错误,请重新输入!\thisform.text1.value=\thisform.refresh if thisform.num=3

wait \三次输入密码错误\release thisform endif endif