PowerPoint 프레젠테이션

Size: px

Start display at page:

Download "PowerPoint 프레젠테이션"

释惠
5 years ago
Views:

1 第六章表单及其控件的创建与使用

2 6.1 表单概述表单 (Form) 类似于 Windows 中的各种标准窗口与对话框, 它是一种容器类, 可以包含多个控件对象, 用于处理各种数据, 或响应用户 / 系统事件以完成信息的处理表单文件和表单备注文件, 扩展名分别为 SCX 和 SCT 创建表单的命令 :CREATE FORM 第 6 章表单及其控件的创建与使用表单文件名运行表单的命令 :DO FORM 表单文件名修改表单的命令 :MODIFY FORM 表单文件名

3 6.3 表单设计器 1. 表单中影响外观的一些属性 : (1) 表单的样式 Caption: 表单标题栏中显示的标题 Icon: 表单控制菜单图标 Maxbutton 与 Minbutton: 决定表单有无最大化按钮和最小化按钮 Closable: 关闭按钮是否可用第 6 章表单及其控件的创建与使用 3

4 6.3 表单设计器 ControlBox: 决定标题栏有无图标最大化按钮和最小化按钮以及关闭按钮 BorderStyle: 决定表单边框的样式 AutoCenter: 决定表单运行时是否自动居中 () 颜色与背景 Picture: 设置表单背景图片, 该属性值是一个路径 ForeColor 与 BackColor: 前景色与背景色 (RGB 模型 ) 第 6 章表单及其控件的创建与使用 4

5 6.3 表单设计器 (3) 改变文本的字体和大小 FontName: 用于指定字体 FontSize: 用于指定字号 FontBold FontItalic FontStrikethru 和 FontUnderline: 用于指定文本是否具有粗体斜体删除线或下划线等特殊效果第 6 章表单及其控件的创建与使用 5

6 6.3 表单设计器 (4) 控件的可用与可见 Enabled: 指定表单 ( 控件 ) 是否可用, 不可获得焦点 ReadOnly: 指定控件中的数据是否只读, 可以获得焦点 Visible: 指定表单 ( 控件 ) 在运行时是可见还是隐藏第 6 章表单及其控件的创建与使用 6

7 6.3 表单设计器. 表单的数据环境表单 ( 集 ) 的数据环境包括了与表单交互作用的表和视图, 以及表之间的关系在表单中引入数据环境的目的在于 : 打开或运行表单时, 数据环境中的表和视图将自动地被打开, 关闭或释放表单时将自动关闭表和视图在属性窗口中设置一些对象的 ControlSource( 控件的数据源 ) RowSource 等属性时, 设置框与数据环第 6 章表单及其控件的创建与使用 7 境中的表的所有字段或表名相连

8 6.3 表单设计器 3. 创建单文档界面与多文档界面子表单 : 包含在其他表单 ( 称为父表单 ) 中的表单, 它不能移出父表单浮动表单 : 由子表单变化而来的表单属于父表单的一部分, 可以不位于父表单中, 但不能在父表单后台移动顶层表单 : 独立的无模式的无父表单的表单第 6 章表单及其控件的创建与使用 8

9 6.3 表单设计器可以通过 ShowWindow 和 DeskTop 属性将表单设置为顶层表单浮动表单和子表单顶层表单 : ShowWindow 属性值为浮动表单 : ShowWindow 属性值为 0 或 1, 且 DeskTop 属性值为.F. 子表单 :ShowWindow 属性值为 0 或 1, 且 DeskTop 属性值为.T. 第 6 章表单及其控件的创建与使用 9

10 6.4.1 标签 (Label) 常用的属性 : Caption: 指定标签的标题, 即显示的文本, 最多 56 个字符 Name: 所有的控件均具有这个属性, 指的该对象的名称, 常用于代码中, 用来引用对象 BackStyle: 背景是否透明 Alignment: 标签中文本对齐方式第 6 章表单及其控件的创建与使用 10

11 AutoSize: 自动调整标签的大小以容纳其中的文本 WordWrap: 标签上显示的文本能否换行第 6 章表单及其控件的创建与使用 11

