第五章面向对象与表单应用第二讲.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 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)

170****0532 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:8015033021000003

1亿VIP精品文档

相关文档