041124第7章表单的建立与使用1

null第7章 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 单的建立与使用 P198第7章 表单的建立与使用 P1987.1 表单的设计过程 7.2 操作表单 7.3 控件应用初步 7.4 按钮类控件 7.6 其它控件 null 表单（Form）是用户的主要界面，又称为窗口。 它是一个容器，它可以放置多个控件。 在建立表单的过程中，要定义控件的属性、确定事件或方法的代码。7.1 表单的设计步骤 ( P198 )7.1 表单的设计步骤 ( P198 ) 示例： 求任一圆的面积 （1）、创建表单并设置表单本身属性； （2）、在表单中添加所需的控件对象； （3）、设计控件对象的操作； （4）、编写对象响应的程序代码； 7.2.1 表单创建与保存7.2.1 表单创建与保存 使用系统提供的表单设计器创建新的表单，可以有多种方法: (1) 、使用菜单 ( P199 ) (2) 、在项目管理器中创建 (P199 ) (3) 、使用命令 ( P199 )null方法一：菜单方式 ( P199 ) 1、打开“文件”菜单，选择“新建”；在“新建”窗口，选择“表单”，再按“新建文件”按钮，进入“表单设计器”窗口； 2、右击打开快捷菜单或直接打开“显示”菜单，完成对表单属性、事件和方法的定义： 3、再选择“保存”，表单建立完成。null 方法二：在项目管理器中创建 ( P 200 ) 1、先打开项目管理器； 2、选择 “文档” 选项卡中的“表单” ； 3、然后单击 “新建” 按钮 ； 4、在打开的 “新建表单” 对话框中选择“新建表单”，打开“表单设计器”。 null 方法三：命令方式 1、创建表单命令： CREATE FORM <表单名>.SCX 2、修改表单命令： MODIFY FORM <表单名>.SCXnull7.2.2 表单属性和方法 ( P 199 ) 1． 表单属性 表单本身一个容器类。 创建表单对象之后，主要设置的属性: Caption —— 标题 Name —— 表单名 ( 其他常用属性如 表7.1 )2、表单设计器工具栏 ( 主要工具图标介绍 )2、表单设计器工具栏 ( 主要工具图标介绍 ) （1） 设置 Ta b 键的次序； （2） 数据环境； （3） 属性窗口； （4） 代码窗口； （5） 表单控件工具栏； 3、表单的属性窗口 属性窗口组成： （1）、对象选择列表框； （2）、属性分类页； （3）、属性设置框； （4）、属性列表框； （5）、属性说明框。null方法一：选择 “文件” 菜单中的 “保存” ； 方法二：单击工具栏上的 “保存” 按钮； 4、 保存表单的操作 ( P 199 )null 5、运行表单： 操作方法是单击工具栏的 “ ！” 运行按钮 其它方法见后续 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 ， 表单文件一旦被建立，就自动建立扩展名为.SCX 的表单表文件(同时有.SCT 文件，用于存储.scx表单文件中备注字段和通用型字段的内容)，它 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 了该表单上所有对象的信息。null 6、 表单的常用方法 ⑴、Release —— 释放表单 ⑵、Refresh —— 刷新表单 其他事件方法如表7.2所示。 ( P 201 )null⑴、Release —— 将表单从内存中释放掉，即关闭。这是退出表单的基本方法。 格式： ThisForm . Release ⑵、Refresh —— 重新获取表单有关参数，即刷新。 格式： ThisForm . Refresh null7.2.5 数据环境定义 ( P 204 ) 使用表单的目的是想通过表单来操作数据库，通过数据环境的定义可以将数据库的表和表单连接在一起。 1、游标 —— 工作区上打开的表 与表单相连数据环境的操作如下： null2、数据环境设计器操作： ( P 205 ) （1） 添加表； （2） 移去表； （3） 设置多表之间的关系； null【例7.5】创建新表单：学生· SCX ，并在表单 上添加学生表。 ( P 205 ) ①、 创建新表单，并将其保存为 D:＼教学管理＼ “学生 . SCX”。 ②、 选择 “显示”——“数据环境” 菜单，系统打 开 “数据环境设计器” 窗口，同时打开“添加 表或视图”对话框 (如 图7.6 )。 ③、 选定 “学生.dbf ” ，单击“添加”按钮, 这时 “学生”表放置在 “数据环境” 中，关闭添加 对话框。null 注意：数据环境上的操作：—— 右击 ( P 205 ) 1、 在 “ 数据环境设计器 ” 的游标（表的映象）上右击，将打开表的快捷菜单(参见图7.7)，通过选择相应菜单项可以操作该对象，如浏览、移去等； 2、 在 “ 数据环境设计器 ” 的 空白区上右击，将打开数据环境的快捷菜单(参见图7.7)，通过选择相应菜单项可以操作数据环境，如添加表或视图等。null7.2.6 修改表单 ( P 208 ) 方法如下： 1、在“项目管理器”中打开 “表单”，然后选定 表单后，单击“修改”； 2、 单击工具栏上的“打开”按钮，在“打开”对 话框中选择“表单”文件类型，然后单击相 应的表单文件； 3、使用命令 ： MODIFY FORM <表单名>null7.2.6 运行表单方法 ( P 208 ) 1． 在设计表单时运行 单击工具栏上的 “ ！” 运行按钮 2． 菜单方式 选择 “文件”—“运行” 菜单项 null 3、 在“项目管理器”中运行 ( P 208 ) 打开 “文档” ——“表单”，再选定表单名，并单击 “ 运行 ” 即可。 4、命令方式 DO FORM < 表单名 > ( 在程序设计菜单设计时用到 ) 7.3 控件应用初步 ( P 209 )7.3 控件应用初步 ( P 209 ) 7.3.1 表单控件 在“表单设计器”窗口中设计应用表单时，随时可以使用“表单控件”工具栏，它包含3种控件： 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 控件、ActiveX控件和自定义控件。 1． 标准控件 ( 下面介绍 ) 2． ActiveX控件 （ 略 ） 3．自定义控件 （ 略 ） null7.3.2 创建表单与数据环境 【例7.7】 创建 “学生登记卡” 表单，将其保存为 学生登记卡.SCX。 ( P 211 ) 操作： 1． 创建表单 2． 数据环境null null7.3.3 标签控件 ( P 211 ) 设计表单上有一个标题。 标题为“教务处教学管理系统”。null 1、标签(Label)的作用 2、标签的常用属性 ① 、 Caption —— 标题 ② 、 FontSize —— 字体大小 ③、 FontColor —— 字体颜色 ④、 BackColor —— 背景颜色 null7.3.4 线条与形状控件 ( P 211 ) “线条”与“形状”控件是在表单上画简单图形的控件。 1． 线条控件 上例中给标题下面画一条线，单击“控件工具栏”中的“线条”控件，然后在表单标题下面单击拖动鼠标就可以画一条直线。 “线条”属性： BorderWidth——线宽。设置线条的宽度null注意： ( P 212 ) 改变控件的大小和位置： 1、单击控件，这时控件四周有 8 个控点。然后在某一控点上拖动鼠标，就可以改变控件的大小； 2、在控点外的任意地方拖动鼠标到目标位置，即可移动控件的位置。 null图7.15null2、形状控件 ( P 212 ) 1、 形状可以是矩形、正方形、圆、椭圆及圆角矩形等。 2、 形状的样式要通过Curvature属性控制： Curvature = 0 ——表示直角矩形 Curvature =99 ——表示圆 Curvature = 1~ 98 —— 表示圆角矩形 7.3.5 文本框控件 ( P 212 ) 7.3.5 文本框控件 ( P 212 ) 文本框文本框的常用属性 （ 补充） ① Value —— 文本框的值 ② ControlSource —— 数据源 例 7.8 在 学生登记卡.SCX 表单中，创建 显示学号、姓名、出生日期字段文本框。 文本框的常用属性 （ 补充） ① Value —— 文本框的值 ② ControlSource —— 数据源 例 7.8 在 学生登记卡.SCX 表单中，创建 显示学号、姓名、出生日期字段文本框。 null使用文本框的要点： ①、取出文本框1的值： X = ThisForm .text1.Value ②、把X的值放入文本框2显示： ThisForm .text2.Value = X 示例：求任一圆的面积 使用文本框的要点： ①、取出文本框1的值： X = ThisForm .text1.Value ②、把X的值放入文本框2显示： ThisForm .text2.Value = X 示例：求任一圆的面积 7.4 按钮类控件 ( P 215 ) 7.4 按钮类控件 ( P 215 ) 7.4.1 命令按钮和命令按钮组 使用命令按钮和命令按钮组，可以执行相应程序代码来实现某一功能。 1． 命令按钮 给上例表单设计如下图示五个“命令按钮” 。 【例7.9】 在“学生登记卡”表单中，设计数据 导航的五个 “命令按钮” 如下:null图7.22null① 、给 “第一条” 命令按钮的 Click事件 加入代码 如下： GO TOP && 指针移到顶部 ThisForm . Command2 . Enabled = .F. ThisForm . Command3 . Enabled = .T. ThisForm . Refresh * ( 内容参见P 217 )null② 、 给 “上一条” 命令按钮 的 Click事件 加入代码 如下 ： IF .not. Bof ( ) && 假如记录指针没有指到文件头 SKIP －1 && 向上移动一条记录 ThisForm . Command3 . Enabled = .T. ENDIF ThisForm . Refreshnull③、给 “下一条” 命令按钮 的 Click事件 编写代码。 IF .not. Eof ( ) && 假如记录指针没有指到文件尾 SKIP 1 && 下移一条记录 ThisForm . Command2 . Enabled = .T. End IF ThisForm . Refreshnull④ 、给 “最后一条” 命令按钮 的 Click事件 编写代码。 GO Bottom ThisForm . Command3 . Enabled = .F. ThisForm . Command2 . Enabled = .T. ThisForm . Refreshnull⑤ 、给 “退出” 命令按钮 的 Click事件 编写代码。 Thisform . Release && 释放表单 * ( 内容参见P 216 ) null2． 命令按钮组 通常将移动记录指针的操作称之为 “数据导航” 。实现数据导航也可以使用命令按钮组和移动记录指针命令来实现。 【例7.10】在“学生登记卡”表单中，利用命令按钮组设计数据导航。null创建命令按钮组 ( P 216 ) ① 、在“表单控件”中单击“命令按钮组”图标，然后在表单上单击拖动，就将命令按钮组放置在表单上。（ 命令按钮组总是以一组命令按钮的方式给出，初始的命令按钮组给出二个按钮：Command1和Command2。） ②、然后按 P 216 例题 7.10 方法修改null图7.20null图7.21null命令按钮组的单击(Click)事件代码的设计: * Commmand group1 . Click ( P 219 ) DO CASE CASE This .Value = 1 &&″第一条″命令按钮 GO top CASE This .Value = 2 &&″上一条″ IF .not. Bof ( ) Skip -1 EndIFnull CASE This .Value = 3 &&″下一条″ IF .not. eof ( ) SKIP EndIF CASE This .Value = 4 &&″最后一条″ GO BOTTOM ENDCASE ThisForm . Refresh 注意：以上设计的数据导航，可通用于其它表单。