管理系统中计算机应用702.ppt_第1页
管理系统中计算机应用702.ppt_第2页
管理系统中计算机应用702.ppt_第3页
管理系统中计算机应用702.ppt_第4页
管理系统中计算机应用702.ppt_第5页
已阅读5页,还剩59页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

2020 4 12 1 第7章表单设计 之三 2020 4 12 2 主要内容 计时器控件图像 线条与形状控件超级链接控件activex控件 2020 4 12 3 7 1 9计时器控件 计时器控件计时器的两个关键属性 enabled 如果希望在表单装入后立即启动计时器 则把该属性设置为 t 真 否则把它设置为 f 假 然后用一个外部事件 如单击命令按钮 来启动计时器 interval 设置两个计时器事件之间的时间间隔 单位为毫秒 2020 4 12 4 计时器控件 计时器的一个重要事件 timer 每隔interval属性设置的时间间隔 该事件将由系统触发一次 注意 计时器事件是周期性的 间隔长度越小 事件产生就越频繁 响应事件所花费的时间就越多 这将会使应用程序的整体性能下降 所以一般不要设置很小的间隔 2020 4 12 5 计时器控件举例 例7 13 设计一个如图所示的表单窗口 要求当表单执行时 表单中的文字从左向右移动 当文字全部移出时 文字又从左边移入 反复循环不止 2020 4 12 6 计时器控件举例 操作步骤如下 在visualfoxpro中新建一个表单窗口 按上图所示 在该表单窗口中分别创建一个标签控件 一个计时器控件 放到相应的位置 设置各控件的属性如表7 12所示 2020 4 12 7 计时器控件举例 2020 4 12 8 计时器控件举例 设置计时器控件的timer事件的代码为 a thisform label1 left 5ifa thisform widtha thisform label1 widthendifthisform label1 left a 2020 4 12 9 7 1 10图像 线条与形状控件 图象 线条与形状控件图象控件图象控件可以用来在表单中显示文件的图象 图象文件的类型可为 bmp ico gif jpg等4种 线条控件 形状控件 2020 4 12 10 图像 线条与形状控件 图象控件的常用属性有 picture 设置要显示的位图文件 borderstyle 设置图象是否有边框 stretch 如果设置为0 剪切 表示图象中超出图象控件范围的部分不显示 1 等比填充 则表示图象控件保持图片原有尺寸比例 但尽可能地显示在控件中 2 变比填充 也就是系统自动调整图象的大小 与图象控件的高度与宽度相匹配 2020 4 12 11 图像 线条与形状控件 线条控件的常用属性有 borderwidth 设置线的粗细 height 设置线的对角矩形的高度 设置为0是水平线 width 设置线的对角矩形的宽度 设置为0是垂直线 lineslant 设置线的倾斜方向 此属性的有效值是 和 分别对应右下角至左上角对角线和左上角至右下角对角线 bortercolor 设置线的颜色 2020 4 12 12 图像 线条与形状控件 形状控件的常用属性有 curvature 设置图的形状 值在0 矩形 到99 圆角矩形或椭圆 之间 fillstyle 是否填充线图 specialeffect 决定线图是平面图还是三维图 三维图只在curvature属性为0时有效 2020 4 12 13 图像 线条与形状控件 形状类型将由curvature width与height属性来指定 见下表 2020 4 12 14 图像 线条与形状控件 注意 图像 线条和形状控件不但可以在设计时设置 设置好后无论在设计时还是运行时都可改变其属性 若形状控件遮住了某一其它控件 则无论在设计时还是运行时 对被遮控件单击鼠标键均将无效 此时应将形状控件置后 可使用格式菜单的置后命令 或布局工具栏的置后按钮来设置 2020 4 12 15 图像 线条与形状控件举例 例7 14 设计一个如图所示的表单窗口 2020 4 12 16 图像 线条与形状控件举例 操作步骤如下 在visualfoxpro中新建一个表单窗口 按上图所示 在该表单窗口中分别创建一个标签对象 一个形状对象 一个图像对象 两个线条对象 设置各控件的属性如表7 14所示 2020 4 12 17 图像 线条与形状控件举例 2020 4 12 18 图像 线条与形状控件举例 2020 4 12 19 7 1 11超级连接 超级链接对象含有一个navigateto方法程序 它允许用户指定一个网址 执行该方法程序时visualfoxpro就会启动因特网浏览器 并根据指定的网址进入网络的站点来显示网页 2020 4 12 20 超级连接举例 例7 15 在表单上创建一个命令按钮 要求表单运行时单击该命令按钮即可显示搜狐网站的主页 2020 4 12 21 超级连接举例 操作步骤如下 如图所示在表单上添加超级链接控件和命令按钮控件各一个 commandl的caption属性设置为 搜狐commandl的click事件代码编写如下 thisform hyperlink1 navigateto 2020 4 12 22 7 1 12activex控件 基本概念activex原来是微软公司提出的一组技术标准 其中也包括控件的技术标准 所谓activex控件 就是指符合activex标准的控件 其数量现已超过了1000种 例如在windows的system文件夹中含有大量带 ocx扩展名的文件 就都属于activex控件 在本章前几节介绍的控件 仅是activex控件中常见于visualfoxpro界面的一小部分 2020 4 12 23 activex控件 向表单添加控件或对象从 表单控件 工具栏中选定activex控件按钮 在表单中单击鼠标 屏幕上将弹出一个如图所示的 插入对象 对话框 新建 由文件创建 创建控件 2020 4 12 24 activex控件 新建 选项按钮选定 新建 选项表示将在表单上新建一个对象 这种对象是某种文件类型的文档 在插入对象对话框的对象类型列表中包含文档 图象 声音等多种文件类型 用户选定其中一项并按确定按钮后 visualfoxpro将自动打开这种类型的应用程序 供用户输入文档的内容 显示为图标 复选框 2020 4 12 25 activex控件 由文件创建 选项按钮选定 由文件创建 选项按钮表示用户须指定一个存在的文档 并作为对象放置在表单上 选定该选项按钮后 插入对象对话框中将显示一个浏览按钮和一个文本框 用户可通过浏览按钮选一文件 或在文本框中直接输入路径及文件名 按确定按钮后表单窗口内即产生一个文档对象 该文档是以图标显示 还是文件内容显示 可由显示为图标复选框指定 2020 4 12 26 activex控件 创建控件 选项按钮选定 创建控件 选项按钮表示可由用户指定一个activex控件并放置在表单上 选定该选项按钮后 插入对象对话框中将显示 添加控件 按钮 单击该按钮 弹出浏览对话框 指定visualfoxpro的主目录的文件fpole ocx 然后选择 打开 对象类型 列表中将出现大量activex控件选项 这些都是表单控件工具栏以外可供用户选用的控件 用户选定一项后并按确定按钮 指定的activex控件就会出现在表单上 2020 4 12 27 activex控件 向表单控件工具栏添加attivex控件添加步骤选定 工具 选项 命令 在如图所示的 选项对话框 的 控件 选项卡中选定 activex控件 选项按钮 2020 4 12 28 activex控件 显示方法转换方法如下 在表单控件工具栏中选定查看类按钮 并在随后弹出的菜单中选定 activex控件 命令 表单控件工具栏就会自动转换成显示ole对象和activex控件按钮的工具栏 2020 4 12 29 activex控件 删除方法要删除表单控件工具栏中的ole对象按钮或activex控件按钮 可通过 工具 菜单的 选项 命令来打开 选项对话框 并在其 控件 选项卡的列表中清除有关复选框便可 2020 4 12 30 activex控件举例 例7 16 设计一个如图所示的视频播放表单 要求当用户执行表单后开始播放 2020 4 12 31 activex控件举例 操作步骤如下 在visualfoxpro中新建一个表单窗口 按上图所示 在该表单窗口中创建一个视频剪集的activex对象 操作方法是 向表单添加一个activex对象 在弹出的 插入对象 对话框中 在 对象类型 的列表框中选择 视频剪辑 然后单击 确定 调整它的大小并摆放到相应的位置 设置各控件的属性如表7 15所示 2020 4 12 32 activex控件举例 在activex控件上右击鼠标 在出现的快捷菜单中选择 视频剪集对象 在出现的菜单中选择 打开 则出现一个 媒体播放机 对话框 选择 文件 菜单中的 打开 菜单项 再选择 jzgsp wmv 文件 最后单击 确定 2020 4 12 33 activex控件举例 例7 17 设计一个如图所示的表单 要求当表单执行时 用户双击小喇叭 可播放创建时录制的声音 2020 4 12 34 activex控件举例 操作步骤如下 在visualfoxpro中新建一个表单窗口 按上图所示 在该表单窗口中创建一个标签对象 并设置其caption的属性值为 双击开始播放 再添加一个音效的activex对象 2020 4 12 35 activex控件举例 操作方法是 向表单添加一个activex对象 在弹出的 插入对象 对话框中 在 对象类型 的列表框中选择 音效 然后单击 确定 当音效的activex对象添加到表单后 将自动出现录音对话框 此时单击红色按钮 开始录音 完成录音后 单击停止录音按钮 并关闭录音窗口 调整它们的大小并摆放到相应的位置 2020 4 12 36 7 1 13表单设计综合例题 例7 18 用命令按钮组设计如图7所示的计算器 2020 4 12 37 表单设计综合例题 操作步骤如下 计算器的按钮部分用命令按钮组控件进行设计 向表单添加一个命令按钮组控件 在命令按钮组控件上单击右键 选择 生成器 在按钮选项卡中设置按钮数目为16 并设置标题如图所示 2020 4 12 38 表单设计综合例题 在 布局 页面中设置 按钮布局 为 水平 单击 确定 按钮 设置命令按钮组控件的height属性值为 140 在命令按钮组控件上单击右键 选择 编辑 移动命令按钮 将所有命令按钮的height和widdth均设置为 25 设置成图7 32所示的状态 2020 4 12 39 表单设计综合例题 在表单中添加一个文本框控件 一个标签控件 一个形状控件 并设置为如图7 32所示的外观 设置文本框的format属性的值设置为 t 定义一个名为x的表单属性 设置命令按钮组控件commandgroup1的value属性值为 这一步骤非常重要 如没有这一步 计算器的设置要复杂得多 2020 4 12 40 表单设计综合例题 在命令按钮组控件commandgroup1的click事件添加下列代码 ifthisform tand asc this value 48 andasc this value 57 清空文本框内容endif 2020 4 12 41 表单设计综合例题 ifthis value this valuethisform x f endif 2020 4 12 42 表单设计综合例题 例7 19 建立一个表单 其外观如图所示 并完成下列功能 表单被执行时按图所示的格式显示日期和时间 当用户改变格式设置时 立刻按用户设置的格式显示日期和时间 2020 4 12 43 表单设计综合例题 操作步骤如下 新建一个表单 添加五个标签控件 两个文本框控件 两个选项按钮组 两个复选框控件 两个形状控件 一个计时器控件 并设置相应属性 使其外观如图所示 两个形状控件必须设置为 置后 两个选项按钮组控件用生成器设置较方便 2020 4 12 44 表单设计综合例题 设置控件的关键属性 设置计时器控件的interval属性值为 500 设置两个文本框的tabstop属性值为 f 假 上面文本框的width属性值为 240 下面文本框的width属性值为 210 其它属性值读者可参照已确定的属性值及图7 35的相对位置自定 在计时器控件的time事件中添加以下代码 见实例 2020 4 12 45 表单设计综合例题 例7 20 设计一个表单 实现如图所示的简易数学用表 原数取1 100 2020 4 12 46 表单设计综合例题 操作步骤如下 新建一个表单 向表单添加五个标签控件 一个列表框控件 并设置相关属性使其外观如图7 36所示 设置列表框控件list1的属性columncount的值为 5 说明含有5列 属性columnwidth的值为 30 40 50 50 180 确定5列各自的宽度 2020 4 12 47 表单设计综合例题 在控件list1的init事件中添加如下代码 fori 1to100n str i 3 this addlistitem n i 1 n str i i 5 this addlistitem n i 2 n str sqrt i 7 4 this addlistitem n i 3 n str log i 7 4 this addlistitem n i 4 n str exp i 17 4 this addlistitem n i 5 endfor 2020 4 12 48 表单设计综合例题 例7 21 设计新增人事数据的表单 要求充分利用所学的知识 设计表单时尽量为用户着想 为用户提供方便 设计步骤如下 新建一个名为lt7 21的表单 向表单添加数据环境 数据环境中添加rsb dbf和bmdm dbf两个表文件 注意 必需删除两表间的关系 并向bmdm表添加一条空记录 2020 4 12 49 表单设计综合例题 利用数据环境向表单快速添加控件 用鼠标指向rsb表的字段行 按下鼠标左键拖拽到表单的左上角 释放鼠标则产生如图所示的表单 默认表单不够大 可拖拽表单边框到足够大 就可以看到所有的控件 2020 4 12 50 表单设计综合例题 对于性别字段的输入 只有两种可取值 没有必要让用户输入 男 或 女 可利用选项按钮组控件 如图所示 由用户单击鼠标就可选定 男 或 女 所以需将已有的与性别绑定的文本框删除 图7 38新增人事数据表单设计状态 2020 4 12 51 表单设计综合例题 操作方法如下 在表单空表处单击鼠标 取消对所有控件的选择 选择与性别绑定的文本框 按delete键删除 添加一个选项按钮组 设置成如图7 38右上角所示的外观 将选项按钮组对象optiongroup1的属性controlsource的值设置为rsb 性别 也就是将选项按钮组对象optiongroup1与rsb表文件的 性别 字段绑定了 所以当用户选择了 男 或 女 将自动更新表文件中当前记录 性别 字段的值 2020 4 12 52 表单设计综合例题 对于 部门代码 字段的值要利用bmdm表的内容 删除与 部门代码 绑定的文本框 添加一个组合框控件 在组合框上单击鼠标右键 选择 生成器 对 列表项 页面设置成如图所示 2020 4 12 53 表单设计综合例题 对 值 页面设置成如图所示 其它两个页面不变 最后单击 确定 确认设置 2020 4 12 54 表单设计综合例题 出生日期 和 工作日期 字段也需作处理 因为大多数用户不知道日期的输入格式 删除与 出生日期 和 工作日期 绑定的文本框 添加两个微调控件 一个组合框控件 一个形状控件和三个标签控件 并调整成图7 38第二行的外观 提示 形状控件要置后 2020 4 12 55 表单设计综合例题 在组合框上单击鼠标右键 选择 生成器 对 列表项 页面设置成如图所示 表格中的数一直输入到12 其它三个页面不变 最后单击 确定 确认设置 2020 4 12 56 表单设计综合例题 并设置两个微调控件的属性如表7 16所示 2020 4 12 57 表单设计综合例题 选定输入年月日的所有控件 如图所示 单击 复制 按钮 再单击 粘帖 按钮 这样就有了两个输入日期的控件 再将spinner1 spinner2 spinner

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论