12 标签示例 : 标签上的文本无为而无不为以竖排显示, 如右图所示要求单击红色按钮时, 标签上的文本以红色显示, 单击绿色按钮时, 标签上的文本以绿色显示并为红色按钮设置工具提示文本, 提示内容如图所示第 6 章表单及其控件的创建与使用 1

13 所有的控件都有工具提示文本 (ToolTipText) 属性, 当用户的鼠标指针在控件上停留时, 将显示这个属性指定的文本注意 : 如果要显示工具提示文本, 首先要将表单的 ShowTips 设置为.T. 第 6 章表单及其控件的创建与使用 13

14 6.4. 文本框 (TextBox) 常用的属性 : ControlSource: 指定与文本框绑定的数据源 Value: 文本框中的数据 ( 在表单运行时 ), 如果设置了文本框的 ControlSource 属性, 则 value 属性值即为数据源中某字段的值如果在属性窗口设置该文本框的 value 属性值为 0, 则文本框中数据的类型为数值型, 否则为字符型第 6 章表单及其控件的创建与使用 14

15 PassWordChar: 指定作为占位符的字符 InputMask: 指定文本框中数据的输入格式和显示方式 Format: 指定控件的 Value 属性的输入和输出格式 ReadOnly: 指定文本框中的数据是否只读第 6 章表单及其控件的创建与使用 15

16 文本框示例 : 创建一个表单用来给用户设置用户名和密码, 要求 : 当单击确定按钮时, 先判断 text1 和 text 是否都不为空, 如果是, 则将文本框 te xt1 中的内容写入 user.username 字段, 将文本框 text 中的内容写入 u ser.password 字段 (user 表已添加至表单的数据环境 ) 如果不是, 则不允许添加至表字段 ; 当单击取消按钮时, 则要求 text1 和 text 均无内容并使 text1 获得焦点第 6 章表单及其控件的创建与使用 16 文本框名为 text1 文本框名为 text 素材见 form_6_4_.scx

17 分析 : 如何将文本框中的内容写入数据源, 能不能用 ControlSource 属性? 将文本框中数据清除或文本框中无内容应该怎么操作? 如果用 ControlSource 绑定 user 表中的字段的话, 那么在表单运行时就显示表中的数据, 就无需设置用户名和密码, 所以不要用 ControlSource 属性输入到文本框中的数据, 通过 Insert-SQL 命令插入到表中去文本框中无内容就是文本框中无非空格字符, 即为空格字符在 Text 中输入的密码要以 * 号显示, 则设置第 6 章表单及其控件的创建与使用 17 Passwordchar 属性值为 * 获得焦点用 SetFocus 方法

18 在确定按钮的 Click 事件代码中输入如下代码 : t1=thisform.text1.value t=thisform.text.value if not (empty(t1) or empty(t)) insert into user values (t1,t) messageb(" 已添加成功!") else messageb(" 用户名和密码均不能为空!") endif 第 6 章表单及其控件的创建与使用 18

19 在取消按钮的 Click 事件代码中输入如下代码 : thisform.text1.value=" " thisform.text.value=" Thisform.text1.setfocus Setfocus 方法 GotFocus 和 LostFocus 都是事件第 6 章表单及其控件的创建与使用 19

20 6.4.3 列表框 (ListBox) 列表框主要用于显示一组预设的值, 用户可以从列表中选择需要输入的数据常用的属性 : ColumnCount: 列表框中列的个数, 默认值为 0( 等价于 1) RowSourceType 和 RowSource: 指定列表框中数据的数据源类型和数据源第 6 章表单及其控件的创建与使用 0

21 ControlSource: 指定列表框所绑定的数据源 BoundColumn: 确定列表框中的哪个列绑定到控件的 value 属性, 默认值为 1 ListCount: 显示列表框中条目的数量, 即列表框中数据的行数 Selected: 指定条目是否被选定 Sorted: 指定列表中条目是否按字母顺序自动排序第 6 章表单及其控件的创建与使用 1

22 列表框示例 1: 某表单中有一个列表框控件 list1 和一个命令按钮控件 cmd1, 表单运行时如图所示列表框显示的内容分别是学生的学号姓名选课数以及平均成绩命令按钮 cmd1 的 Click 事件代码如下 : THISFORM.caption=THISFORM.List1.value 在表单运行时, 若单击该命令按钮后表单的标题显示学生的姓名 ( 例如显示梁镁飞 ), 则列表框控件 list1 的 BoundColumn 属性值为 (007 年春 ) 第 6 章表单及其控件的创建与使用素材见 form_6_4_3_1.scx

