沈阳农业大学vf课件第八章

1、文件文件新建新建表单表单注意：注意： 控件窗口和属性窗口不小心关掉了，怎样控件窗口和属性窗口不小心关掉了，怎样找出？找出？表单文件扩展名：表单文件扩展名：scx一一. 窗体窗体 窗体是面向对象的程序设计的主窗口。窗体是面向对象的程序设计的主窗口。窗体默认名字：窗体默认名字：formn (可以通过可以通过name属性改名属性改名)captionwidthheightautocenter : 自动居中自动居中 alwaysontop: 总在最前总在最前二二. 标签控件标签控件 标签控件是按一定格式显示在表单上的文本标签控件是按一定格式显示在表单上的文本信息信息,用来显示表单中各种说明和提示。用来显

2、示表单中各种说明和提示。标签默认名字：标签默认名字：labeln (可以通过可以通过name属性改名属性改名)标签的主要属性有标签的主要属性有:caption 显示的内容。显示的内容。 fontsize 字的大小。字的大小。 autosize 自动调整标签大小。自动调整标签大小。fontname 字体。字体。 forecolor 字的颜色。字的颜色。fontbold 加粗。加粗。fontunderline 加下划线。加下划线。fontitalic 倾斜。倾斜。 left 左边距离。左边距离。 top 顶部距离。顶部距离。三三. 计时器计时器 “计时器计时器”控件主要是控件主要是利用系统时钟来控

3、制某些利用系统时钟来控制某些具有规律性、周期性任务具有规律性、周期性任务的定时操作。的定时操作。计时器控件计时器控件默认名字默认名字：timern 1. interval2. enabled设置计时器触发的时间间隔。设置计时器触发的时间间隔。单位为单位为毫秒毫秒。取值范围：取值范围：065535。.t. 计时器启动。计时器启动。.f. 计时器关闭。计时器关闭。 timer timer 事件：事件： 指定的时间每经过指定的时间每经过1 1次，就执行该事件次，就执行该事件1 1次。次。主要属性：主要属性：四四. 命令按钮控件命令按钮控件 命令按钮控件主要用来命令按钮控件主要用来控制程序的执行过程和

4、数据控制程序的执行过程和数据表中数据的操作等。表中数据的操作等。 默认名字：默认名字：commandn命令按钮的主要属性有命令按钮的主要属性有:name 名字。名字。caption 显示的内容。显示的内容。 fontsize 字的大小。字的大小。 主要事件：主要事件：click 单击单击五五. 文本框文本框 文本框控件主要用于数据表文本框控件主要用于数据表中某些字段的输入、输出，以及中某些字段的输入、输出，以及从窗口给内存变量赋值等操作。从窗口给内存变量赋值等操作。默认名字：默认名字：textn 文本框的主要属性有文本框的主要属性有:name 名字。名字。fontsize 字的大小。字的大小。

5、 value 初始值。初始值。例例1 ：设计一个表单，实现标签文字边移动边：设计一个表单，实现标签文字边移动边变色。变色。 标签默认名字为：标签默认名字为：label1名字：名字：la内容：太阳出来喜洋洋内容：太阳出来喜洋洋（name属性改名、属性改名、caption属性改内容属性改内容）命令按钮（标题分别为：开始、暂停、退出）命令按钮（标题分别为：开始、暂停、退出）退出按钮的退出按钮的click事件：事件：thisform.release开始按钮的开始按钮的click事件：事件：thisform.timer1.enabled=.t.暂停按钮的暂停按钮的click事件：事件：thisform.

6、timer1.enabled=.f.form1的的caption改为：移动变色改为：移动变色提示提示:计时器的计时器的interval设置为：设置为：300计时器的计时器的enabled设置为：设置为：.f.标签的标签的name改为改为la标签的标签的caption设置为：太阳出来喜洋洋设置为：太阳出来喜洋洋计时器计时器timer事件代码事件代码: if thisform.la.left=0 thisform.la.left=thisform.width else thisform.la.left=thisform.la.left-20 endifa=int(rand( )*256)b=int

7、(rand( )*256)c=int(rand( )*256) thisform.la.forecolor=rgb(a,b,c)变色变色移动移动例例2 ：设计一个幸运七游戏，文件名字为设计一个幸运七游戏，文件名字为my_formxy.scx。文本框：文本框：t1t2t3标签：标签：lbl1标签标签lbl1lbl1的主要属性如下：的主要属性如下：captioncaption设为空设为空thisform.t1.value=int(rand( )*10)thisform.t2.value=int(rand( )*10)thisform.t3.value=int(rand( )*10)if thisf

