Visual-FoxPro程序设计实验指导

目 录 实验 1 VISUAL FOXPRO 的启动 退出与环境设置 1 实验 2 项目管理器 8 实验 3 常量 变量 函数及表达式 13 实验 4 数据库 表结构的创建与维护 18 实验 5 表记录的维护 索引与统计操作 25 实验 6 数据完整性与表间永久关系设置及多表操作 32 实验 7 结构化程序设计一 38 实验 8 结构化程序设计二 43 实验 9 查询与视图设计 47 实验 10 SQL 查询设计一 53 实验 11 SQL 查询设计二 57 实验 12 表单与控件设计一 62 实验 13 表单与控件设计二 72 实验 14 表单与控件设计三 81 实验 15 报表与标签设计 86 实验 16 菜单设计 100 实验 17 应用系统综合设计 107 实验 1 Visual FoxPro 的启动 退出与环境设置 实验 1 Visual FoxPro 的启动 退出与环境设置 一 实验目的 1 掌握安装 Visual FoxPro 的方法 2 掌握 Visual FoxPro 的启动与退出操作 3 了解 Visual FoxPro 的主窗口界面 4 掌握 Visual FoxPro 工作环境的设置 5 掌握 Visual FoxPro 的基本操作 二 实验内容 1 安装 Visual FoxPro 2 Visual FoxPro 的启动 3 退出 Visual FoxPro 的 5 种方式 4 Visual FoxPro 的环境配置 5 Visual FoxPro 显示 隐藏工具栏的基本操作 6 命令窗口的打开与关闭操作 三 实验步骤 1 Visual FoxPro 光盘安装 1 将 Visual FoxPro 安装光盘放入光驱 执行光盘中的 setup exe 文件 2 根据安装向导的提示 接受 最终用户许可协议 并正确输入产品的 ID 号 3 安装向导会提示是 典型安装 还是 自定义安装 一般选择 典型安装 如 果选择了 自定义安装 向导还会提示安装的组件的选择 4 安装程序会自动进行文件的复制 文件复制完后 Visual FoxPro 安装完成 安装 VFP 过程中 安装向导会提示安装 MSDN 库 MSDN 库中包含了 VFP 的联机帮 助文档和示例 用户可根据需要进行安装 2 启动 Visual FoxPro 可用如下两种方式启动 Visual FoxPro 方法一 使用桌面上的快捷方式 双击桌面图标 以快捷方式启动 Visual FoxPro 方法二 使用 开始 菜单 单击 开始 按钮 移动光标至 程序 命令 在 程序 子菜单中选择 Microsoft Visual FoxPro 6 0 命令即可 操作示例如图 1 1 所示 实验 1 Visual FoxPro 的启动 退出与环境设置 图 1 1 启动 Visual Foxpro 启动后的 Visual FoxPro 主界面如图 1 2 所示 1 2 VFP主界面 3 退出 Visual FoxPro 可用如下方式退出 Visual FoxPro 1 单击 文件 菜单下的 退出 命令 2 单击标题栏最右端的关闭按钮 3 单击标题栏最左端的控制按钮 打开下拉菜单 选择 关闭 命令 4 按 Alt F4 组合键 5 在命令窗口中输入 QUIT 命令 按 Enter 键 4 配置 Visual FoxPro的运行环境 由于实验室保护 C 盘 为保留用户实验的数据需要配置 Visual FoxPro 的运行环境 使 其自动保存到学生文件夹 而且用户管理自己的文件也很方便 配置 Visual FoxPro 的运行 环境的操作步骤如下 1 打开 选项 对话框 在 Visual FoxPro 主菜单中 选择 工具 菜单下的 选项 命令 打开 选项 对话 框 如图 1 3 所示 2 在 选项 对话框中打开 文件位置 选项卡 命令窗口 菜单栏 工具栏 下拉菜单 状态栏 标题栏 主窗口 实验 1 Visual FoxPro 的启动 退出与环境设置 图 1 3 选项 对话框 3 在 文件位置 选项卡中 选择 默认目录 选项 单击 文件位置 选项卡中 的 修改 按钮 弹出 更改文件位置 对话框 选中 使用默认目录 复选框 如图 1 4 所示 浏览 按 钮 图 1 4 更改文件位置 对话框 4 单击 浏览 按钮 弹出 选择目录 对话框 如图 1 5 所示 图 1 5 选择目录 对话框 5 在图中所示位置选择驱动器 文件夹后 单击 选定 按钮 此时 更改文件位 置 对话框中的文件位置已发生了变化 如图 1 6 所示 图 1 6 设定后的 更改文件位置 对话框 实验 1 Visual FoxPro 的启动 退出与环境设置 6 单击 确定 按钮 选项 对话框中的内容也发生了变化 如图 1 7 所示 图 1 7 设置后的 选项 对话框 7 单击 设置为默认值 可把当前的设置指定为软件默认的配置设置值 以便在以 后启动 Visual FoxPro 系统时 本次的设置依然有效 单击 确定 则本次设置完成 5 显示 隐藏工具栏 太多的工具栏占用大量的用户显示空间 通常情况下只显示主要的工具栏 其他工具 栏随需要而显示 隐藏 显示 隐藏工具栏的操作如下 方法一 1 打开 显示 菜单 执行 工具栏 命令 打开 工具栏 对话框如图 1 8 所示 图 1 8 工具栏 对话框 2 单击所需的工具栏名称 再单击 确定 按钮即可实现工具栏的显示 隐藏操作 注意 工具栏名称前的标志为 时表示选中 标志为 时表示未选中 3 添加了 调色板 工具栏后的主界面如图 1 9 所示 其中工具栏有两种显示状态 工具条 和 浮动工具栏 拖动浮动工具栏的标题到窗口的边界可把浮动工具栏变成 工具条 拖动工具栏的空白处到窗口中间可把工具条变成浮动工具栏 4 再次打开 显示 菜单 执行 工具栏 命令 在打开的 工具栏 对话框中去 掉选中标志可隐藏工具栏 5 当工具栏呈浮动状态时 单击 关闭 按钮也可以隐藏工具栏 实验 1 Visual FoxPro 的启动 退出与环境设置 图 1 9 工具栏的两种状态 方法二 1 右键单击工具栏的任意处 弹出快捷菜单如图 1 10 所示 图 1 10 工具栏的快捷菜单 2 在图 1 10 中 工具栏名称前有 标志的为显示状态 无此标志的为隐藏状态 单击某工具栏名称 则该工具栏会在两种状态之间切换 注 此方法可进行快速切换 6 命令窗口的打开与关闭 在命令窗口中可以输入 VFP 的命令并单击 Enter 键执行 在 VFP 中执行菜单命令 时 相应的命令会自动显示在命令窗口内 打开或关闭命令窗口的常用方法如下 1 单击命令窗口右上角的关闭按钮可关闭命令窗口 2 执行 窗口 菜单中的 命令窗口 命令 可以打开命令窗口 3 单击 常用 工具栏上的 命令窗口 按钮 按下则显示 弹起则关闭 4 按 Ctrl F4 组合键关闭命令窗口 按 Ctrl F2 组合键显示命令窗口 四 练习与提高 1 启动 退出 Visual FoxPro 系统的方法有几种 可在命令窗口执行的退出命令是 什么 2 怎样实现系统运行环境参数的临时性设置或永久性设置 用命令方式能实现永久性 设置吗 3 能否连续输入若干条命令 仅在最后一条命令后按回车键执行 这样的操作与每条 实验 1 Visual FoxPro 的启动 退出与环境设置 命令都按回车键执行 有什么不同 4 Visual FoxPro 系统的命令是否区分字母的大小写 若要将一条长命令分成几行输 入并执行 怎样才能实现 5 配置 Visual FoxPro 的工作环境 要求状态栏上显示时钟 关闭警告声音 改变表 单默认大小 提示代码页 文件不以独立的方式打开 共享连接 表单中显示网络和对齐 格式线 水平间距和垂直间距都为 25 像素 自动加入新的项目到源代码管理器 日期格式 使用年月日 实验 2 项目管理器 实验 2 项目管理器 一 实验目的 1 了解项目管理器的概念 2 熟练掌握项目的创建方法 3 掌握项目管理器的打开方法 4 熟练掌握项目管理器的关闭方法 5 掌握项目管理器的基本操作 二 实验内容 1 用项目管理器创建项目文件 2 项目管理器的工作界面 3 项目管理器的基本操作 4 用项目管理器打开已有的项目文件并新建数据库文件 三 实验步骤 1 用项目管理器创建一个项目 teacher 1 执行 文件 菜单的 新建 命令 打开 新建 对话框 如图 2 1 所示 图 2 1 新建 对话框 图 2 2 创建 对话框 2 在 新建 对话框的 文件类型 选项组中 单击 项目 单选按钮 再单击 新建文件 按钮 打开 创建 对话框 在 保存在 文本框中选择保存文件的路径 D 盘的 vfp98 文件中 并在 项目文件 文本框中输入 teacher 在 保存类型 文本 框中选择 项目 pjx 以上三个参数都设置完后 单击 保存 按钮 实验 2 项目管理器 3 保存 teacher 项目后 弹出 项目管理器 窗口 如图 2 3 所示 完成了项 目的创建 图 2 3 项目管理器 窗口 2 项目管理器工作界面 打开或新建 个项目时 出现如图 2 3 所示的项目管理器界面 此时 Visual FoxPro 主 菜单中自动出现 项目 菜单 项目管理器 中提供了 个组织良好的分层结构视图 若 要处理项目中某一特定类型文件或对象 可选择相应各选项卡 如 数据 选项卡显示和 管理所有数据类型的文件 如数据库 数据库中的表 视图 自由表 查询文件等 文 档 选项卡显示和管理表单文件 报表文件 标签文件等 右侧有 6 个按钮 分别是新建 添加 修改 运行 移去和选编等 标题栏右边的 按钮 关闭一个项目 如果某个项目中含有一个或多个该类型的子项 在其相应图标的左侧就会出现一个加 号 单击这个加号便会将该项目展开 可列出这种类型的所有文件图标 同时该项目左 侧的加号也会随之变成减号 如此可以将列表一级一级地展开 如果再用鼠标单击某个 已展开的列表项左侧的减号 又会将该列表项重新折叠起来 从而隐藏它的细节内容 3 项目管理器显示方式的改变 图 2 3 所示是项目管理器的标准显示方式 它也可以用折叠方式 工具栏方式等显示 1 折叠方式与展开 在项目管理器的右上角 有 个向上的箭头按钮 单击此按钮 可以将项目管理器折 叠起来 如图 2 4 所示 此时该按钮的箭头变成向下方向 再单击此按钮 又可以恢复成 标准显示方式 图 2 4 项目管理器 折叠方式 2 工具栏方式 可以将项目管理器界面平时缩小成 个工具栏 显示在屏移的主菜单下面 将项目管 理器缩小成工具栏方式显示 方法有两种 方法一 用鼠标拖动项目管理器的标题栏到菜单下边 方法二 用鼠标双击项目管理器标题栏 实验 2 项目管理器 将项目管理器由工具栏显示方式还原成标准方式或折叠方式显示 方法有 3 种 方法一 用鼠标拖动项目管理器工具栏的空白处 使之离工具栏位置到屏幕中 方法二 用鼠标双击项目管理器工具栏的空白处 方法三 用鼠标右健单击项目管理器工具栏的任意部位 在出现的快捷菜单中执行 拖走 命令 3 分区显示方式 分区显示方式是将项目管理器中的任何 个选项卡以窗口分割方式显示在界面中 如 图 2 5 所示 将 文档 选项卡以分区方式显示 图 2 5项目管理器分区显示方式 操作如下 首先将项目管理器以折叠方式或工具栏方式显示 用鼠标拖动任意选项卡 使它脱离出来 取消分区显示方式 方法有两种 方法一 用鼠标拖动分离出来的选项卡的标题栏 使它回到顶位置即可 方法二 用鼠标单击分离出来的选项卡的标题栏右边的 按钮 也可使它还原到 原位置 4 打开 个已有的项目文件 vfp98 teacher pjx 打开 个项目文件可以有以下几种方法 1 单击 文件 菜单 打开 选项 或单击常用工具栏上的 打开 按钮 打开 打开 对话框 如图 2 6 所示 在 打开 对话框中输入要打开的项目文件名 单击 确定 按钮 系统将激活 项目管理器 窗口 2 在命令窗口中 输入命令 Modify Project teacher pjx 可打开默认文件目录下的 该项目文件 3 使用 Windows 资源管理器 找到要打开的项目文件 C Program Files Microsoft Visual Studio Vfp98 teacher pjx 用鼠标双击该文件后 系统会自动运行 VFP 程序 并激 实验 2 项目管理器 活项目管理器打开该项目文件 图 2 6 打开 对话框 5 在已有的项目文件 vfp98 teacher pjx 中新建名分别为 student 和 student1 两个数据库 1 打开 teacher 项目文件 在 项目管理器 窗口中选择 数据库 项目管理 器 窗口 新建 按钮被激活 如图 2 7 所示 图 2 7 项目管理器 窗口 2 单击 新建 按钮 在打开的 新建数据库 对话框中 如图 2 8 所示 选择 新建数据库 按钮 图 2 8 新建数据库 对话框 3 在打开的 创建 对话框中数据库名中输入 student dbc 如图 2 9 所示 单击 实验 2 项目管理器 保存 按钮 新建成功一个数据库 利用相同的办法 新建另一个数据库 图 2 9 创建 对话框 四 练习与提高 1 什么是项目 什么是项目管理器 它们的作用是什么 2 利用项目管理器 在 D 盘上新建一个名为 项目管理器 的文件夹 名称为 项目 文件 的新项目 3 利用项目管理器 打开 D 项目管理器 项目文件 PJX 文件 4 改变项目管理器标准显示方式分别为折叠方式 工具栏方式 5 将项目管理器中的 数据 选项卡以分区方式显示在界面中 实验 3 变量 常量 函数及表达式 实验 3 常量 变量 函数及表达式 一 实验目的 1 掌握 Visual FoxPro 的常量 变量的数据类型及其表示方法 2 掌握常用函数的使用方法 3 初步掌握各类表达式的表示及应用方法 4 初步掌握变量的基本操作命令 二 实验内容 1 各种运算符的使用 2 常量的使用 3 变量的赋值 显示和释放 4 常用函数的使用 5 表达式的使用 三 实验步骤 1 Visual FoxPro 的运算符 1 算术运算符 在命令窗口中输入命令 22 5 22 5 5 4 2009 11 2 10 300 5 2 22 5 3 10 13 2 2 关系运算符 在命令窗口中输入命令 34 56 DF 李 15 16 XYZ XY DF Df 3 逻辑运算符 在命令窗口中输入命令 34 56 NOT ABCD 56 OR ABCD 56 AND ABCD ABC AB 张 NOT F 4 字符串运算符 在命令窗口中输入命令 吉林 长春 吉林 长春 PUT Computer Computer PUT 5 日期运算符 在命令窗口中输入命令 实验 3 变量 常量 函数及表达式 DATE 34 DATE 2004 5 08 2005 6 10 20 2006 2 10 8 22 40 100 2 常量的使用 常量是指在数据处理过程中不会改变的量 在命令窗口中输入以下命令 并观察运行 结果 3 1415 1 5E 7 Computer 2005 6 10 2006 2 10 8 22 40 3 变量的赋值和显示 在命令窗口中定义变量 并赋给变量相应的值 变量名和值如表 3 1 所示 表 3 1 变量表 变量名 值的类型 值 Al 字符型 吉林 A2 货币型 23 45 B1 日期型 2006 年 4 月 18 日 B2 数值型 12 34 ABC 逻辑型 逻辑真 数组 B 2 3 分别为 1 2 T 23 2 长春 当天日期 C2 日期时间型 2006 年 5 月 18 日 16 点 42 分 30 秒 1 变量的赋值 在命令窗口中输入以下命令 Al 吉林 Store 23 45 to A2 Bl 2006 4 18 B2 12 34 ABC T DIMENSION B 2 3 B 1 1 1 B 1 2 2 B 1 3 T B 2 1 23 2 B 2 2 长春 B 2 3 date C2 2006 5 18 16 42 30 2 变量的显示和释放 实验 3 变量 常量 函数及表达式 在命令窗口中输入以下命令 观察屏幕输出结果 DISPLAY MEMORY CLEAR LIST MEMORY LIKE a LIST MEMORY LIKE b CLEAR RELEASE ALL EXCEPT b LTST MEMORY LTKE 4 常用函数的使用 在命令窗口中输入下列命令 并写出命令的执行结果 1 算术函数 INT 123 45 SQRT 9 Round 567 675 3 ABS 23 45 MOD 12 5 MOD 12 5 MOD 12 5 2 字符处理函数 AT lc welcome UBSTR 数据库系统 7 4 upper how are you LEFT ABCDEFG 4 LEN 数据库系统 CHR 65 ASC z Alltrim ABC DEFG ABCD Space 4 EFG Replicate ABCDE 3 日期 时间 星期函数 DATE TIME Dow YEAR DATE 实验 3 变量 常量 函数及表达式 4 类型转化函数 VAL 123 456 VAL 123A 456 STR 123 456 7 2 CTOD 11 22 05 DTOC 2006 4 20 5 比较测试函数 VARTYPE 3 VARTYPE XYZ VARTYPE VARTYPE 11 12 10 MAX 34 2 MIN 23 56 5 SET CENTURY 和 SET DATE 命令 在命令窗口中输入下列命令 并写出关系表达式的运行结果 DATE SET CENTURY 0N DATE SET DATE TO YMD DATE 6 SET EXACT 命令 在命令窗口中输入下列命令 并写出关系表达式的运行结果 XYZ XY XY XYZ XYZ XY XY XYZ SET EXACT ON XYZ XY XY XYZ XYZ XY XY XYZ 7 宏代替字符串函数的使用 在命令窗口中输入下列命令 并写出变量 X Y Z 的值 X 10 X1 Z x 2 zy 0 表示右移 2 为计时器 Timerl 的 Timer 事件设计如下代码 IF zy 1 and Thisform Label1 Left 5 当标签未超出边界 Thisform Label1 Left Thisform Label1 Left 5 时 左移 5 个像素 ELSE IF zy 1 and Thisform Label1 Left 5 当标签超出边界时 Thisform Timer1 Enabled F 改成向右移 Thisform Timer2 Enabled T zy 0 ENDIF ENDIF 3 为计时器 Timer2 的 Timer 事件设计如下代码 IF zy 0 and Thisform Label1 Left Thisform Label1 Width520 当标签超出 Thisform Timer1 Enabled T 边界时 改成向 Thisform Timer2 Enabled F 左移 zy 1 ENDIF ENDIF 8 保存并执行表单 执行结果如图 13 6 13 7 和 13 8 所示 图 13 6 文字移动到左侧 图 13 7 文字移动到中间 图 13 8 文字移动到右侧 2 单选框 复选框控件 1 新建表单 并命名为 文字效果设置 scx 2 添加 1 个用来显示示例文字的标签 Label1 对其的属性进行设置见表 13 7 表 13 7 标签 Label1的属性设置 属性 值 说明 Name Label1 设置调用名 实验 13 表单与控件设计二 Caption 单选复选按钮示例 设置显示标题 FontSize 36 设置字号为 36 3 添加 1 个单选按钮组进行字体选择 并把选项的标题改为 宋体 黑体 隶书 1 单击表单控件工具栏中的 单选按钮组 按钮 在表单上适当的位置画出一 个矩形区域来表示单选按钮组 Optiongroup1 2 单击 Optiongroup1 对其属性进行设置 见表 13 8 结果如图 13 9 所示 表 13 8 Optiongroup1属性设置 属性 值 说明 Name Optiongroup1 设置调用名 Value 1 设置第 1 个单选项为默认选项 ButtonCount 3 设置 3 个单选项 图 13 9 中间结果 1 3 单击属性对话框中控件名称右侧的下拉按钮 选择单选按钮组 Optiongroup1 的 子控件单选按钮 Option1 表单中的焦点切换到单选按钮 Option1 上 用鼠标单击其他单选 按钮就可以继续进行设计 单击单选按钮组 Optiongroup1 之外的任意处完成设计 若想继 续对单选按钮组内的单选按钮进行设计 则必须重复上述过程 注意 不能用单击单选按 钮组中的单选按钮的方法来选择单选按钮 选择子控件的过程如图 5 3 所示 切换焦点后 的结果如图 5 4 所示 注意 此时焦点在单选按钮 Option1 上 单选按钮组的外框为浅绿 色 图 13 10 选择单选按钮组中的子控件 单击此按钮 实验 13 表单与控件设计二 图 13 11 切换焦点后的界面 4 分别单击单选按钮 Option1 Option2 Option3 对其的属性进行设置见表 13 9 13 10 13 11 表 13 9 Option1属性设置 属性 值 说明 Name Option1 设置调用名 Caption 宋体 设置单选按钮的标题 表 13 10 Option2属性设置 属性 值 说明 Name Option2 设置调用名 Caption 黑体 设置单选按钮的标题 表 13 11 Option3属性设置 属性 值 说明 Name Option3 设置调用名 Caption 隶书 设置单选按钮的标题 5 单击单选按钮组之外的空白处完成设计 完成后的效果如图 13 12 所示 图 13 12 单选按钮组 1完成后的效果 4 同理添加单选按钮组 Optiongroup2 进行字体颜色选择 并把选项的标题改为 红色 绿色 蓝色 完成后的效果如图 13 13 所示 实验 13 表单与控件设计二 图 13 13 单选按钮组 2完成后的效果 5 添加 3 个复选框 分别用来选择粗体 斜体和下划线 1 单击表单控件工具栏中的 复选框 按钮 在表单上适当的位置画出一个矩 形区域来表示复选框 Check1 用同样的方法再做出复选框 Check2 和 Check3 2 分别单击复选框 Check1 Check2 和 Check3 对其的属性进行设置见表 13 12 13 13 13 13 表 13 12 Check1属性设置 属性 值 说明 Name Check1 设置调用名 Value 0 设置初始状态为非选中 Caption 粗体 设置显示标题 表 13 13 Check2属性设置 属性 值 说明 Name Check2 设置调用名 Value 0 设置初始状态为非选中 Caption 斜体 设置显示标题 表 13 13 Check3属性设置 属性 值 说明 Name Check3 设置调用名 Value 0 设置初始状态为非选中 Caption 下划线 设置显示标题 6 添加 2 个命令按钮 Command1 表示 确认 Command2 表示 退出 单击 确 认 时执行设置 单击 退出 时关闭表单 1 单击命令按钮 Command1 对其的属性进行设置见表 13 15 13 16 表 13 15命令按钮 Command1的属性设置 属性 值 说明 Name Command1 设置调用名 Caption 确认 设置显示标题 表 13 16命令按钮 Command2的属性设置 实验 13 表单与控件设计二 属性 值 说明 Name Command2 设置调用名 Caption 确认 设置显示标题 2 表单界面效果如图 13 13 图 13 13 最终效果图 7 为表单控件添加事件代码 1 为命令按钮 Command1 的 Click 事件设计如下代码 DO CASE 根据单选按钮设置示例的字体 CASE Thisform Optiongroup1 Value 1 Thisform Label1 FontName 宋体 CASE Thisform Optiongroup1 Value 2 Thisform Label1 FontName 黑体 CASE Thisform Optiongroup1 Value 3 Thisform Label1 FontName 隶书 ENDCASE DO CASE 根据单选按钮设置示例的文字颜色 CASE Thisform Optiongroup2 Value 1 ThisForm Label1 ForeColor rgb 255 0 0 CASE Thisform Optiongroup2 Value 2 ThisForm Label1 ForeColor rgb 0 255 0 CASE Thisform Optiongroup2 Value 3 ThisForm Label1 ForeColor rgb 0 0 255 ENDCASE IF Thisform Check1 Value 1 根据复选框设置是否为粗体 Thisform Label1 FontBold T ELSE Thisform Label1 FontBold F 实验 13 表单与控件设计二 ENDIF IF Thisform Check2 Value 1 根据复选框设置是否为斜体 Thisform Label1 FontItalic T ELSE Thisform Label1 FontItalic F ENDIF IF Thisform Check3 Value 1 根据复选框设置是否有下划线 Thisform Label1 FontUnderLine T ELSE Thisform Label1 FontUnderLine F ENDIF 2 为命令按钮 Command2 的 Click 事件设计如下代码 Release Thisform 关闭本表单 8 保存设计并执行表单进行验证 四 练习与提高 1 设计一个如图 13 14 所示的学生选课表单 图 13 14 学生选课表单 2 在表单中插入一个表格控件 表格控件中显示 学生表 的内容 实验 14 表单与控件设计三 实验 14 表单与控件设计三 一 实验目的 1 掌握利用 表单设计器 设计表单的方法 2 掌握图形和形状 组合框和列表框控件属性的定义 3 掌握表单控件事件 方法的定义 4 掌握表单控件的合理组合 二 实验内容 1 完成如图 14 1 所示的表单 在表单右侧画 1 个正方形 内部填充红色 在表单左 侧设置 1 个微调控件 通过调整微调控件的值来调整正方形的曲率 使其在圆形 与正方形之间变换 图 14 1 示例表单 2 完成如图 14 2 所示的表单 在列表框中选一个数作为参数 1 在组合框中选 1 个 数作为参数 2 单击命令按钮后计算参数 1 的参数 2 次幂 结果放于文本框中 图 14 2 示例表单 三 实验步骤 1 图形和形状控件 1 新建表单 并命名为 图形和形状 scx 2 添加 1 个正方形 单击表单控件工具栏中的 形状 按钮 在表单上适当的位置画出一个正方 形区域来表示形状 Shape1 单击 Shape1 对其属性的设置见表 14 1 注 曲率为 99 时表示圆 曲率为 0 时 实验 14 表单与控件设计三 表示正方形 表 14 1 Shape1的属性设置 属性 值 说明 Name Shape1 设置调用名 Curvature 0 设曲率为 0 即正方形 BackColor 255 0 0 设置背景色为红色 3 添加 1 个作说明的标签 Label1 对其属性的设置见表 14 2 表 14 2 Label1的属性设置 属性 值 说明 Name Label1 设置调用名 Caption 调整曲率 设置显示标题 Autosize T 自动调整大小 以容纳其内容 4 添加 1 个微调控件用来调整曲率 单击表单控件工具栏中的 微调控件 按钮 在表单上适当的位置画出一个矩 形区域来表示微调控件 Spinner1 单击 Spinner1 对其属性的设置见表 14 3 表 14 3 Spinner1的属性设置 属性 值 说明 Name Spinner1 设置调用名 SpinnerHighValue 99 设微调控件的最大值 SpinnerLowValue 0 设微调控件的最大值 5 为表单控件 Spinner1 添加事件代码 为微调控件的 InteractiveChange 事件设计如下代码 Thisform Shape1 Curvature Thisform Spinner1 Value 设置图形的曲率 为微调控件的值 6 保存设计并执行表单进行验证 执行表单 初始状态曲率为 0 图形表现为正方形 如图 14 3 所示 图 14 3 正方形示例 用鼠标单击微调控件的上下箭头调整微调控件的值或直接输入数值 调整曲率为 实验 14 表单与控件设计三 45 时 图形表现为圆角正方形 如图 14 4 所示 图 14 4 圆角正方形示例 继续调整曲率 当曲率为 99 时 图形表现为圆形 如图 14 5 所示 图 14 5 圆形示例 2 组合框和列表框控件 1 启动表单设计器 并为新的表单命名为 列表框和组合框 scx 2 添加 1 个表示参数 1 的列表框 单击表单控件工具栏中的 列表框 按钮 在表单上适当的位置画出一个列 表框 List1 单击 List1 对其属性的设置见表 14 4 表 14 4 List1属性设置 属性 值 说明 Name List1 设置调用名 RowSourceType 1 设置列表框中行数据来源于数值 RowSource 1 2 3 4 5 6 设置列表框中行数据的具体内容 3 添加 1 个表示参数 2 的组合框 单击表单控件工具栏中的 组合框 按钮 在表单上适当的位置画出一个组 合框 combo1 单击 Combo1 对其属性的设置见表 14 5 表 14 5 Combo1属性设置 实验 14 表单与控件设计三 属性 值 说明 Name Combo1 设置调用名 RowSourceType 1 设置列表框中行数据来源于数值 RowSource 1 2 3 4 5 6 设置列表框中行数据的具体内容 4 在列表框和组合框中间添加 1 个标签 Label1 进行文字过渡 对其属性的设置见表 14 6 表 14 6 Label1属性设置 属性 值 说明 Name Label1 设置调用名 Caption 的 设置显示标题 AutoSize T 自动调整大小 以容纳其内容 5 在组合框后面添加 1 个命令按钮 Command1 用来进行计算 对其属性的设置见 表 14 7 表 14 7 Command1属性设置 属性 值 说明 Name Command1 设置调用名 Caption 次幂为 设置显示标题 6 在命令按钮后面添加 1 文本框 Text1 用来表示计算结果 对其属性的设置见表 14 8 表 14 8 Text1属性设置 属性 值 说明 Name Text1 设置调用名 Enabled F 设置文本框的内容为不可修改 7 为命令按钮添加事件代码 为命令按钮 Command1 的 Click 事件设计如下代码 Thisform Text1 Value Val Thisform List1 Value Val Thisform Combo1 Value 计算参数 1 的参数 2 次幂 8 保存设计并执行表单进行验证 1 在列表框中选择 2 在组合框中单击下拉按钮 选择 3 再单击 次幂是 按钮 则在文本框中显示 8 操作结果如图 14 6 所示 图 14 6 操作结果 实验 14 表单与控件设计三 练习与提高 1 从列表框中选择名称 显示在文本框中 2 设计一个程序 有四个页框 分别放上不同的控件 3 用表单向导为数据表 学生 DBF 创建单表表单 4 用表单向导为数据表 学生 DBF 和 选课 DBF 创建一对多表单 实验 15 报表与标签设计 实验 15 报表与标签设计 一 实验目的 1 掌握用报表向导创建简单的单表或多表报表 2 掌握用报表设计器修改已有的报表或创建自己的报表 3 掌握利用快速报表创建报表 4 掌握利用报表控件对报表进行设计 二 实验内容 1 用报表向导创建报表 2 用报表设计器修改报表 3 报表设计器窗口中带区的设置 4 创建快速报表 5 一对多的报表创建 6 报表控件中域控件的使用 三 实验步骤 1 利用报表向导为教工简历表 jgjl dbf 创建一个 教工情况一览表 报表 1 启动报表向导 单击 文件 菜单的 新建 命令 弹出 新建 对话框 选择文件类型为 报表 单击 向导 按钮 在弹出的 向导选取 对话框中选择 报表向导 如图 15 1 所示 单击 确定 按钮 即可启动报表向导 图 15 1 向导选取 对话框中 2 字段选取 在打开的 报表向导 对话框中 如图 15 2 所示 单击 按钮 选择 数据表 的 目录 在 数据库和表 列表框中单击 jgjl2 在 可用字段 列表框中选择相应的字 段 利用 按钮将该字段添加到 选定字段 列表框中 在 选定字段 列表框中选择相 应的字段 利用 按钮将该字段移回到 可用字段 列表框中 或 按钮实现将列表 实验 15 报表与标签设计 中的全部字段一次性的添加或移回 图 15 2 字段选择 3 分组记录 在打开的 报表向导 对话框中 单击 下一步 按钮 进入报表向导之 步骤 2 一 分组记录 在 分组 下拉框中选择 教研室 确定记录的分组方式 最多可以选择三 层分组层次 如图 15 3 所示 图 15 3 分组记录 4 选择报表样式 在打开的 报表向导 对话框中 单击 下一步 按钮 进入报表向导之 步骤 3 一 选择报表样式 在 样式 列表框中选择 带区式 如图 15 4 所示 实验 15 报表与标签设计 图 15 4 报表样式 5 定义报表布局 在打开的 报表向导 对话框中 单击 下一步 按钮 进入报表向导之 步骤 4 一 定义报表布局 确定报表的布局方式 如图 15 5 所示 图 15 5 报表布局 6 排序记录 在打开的 报表向导 对话框中 单击 下一步 按钮 进入报表向导之 步骤 5 一 排序记录 选择 可用的字段或索引标识 下拉列表框中的 月收入 字段 单击 升序 单选按钮 单击 添加 按钮 7 预览和保存报表 在打开的 报表向导 对话框中 单击 下一步 按钮 进入报表向导之 步骤 6 一 完成 在 请键入报表标题 文本框中输入 教工情况一览表 单击 保存报表并在报 表设计器中修改报表 单选按钮 如图 15 6 所示 单击 预览 按钮 可预览 教工情况 一览表 报表 如图 15 7 所示 单击 完成 按钮 弹出 另存为 对话框 在 保存报 表为 文本框中输入 报表 1 单击 保存 按钮 可看到报表设计器 如图 15 8 所示 实验 15 报表与标签设计 图 15 6预览和保存报表 图 15 7 预览效果 图 15 8 报表设计器 2 打开已经建立的教工情况表 报表 l 利用报表设计器修改表中的标签位置和字 体样式 实现按教研室的不同进行月收入的统计 1 调整标签位置 单击 显示 菜单的 布局工具栏 命令 弹出 布局 工具栏 如图 15 9 所示 单 击 标题 带区的 教工情况一览表 标签 选择 布局 工具栏中的水平居中按钮 使 教工情况一览表 处于水平居中的位置 实验 15 报表与标签设计 图 15 9 布局 工具栏 2 调整标签字体样式 单击 标题 带区的 教工情况一览表 标签 单击 格式 菜单的 字体 命令 更改 教工情况一览表 的字体样式 按照同样的方法 也可调整 页标头 带区和 细 节 带区的字体样式 3 添加标签和域控件 在 组注脚 l 区域 使用 报表控件 工具栏 如图 15 10 所示 添加名为 本组 合计 的标签控件和域控件 域控件的报表表达式是 月收入 如图 15 11 所示 图 15 10 报表控件 工具栏 图 15 11 添加标签和域控件 4 计算字段 单击 计算 按钮 弹出如图 15 12 所示的 计算字段 对话框 单击 总和 单选 按钮 单击 确定 按钮 返回报表表达式 再单击 确定 按钮 返回报表设计器中 图 15 12 计算字段 对话框 实验 15 报表与标签设计 5 预览和保存报表 并命名为 报表 1 3 报表设计器窗口带区的设置 新建一个报表时 在默认状态下 报表设计器只有 页标头 细节 页注脚 三 个带区 如图 15 13 所示 图 15 13 报表设计窗口默认状态 1 标题 和 总结 带区 选择 报表 菜单的 标题 总结 命令 出现 标题 总结 对话框 如图 15 14 所示 选中 标题带区 复选框 系统自动在报表的最顶部添加一个 标题 带区 选中 新 页 复选框 使标题内容单独打印一页 选中 总结带区 复选框 系统自动在报表的最 后添加一个 总结 带区 若要使总结内容单独打印一页 可以选中 报表总结 框中的 新页 复选框 图 15 14 标题 总结 对话框 2 组标头 与 组注脚 带区 选择 报表 菜单的 数据分组 命令 出现 数据分组 对话框 如图 15 15 所示 在 分组表达式 框中输入分组表达式或单击 按钮打开表达式生成器 设置分组表 达式 系统将在报表设计器中添加一个 组标头 和 组注脚 带区 若设置了多个分组 表达式 报表中就会添加多个 组标头 和 组注脚 带区 实验 15 报表与标签设计 图 15 15 数据分组 对话框 3 列标头 和 列注脚 带区 选择 文件 菜单的 页面设置 命令 出现 页面设置 对话框 如图 15 16 所示 在 列数 框中增加列数 使其值大于 1 系统就会在报表中自动添加一个 列标头 带 区和一个 列注脚 带区 单击 确定 按钮 报表中就会添加 列标头 和 列注脚 带区 如图 15 15 所示 图 15 16 页面设置 对话框 图 15 15 完整带区空报表 实验 15 报表与标签设计 4 为教工简历表 jgjl dbf 创建一个快速报表并预览 1 启动报表设计器 单击 文件 菜单的 新建 命令 弹出 新建 对话框 选择文件类型为 报表 单击 新建文件 按钮 打开报表设计器 如图 15 18 所示 图 15 18 报表设计器 2 打开 快速报表 对话框 单击 报表 菜单的 快速报表 命令 在 打开 对话框中选择 jgjl dbf 单击 确定 按钮 打开 快速报表 对话框 如图 15 19 所示 图 15 19 快速报表 对话框 3 字段选取 单击 字段 按钮 如图 15 20 所示 将表中包含的所有字段添加到报表设计器中 选择一个布局样式 单击 确定 按钮 如图 15 21 所示 图 15 20字段选择器 实验 15 报表与标签设计 图 15 21 添加字段 4 预览和保存表单 单击 显示 菜单的 预览 命令 打开预览窗口 即可预览报表 如图 15 22 所示 保存报表文件 名称为 教工简历报表 图 15 22 预览效果 5 利用报表向导 创建一个一对多的学生成绩报表 qk dbf 为父表 cj dbf 为子表 1 启动报表向导 单击 工具 菜单的 向导 报表 命令 打开 向导选取 对话框 选择其中的 一对多的报表向导 图 15 23 步骤 1一从父表选择字段 对话框 2 字段选取 打开 向导选取 对话框中单击 确定 按钮 进入报表向导之 步骤 1 一从父表选 择字段 对话框 如图 15 23 所示 确定父表 qk 并选取字段 学号 和 姓名 单 击 下一步 按钮 进入报表向导之 步骤 2 一从子表选择字段 对话框 如图 15 24 所 实验 15 报表与标签设计 示 确定子表 cj 并选取 课程号 和 成绩 字段 15 24 步骤 2一从子表选择字段 对话框 3 为表建立关系 单击 下一步 按钮 进入报表向导之 步骤 3 一为表建立关系 对话框 确定父表 和子表的关系 并选取 学号 字段为相关字段 如图 15 25 所示 图 15 25 步骤 3一为表建立关系 对话框 4 排序记录 单击 下一步 按钮 进入报表向导之 步骤 4 一排序记录 对话框 选取 学号 字段为排序字段 并按升序排序 如图 15 26 所示 实验 15 报表与标签设计 图 15 26 步骤 4一排序记录 对话框 5 确定报表样式 单击 下一步 按钮 进入报表向导之 步骤 5 一确定报表样式 对话框中选取 经 营式 单击 总结选项 按钮 打开 总结选项 对话框 如图 15 27 所示 对 分数 进行求和 单击 确定 按钮完成设置 图 15 27总结选项 对话框 6 报表标题 单击 下一步 按钮 进入报表向导之 步骤 6 一完成 对话框 在 报表标题 文本框中键入 学生成绩表 并设置字体为四号粗体字 如图 15 28 所示 图 15 28 效果图 6 设计一个报表 利用筛选打印出 qk dbf 表中所有男同学的信息 效果如图 15 29 所 实验 15 报表与标签设计 示 图 15 29效果图 1 打开报表设计器并设置数据环境 在报表布局区域内 单击鼠标右键 弹出的快捷菜单中选择 数据环境 命令 打开 数据环境设计器 在 数据环境设计器 中单击鼠标右键 选择 添加 命令 添加 qk dbf 表 如图 15 30 所示 图 15 30数据环境 2 设计报表标题带区 在报表标题带区添加一个标签控件 内容为 男同学的信息表 并设置相应的字体 字号 颜色等 如图 15 31 所示 图 15 31 报表布局 3 设计页标题带区 在报表页标题带区添加一个标签控件 内容为各字段的中文名称 并设置相应的字体 实验 15 报表与标签设计 字号 颜色等 如图 15 31 所示 4 设计细节带区 将图 15 30 所示的字段拖放到细节带区 并调整位置 使之与标题带区中相应的字段 标题在垂直方向上对齐 并设置相应的字体 字号 颜色等 水平对齐各控件 如图 15 31 所示 5 设计页注脚带区 在报表页页注脚带区添加一个域控件 用于显示当前页的页码 在 表达式生成器 对话框中输入 如图 15 32 所示 图 15 32 表达式生成器 对话框中 6 设计总结带区 在报表总结带区添加一个标签控件和一个域控件 统计记录数量 在 报表表达式 对话框中单击 计算 按钮 打开 计算字段 对话框 单击 计数 单选按钮 然后单 击 确定 按钮 7 筛选出 qk dbf 表中的男同学 在 数据环境设计器 中单击鼠标右键 选择 属性 命令 打开 属性 对话框 如图 15 33 filter 属性中输入 qk 性别 男 预览和保存报表文件 图 15 33 设置 filter 属性 对话框 四 练习与提高 1 报表设计器共有几个带区 各自的功能是什么 实验 15 报表与标签设计 2 报表的作用是什么 VFP 提供几种创建报表的方法 3 哪些类型的数据源可以作为报表的数据环境 4 如果细节带区的设置没有布满整个页面会出现什么情况 如何解决 5 使用报表设计器设计报表 设计最主要的带区是哪一个 实验 16 菜单设计 实验 16 菜单设计 一 实验目的 1 了解菜单系统的组成 2 掌握菜单设计器的基本操作 3 了解快速菜单的建立过程 4 掌握条形菜单 下拉式菜单以及快捷菜单的设计 5 掌握菜单结构 菜单程序的生成以及菜单程序的执行 二 实验内容 1 建立快速菜单 2 利用菜单设计器建立自己的菜单 3 快捷菜单的建立 4 将系统菜单引入到用户菜单系统中 并设置为表单顶层菜单 三 实验步骤 1 建立一个与系统主菜单相同的快速菜单 如图 16 1 所示 保存菜单定义为 cdl mnx 生成并运行菜单程序 cdl mpr 图 16 1 快速菜单 1 打开菜单设计器 单击 文件 菜单的 新建 命令 弹出 新建 对话框 选择文件类型为 菜单 单击 新建文件 按钮 弹出 新建菜单 对话框 单击 菜单 按钮 弹出菜单设计器 如图 16 2 所示 实验 16 菜单设计 图 16 2 菜单设计器 2 建立快速菜单 单击 菜单 菜单的 快速菜单 命令 在菜单设计器中添加进了系统菜单 如图 16 3 所示 图 16 3 建立快速菜单过程 3 编辑菜单项 在图 16 3 中 删除 编辑 显示 窗口 帮助 4 个菜单项 并按图 16 4 所示 调整顺序 图 16 4 调正菜单项 4 预览菜单 单击 预览 命令 可看到系统菜单发生了变化 如图 16 5 所示 单击 确定 按钮 返回到设计界面 图 16 5 菜单的预览效果 5 保存菜单 单击 文件 菜单的 保存 命令 在 另存为 对话框中输入菜单名 cdl mnx 实验 16 菜单设计 6 生成菜单程序 单击 菜单 菜单的 生成 命令 在 生成菜单 对话框输出菜单文件 cdl mpr 7 运行菜单程序 在命令窗口中输入命令 DO cdl mpr 运行菜单程序 其中 扩展名 mpr 不能省略 2 建立如表 16 1 所示的人事管理应用程序菜单 cd2 mpr 表 16 1 人事管理应用程序菜单 主菜单 数据管理 D 数据查询 Q 系统管理 M 输入 A 按姓名查询 N 退出 X 修改 B 按职称查询 T 修改密码 P 子菜单 删除 D 按部门查询 C 数据备份 R 1 打开菜单设计器 2 菜单栏 的编辑 确定菜单级为 菜单栏 依次输入如图 16 6 所示的内容 并按照下列要求分别在 选项 中为各个菜单项设置快捷键 数据管理 D 设置为 Alt D 数据查询 Q 设置为 Alt Q 系统管理 M 设置为 Alt M 图 16 6 应用系统主菜单 设置快捷键的方法 单击菜单项右侧的选项按钮 弹出 提示选项 对话框 如图 16 7 所示 单击 键标签 文本框 直接输入快捷键即可 图 16 7 提示选项 3 建立子菜单 选中 数据管理 D 将 结果 列选为 子菜单 单击 创建 按钮 进入菜单 级为 数据管理 D 的子菜单编辑窗口 按图 16 8 所示输入子菜单项 每项中间用水平分 组线隔开 在菜单名称中输入 即表示分组线 并给每项子菜单指定如下快捷键 实验 16 菜单设计 输入 A 设置为 Ctrl A 修改 B 设置为 Ctrl B 删除 D 设置为 Ctrl D 图 16 8 子菜单内容 相应地完成 数据查询 和 系统管理 子菜单设置 预览效果如图 16 9 所示 图 16 9 应用程序菜单的预览效果 4 保存设置和生成菜单程序 以 cd2 mnx 保存菜单定义文件 单击 菜单 菜单的 生成 命令 系统自动生成菜 单程序 cd2 mpr 5 运行菜单程序 在命令窗口中输入命令 DO cd2 mpr 在命令窗口中输入 SET SYSMENU TO DEFAULT 可 以恢复到系统菜单 3 建立如图 16 10 所示的快捷菜单 cd3 mpr 并在表单中调用该快捷菜单 图 16 10 在表单中调用快捷菜单 1 打开快捷菜单设计器 单击 文件 菜单的 新建 命令 弹出 新建 对话框 选择文件类型为 菜单 单击 新建文件 按钮 弹出 新建菜单 对话框 单击 快捷菜单 按钮 弹出快捷菜 单设计器 2 设置菜单项 按照图 16 11 输入各菜单项内容 各菜单项对应的命令如下 实验 16 菜单设计 图 16 11 定义快捷菜单 信息窗口 命令 MESSAGEBOX 今天的天气真好 1 64 256 信息窗口 提示窗口 命令 MESSAGEBOX 适合外出散步 0 32 0 提示窗口 计算器 命令 ACTI WIND CALCULATOR 万年历 命令 A