23 如果 list1 的 BoundColumn 属性值设为 4, 则 x=thisform.list1.value?type( x ) 第 6 章表单及其控件的创建与使用 3

24 列表框常用的方法程序 : Clear: 清除列表中所有的条目 AddItem: 向列表中添加一个条目 RemoveItem: 从列表框删除一个条目 Requery: 重新运行查询以更新列表框中的条目第 6 章表单及其控件的创建与使用 4

25 列表框示例 : 如右图所示, 左侧列表框 list1 显示 js 表中所有字段的字段名 ( 数据环境为 js 表 ; 列表框 list1 的 RowS ourcetype 属性为 8- 结构,R owsource 属性为 js ) 如果要实现在列表框 list1 中双击某字段名后, 该字段名添加到右侧的列表框 list 的同时从列表框 list1 中删除的功能, 可为列表框 DbClick 事件设置代码 : 第 6 章表单及其控件的创建与使用 5 素材见 form_6_4_3_.scx

26 thisform.list.additem(thisform.list1.value) && 调用 additem() 方法, 为 list 添加 list1 中选定的项, 该方法中参数是 list1 中 value 属性值 for i=1 to thisform.list1.listcount if thisform.list1.selected(i) && 用此循环来实现判定 list1 中选定的项 endif endfor thisform.list1.removeitem(i) && 调用 removeitem() 方法该方法中的参数是 list1 中条目的编号 (Index) 第 6 章表单及其控件的创建与使用 6

27 思考 : 如果现将 list1 中 MultiSelect 属性值设置为.T., 即 list1 中的条目可以多选, 再添加一个右移命令按钮, 则要求单击右移按钮, 则 list1 中选定的多项被同时移动到 list 中, 则右移按钮 Click 代码为 : 第 6 章表单及其控件的创建与使用 7

28 for i=1 to thisform.list1.listcount if thisform.list1.selected(i) *** 调用 additem() 方法, 为 list 添加 list1 中选定的项, 该方法中参数不再是 list1 中 value 属性值, 因为 list1 中的条目可多选 ; 采用的是 list() 数组用来返回列表框中第 i 项的数据 i=i-1 endif endfor thisform.list.additem(thisform.list1.list(i)) thisform.list1.removeitem(i) && 如果没有 i=i-1, 那么效果怎么样? 第 6 章表单及其控件的创建与使用 8

29 6.4.4 组合框 (ComboBox) 常用属性 : Style: 该属性值为 0 时, 组合框为下拉组合框该属性值为时, 组合框为下拉列表框组合框的列表功能与列表框完全相同, 区别在于前者在表单上仅需占用较小的空间除了 Style 属性外, 组合框的属性和方法等与列表框的几乎相同第 6 章表单及其控件的创建与使用 9

30 组合框示例 : 表单中含有一个下拉列表框 Combo1 ( 显示职称代号 ) 和一个列表框 list1 ( 显示教师姓名 ), 数据环境为 js 表其功能是 : 当用户在下拉列表框中选择一个职称代号后, 列表框中显示该职称的所有教师姓名将 Combo1 的主要属性和事件代码设置如下 : 素材见 form_6_4_4_1.scx Style 属性设置为,RowsourceType 属性设为 3,RowSource 属性设置为 SQL 语句 : Select distinct zcdh from js into cursor temp1 第 6 章表单及其控件的创建与使用 30

31 在使用键盘或鼠标更改组合框 ( 文本框 ) 的值时发生 InteractiveChange 事件在对象 :Combo1 public x x=this.value 事件 :InteractiveChange && this 特指该引用对象即 Combo1 thisform.list1.rowsourcetype=3 thisform.list1.rowsource='sele xm from js where zcdh= x into cusor temp' 第 6 章表单及其控件的创建与使用 31