8、orm.t1.value=7.or.thisform.t2.value=7.or.thisform.t3.value=7thisform.lbl1.caption=赢赢elsethisform.lbl1.caption=输输endif开始按钮开始按钮click事件代码如下：事件代码如下：例例3： 设计表单，要求如下：单击确认按钮判设计表单，要求如下：单击确认按钮判断密码是否为断密码是否为aaa，是执行幸运七游戏，否则释，是执行幸运七游戏，否则释放。放。要求：要求：text1的最大长度为的最大长度为8 ，密码输入时显，密码输入时显示为示为*。标签标签文本框文本框按钮按钮确认按钮确认按钮click

9、事件代码：事件代码：if thisform.text1.value=aaado form 表单名表单名elsethisform.releaseendif 文本框最大长度：文本框最大长度：maxlength 密码输入显示密码输入显示*: passwordchar提示：提示：六六. 列表框列表框列表框默认名字：列表框默认名字：listn 主要用来显示选择项，用户可以从中选择一个主要用来显示选择项，用户可以从中选择一个或多个数据项。或多个数据项。 主要属性：主要属性： rowsource rowsourcetype 当当rowsourcetype = 1 表示值源类型为值。表示值源类型为值。 通过通

10、过rowsource写出具体值，之间逗号相隔。写出具体值，之间逗号相隔。 当当rowsourcetype = 6 表示值源类型为字段。表示值源类型为字段。 通过通过rowsource选择所需字段。选择所需字段。七七. 组合框组合框 组合框组合框(combon)用于在列表框中选取数据并显用于在列表框中选取数据并显示在编辑窗口。示在编辑窗口。它有两种形式（它有两种形式（style): (下拉组合框可手写下拉组合框可手写(默认默认) (下拉列表框只能选择下拉列表框只能选择) 其它主要属性：其它主要属性： rowsourcetype和和 rowsource listindex ：指定索引值：指定索引值

11、八八. 复选框复选框 默认名称：默认名称：checkn。 可以通过可以通过单击单击改变它的状态。改变它的状态。 复选框的主要属性是复选框的主要属性是: caption 显示在复选框边上的文本。显示在复选框边上的文本。 controlsource 指定数据来源。指定数据来源。 alignment 文本的位置左或右。文本的位置左或右。 value =0 表示没有选择复选框。表示没有选择复选框。 value =1 表示选中了复选框。表示选中了复选框。九九. 选项按钮组选项按钮组默认名字：默认名字：optiongroupn作用：作用：它可以包含多个选项，通常用于从多项它可以包含多个选项，通常用于从多项

12、选择中选择其一。选择中选择其一。主要属性：主要属性： buttoncount 指定按钮个数指定按钮个数 value 选择第几个按钮选择第几个按钮按钮组中按钮按钮组中按钮(option)的主要属性：的主要属性： caption 显示在按钮边上的文本显示在按钮边上的文本注意：注意：选项按钮组为容器类控件，选项按钮组为容器类控件，“右键右键-编辑编辑”设设置按钮的具体属性。置按钮的具体属性。 例例4：文字变化：文字变化标签标签2.下拉组合框下拉组合框4.选项按钮组选项按钮组3.复选框复选框1.列表框列表框列表框，属性设置如下：列表框，属性设置如下： rowsourcetype =1 rowsourc

13、e = 黑体黑体,宋体宋体,华文行楷华文行楷,隶书隶书列表框的单击事件列表框的单击事件(click)代码代码:thisform.label1.fontname= this.value1.列表框列表框属性：属性： style=0 rowsourcetype = 1 rowsource = 红红,黄黄,绿绿,黑黑2.下拉组合框下拉组合框输入输入form1的的init事件代码：事件代码： bo1.listindex=1下拉组合框下拉组合框(combo1)的的click事件代码事件代码:do case case this.value=红红 thisform.label1.forecolor=rgb(2

14、55,0,0) endcase复选框复选框1的的click事件代码事件代码:if this.value=1thisform.label1.fontunderline=.t.elsethisform.label1.fontunderline=.f.endif或用或用 thisform.label1. fontunderline =.not.thisform.label1. fontunderline复选框复选框2和和3提示提示: 倾斜倾斜: fontitalic 加粗加粗: fontbold3.复选框复选框选项按钮组的选项按钮组的click事件代码事件代码:do case case this.v

15、alue=1 thisform.label1.fontsize=10 case this.value=2 thisform.label1.fontsize=20 case this.value=3 thisform.label1.fontsize=30 case this.value=4 thisform.label1.fontsize=40endcase4.选项按钮组选项按钮组属性主要包括：属性主要包括：keyboardhighvalue 输入的最大值；输入的最大值；keyboardlowvalue 输入的最小值；输入的最小值；increment 每次单击按钮的增减值；每次单击按钮的增减值；

16、value 初始值；初始值；spinnerhighvalue 单击按钮所能达到的最大值；单击按钮所能达到的最大值；spinnerlowvalue 单击按钮所能达到的最小值；单击按钮所能达到的最小值；例例5：用微调控制标签文字的字号。：用微调控制标签文字的字号。（语句写到微调的语句写到微调的interactivechange事件中。）事件中。）thisform.label1.fontsize=this.value十十. 微调控件微调控件例例6：查阅学生成绩情况（三表联动）。：查阅学生成绩情况（三表联动）。学生学生成绩成绩课程课程十一十一. 表格控件表格控件设计步骤如下：设计步骤如下：（1）右击表

17、单空白处）右击表单空白处/数据环境，数据环境， 填入学生、成绩、课填入学生、成绩、课程三个数据表，程三个数据表， 并连线。并连线。（2）将三个数据表分别拖入表单中。）将三个数据表分别拖入表单中。（3）适当调整三个表格的宽度，运行。）适当调整三个表格的宽度，运行。默认名字：默认名字： pageframen页框控件主要属性页框控件主要属性: pagecount 页数页数页框中每一页如第一页为页框中每一页如第一页为: pageframe1.page1对于每一页主要属性对于每一页主要属性: caption 页标题页标题注意注意:页框控件为容器类控件，页框控件为容器类控件，需按右键需按右键编辑进入每一页

18、。编辑进入每一页。十二十二. 页框控件页框控件默认名字：默认名字：imagen主要属性主要属性: 1. picture 图片图片 2. stretch 填充方式填充方式 十三十三. 图像控件图像控件例例7：制作美景欣赏。：制作美景欣赏。一般用于数据表中备注型字段的显示。一般用于数据表中备注型字段的显示。一般用于数据表中通用型字段的显示。一般用于数据表中通用型字段的显示。是包含一组命令按扭的容器，其作用与命令按扭是包含一组命令按扭的容器，其作用与命令按扭相同。相同。十四十四. 编辑框编辑框(editn)十五十五. activex绑定绑定十六十六.命令按钮组命令按钮组(commandgroupn)

19、例例8小型学生信息管理系统小型学生信息管理系统重点掌握：各控件与数据表之间的链接重点掌握：各控件与数据表之间的链接设计界面如下：设计界面如下：文本框文本框组合框组合框单选钮单选钮复选框复选框activex绑定绑定编辑框编辑框按钮组按钮组设计提示：设计提示：1.设计界面设计界面2.进入数据环境，填入进入数据环境，填入“学生学生”表表3.分别设计各控件的分别设计各控件的controlsource属性属性4.组合框还需设组合框还需设: rowsourcetype 为字段为字段 rowsource为相应的字段为相应的字段5.按钮组的单击事件为按钮组的单击事件为: do case case this.v

20、alue=1 go 1 case this.value=2 skip -1 if bof( ) go 1 endifcase this.value=3 skip if eof( ) go bottom endifcase this.value=4 go bottom endcase thisform.refresh向导表单 利用表单向导创建表单利用表单向导创建表单例例9:利用表单向导制作一个表单，要求选择利用表单向导制作一个表单，要求选择xsda表中所有字段，表单样式为阴影式，按钮表中所有字段，表单样式为阴影式，按钮类型为图片按钮，排序字段选择学号升序类型为图片按钮，排序字段选择学号升序,表表

21、单标题为单标题为:学生数据输入维护学生数据输入维护.最后将表单存放最后将表单存放在在d盘下盘下,表单文件名为表单文件名为xs2。表单练习表单练习1设计一个名为设计一个名为 my_forma的表单的表单,实现实现加减乘除计算。（再把标签换成文本框实现。）加减乘除计算。（再把标签换成文本框实现。）标签：名字为：标签：名字为：la autosize=.t.微调：微调：名字分别为：名字分别为：s1、s2 ，初值：，初值：10，最小值最小值1，最大值，最大值100。 do casecase this.value=1thisform.la.caption=str(thisform.s1.value+thisform.s2.value)case this.value=2thisform.la.capti