Visual-FoxPro程序设计实验指导.doc

目 录 实验实验 1 1 VISUALVISUAL FOXPROFOXPRO 的启动、退出与环境设置的启动、退出与环境设置.- 1 - 实验实验 2 2 项目管理器项目管理器- 8 - 实验实验 3 3 常量、变量、函数及表达式常量、变量、函数及表达式- 13 - 实验实验 4 4 数据库、表结构的创建与维护数据库、表结构的创建与维护- 18 - 实验实验 5 5 表记录的维护、索引与统计操作表记录的维护、索引与统计操作- 25 - 实验实验 6 6 数据完整性与表间永久关系设置及多表操作数据完整性与表间永久关系设置及多表操作- 32 - 实验实验 7 7 结构化程序设计一结构化程序设计一- 38 - 实验实验 8 8 结构化程序设计二结构化程序设计二- 43 - 实验实验 9 9 查询与视图设计查询与视图设计- 47 - 实验实验 1010 SQLSQL 查询设计一查询设计一.- 53 - 实验实验 1111 SQLSQL 查询设计二查询设计二.- 57 - 实验实验 1212 表单与控件设计一表单与控件设计一- 62 - 实验实验 1313 表单与控件设计二表单与控件设计二- 72 - 实验实验 1414 表单与控件设计三表单与控件设计三- 81 - 实验实验 1515 报表与标签设计报表与标签设计- 86 - 实验实验 1616 菜单设计菜单设计- 100 - 实验实验 1717 应用系统综合设计应用系统综合设计.107 实验 1 Visual FoxPro 的启动、退出与环境设置 实验实验 1 1 VisualVisual FoxProFoxPro 的启动、退出与环境设置的启动、退出与环境设置 一、实验目的一、实验目的 1掌握安装 Visual FoxPro 的方法。 2掌握 Visual FoxPro 的启动与退出操作。 3了解 Visual FoxPro 的主窗口界面。 4掌握 Visual FoxPro 工作环境的设置。 5掌握 Visual FoxPro 的基本操作。 二、实验内容二、实验内容 1安装 Visual FoxPro。 2Visual FoxPro 的启动。 3退出 Visual FoxPro 的 5 种方式。 4Visual FoxPro 的环境配置。 5Visual FoxPro 显示/隐藏工具栏的基本操作。 6命令窗口的打开与关闭操作。 三、实验步骤三、实验步骤 1 1VisualVisual FoxProFoxPro 光盘安装光盘安装 （1）将 Visual FoxPro 安装光盘放入光驱，执行光盘中的“setup.exe”文件。 （2）根据安装向导的提示,接受“最终用户许可协议”并正确输入产品的 ID 号。 （3）安装向导会提示是“典型安装”还是“自定义安装” ，一般选择“典型安装” 。如 果选择了“自定义安装” ，向导还会提示安装的组件的选择。 （4）安装程序会自动进行文件的复制。文件复制完后 Visual FoxPro 安装完成。 安装 VFP 过程中，安装向导会提示安装 MSDN 库。MSDN 库中包含了 VFP 的联机帮 助文档和示例，用户可根据需要进行安装。 2 2启动启动 VisualVisual FoxProFoxPro。 可用如下两种方式启动 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.3.退出退出 VisualVisual FoxProFoxPro。 可用如下方式退出 Visual FoxPro： （1）单击“文件”菜单下的“退出”命令。 （2）单击标题栏最右端的关闭按钮。 （3）单击标题栏最左端的控制按钮，打开下拉菜单，选择“关闭” ，命令。 （4）按【Alt+F4】组合键。 （5）在命令窗口中输入 QUIT 命令，按【Enter】键。 4.4.配置配置 VisualVisual FoxProFoxPro 的运行环境。的运行环境。 由于实验室保护 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.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 6命令窗口的打开与关闭命令窗口的打开与关闭 在命令窗口中可以输入 VFP 的命令并单击“Enter”键执行。在 VFP 中执行菜单命令 时，相应的命令会自动显示在命令窗口内。打开或关闭命令窗口的常用方法如下： （1）单击命令窗口右上角的关闭按钮可关闭命令窗口。 （2）执行“窗口”菜单中的“命令窗口”命令，可以打开命令窗口。 （3）单击“常用”工具栏上的“命令窗口”按钮，按下则显示，弹起则关闭。 （4）按【Ctrl+F4】组合键关闭命令窗口，按【Ctrl+F2】组合键显示命令窗口。 四、练习与提高四、练习与提高 1启动、退出 Visual FoxPro 系统的方法有几种？可在命令窗口执行的退出命令是 什么？ 2怎样实现系统运行环境参数的临时性设置或永久性设置？用命令方式能实现永久性 设置吗？ 3能否连续输入若干条命令，仅在最后一条命令后按回车键执行？这样的操作与每条 实验 1 Visual FoxPro 的启动、退出与环境设置 命令都按回车键执行，有什么不同？ 4Visual FoxPro 系统的命令是否区分字母的大小写？若要将一条长命令分成几行输 入并执行，怎样才能实现？ 5配置 Visual FoxPro 的工作环境，要求状态栏上显示时钟，关闭警告声音，改变表 单默认大小，提示代码页，文件不以独立的方式打开，共享连接，表单中显示网络和对齐 格式线，水平间距和垂直间距都为 25 像素，自动加入新的项目到源代码管理器，日期格式 使用年月日。 实验 2 项目管理器 实验实验 2 2 项目管理器项目管理器 一、实验目的一、实验目的 1了解项目管理器的概念。 2熟练掌握项目的创建方法。 3掌握项目管理器的打开方法。 4熟练掌握项目管理器的关闭方法。 5掌握项目管理器的基本操作。 二、实验内容二、实验内容 1用项目管理器创建项目文件。 2项目管理器的工作界面。 3项目管理器的基本操作。 4用项目管理器打开已有的项目文件并新建数据库文件。 三、实验步骤三、实验步骤 1.1.用项目管理器创建一个项目用项目管理器创建一个项目 teacherteacher。 （1）执行“文件”菜单的“新建”命令，打开“新建”对话框，如图 2-1 所示。 图 2-1 “新建”对话框 图 2-2 “创建”对话框 （2）在“新建”对话框的“文件类型”选项组中，单击“项目”单选按钮，再单击 “新建文件”按钮，打开“创建”对话框；在“保存在”文本框中选择保存文件的路径(D 盘的“vfp98”文件中)，并在“项目文件”文本框中输入“teacher” ，在“保存类型”文本 框中选择“项目(*.pjx)” ，以上三个参数都设置完后，单击“保存”按钮。 实验 2 项目管理器 （3）保存“teacher” 项目后，弹出“项目管理器”窗口，如图 2-3 所示，完成了项 目的创建。 图 2-3 “项目管理器”窗口 2 2项目管理器工作界面项目管理器工作界面 打开或新建个项目时，出现如图 2-3 所示的项目管理器界面，此时 Visual FoxPro 主 菜单中自动出现“项目”菜单。 “项目管理器”中提供了个组织良好的分层结构视图，若 要处理项目中某一特定类型文件或对象，可选择相应各选项卡如“数据”选项卡显示和 管理所有数据类型的文件，如数据库、数据库中的表、视图、自由表、查询文件等；“文 档”选项卡显示和管理表单文件、报表文件、标签文件等。右侧有 6 个按钮，分别是新建、 添加、修改、运行、移去和选编等。标题栏右边的“”按钮，关闭一个项目 如果某个项目中含有一个或多个该类型的子项，在其相应图标的左侧就会出现一个加 号(+)，单击这个加号便会将该项目展开，可列出这种类型的所有文件图标，同时该项目左 侧的加号也会随之变成减号(-)。如此可以将列表一级一级地展开。如果再用鼠标单击某个 已展开的列表项左侧的减号，又会将该列表项重新折叠起来，从而隐藏它的细节内容。 3 3项目管理器显示方式的改变项目管理器显示方式的改变 图 2-3 所示是项目管理器的标准显示方式，它也可以用折叠方式、工具栏方式等显示。 （1）折叠方式与展开 在项目管理器的右上角，有个向上的箭头按钮，单击此按钮，可以将项目管理器折 叠起来，如图 2-4 所示，此时该按钮的箭头变成向下方向，再单击此按钮，又可以恢复成 标准显示方式。 图 2-4 “项目管理器”折叠方式 （2）工具栏方式 可以将项目管理器界面平时缩小成个工具栏，显示在屏移的主菜单下面。将项目管 理器缩小成工具栏方式显示，方法有两种。 方法一：用鼠标拖动项目管理器的标题栏到菜单下边。 方法二：用鼠标双击项目管理器标题栏。 实验 2 项目管理器 将项目管理器由工具栏显示方式还原成标准方式或折叠方式显示，方法有 3 种。 方法一：用鼠标拖动项目管理器工具栏的空白处，使之离工具栏位置到屏幕中。 方法二：用鼠标双击项目管理器工具栏的空白处。 方法三：用鼠标右健单击项目管理器工具栏的任意部位，在出现的快捷菜单中执行 “拖走”命令。 （3）分区显示方式 分区显示方式是将项目管理器中的任何个选项卡以窗口分割方式显示在界面中。如 图 2-5 所示，将“文档”选项卡以分区方式显示。 图 2-5 项目管理器分区显示方式 操作如下： 首先将项目管理器以折叠方式或工具栏方式显示。 用鼠标拖动任意选项卡，使它脱离出来。 取消分区显示方式，方法有两种。 方法一：用鼠标拖动分离出来的选项卡的标题栏，使它回到顶位置即可。 方法二：用鼠标单击分离出来的选项卡的标题栏右边的“”按钮，也可使它还原到 原位置。 4 4打开打开个已有的项目文件（个已有的项目文件（vfp98teacher.pjxvfp98teacher.pjx） 。 打开个项目文件可以有以下几种方法： （1）单击“文件”菜单“打开”选项，或单击常用工具栏上的“打开”按钮，打开 “打开”对话框，如图 2-6 所示，在“打开”对话框中输入要打开的项目文件名，单击 “确定”按钮，系统将激活“项目管理器”窗口。 （2）在命令窗口中，输入命令 Modify Project teacher.pjx，可打开默认文件目录下的 该项目文件。 （3）使用 Windows 资源管理器，找到要打开的项目文件（C:Program FilesMicrosoft Visual StudioVfp98 teacher.pjx） ，用鼠标双击该文件后，系统会自动运行 VFP 程序，并激 实验 2 项目管理器 活项目管理器打开该项目文件。 图 2-6 “打开”对话框 5 5在已有的项目文件（在已有的项目文件（vfp98teacher.pjxvfp98teacher.pjx）中新建名分别为）中新建名分别为 studentstudent 和和 student1student1 两个数据库。两个数据库。 （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 3 常量、变量、函数及表达式常量、变量、函数及表达式 一、实验目的一、实验目的 1掌握 Visual FoxPro 的常量、变量的数据类型及其表示方法。 2掌握常用函数的使用方法。 3初步掌握各类表达式的表示及应用方法。 4初步掌握变量的基本操作命令。 二、实验内容二、实验内容 1各种运算符的使用。 2常量的使用。 3变量的赋值、显示和释放。 4常用函数的使用。 5. 表达式的使用。 三、实验步骤三、实验步骤 1 1VisualVisual FoxProFoxPro 的运算符的运算符 （1）算术运算符 在命令窗口中输入命令:？ 22/5 225 54 2009/11/2 $10+$300 -52 225-3 10*(13-2) （2）关系运算符 在命令窗口中输入命令:？ 3456 “DF“李“ 15#16 “XYZ“=“XY“ “DF“ 3456 NOT “ABCD“56 OR “ABCD“56 AND “ABCD“张“ .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 2常量的使用常量的使用 常量是指在数据处理过程中不会改变的量。在命令窗口中输入以下命令，并观察运行 结果。 ? 3.1415 ? ? 1.5E-7 ? “Computer“ ? 2005-6-10,2006-2-10 8:22:40 3 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 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 5SETSET CENTURYCENTURY 和和 SETSET DATEDATE 命令命令 在命令窗口中输入下列命令，并写出关系表达式的运行结果： ? DATE() SET CENTURY 0N ? ? DATE() SET DATE TO YMD ? DATE() 6 6SETSET EXACTEXACT 命令命令 在命令窗口中输入下列命令，并写出关系表达式的运行结果： ? “XYZ”=“XY“ ? “XY”=“XYZ“ ? “XYZ”=“XY“ ? “XY”=“XYZ“ SET EXACT ON ? “XYZ”=“XY“ ? “XY”=“XYZ“ ? “XYZ”=“XY“ ? “XY”=“XYZ“ 7 7宏代替字符串函数的使用宏代替字符串函数的使用 在命令窗口中输入下列命令，并写出变量 X、Y、Z 的值： X=10 X1=“Z=x2“ 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.Left520 & 当标签超出 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 的属性设置 属性值说明 NameLabel1 设置调用名 实验 13 表单与控件设计二 Caption 单选复选按钮示例设置显示标题 FontSize36 设置字号为 36 3.添加 1 个单选按钮组进行字体选择，并把选项的标题改为“宋体” 、 “黑体” 、 “隶书” 。 （1）单击表单控件工具栏中的“单选按钮组”按钮，在表单上适当的位置画出一 个矩形区域来表示单选按钮组 Optiongroup1。 （2）单击 Optiongroup1，对其属性进行设置，见表 13-8。结果如图 13-9 所示。 表 13-8 Optiongroup1 属性设置 属性值说明 NameOptiongroup1 设置调用名 Value1 设置第 1 个单选项为默认选项 ButtonCount3 设置 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 属性设置 属性值说明 NameOption1 设置调用名 Caption 宋体设置单选按钮的标题 表 13-10 Option2 属性设置 属性值说明 NameOption2 设置调用名 Caption 黑体设置单选按钮的标题 表 13-11 Option3 属性设置 属性值说明 NameOption3 设置调用名 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 属性设置 属性值说明 NameCheck1 设置调用名 Value0 设置初始状态为非选中 Caption 粗体设置显示标题 表 13-13 Check2 属性设置 属性值说明 NameCheck2 设置调用名 Value0 设置初始状态为非选中 Caption 斜体设置显示标题 表 13-13 Check3 属性设置 属性值说明 NameCheck3 设置调用名 Value0 设置初始状态为非选中 Caption 下划线设置显示标题 6.添加 2 个命令按钮，Command1 表示“确认” ，Command2 表示“退出” 。单击“确 认”时执行设置，单击“退出”时关闭表单。 （1）单击命令按钮 Command1，对其的属性进行设置见表 13-15、13-16。 表 13-15 命令按钮 Command1 的属性设置 属性值说明 NameCommand1 设置调用名 Caption 确认设置显示标题 表 13-16 命令按钮 Command2 的属性设置 实验 13 表单与控件设计二 属性值说明 NameCommand2 设置调用名 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 表单与控件设计三 实验实验 1414 表单与控件设计三表单与控件设计三 一、实验目的一、实验目的 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 的属性设置 属性值说明 NameShape1 设置调用名 Curvature0 设曲率为 0 即正方形 BackColor255,0,0 设置背景色为红色 (3). 添加 1 个作说明的标签 Label1，对其属性的设置见表 14-2。 表 14-2 Label1 的属性设置 属性值说明 NameLabel1 设置调用名 Caption 调整曲率：设置显示标题 Autosize.T. 自动调整大小，以容纳其内容 (4). 添加 1 个微调控件用来调整曲率。 单击表单控件工具栏中的“微调控件”按钮，在表单上适当的位置画出一个矩 形区域来表示微调控件 Spinner1。 单击 Spinner1，对其属性的设置见表 14-3。 表 14-3 Spinner1 的属性设置 属性值说明 NameSpinner1 设置调用名 SpinnerHighValue99 设微调控件的最大值 SpinnerLowValue0 设微调控件的最大值 (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 属性设置 属性值说明 NameList1 设置调用名 RowSourceType1 设置列表框中行数据来源于数值 RowSource1,2,3,4,5,6 设置列表框中行数据的具体内容 (3). 添加 1 个表示参数 2 的组合框。 单击表单控件工具栏中的“组合框”按钮，在表单上适当的位置画出一个组 合框 combo1。 单击 Combo1，对其属性的设置见表 14-5。 表 14-5 Combo1 属性设置 实验 14 表单与控件设计三 属性值说明 NameCombo1 设置调用名 RowSourceType1 设置列表框中行数据来源于数值 RowSource1,2,3,4,5,6 设置列表框中行数据的具体内容 (4). 在列表框和组合框中间添加 1 个标签 Label1 进行文字过渡。对其属性的设置见表 14-6。 表 14-6 Label1 属性设置 属性值说明 NameLabel1 设置调用名 Caption 的设置显示标题 AutoSize.T. 自动调整大小，以容纳其内容 (5). 在组合框后面添加 1 个命令按钮 Command1，用来进行计算。对其属性的设置见 表 14-7。 表 14-7 Command1 属性设置 属性值说明 NameCommand1 设置调用名 Caption 次幂为：设置显示标题 (6). 在命令按钮后面添加 1 文本框 Text1，用来表示计算结果。对其属性的设置见表 14-8。 表 14-8 Text1 属性设置 属性值说明 NameText1 设置调用名 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 报表与标签设计 实验实验 1515 报表与标签设计报表与标签设计 一、实验目的一、实验目的 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，单