表单示例讲解.ppt

1 表单集 制作一个有三个表单的表单集 它们属于一个scx 第一个form1上有一个按钮 caption属性为 hello 第二个和第三个form上各有一按钮为command1 现在按下第一个表单上的按钮 将第二个和第三个form上的按钮的caption属性分别改为 hello2和hello3 2 制作方法 1 新建表单2 选择表单菜单中的 创建表单集 3 选择表单菜单中的 添加新表单 添加两个新表单4 分别在三个表单上放置命令按钮一个5 将第一个表单 form1 的command1的caption属性改为hello6 编辑form1上的command1的click事件代码如下 mand1 caption hello2 mand1 caption hello3 注意 thisformset就是表单集 相对引用 3 通讯费用计算 设计一个简单的通讯费用计算器 通讯开始时时间显示在 通讯开始时间 文本框中 当鼠标焦点移到 通讯时间 文本框时 显示当前时间 同时显示通讯时长 以分钟为单位表示 以及通讯费用 每分钟0 30元 4 制作要领 1 分别放置4个label和四个text 修改label1 label4的caption 2 修改text1的gotfocus事件 代码如下 thisform text1 value time 3 修改text2的gotfocus事件 代码如下 thisform text2 value time thisform text3 value val substr thisform text2 value 1 2 val substr thisform text1 value 1 2 60 val substr thisform text2 value 4 2 val substr thisform text1 value 4 2 val substr thisform text2 value 7 2 val substr thisform text1 value 7 2 60thisform text4 value str thisform text3 value 0 3 5 2 元 说明 第二句计算是将现在时间减去刚才时间 具体是时间差 现在小时 刚才小时 60 现在分钟 刚才分钟 现在秒种 刚才秒钟 604 运行 记时开始 text1中出现当前时间 鼠标点text2后 出现现在的时间然后在text3中自动显示出时间差 最后算出结果 每分钟0 30元 5 表格 涉及到一个表 制作一个带有表格的表单 表单上有一个包含学生信息的表格 6 制作要领 使用表格的时候注意可直接使用生成器 选中表格 点鼠标右键弹出菜单 生成器 1 新建表单 设置数据环境 添加表学生 dbf2 从数据环境中拖整个表到表单上 形成一表格3 选中表格 点鼠标右键弹出一菜单 选中生成器可以修改表格的列4 选中表格 点鼠标右键弹出一菜单 选中编辑后可以调整列宽和行高5 如果想让整个表格数据是只读的 可以设置表格的readonly属性为 t 7 表格 涉及到多个表 制作一个带有多个表格的表单 表单上有两个表格 左边的表格包含有部分学生的信息 右边的表中包含有部分选课的信息 8 制作要领 使用表格的时候注意使用生成器1 新建表单 设置数据环境 添加表学生 dbf 再添加表选课 dbf2 将学生表中的学号字段选中 按着鼠标左键不放拖向选课表的学号字段 3 系统将提示你没有建立索引 要建立该关联必须先建立索引 是否建立 选 确定 然后你将看见象数据库建立永久关系后的结果一样出现了一根练线4 从数据环境中拖学生 dbf整个表到表单上 形成一表格选中表格 点鼠标右键弹出一菜单 选中生成器可以修改表格的列 只保留学号和姓名字段5 从数据环境中拖选课 dbf整个表到表单上 形成一表格选中表格 点鼠标右键弹出一菜单 选中生成器可以修改表格的列 只保留课程号和成绩字段6 如果想让所有数据是只读的 可以设置表格的readonly属性为 t 9 简单查询 设计一个能实现简单查询功能的表单 输入学生的姓名后 点 查询 按钮 即可查询出学生的信息 10 制作要领 1 设置数据环境 添加表学生 dbf2 拖放列控件到表单上学号 姓名 性别 出生日期 入校总分 三好生3 放置一标签修改caption属性为输入姓名4 放置一文本框text1放置一按钮 修改caption属性为查询 编辑其click事件 locatefor学生 姓名 alltrim thisform text1 value thisform refresh5 运行 输入姓名 然后按查询按钮 结果就出来了如果题目要求你加大标题 给列控件加readonly属性 修改表单的caption属性等 再在此基础上修改属性或者添加控件和事件代码就行了 11 列表框举例 制作一个带有列表框的表单 在学号文本框中显示当前记录指针所指学生记录中学号字段的值 点 添加 按钮 此学号便被添加到列表框中 点 下一条 按钮 显示下一个学生的学号 点 上一条 则显示上一个学生的学号 在列表框中选中某一学号之后 点 删除 按钮 则会将该选中的学号从列表框中移出 12 制作要领 首先设置数据环境 添加表学生 dbf1 修改text1文本框的controlsource属性为 学生 学号 学生就是学生 dbf的别名 2 上一条 和 下一条 按钮大家看看就行了 click事件 主要是对文本框操作3 添加 按钮作用 将文本框text1中的数据添加到列表框中click事件代码中重点掌握 thisform list1 additem thisform text1 value 4 去除 是将选中的列表框中的内容删除掉 了解 click事件主要了解一下这句话 thisform list1 removeitem thisform list1 listindex listindex是指选中的数据的编号5 文本框text2的值对应的是list1的interactiveCharge事件代码list1的interactiveCharge事件代码为 thisform text2 value this valuethis refresh 13 组合框举例 制作一个带有组合框的表单 表单上包含有一个下拉组合框 学生表中所有学生的姓名均在此组合框之中 当选中某一具体的学生姓名时 将该学生的所有信息显示出来 14 制作要领 首先设置数据环境 添加表学生 dbf1 添加列表框和组合框2 修改组合框的RowSourceType为6 字段RowSource属性为 学生 姓名3 编写组合框的interactivechange事件locatefor学生 学号 this valuethisform refresh因为学生表中第一个字段就是学号 所以执行后组合框中的结果就是全部的学号 15 时间控件举例 制作一个带有时间空间的表单 在表单上循环移动显示 VisualFoxpro 文字 16 制作要领 1 添加一label1 标签 caption修改为 VisualFoxpro2 添加一时间控件属性修改 Enabled改为 t 时间间隔Interval10 单位 毫秒 Timer事件代码 ifthisform label1 left 1thisform label1 left thisform width 120elsethisform label1 left thisform label1 left 1endif 17 微调按钮控件举例 制作一个带有微调按钮控件的表单 通过上下微调按钮 调整文本框中显示的数值 微调以2为单位 18 制作要领 1 放置一文本框和一微调按钮2 微调按钮spinner1的属性修改 调整量Increment 2 00最大值SpinnerHighValue 100 00最小值SpinnerLowValue 0 003 微调按钮spinner1的Interavtivechange事件代码 thisform text1 value this valuethis value就是spinner1的值 19 页框控件举例 制作一个带有页框空间的表单 三个选项卡分别包含有学生表 教师表 课程表 20 制作要领 1 首先设置数据环境 添加表学生 dbf教