32 6.4.5 选项按钮组 (OptionGroup) 选项按钮组是包含多个选项按钮的容器控件, 运行时允许用户从中选择一个按钮常用属性 : ButtonCount: 决定选项按钮的个数, 默认值为 BorderStyle: 边框的样式 ControlSource: 指定绑定的数据源 Value: 指定控件的当前状态其值为数值, 用于指明选定的第 6 章表单及其控件的创建与使用 3 第几个按钮

33 如果在设计时将 Value 属性值设置为字符型数据, 或通过代码将其值设置为字符型数据, 或通过 ControlSource 属性将该控件绑定到一个字符型字段, 则 Value 属性中保存的数据为字符型数据, 选择某选项按钮时保存其 Caption 属性值第 6 章表单及其控件的创建与使用 33

34 选项按钮组示例 1: 已知 : 表单中的学号姓名和性别都和数据环境中的 xs 表相应的字段绑定注意观察, 单击选项按钮组中的一项, 是否将相应按钮的 Caption 属性值写到 xs 的性别字段 ( 当前记录 )? 第 6 章表单及其控件的创建与使用 34 素材见 form_6_4_5_1.scx

35 选项按钮组示例 1: 根据职称显示教师姓名主要设置 : 选项按钮组 ButtonCount 属性为 4,value 属性为 0, 各个选项按钮的标题如右图所示 ( 在数据环境中已添加了 js 表和 zc 表 ) 用鼠标点击选项按钮组这种交互的方式下发生的是 Inter- ActiveChange 事件第 6 章表单及其控件的创建与使用 35 素材见 form_6_4_5_.scx

36 6.4.6 复选框 (CheckBox) 可以利用复选框指定或显示一个逻辑状态 : 真 / 假开 / 关是 / 否, 可以与逻辑型字段绑定常用的属性 : Caption: 指定标题文本 ControlSource: 指定绑定的数据源 Value: 指定控件的当前状态第 6 章表单及其控件的创建与使用 36

37 Value 属性取值可以使 0 1, 分别表示清除选择 ( 默认 ) 选择和混合值复选框示例 : 由复选框控制是否显示教师的姓名 ( 如右图所示 ) 主要设置 : 表单数据环境为 js 表, 列表框 list1 的 RowSourceType 属性为 6- 字段,RowSource 属性 js.gh ; 为复选框的 caption 属性为显示姓名,value 属性值.f., 其 InteractiveChange 事件代码见素材 form_6_4_6.scx 第 6 章表单及其控件的创建与使用 37

38 6.4.7 微调框 (Spinner) 应用于指定给定范围的数值输入常用属性 : KeyBoardHighValue 和 KeyBoardLowValue : 指定使用键盘输入的最大值和最小值 SpinnerHighValue 和 SpinnerHighValue : 指定通过点击向上和向下箭头输入的最大值和最小值 Increment: 指定点击向上或向下按钮时, 微调框控件增加或减少的值其默认值为 1 第 6 章表单及其控件的创建与使用 38

39 6.4.8 表格 (Grid) 表格是一个按行和列显示数据的容器对象, 其外观与浏览窗口相似表格控件包含列 (Column) 控件, 而列控件又由表头 (Header) 和显示数据的控件 ( 默认为文本框控件 ) 组成常用于显示一对多关系中的子表表格常用属性 : RecordSource 和 RecordSourceType: 指定表格控件第 6 章表单及其控件的创建与使用 39 的数据源和数据源的类型

40 DeleteMark: 指定是否显示删除标志列 RecordMark: 指定是否显示记录选择器列 ScrollBars: 指定所具有的滚动条 GridLines GridLineColor 和 GridLineWidth: 确定是否在表格控件中显示水平和垂直线, 以及线的颜色和宽度 ColumnCount: 指定列控件的数目默认值为 -1, 指定表格控件将包含足够的列, 以容纳表格记录源中所有的字段第 6 章表单及其控件的创建与使用 40

41 ReadOnly: 指定表格中的数据是否只读 AllowAddNew: 指定是否可以将表格中的新记录添加到表列控件常用的属性 : ControlSource ReadOnly Format BackColor FontName 此外, 它还有一些以 Dynamic 开头的属性, 如 DynamicBackColor DynamicForeColor Dynamic- FontSize 等属性, 用来实现一些特殊的显示效果第 6 章表单及其控件的创建与使用 41

