- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第五章面向对象与表单应用第二讲.ppt
第五章 面向对象设计与表单的应用 ;第二讲 常用控件及面向对象;5.3 常用表单控件;标签(Label)控件;命令按钮(CommandButton)控件;命令按钮(Command)示例
[例] 设计一个密码输入窗口, 要求最多允许输入3次密码。
(1) 创建一个表单,然后在其中创建标签和文本框各1个,命令按钮2个。
(2) 属性设置。
(3) Form1的Load事件代码编写如下:
public i i用于计算输入次数
i=0
(4) Command1的Click事件代码编写如下:
i=i+1
IF THISFORM.Text1.Value=123456 文本框输入值与123456(预置的密码)比较
THISFORM.Release 本表单从内存释放
ELSE
IF i3 允许输入3次
MESSAGEBOX(密码错,请重新输入!)
THISFORM.Text1.Value= 为重新输入清空文本框
THISFORM.Text1.Setfocus 使文本框获得焦点,就是使光标在其中闪烁
ELSE
MESSAGEBOX(密码错,禁止进入系统!)
THISFORM.Release
ENDIF
ENDIF
; 命令组控件是包含一组命令按钮的容器控件,用户可以单个或作为一组来操作其中的按钮。 ??? 在表单设计器中,为了选择命令组中的某个按钮,有如下两种方法:;
;命令组(CommandGroup)控件;文本框(TextBox)控件 ;文本框(TextBox)控件 ;文本框(TextBox)控件 ;登录表单的外观;文本框(TextBox)控件;文本框(TextBox)控件;三、控件与数据绑定
(1)数据绑定的概念:数据绑定是指将文本框与某个数据源联系起来。用文本框的ControlSource属性来指定。数据源有数据表的字段和变量两种。
(2)数据绑定的功效:文本框与数据绑定后,控件值便与数据源的数据一致了。这时文本框与数据源之间可以相互传递数据。;编辑框(EditBox)控件;编辑框(EditBox)控件;编辑框(EditBox)控件;复选框(CheckBox)控件 ;复选框(CheckBox)控件 ;复选框(CheckBox)控件 ;列表框(ListBox)控件;列表框(ListBox)控件 ;表7.5 列表框、组合框控件的值源类型;组合框(combobox)控件; 组合框的功能是供用户在其列表中选项,或人工键入一个值。组合框的Style属性将该控件分为两种类型。 Style属性为0,代表???拉组合框; Style属性为2,代表下拉列表框。;组合框(combobox)控件;表格(Grid)控件 ;表格(Grid)控件 ;表格(Grid)控件;例题: 在表单上创建如右图所示的表格控件来编辑学生表,要求只包含学号、姓名和年龄3个字段,并要求能在表格中添加记录。
1、在表单上创建一个表格控件;
2、通过表格生成器设置表格;
3、调整表格列宽;
4、调整表格控件大小;
5、属性设置如下:
Form1的Caption属性:学生表编辑;
Grid1的AllowAddNew属性:.T.。;例题(创建关联表单)
表格最常见的用途之一是,当某控件显示父表数据时,表格中就显示子表的相应数据。
设计一个表单,左边显示学生信息表,右边显示学生选课表。通过表格控件在学生信息表中显示学生信息,当选定其中某一学生时,在右边的选课表中显示该学生记录对应的选课记录。效果如下图:;例题(创建关联表单)设计步骤:
1、在表单上设计两个表格,分别连接学生信息表和学生选课表。如下图。
;计时器控件(Timer) ;例题:在表单上设置一个向左移动的字幕,文本为“欢迎进入Visual Foxpro 8.0世界”,并在表单右下角设计一个时钟。如图所示。;例题操作步骤如下:
1.在表单上创建标签和计时器各2个,设置相应属性(Interval 属性值为1000)
2.Timer1的Timer事件代码如下:
IF THISFORM.LABEL1.LEFT+THISFORM.LABEL1.WIDTH0 THISFORM.LABEL1.LEFT=THISFORM.WIDTH
ELSE THISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-10
ENDIF 移动欢迎的标签控件。
3.Timer2的Timer事件代码如下:
IF THISFOR
文档评论(0)