第八章表单设计及运行 8.1使用表单向导创建表单 8.1.1表单向导 8.1.2一对多表单向导 82设置数据环境 82.1打开数据环境 82,2数据信息与数据环境 8.3用表单设计器创建表单与控件 83.1表单设计器与表单控件工具栏 83,2“标签”控件 83.3命令按钮与命令按钮组 834文本框 8.3.5选项按钮 836微调按钮 8.37复选框 838列表框与组合框 839编辑框 8.3.10表格
第八章 表单设计及运行 8.1使用表单向导创建表单 8.1.1 表单向导 8.1.2 一对多表单向导 8.2设置数据环境 8.2.1打开数据环境 8.2.2 数据信息与数据环境 8.3用表单设计器创建表单与控件 8.3.1 表单设计器与表单控件工具栏 8.3.2 “标签”控件 8.3.3 命令按钮与命令按钮组 8.3.4 文本框 8.3.5 选项按钮 8.3.6 微调按钮 8.3.7 复选框 8.3.8 列表框与组合框 8.3.9 编辑框 8.3.10 表格
8.1使用表单向导创建表单 8.1.1表单向导 使用表单向导创建一对一表单的步骤如下 从“文件”菜单,选择“新建”、“表单”,然后在新建对话 框中选择向导,在向导选取对话框中使用鼠标选择“表单向导”。 单击确定按钮进入“表单向导”步骤 确定表单的数据源。然后进行字段选取 四、选择好表单样式及按钮类型 五、按照每组记录的排序顺序选择字段 六、选择建立好表单后的存储方式,“完成
8.1 使用表单向导创建表单 8.1.1 表单向导 使用表单向导创建一对一表单的步骤如下： 一、从“文件”菜单,选择“新建”、“表单”,然后在新建对话 框中选择向导,在向导选取对话框中使用鼠标选择“表单向导”。 二、单击确定按钮进入“表单向导”步骤一。 三、确定表单的数据源。然后进行字段选取。 四、选择好表单样式及按钮类型。 五、按照每组记录的排序顺序选择字段。 六、选择建立好表单后的存储方式，“完成
8.2数据环境设置 ●82.1打开“数据环境设计器” 在创建表单或已有打开表单的情况下,可以从 “显示”菜单中,也可在表单快捷菜单中选择 “数据环境”。 ●822数据信息与数据环境
8.2 数据环境设置 ⚫ 8.2.1 打开“数据环境设计器” – 在创建表单或已有打开表单的情况下，可以从 “显示”菜单中，也可在表单快捷菜单中 选择 “数据环境”。 ⚫ 8.2.2 数据信息与数据环境
83.1表单设计器与表单控件工具栏 使用表单设计器创建表单一般需要进行的工作如下: 明确创建表单的目标、表单应具备的功能、用途 在表单中添加与此相关的控件 为表单及其控件设置好与之匹配的数据环境及数据源。 为表单中的每一个控件做恰当的属性设置 选择与对象、目标相关的事件。 设计好事件触发的方法程序代码
8.3.1 表单设计器与表单控件工具栏 使用表单设计器创建表单一般需要进行的工作如下： 明确创建表单的目标、表单应具备的功能、用途。 在表单中添加与此相关的控件。 为表单及其控件设置好与之匹配的数据环境及数据源。 为表单中的每一个控件做恰当的属性设置。 选择与对象、目标相关的事件。 设计好事件触发的方法程序代码
表单设计器中带有“表单设计器”、“表单控件”、“布局”和“调色板”等工具 (如图8-15所示),表单控件工具栏控制按钮的名称和功能如表8-1所示 图8-15表单控件工具栏 表8-1表单控件工具栏控制按钮的名称和功能 按钮名称 功能 设键次序 显示表对象设置的Iab顺序 数据环境 显示Ⅴ sual foxpro的数据环境 属性窗口 显示所选对象的属性窗口 代码窗口 显示所选对象的代码窗口 表单控件工具栏 显示或隐藏“表单控件”工具栏 调色板工具栏 显示或隐藏“调色板”工具栏 布局工具栏 显示或隐藏“布局”工具栏 表单生成器 启动表单生成器,向表单中添加控件 自动格式 启动“自动格式生成器”对话框,为所选表单控件提供显示风格 少选择一个控件,才能激活此按钮
表单设计器中带有“表单设计器” 、 “表单控件” 、 “布局”和“调色板”等工具 栏（如图8-15所示），表单控件工具栏控制按钮的名称和功能如表8-1所示。 图8-15 表单控件工具栏 表8-1 表单控件工具栏控制按钮的名称和功能 按钮名称 功能 设键次序 显示表对象设置的Tab顺序 数据环境 显示Visual FoxPro的数据环境 属性窗口 显示所选对象的属性窗口 代码窗口 显示所选对象的代码窗口 表单控件工具栏 显示或隐藏“表单控件”工具栏 调色板工具栏 显示或隐藏“调色板”工具栏 布局工具栏 显示或隐藏“布局”工具栏 表单生成器 启动表单生成器，向表单中添加控件 自动格式 启动“自动格式生成器”对话框，为所选表单控件提供显示风格。至 少选择一个控件，才能激活此按钮
8.3.3命令按钮与命令按钮组 ξ命令按钮”控件主要用来控制程序代码的执行、操作。在表 单中添加具有不同功能的命令按钮,供用户选择各种不同的操作 。命令按钮的不同功能是通过为各个按钮“ click事件编写不同的 方法程序代码设置的。 “命令按钮组”控件是命令按钮的集合。 “命令按钮”的主要属性是: 位置及大小:top、let、 height、 width 标题: caption 名称:name 控件自动改变: autosize 字体字号: fontname、 fontsize 命令按钮”经常选用的事件: click
8.3.3 命令按钮与命令按钮组 “命令按钮”控件主要用来控制程序代码的执行、操作。在表 单中添加具有不同功能的命令按钮，供用户选择各种不同的操作 。命令按钮的不同功能是通过为各个按钮“click”事件编写不同的 方法程序代码设置的。 “命令按钮组”控件是命令按钮的集合。 “命令按钮”的主要属性是： 位置及大小：top、left、height、width 标题：caption 名称：name 控件自动改变：autosize 字体字号：fontname、fontsize “命令按钮”经常选用的事件：click
834文本框 文本框是最常用的控件主要用于数据表中某些数据的输入输出 或编辑,以及从窗口给内存变量赋值等操作。 文本框对象的常用属性设置: 文本框名称:name 文本框内容的字体大小: fontsize 文本框数据初始值与类型: value 设置输入和显示数据的格式与长度: inputmask 设定是否只读状态: readonly 在应用程序中,经常需要获得某些安全信息如:口令。这时 要设置文本框的 Passwordchar属性为“*”或其它一些字符;用文 本框来接收这一信息,而不在屏幕上显示其实际内容
8.3.4 文本框 文本框是最常用的控件主要用于数据表中某些数据的输入输出 或编辑，以及从窗口给内存变量赋值等操作。 文本框对象的常用属性设置： 文本框名称：name 文本框内容的字体大小：fontsize 文本框数据初始值与类型：value 设置输入和显示数据的格式与长度：inputmask 设定是否只读状态：readonly 在应用程序中，经常需要获得某些安全信息如：口令。这时需 要设置文本框的Passwordchar属性为“*”或其它一些字符；用文 本框来接收这一信息，而不在屏幕上显示其实际内容
例8-4用文本框、标签、命令按钮组设计一个可以使用口令进 行操作权限检验的表单。 操作步骤: 1)打开“表单设计器”为表单设置属性,属性值如下: AlwaysOnTop=T AutoCenter= T Caption=系统检验 2)打开“表单控件工具栏”,从中选择“命令按钮组”设 定命令按钮数目两个,为命令按钮组设定如下属性 Caption=cmdgp Value=1 (3)为两个命令按钮设定如下属性 Caption=确认 Caption=退出 Clickevent=用户自定义过程
例8-4 用文本框、标签、命令按钮组设计一个可以使用口令进 行操作权限检验的表单。 操作步骤： （1）打开“表单设计器”为表单设置属性，属性值如下： AlwaysOnTop=.T. AutoCenter=.T. Caption=系统检验 （2）打开“表单控件工具栏” ，从中选择“命令按钮组”设 定命令按钮数目两个，为命令按钮组设定如下属性： Caption=cmdgp1 Value=1 （3）为两个命令按钮设定如下属性： Caption=确认 Caption=退出 ClickEvent=用户自定义过程
(4)在表单中添加文本框控件,为其设定属性: PasswordChar=* Name=kImm ClickEvent=用户自定义过程 FontName=宋体 (5)在表单中添加标签,设定属性: Caption操作口令 FontName=宋体 (6)为命令按钮一设计方法程序代码: if trim(thisform. klmm value)pass if messagebox(“请重新输入口令",0+16,"提示")=1 thisform. klmm setfocus endif endif if trim(thisform. klmm value)=pass do form系统主程序Scx release thisform endif
（4）在表单中添加文本框控件，为其设定属性： PasswordChar=* Name=klmm ClickEvent=用户自定义过程 FontName=宋体 （5）在表单中添加标签，设定属性： Caption=操作口令 FontName=宋体 （6）为命令按钮一设计方法程序代码： if trim(thisform.klmm.value)<>'pass' if messagebox(“请重新输入口令",0+16,"提示")=1 thisform.klmm.setfocus endif endif if trim(thisform.klmm.value)='pass' do form 系统主程序.scx release thisform endif
(7)为命令按钮二设计方法程序代码: a= messagebox("你真的要退出吗?"4+16+0,"对话窗口") if a=6 release thisform endif 结果如图8-9所示。 系统检验 口区 操作口令 klmm 图8-9例8-4结果显示
（7）为命令按钮二设计方法程序代码： a=messagebox("你真的要退出吗?",4+16+0,"对话窗口") if a=6 release thisform endif 结果如图8-9所示。 图8-9 例8-4结果显示