42 表格列控件 (DynamicBackColor) 示例 : 要求表格的奇数行背景色为绿色偶数行背景色为白色 ( 如图所示 ) 第 6 章表单及其控件的创建与使用 4

43 在表格 Grid1 的 init 事件 (init 事件即初始化事件 ) 中输入 : this.setall("dynamicbackcolor","iif(mod(recno(),)=0, rgb(55,55,55),rgb(0,55,0))", "column") SetAll 方法为容器对象中的所有的控件或某类控件指定一个属性设置该方法的对象有列命令组容器对象表单表单集表格选项组页面页框 _SCREEN 工具栏, 其使用语法为 : Container.SetAll(cProperty,Value[,cClass]) cproperty: 指要设置的属性 Value: 属性值 cclass: 指定类名, 可省略第 6 章表单及其控件的创建与使用 43

44 例如 : 将表单上所有控件的文本字体设置为宋体 Thisform.setall( Fontname, 宋体 ) 表格中用于显示数据的控件通常是文本框控件, 但可以对此进行修改, 主要相关属性 : CurrentControl: 指定列对象中包含的哪个控件用于显示活动单元格的值 Sparse: 指定 CurrentControl 是影响的列对象中的所有单元格, 还是仅影响活动单元格第 6 章表单及其控件的创建与使用 44

45 6.4.9 计时器 (Timer) 计时器控件是在应用程序中用来处理复发事件 ( 即相隔一定时间重复发生的事件 ) 的控件无 Visible 属性, 运行时不可见常用属性 : Interval: 指定调用计时器控件的 Timer 事件之间的毫秒数, 即相隔多少毫秒重复激发计时器控件的 Timer 事件第 6 章表单及其控件的创建与使用 45

46 Enabled: 指定控件是否可以响应引发的事件 (Timer) 计时器示例 : 表单中有一个标签控件和一个计时器控件, 标签用来显示数字时钟标签控件 (label1) 的 AutoSize 设置为.T., 计时器控件的 Interval 设置为 1000(1 秒 ), 其 Timer 事件的处理代码 : Thisform.Label1.caption= 现在时间是 +ttoc(datetime()) 第 6 章表单及其控件的创建与使用 46

47 线条 (Line) 与形状 (Shape) 线条控件用于创建一个水平线条竖直线条或对角线条常用属性 : LineSlant: 指定线条倾斜的方向, \ 还是 / BorderWidth: 线条的线宽 BorderStyle: 指定线条的线型第 6 章表单及其控件的创建与使用 47

48 形状控件用于创建多种形状图形, 如各种矩形椭圆或圆等常用属性 : Curvature: 图形类型, 变化范围 0~99 FillStyle: 指定用来填充形状的图案 FillColor: 指定使用的填充色 SpecialEffect: 指定控件的不同样式 ( 三维的或平面的 ) 第 6 章表单及其控件的创建与使用 48

49 命令按钮 (CommandButton) 与命令按钮组 (CommandButtonGroup) 命令按钮通常用来启动一个事件以完成某种功能命令按钮常用属性 : Caption: 指定命令按钮上显示的文本 Picture: 指定命令按钮上显示的图片, 如果要显示图片, 需要将命令按钮的 Caption 属性值清除 Default: 指定按键盘上回车键时响应的命令按钮第 6 章表单及其控件的创建与使用 Cancel: 指定按键盘上 <ESC> 键时响应的命令按钮 49

50 Enabled: 指定是否可以响应用户引发的事件, 即命令按钮是否可用命令按钮组控件是一种容器型控件, 它包含一组命令按钮 ButtonCount: 指定命令按钮组中命令按钮的数目 BorderStyle: 边框样式 Value: 指定控件当前的状态, 在运行时, 其值为所选命令按钮的顺序号第 6 章表单及其控件的创建与使用 50

51 6.4.1 页框 (PageFrame) 页框控件是包含页面 (page) 的容器对象页框常用属性 : PageCount: 指定页框中包含的页面数, 默认值为 Tabs: 确定页面的选项卡是否可见 TabStyle: 指定页框中的页面选项卡是两端还是非两端 ActivePage: 页框控件中活动页面的编号, 其默认值为 1 第 6 章表单及其控件的创建与使用 51

