沈阳农业大学vfPPT课件

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

2、明和提示。用来显示表单中各种说明和提示。标签默认名字：标签默认名字：labeln (可以通过可以通过name属性改名属性改名)第3页/共44页标签的主要属性有标签的主要属性有:Caption 显示的内容。显示的内容。 Fontsize 字的大小。字的大小。 Autosize 自动调整标签大小。自动调整标签大小。Fontname 字体。字体。 Forecolor 字的颜色。字的颜色。Fontbold 加粗。加粗。Fontunderline 加下划线。加下划线。Fontitalic 倾斜。倾斜。 left 左边距离。左边距离。 top 顶部距离。顶部距离。第4页/共44页三三. 计时器计时器 “计

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

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

5、页文本框的主要属性有文本框的主要属性有:Name 名字。名字。Fontsize 字的大小。字的大小。 Value 初始值。初始值。第10页/共44页例例1 ：设计一个表单，实现标签文字边移动边变色。 标签默认名字为：label1名字：la内容：太阳出来喜洋洋（name属性改名、caption属性改内容）命令按钮（标题分别为：开始、暂停、退出）第11页/共44页退出按钮的click事件：thisform.release开始按钮的click事件：暂停按钮的click事件：form1的caption改为：移动变色提示:计时器的interval设置为：300计时器的enabled设置为：.f.标签的n

6、ame改为la标签的caption设置为：太阳出来喜洋洋第12页/共44页计时器timer事件代码: else endifa=int(rand( )*256)b=int(rand( )*256)c=int(rand( )*256)变色移动第13页/共44页例例2 ：设计一个幸运七游戏，文件名字为my_formxy.scx。文本框：文本框：t1t2t3标签：标签：lbl1标签标签lbl1lbl1的主要属性如下：的主要属性如下：CaptionCaption设为空设为空第14页/共44页rand( )*10)rand( )*10)rand( )*10)赢赢else输输endif开始按钮开始按钮cli

7、ck事件代码如下：事件代码如下：第15页/共44页例例3： 设计表单，要求如下：单击确认按钮判断密码是否为aaa，是执行幸运七游戏，否则释放。要求：text1的最大长度为8 ，密码输入时显示为*。标签标签文本框文本框按钮按钮第16页/共44页确认按钮确认按钮click事件代码：事件代码：Do form 表单名表单名elsethisform.releaseEndif 文本框最大长度：maxlength 密码输入显示*: passwordchar提示：第17页/共44页六六. 列表框列表框列表框默认名字：listn 主要用来显示选择项，用户可以从中选择一个或多个数据项。 主要属性： Rowsour

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

9、变它的状态。 复选框的主要属性是: caption 显示在复选框边上的文本。显示在复选框边上的文本。 controlsource 指定数据来源。指定数据来源。 alignment 文本的位置左或右。文本的位置左或右。 value =0 表示没有选择复选框。表示没有选择复选框。 value =1 表示选中了复选框。表示选中了复选框。第20页/共44页九九. 选项按钮组选项按钮组默认名字：optiongroupn作用：它可以包含多个选项，通常用于从多项选择中选择其一。主要属性： buttoncount 指定按钮个数 value 选择第几个按钮按钮组中按钮(option)的主要属性： caption

10、 显示在按钮边上的文本注意：选项按钮组为容器类控件，“右键-编辑”设置按钮的具体属性。第21页/共44页 例4：文字变化标签标签2.下拉组合框下拉组合框4.选项按钮组选项按钮组3.复选框复选框1.列表框列表框第22页/共44页列表框，属性设置如下： Rowsourcetype =1 Rowsource = 黑体,宋体,华文行楷,隶书列表框的单击事件(click)代码:name= this.value1.列表框列表框第23页/共44页属性： style=0 Rowsourcetype = 1 Rowsource = 红,黄,绿,黑2.下拉组合框下拉组合框输入form1的init事件代码： 下拉组

11、合框(combo1)的click事件代码:do case case this.value=红 endcase第24页/共44页复选框1的click事件代码:If this.value=1elseEndif或用 thisform.label1. fontunderline =.not.thisform.label1. fontunderline复选框2和3提示: 倾斜: fontitalic 加粗: fontbold3.复选框复选框第25页/共44页选项按钮组的click事件代码:do case case this.value=1 case this.value=2 case this.valu

12、e=3 case this.value=4endcase4.选项按钮组选项按钮组第26页/共44页属性主要包括：属性主要包括：Keyboardhighvalue 输入的最大值；Keyboardlowvalue 输入的最小值；Increment 每次单击按钮的增减值；Value 初始值；Spinnerhighvalue 单击按钮所能达到的最大值；Spinnerlowvalue 单击按钮所能达到的最小值；例例5：用微调控制标签文字的字号。：用微调控制标签文字的字号。（语句写到微调的interactivechange事件中。）十十. 微调控件微调控件第27页/共44页例6：查阅学生成绩情况（三表联动

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

14、retch 填充方式 十三十三. 图像控件图像控件第31页/共44页例7：制作美景欣赏。第32页/共44页一般用于数据表中备注型字段的显示。一般用于数据表中通用型字段的显示。是包含一组命令按扭的容器，其作用与命令按扭相同。十四十四. 编辑框编辑框(editn)十五十五. Activex绑定绑定十六十六.命令按钮组(commandgroupn)第33页/共44页例8小型学生信息管理系统重点掌握：各控件与数据表之间的链接第34页/共44页设计界面如下：文本框文本框组合框组合框单选钮单选钮复选框复选框Activex绑定绑定编辑框编辑框按钮组按钮组第35页/共44页设计提示：1.设计界面2.进入数据环

15、境，填入“学生”表3.分别设计各控件的controlsource属性4.组合框还需设: rowsourcetype 为字段 rowsource为相应的字段5.按钮组的单击事件为: do case case this.value=1 go 1 第36页/共44页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第37页/共44页向导表单 利用表单向导创建表单

16、例9:利用表单向导制作一个表单，要求选择xsda表中所有字段，表单样式为阴影式，按钮类型为图片按钮，排序字段选择学号升序,表单标题为:学生数据输入维护.最后将表单存放在D盘下,表单文件名为Xs2。第38页/共44页表单练习1设计一个名为 my_forma的表单,实现加减乘除计算。（再把标签换成文本框实现。）标签：名字为：la autosize=.t.微调：名字分别为：s1、s2 ，初值：10，最小值1，最大值100。 第39页/共44页 do casecase this.value=1thisform.la.caption=str(thisform.s1.value+thisform.s2.v

17、alue)case this.value=2thisform.la.caption=str(thisform.s1.value-thisform.s2.value)case this.value=3thisform.la.caption=str(thisform.s1.value*thisform.s2.value)case this.value=4thisform.la.caption=str(thisform.s1.value/thisform.s2.value,7,2) endcase单选钮的click第40页/共44页把标签换成文本框如何实现？标签名字为：t1。 do casecase this.value=1thisform.t1.value=thisform.s1.value+thisform.s2.valuecase this.value=2thisform.t1.value=thisform.s1.value-thisform.s2.valuecase this.value=3thisform.t1.value=thisform.s1.value*thisfo