52 页面常用属性 : Caption: 指定页面的标签上显示的文本 Picture: 指定要在页面上显示的图像第 6 章表单及其控件的创建与使用 5

53 页框和命令按钮组示例 : 表单中有一个含有两个页面的页框控件和一个命令按钮组控件, 其数据环境中有 js 表和 xs 表第 6 章表单及其控件的创建与使用 53

54 第 6 章表单及其控件的创建与使用 54

55 页框有两个页面, 一个是学生基本信息页面, 另一个是教师基本信息页面 ; 命令按钮组中前按钮分别发布相应的记录指针命令, 最后一个按钮用来退出表单, 并设置相应的访问键设置退出按钮访问键的方法在控件的 Caption 属性中输入 : 退出 (\<Q) 则在命令按钮组的 click 事件代码中 : 第 6 章表单及其控件的创建与使用 55

56 if thisform.pageframe1.activepage=1 sele xs else sele js endif do case case this.value=1 go top && 如果页框的活动页面是第一个, 则选择学生表, 否则选择教师表 && 分情况讨论命令按钮组的 value 属性值, 即用户单击的按钮组中的按钮序号第 6 章表单及其控件的创建与使用 56

57 case this.value= if recno()!=reccount() skip endif case this.value=3 if recno()!=1 skip-1 endif && && 记录指针没有到最后一条记录记录指针没有到第一条记录第 6 章表单及其控件的创建与使用 57

58 case this.value=4 go bottom case this.value=5 thisform.release endcase thisform.refresh 第 6 章表单及其控件的创建与使用 58

59 本节小结 : 本节主要介绍了各个控件的用法 : 常用属性方法, 以及在事件中这些属性值的变化和方法的调用在 vfp 基类中共有 10 个容器类,19 个控件类在本节介绍的表单控件中, 容器类的是 : 选项按钮组, 表格, 表格的列, 命令按钮组, 页框, 页面控件类的是 : 标签, 文本框, 列表框, 组合框, 复选框, 微调框, 计时器, 命令按钮, 线条与形状第 6 章表单及其控件的创建与使用 59

60 无 caption 属性的控件 : 选项按钮组, 表格, 表格的列, 命令按钮组, 页框, 文本框, 列表框, 组合框, 微调框, 计时器, 线条与形状无 ControlSource 属性的控件 : 标签, 表格, 计时器, 线条与形状, 命令按钮, 页框, 页面有 Value 属性的控件 : 文本框, 编辑框, 组合框, 列表框, 表格, 微调框, 复选框, 选项按钮组, 命令按钮组等无 Value 属性的控件 : 标签, 命令按钮, 表格中的列, 页框计时器, 线条与形状等第 6 章表单及其控件的创建与使用 60

61 补充内容 : 集合属性与计数属性 : VFP 中所有容器对象都具有与之相关的计数 (Count) 属性和集合 (Collection) 属性集合属性是一个数组, 用以引用每个包含在其中的对象计数属性是一个数值属性, 它表明了所包含对象的数目第 6 章表单及其控件的创建与使用 61

62 补充内容 : 下表中列出了容器及其相应的集合属性和计数属性 : 第 6 章表单及其控件的创建与使用 6

63 集合属性与计数属性示例 (007 年秋 ) 若某表单上包含一个页框控件, 页框上包含的页面数是未知的 ( 或者说是动态变化的 ), 则在刷新表单时为了刷新页框中的所有页面, 可在页框的 Refresh 方法中包含如下的代码 : FOR i=1 TO THIS. && 页面数是计数属性 THIS.Pages[i].Refresh ENDFOR 第 6 章表单及其控件的创建与使用 63

第四章查询与视图

第四章查询与视图第七章面向对象的程序设计与表单设计实验与实验指导实验六面向对象的程序设计与表单设计 (4 学时 ) 一实验目的 1 了解面向对象程序设计的相关概念, 包括 : 对象类属性事件与方法程序的概念 ; 对象的特性 ; 对象的绝对引用与相关引用 ; 常见的对象属性常用的触发与方法程序 2 了解可视化面向对象程序设计的方法与步骤 3 掌握表单的设计与创建, 包括 : 数据环境的概念与应用 ;