VFP实验与练习题

第一部分VFP实验1.1VisualFoxPro系统初步实验1VFP环境和项目管理器1）实验目的通过本次实验掌握VFP启动、退出、四种操作方式及系统设置，熟悉项目管理器的使用。2）实验要求和内容1启动分别用Windows的【开始】按钮→【程序】的菜单方法和从桌面上建立的【快捷图标】启动VisualFoxPro6.0系统。2了解VFP的主界面了解VFP的主界面，如标题栏、菜单栏、常用工具栏、状态栏和命令窗口等。掌握命令窗口的显示与隐藏。（单击【常用】工具栏上的【命令窗口】按钮；或通过【窗口】菜单下的【命令窗口】选项来切换；或直接按Ctrl+F2或Ctrl+F4组合键）3了解设置VFP的配置环境．定制自己的使用环境单击菜单栏中的【工具】→【选项】，打开【选顶】对话框，选择【文件位置】选项卡，将【默认目录】改为“E:\实验”（该路径可以根据需要设置）。单击该对话框中的其他选项卡，设置环境并保存，使系统能满足个人的要求。4掌握项目管理器的使用①创建项目管理器在E盘上建立一个项目叫“学生学籍管理”，保存在“E:\实验”中。②各选项卡和按钮的使用单击【项目管理器】窗口中的各个选项卡，了解各个选项卡包含的文件类型。在【数据】选项卡与【文档】选项卡中，用按钮完成新建、添加、修改、移去、删除及文件共享等操作，了解向导和设计器操作方式，体会“目录树”结构。在不同的对象上单击右键完成【编辑说明】等操作。单击不同类型的文件，观察项目管理器右侧的6个按钮的显示情况（黑色或灰色）。③定制对建立的项目完成移动、缩放、折叠、拆分、停放等操作。5退出VFP返回Windows操作系统四种方法：用鼠标左键单击VisualFoxPro6.0标题栏最右面的关闭窗口按钮。从【文件】下拉菜单中选择【退出】选项。单击主窗口左上方的标题栏的狐狸图标，从窗口下拉菜单中选择【关闭】，或者按Alt+F4键。在命令窗口中键入QUIT命令后按回车键。1.2数据与数据运算实验2VisualFoxPro6.0的基本操作1）实验目的（1）进一步熟悉VisualFoxPro6.0的窗口界面及各菜单项的基本用途。（2）初步掌握VisualFoxPro的基本数据类型。掌握变量的赋值、输出、清除、保存以及恢复；区分常量、变量的不同；掌握运算符使用及表达式的书写。（3）初步掌握VisualFoxPro的常用函数的使用及表达式的书写规则。2）实验要求（1）实验前复习VisualFoxPro的用户界面、操作方式、命令的结构。（2）掌握VisualFoxPro的数据类型、运算规则和函数功能。（3）掌握交互式命令执行方法。3）实验内容1简单内存变量的赋值与输出（1）用赋值号“=”，对变量A，B，C，D，E分别赋值为数值常量123，字符常量“abc□□”，日期常量{^2006-09-10}，逻辑常量.t.，字符常量”□□□CDF”（其中“□”表示空格）；（2）在下一行输出A，B，C，D的值；（3）用命令STORE对变量X1，X2，XYZ，XZ均赋值为10；（4）在当前行输出X1，X2，XYZ，XZ的值；（5）分别用listmemory/displaymemory显示内存中的变量，观察这两个命令的区别。2数组的赋值与输出（1）定义两个数组变量X(3),Y(2,3)（2）用displaymemory显示数组x,y，观察其元素个数及值（3）在命令窗口依次执行如下三条命令：x=3y(1,1)=5y(2,2)=.t.（4）输出x(1),x(2),x(3),y(1,1),y(1,2),y(2,2),y(1),y(5)的值，观察其结果，注意数组变量赋值和数组元素赋值的不同，体会一维数组和二维数组的关系。3变量的清除、保存以及恢复（1）将以上定义的变量保存在文件bl.mem中（2）将X开头的内存变量清除，并用displaymemory显示（3）将文件bl.mem中的变量恢复到内存中，并用displaymemory显示,观察与②有何不同？4利用前面定义的变量A、B、C、D、E，完成以下操作，注意变量与常量的区别：（1）输出变量B和字符串常量”B”，观察两者有何不同；（2）输出日期型常量{^2006-09-10}和变量C；（3）给变量t赋值为2，执行命令?.t.,t注意观察结果。5利用前面定义的变量A、B、C、D、E，完成以下操作，注意运算符的使用：（1）输出当天日期与日期型变量C相差的天数；（2）输出当天日期的前10天和后10天的日期；（3）输出变量A加上20后的结果；（4）执行命令?B+E+"Z",B-E+"Z"，观察两者有何不同；（5）输出表达式C+10<DATE()的值；（6）输出表达式B="ab"和B="ab">D的值；（7）执行命令setexacton后，输出（6）中表达式的值，与上题输出的值进行比较。6转换成VFP的表达式，并计算表达式的值（1）；（3）；（3），设x=8.5，y=12.6；（4）设直角三角形的两条直角边长分别为a=12，b=13，求斜边c的长度，并保留一位小数。7利用函数完成以下操作，注意函数的使用：（1）求N的绝对值和绝对值的平方根；（2）输出N的整数部分，不允许四舍五入；（3）对N保留小数2位；（4）将N的值转换字符型，总位数为7位，小数位为1位。假设S1="重庆计算机基础学会"（5）从字符串S1中分别取出字符串"重庆"、"计算机"、"学会"；（6）分别测试字符串"计算机"、"计算机学会"在字符串S1中的起始位置。（7）测试字符串"学会"在字符串"重庆计算机基础学会是西南地区计算机基础研究学会"第二次出现的位置；（8）将字符串S1中的"重庆"改成"西部地区"；（9）将字符串S1中的"基础"去掉；（10）在字符串S1的前后各加5个星号；假设S2="□□□abCD34fgS□□"（其中“□”表示空格）（11）分别删除字符串S2的首部空格、尾部空格、首尾的所有空格；（12）将字符串S2中所有字母分别转换为大写字母、小写字母；（13）输出当前的系统日期、系统时间，并分别测试其类型；（14）取出系统日期时间中的年、月、日、时、分、秒；假设C="07/21/2005"（15）将字符串C转换为日期型并求出它15天后的日期；（16）分别将字符串""、"34abc56"、"ab123"转换成数值型，并观察它们的不同；（17）执行命令?mod(35,6),mod(-35,6),mod(35,-6),mod(-35,-6)注意观察当两个参数符号改变后其值有何不同；（18）分别测试字符串"A"，"ABC"的ASCⅡ码。（19）输出比"Z"的ASCII小20的字符。（20）随机输出字符串“yes!”或”no!”8观察？输出的结果，分析下列命令中SET命令的作用?DATE()SETCENTURYON?DATE()SETDATETOANSI?DATE()1.3VisualFoxPro数据库及其操作实验3表设计1）实验目的及要求要求掌握VFP数据表的设计方法，主要要求掌握【表设计器】及【表向导】的使用。同时掌握表记录数据的输入方法——包括备注型和通用型字段数据的输入方法。2）实验内容1创建数据表（1）VFP表设计器设计表所示的学生档案表结构，文件名为“”。（2）输入表所示的学生档案信息到学生表中。表学生档案表结构信息字段名字段类型字段宽度小数位数学号字符型8-姓名字符型8-性别字符型2-出生日期日期型--专业班级字符型20-照片通用型--简历备注型--表学生档案表学号姓名性别出生日期专业班级照片简历20050005张广田男10/11/1987计算机1班GenMemo20050010蜂雪燕女07/02/1987计算机1班GenMemo20050015何芳女05/06/1987计算机1班GenMemo20050020冯艳女09/09/1987计算机1班GenMemo20050025陈兴华男02/14/1987英语3班GenMemo20050030陈宗贵男07/02/1987英语3班GenMemo20050035张伟男03/24/1987英语3班GenMemo20050040张光辉男03/07/1987英语3班GenMemo20043567那措央中女06/30/1986机械制造4班GenMemo20043679邬德斋男04/26/1986机械制造4班GenMemo20045643崔婷婷女06/08/1986机械制造4班GenMemo20047634冯丽娟女06/30/1986机械制造4班GenMemo操作步骤:①【文件】菜单中选择【新建】选项，在弹出的【新建】对话框中选择【表】选项，如图(a)所示,单击【新建文件】按钮，弹出【创建】对话框，在此填写表文件名“”，如图1.3.1（b）所示。图(a)【新建】对话框图1.3.1(b)【创建】对话框②单击【保存】按钮，打开【表设计器】，在表设计器中将各字段信息设定好，如图所示，单击【确定】按钮，完成表结构的设计。图【表设计器】对话框③首次创建数据表完成时，系统会提示是否输入数据，如果选择【是】，进入数据录入窗口，如图所示。（注：通用型字段数据输入时，双击gen，弹出“”窗口，然后在【编辑】菜单中选择【插入】对象，在【插入对象】对话框中选择【由文件创建】单选钮，再单击【浏览】按钮，找到要插入的图片，然后单击【确定】按钮，完成图片的插入，最后单击“”窗口的【关闭】按钮保存。备注型字段数据输入，双击memo，弹出“”窗口，在此窗口中输入备注信息，单击“”窗口上的【关闭】按钮保存。图数据录入窗口（3）用VFP表设计器建立选课成绩表和,并输入表和表1.3.4中的数据，文件名分别为“”和“”。表选课成绩表学号/C/8课程号/C/3学期/C/2成绩/N/5/1补考成绩/N/5/120050010001138.020050020001120050025030188.0020050010030167.0020050005010158.0200500250342020045643001120050035023202004564303320表课程表课程号/C/3课程名/C/20学时/N/3学分/N/2必修否/L/1001高等数学I1208.T.010大学英语28012.T.030计算机基础603.F.033操作系统基础602.T.034微型计算机原理803.T.2数据表的简单操作（1）打开“”数据表，用LIST和LISTSTRUCTURE命令分别显示表的记录和结构；（2）为打开的“”数据表增加一个“入学总分/N/5/1”字段，在“照片”字段之前插入，并输入数据内容（470到650之间）；（3）打开“”数据表，用MODIFYSTRUCTURE命令，将“补考成绩/N/5/1”字段改成“重修成绩/N/3”（4）恢复对以上数据表的修改。实验4数据表的操作1）实验目的及要求通过本实验掌握数据表的基本操作，主要要求掌握数据表中记录的显示、编辑、修改、插入与删除，索引的建立与使用，记录的查询、统计计算等操作。2）实验内容1用“COPYTO<文件名>”命令复制当前打开的表文件（1）将打开的数据表“”复制一个备份，文件名为：“”，打开“”表并显示；（2）将已打开的“”表文件中计算机1班的男生复制到“”中，打开“”表并显示；（3）将已打开的“”表文件复制到“”，只取“姓名”，“性别”，“专业班级”等字段，打开“XSDA2.DBF”表并显示；（4）将已打开的“”表文件中86年出生的女生复制到“”，只取“姓名”，“性别”，“出生日期”字段，打开“XSDA3.DBF”表并显示；2用COPYSTRU命令复制当前表文件的结构。（1）打开数据表“”，用LISTSTRU显示表的结构，将“”表文件的结构复制到“”，打开数据表“”，用LISTSTRU显示表的结构；（2）将“”表文件结构复制到“”，只取“姓名”，“性别”，“专业班级”等字段，打开数据表“XS2.DBF”，用LISTSTRU显示表的结构。3对学生档案表完成下列操作：（1）向数据表末尾追加一记录,各字段值自定；（2）将专业班级字段的值全部修改为“自动化1班”；（3）按性别字段建立结构复合索引，其标识名为“性别”，并显示其结果；（4）逻辑删除所有男生的记录。操作步骤：①打开表的命令为“USE<数据表名>”，添加一条记录的命令为“APPEND”，在“命令窗口”中输入下列命令来完成第一个任务。USE学生档案&&打开学生表APPEND&&在表尾部添加一条记录，并弹出录入窗口，在此输入数据②在命令窗口中输入：REPLACEALL专业班级WITH“自动化1班”LIST&&查看命令执行结果这样将对每一条记录中的专业班级字段修改为“自动化1班”③在命令窗口输入:Indexon性别tag性别LIST&&注意观察排序结果，记录号的位置变化这样将对表按性别字段进行复合索引④在命令窗口输入:DELETEFOR性别=”男”LIST&&注意观察逻辑删除的记录这样将逻辑删除所有男生记录多表关联将学生档案数据表、学生选课成绩表、学生课程表进行关联，并显示学生的学号、姓名、课程名及学生的成绩操作步骤：在命令窗口中输入：SELECT1USE学生档案ALIASDA&&为学生档案数据表定义别名DAINDEXON学号TAGXHSELECT2USE课程ALIASKC&&为课程表定义别名KC INDEXON课程号TAGKCH SELECT3 USE成绩 SETRELATIONTO学号INTODA&&成绩表与学生档案表建关联 SETRELATIONTO课程号INTOKCADDITIVE&&成绩表与课程表建关联 LIST学号,DA.姓名,KC.课程名,成绩&&注意观察显示结果 CLOSEALL5建表，完成下列操作：（1）按如下内容建立职工工资表（ZGGZ.DBF）：Gh表示职工号，Xm表示姓名，Jbgz表示基本工资，Gwgz表示岗位工资，Bt表示补贴，Df表示电费，Fz表示房租，Kkhj表示扣款合计，Yfgz表示应发工资，Sfgz表示实发工资，Bm表示部门，其中建表时Kkhj、Yfgz和Sfgz等字段中的记录值为空，必须通过命令REPLACE计算得到，计算公式为：Kkhj=Df+Fz；Yfgz=Jbgz+Gwgz+Bt；Sfgz=Yfgz-kk表职工工资表GhXmBmJbgzGwgzBtDfFzKkhjYfgzSfgz1001李明洋厂部2003黄红兵供应科1003赵伟康销售科1004李良厂部2006黄金保销售科61002孙武供应科2001钱红销售科2002杨铃岚销售科2004陈宏厂部（2）计算销售科所有职工的应发工资总和；（3）计算销售科的最高基本工资和最低基本工资；（3）按部门进行汇总，统计各部门应发工资的总和；（5）给厂部的职工基本工资增加300元，销售科职工的基本工资增加250元，供应科职工的基本工资增加150元。操作步骤：①命令窗口输入:SUMyfgzTOsfFORBm="销售科"&&sf为保存应发工资的变量?sf&&显示应发工资这样就将销售科应发工资保存到变量sf中了②命令窗口输入:CALCULATEMAX(Jbgz),MIN(Jbgz)TOzg,zdFORBm="销售科"&&用变量zg,zd分别保存最高基本工资和最低基本工资?zg,zd&&显示最高基本工资和最低基本工资这样就将销售科最高基本工资和最低基本工资就保存到变量zg和zd中了③命令窗口输入:LIST&&查看命令执行结果，注意和原表进行比较这样就将各部门应发工资以记录的方式保存到表Zggz1中了④命令窗口输入:REPLACEJbgzWITHJbgz+300FORBm="厂部"REPLACEJbgzWITHJbgz+250FORBm="销售科"REPLACEJbgzWITHJbgz+150FORBm="供应科"LIST&&查看命令执行结果这样就将厂部、销售科、供应科职工分别增加相应的基本工资6对选课成绩表作备份，文件名为“”；打开“”表，完成下列操作：（1）在数据表的第3条记录之前插入一条记录,各字段值自定，并显示；（2）将所有学生的成绩都加10分，并将重考成绩字段的值全部修改为0；（3）用LOCATE和CONTINUE命令查询学号为“20050010”的所有记录并显示，同时分别用RECNO()、FOUND()和EOF()函数测试记录号、是否找到以及指针是否指到结束位置；（4）对数据表按“学期”升序，学期相同时按“成绩”降序建立单索引文件，索引文件名为XQSY.IDX，并显示其结果；（5）对数据表按“学期”降序，学期相同时按“成绩”降序建立结构复合索引文件，索引标识名为XQ，并显示其结果；（6）按学号字段升序建立结构复合索引，标识名为XH，并显示其结果；（7）用SEEK和FIND命令分别查询学号为“20050010”的第一条记录，若要让指针指到第二条记录如何处理；（8）逻辑删除前5条记录中不及格的记录，显示后恢复；（9）物理删除第二学期的记录，并显示；（10）用ZAP命令删除CJ.DBF表文件中的所有记录，再用LIST、LISTSTRU命令显示文件内容和结构；(11)测试空表的特征，显示CJ.DBF表文件的BOF()，EOF()，RECNO()各函数的值。实验5数据库设计1）实验目的通过本实验掌握数据库的建立方法，包括数据库的设计、永久关系的建立、字段级规则和记录级规则的建立，触发器及参照完整性设计等操作。2）实验内容）,将实验二建立的三个表添加到数据库中，并在三个表间建立永久关系。（2）分别为各表建立字段和记录级规则。（3）为数据库建立参照完整性规则。操作步骤：①选择【文件】菜单下的【新建】命令项，在弹出的【新建】窗口中选择【数据库】，然后单击【新建文件】，如图所示，在弹出的【创建】对话框中输入数据库名“”，再单击【保存】按钮，如图1.3.5所示。图【新建】窗口图1.3.5【创建】对话框②将“”、“”以及“”添加到数据库中。在弹出的【数据库设计器】的空白处单击鼠标右键，在弹出的快捷菜单中选择【添加表】选项，如图所示，然后选择要添加的表“”、“”以及“”。图【数据库设计器】窗口③在【数据库设计器】中选定表“学生档案”，单击鼠标右键，选择【修改】菜单项，如图所示，启动【表设计器】，在【索引】选项卡中设置“学号”索引的索引类型为“主索引”，如图1.3.8所示。使用相同的方法设置其他的索引类型。图在【数据库设计器】中修改表结构图设置主索引④在【数据库设计器】中，将“学生档案”表的主索引“学号”索引拖到“选课成绩”表的“学号”索引上放下，在“学生档案”表和“选课成绩”表之间出现的一条线为关系线，如所示。图建立数据库表之间的永久关系使用同样的方法，将“课程”的主索引“课程号”索引拖放到“选课成绩”表的“课程号”上，建立永久关系。⑤在【数据库设计器】中，选定相应的表，单击鼠标右键，选择【修改】命令项，启动【表设计器】，在【表设计器】中选定相应字段，在字段有效性中设置“规则”、“信息”和“默认值”（可以单击对应文本框后的“”按钮，启动【表达式编辑器】修改和编辑表达式），如图所示为“学生档案”表中性别字段的有效性规则的设置，然后单击【确定】保存对表结构的修改。图字段有效性设置⑥选定相应表，启动【表设计器】，选择【表】选项卡，在【记录有效性】中设置“规则”和“信息”，如图所示为“选课成绩”表中设置记录有效性规则。图记录有效性设置⑦选择【数据库】菜单下的【清理数据库】命令项，将数据库表中作删除标记的记录清除掉；选择【数据库】菜单下的【编辑参照完整性】命令项，弹出【参照完整性生成器】对话框，如图所示。图【参照完整性生成器】对话框此图设置参照完整性的规则使用同样方法设置“学生档案-选课成绩”关系的“更新规则”、“删除规则”、“插入规则”为需要的规则，单击【确定】按钮，弹出询问是否保存改变的参照完整性的对话框，如图所示，单击【是】按钮，弹出询问是否生成新的参照完整性代码的对话框，如图1.3.15所示，单击【是】按钮，就完成了参照完整性的设置。图保存对参照完整性的修改图生成新的参照完整性代码查询与视图及SQL实验6【查询设计器】的使用1）实验目的掌握使用【查询设计器】进行各种查询操作。2）实验内容简单查询练习建立查询文件CX1，查询“”中计算机1班的学生信息。操作步骤：①创建查询：选择【文件】菜单下【新建】命令或【新建】按钮进入【新建】对话框，选择【查询】，单击【新建文件】。②添加表或视图，添加“”。③确定输出选项。在字段选项卡选择：全部添加。在筛选选项卡构造条件：学生档案.专业班级="计算机1班"，如图1.4.1所示图图1.设置筛选条件④保存查询：选择【文件】菜单下【另存为】命令，进入“另存为”对话框，给定文件名CX1，单击【保存】。⑤运行查询：使用工具栏【运行查询】按钮运行查询。结果如图1.所示。图1.计算机1班学生信息分组计算查询建立查询文件CX2，查询选修了两门及以上课程的学生学号、选课门数和平均成绩了。操作步骤：①创建查询，方法见简单查询。②添加表或视图，添加选课成绩.dbf。③确定输出选项。在字段选项卡构造：选课成绩.学号，COUNT(选课成绩.课程号)，AVG(选课成绩.成绩)AS平均成绩。如图1.所示。图选择构造输入字段表达式在分组依据选项卡选择设置：学号，并单击【满足条件】按钮，构造分组条件，如图1.所示。图设置分组条件④保存查询：见实验内容1中步骤4，给定文件名CX2。⑤运行查询：方法见简单查询，结果如图1.所示。图分组计算查询结果多表查询建立查询文件CX3，查询学生姓名、选修课程名和成绩，结果按成绩由高到低排序到WW.DBF。操作步骤：①创建查询，方法见简单查询。②添加表或视图，添加学生档案.dbf，选课成绩.dbf，课程.dbf(注意添加表的顺序，学生档案.dbf和课程.dbf没有直接对应关系)。③确定输出选项。观察连接选项卡添加的条件。在排序依据选项卡设置排序：选课成绩.成绩,并选择降序，如图1.所示。图设置排序依据④运行查询：方法见简单查询，结果如图1.所示。图多表查询默认浏览输出⑤设置查询去向：选择【查询】菜单下【查询去向】进入“查询去向”对话框，选择“表”，单击【确定】按扭，输入表名WW。⑥保存查询：见实验内容1中步骤4，给定文件名CX3。⑦运行查询：方法见简单查询，（此时不会出现默认的浏览窗口）。⑧打开表WW，浏览：USEWWBROWSE浏览窗口与图相同，只是窗口名称为表名WW，可以浏览窗口修改数据，而默认的查询输出浏览窗口名称均为查询，数据只能显示，不能修改。综合查询建立查询文件CX4，查询70分以上的学生信息，包括姓名、年龄、课程名、成绩，结果按年龄由高到低排序。操作步骤：①创建查询，方法见简单查询。②添加表或视图，添加学生档案.dbf，选课成绩.dbf。③确定输出选项。在筛选选项卡构造条件：选课成绩.成绩>=70。在排序依据选项卡设置排序：year(date())-year(学生档案.出生日期)as年龄，并选择降序。④保存查询：见实验内容1中步骤4，给定文件名CX4。⑤运行查询：方法见简单查询，结果如图1.所示。图图综合查询结果实验7【视图设计器】的使用1）实验目的掌握使用【视图设计器】设计视图、使用视图。2）实验内容建立视图创建视图ST1，包含学生档案.dbf中的学号、姓名，课程.dbf中的课程名，选课成绩.dbf中的成绩，修改视图中的成绩为每条记录加5分，并将结果发送回选课成绩.dbf中。操作步骤：①打开建立视图的数据库学生学籍管理系统选择【文件】菜单下【打开】命令进入“打开”对话框，选择“数据库”，选择“文件学生学籍管理系统”。②创建视图选择【文件】菜单下【新建】命令进入“新建”对话框，选择“视图”，单击【新建文件】。③添加表或视图，根据本题要求，将学生档案.dbf，选课成绩.dbf和课程.dbf加入到视图设计器。④确定视图选项。观察连接选项卡添加的条件。设置更新条件：在更新条件选项卡设置关键字段为选课成绩.学号，可更新字段为选课成绩.成绩，单击选中“发送SQL更新”复选框，结果如图1.所示。图设置更新条件⑤保存视图：选择【文件】菜单下【另存为】命令，进入“另存为”对话框，给定视图名ST1并保存。⑥浏览视图右键单击视图打开快捷菜单【浏览】。浏览窗口如图1.所示。图视图浏览窗口⑦修改视图的成绩字段，使成绩加5分。命令格式：REPLACEALL成绩WITH成绩+5操作结果如图1.所示。图修改后的视图⑧观察选课成绩.dbf数据。打开此表浏览，由于该表学号不唯一，在使用视图更新表时，会发生更新冲突，因此这种更新只有当关键字段唯一时方能正常进行。2使用视图完成前面的查询前面4个查询操作，除了实验内容3的查询去向不能在视图中进行设置外，其余均可由视图来完成查询。实验8使用SQL语言操作表数据1）实验目的理解SQL语句的功能，掌握使用SQL语言来操作数据表（即数据表的定义、表数据的更新和查询）。2）实验内容1用SQL语句建立数据库及数据表（1）建立人事数据库，根据表给出的表结构，使用SQL语言建立数据库表职工zgb.dbf，职工号为主索引。操作步骤：①创建数据库。参考命令：CREATEDATABASE人事②打开数据库设计器。参考命令：MODIFYDATABASE人事③建立职工表。参考命令：CREATETABLEzgb(职工号C(5)PRIMARYKEY,部门号C(2),姓名C(8),;性别C(2),职称C(10),出生日期D,婚否L,工资N(8,2)表职工表结构(zgb.dbf)字段号类型宽度小数位数职工号C5部门号C2姓名C8性别C2职称C10出生日期D8婚否L1工资N72（2）按照（1）的方法建立部门表bmb.dbf（部门代码C（2），部门名称C（10），负责人C（8）），部门代码为主索引。（3）按照（1）的方法建立工资表gzb.dbf，结构如下：其中职工号为主索引。职工号C(5),基本工资N(8,2),津贴N(7,1),奖金N(3),会费N(5,2),公积金N(3)2修改表结构（1）删除职工表的婚否字段，增加年龄，将姓名字段宽度改为6.参考命令：ALTERTABLEzgbADD年龄ALTER姓名C(6)DROP婚否（2）职称增加默认值“教授”。参考命令：ALTERTABLEzgbALTER职称SETDEFAULT"教授"3输入、修改和删除表数据（1）使用SQL的INSERT输入的数据，数据见表所示（操作前将职工数据表浏览窗口打开，操作中注意观察表数据变化)。参考命令：INSERTINTOzgbVALUES（"02365","11","周小杰","男","讲师",;{^1970-12-25},.T.,863.00）其他数据请补充完整。表职工号部门号姓名性别职称出生日期婚否工资0236511周小杰男讲师12/25/70.T.0252812王雨女副教授03/12/60.T.0102311李思男副教授07/08/61.T.0103512蔡英女讲师09/18/76.F.0252621刘红女副教授12/15/70.T.0123421李玛丽女副教授05/23/70.T.0245822李新男教授03/11/58.T.0263622郑然女助教06/19/80.F.（2）按上面的方法完成部门数据表bmb.dbf和工资数据表f的数据输入，参考数据见表、表1.4.4所示。表部门数据表bmb.dbf部门代码部门名称负责人22网络教研室李新12基础教研室王雨21软件教研室李玛丽11教育教研室李思表工资数据表职工号基本工资津贴奖金会费公积金0236511590025281441400102313612001035968002526115120012341151200145815616002636787001020147160（3）将zgb.dbf添加的年龄字段，使用出生日期数据进行更新，工资表中的会费由基本工资的千分之五替换，注意观察表数据变化。参考命令：UPDATE职工SET年龄=YEAR(DATE())-YEAR(出生日期)&&计算替换年龄UPDATE工资SET会费=0&&会费清零UPDATE工资SET会费=基本工资*0.005&&据工资修改会费ALTERTABLE职工DROP年龄&&删除年龄字段（4）删除zgb.dbf中男职工的记录。参考命令：DELETEFROM职工WHERE性别="男"观察表变化，然后使用RECALLALL恢复。4查询表数据（以下操作将基于上面给出的三个表的数据）（1）查询zgb.dbf中的职称和年龄情况。参考命令：SELECT职称,YEAR(DATE())-YEAR(出生日期)AS年龄FROMzgb（2）查询bmb.dbf信息。参考命令：SELECT*FROMzgb（3）查询部门代码第一个字符为2的部门信息。参考命令：SELECT*FROMbmbWHERELEFT(部门代码,1)="2"（4）查询zgb.dbf中70年（含70年）以前出生的男职工的姓名和工资。参考命令：SELECT姓名,工资FROMzgbWHEREYEAR(出生日期)<=1970AND性别="男"（5）查询zgb.dbf中1960年到1970年（含1960年1970年）出生的职工姓名和出生日期。参考命令：SELECT姓名,出生日期FROMzgbWHEREYEAR(出生日期)BETWEEN1960AND1970（6）统计zgb.dbf中记录数和部门数。参考命令：SELECTCOUNT(*)AS记录数,COUNT(DISTINCT部门号)AS部门数FROMzgb（7）统计zgb.dbf中工资总和及平均工资。参考命令：SELECTSUM(工资)工资总和,AVG(工资)平均工资FROMzgb（8）按部门统计各部门的人数、工资和、最高工资、最低工资、平均工资。参考命令：SELECT部门号,COUNT(*)人数,SUM(工资)工资和,;MAX(工资)最高工资,MIN(工资)最低工资,AVG(工资)平均工资;FROMzgbGROUPBY部门号（9）观察下述命令的执行结果，体会分组依据（职称和性别）前后顺序变化的影响。参考命令：SELECT职称,性别,COUNT(*),AVG(工资)FROMzgbGROUPBY职称,性别SELECT性别,职称,COUNT(*),AVG(工资)FROMzgbGROUPBY性别,职称（10）查询zgb.dbf中副教授以上的记录，并按工资降序排序，工资相同时按出生日期升序排序。参考命令：SELECT*FROMzgbWHERE职称IN("教授","副教授");ORDERBY工资DESC,出生日期1.5结构化程序及面向对象基础实验9程序控制结构1）实验目的通过本实验，要求大家熟练掌握用程序的基本控制结构特别是循环结构来进行程序设计。2）实验内容1简单程序设计（1）编写一程序，其功能是输出-100到100中能被7整除的偶数。（2）有一数列，前两个数是1、1，第三个数是前两个数的和，以后的每个数都是其前两个数的和。请编写程序，要求输出这个数列的前30个数。（3）根据输入的学生姓名查询中的信息，查到则显示该学生信息，否则显示“查无此人”的提示信息。（4）逐条统计“”中男生人数。参考程序:(1)CLEAR(2)CLEARFORI=-100TO100STEP2A=1IFMOD(I,7)=0B=1?I?A,BENDIFFORI=3TO30ENDFORC=ARETURNA=B(3)CLEARB=A+CUSE学生档案??BACCEPT"请输入学生姓名："TONAMEENDFORLOCATEFOR姓名=NAMERETURNIFFOUND（）DISPLAYELSE？"查无此人"ENDIFUSERETURN（4）方法一：方法二：CLEARCLEARUSE学生档案USE学生档案STORE0TOMSTORE0TOMDOWHILENOTEOF（）SCANFOR性别="男"IF性别=”男”M=M+1M=M+1ENDSCANENDIF？"男生人数："+STR（M）SKIPUSEENDDORETURN ？"男生人数："+STR（M） USERETURN2多表程序设计（1）有两个教材管理的表文件如下：1)教材信息表（）编号书名编著者出版社单价00101计算机原理扬山天天出版社23.8005991高等数学李理彩云出版社17.0000120普通化学浦云科技出版社10.8000210物理学陈刘科技出版社16.5000311大学英语欧阳上海出版社18.602)教材使用专业表（）编号使用专业人数00101计算机20054000101工自20053000311企管20046000311会计20045400101机电20054500311计算机20054000311机电20054500210机电200545注：教材使用专业人数即为预订教材册数。①编制程序（PROG1_1.PRG），输入教材的编号，显示出其书名、使用专业、人数，格式如下：编号：XXXXX书名：XXXX序号使用专业人数1.....②编写程序（PROG1_3.PRG）计算每种教材的预定金额，并按如下格式显示。（算法：每种教材总的预定册数*单价。）书名单价预定总册数预定总金额计算机原理23.80…………③编写程序（PROG1_4.PRG）通过输入“书名”，可以反复查找购买该教材的“专业名称”、“册数”等，按下列格式显示出来：教材销售单书名：计算机原理使用专业册数……合计．．(册)．．．(元)（2）有一职工代码表（），人事信息表（）代码职称编号姓名性别职称基本工资工龄工资扣款实发工资013助理工程师1041赵娟女015技术工人5101骆艺男002工程师1030沈峥女01587.005.0011.00001高工4103刘芳女5130杨山男1025刘柳男编一个程序(文件名PROG2.PRG)，完成以下任务：①计算发工资（实发工资=基本工资+工龄工资-扣款）并填入F中。②统计各类职称的基本工资，工龄工资，扣款，实发工资总数。③显示统计结果，其中统计表中“高工，工程师，助理工程师，技术工人”等职称名字必须通过职工代码表得到，并以代码的索引顺序显示，其格式如下：基本工资工龄工资扣款实发工资高工......工程师.............合计......（3）某大学暑假举办各种培训班，有关部门对学员进行管理，每个学员要登记两张表，如表1、表2所示。(说明：每个学员可以参加1个以上学习班，表2为按学员累计姓名住宿情况)表1：表2：姓名学习班名称学费姓名每日宿费天数李璐计算机300.00李璐40.0012赵勇英语250.00欧阳芳55.0010欧阳芳文秘200.00王静35.0020王静财会250.00刘欣45.0020王静文秘200.00赵勇40.0030刘欣计算机300.00周阳55.0010赵勇财会李璐英语赵勇计算机周阳英语250.00①编写程序(文件名PROG3_1.PRG)统计并输出每位学员各项明细费用及总费用，按下列格式显示出来：学员费用情况单姓名学费住宿费总费用李璐550.00480.00103…………(注：住宿费=每日宿费*天数，学费为该学员所上各学习班学费总和总费用=学费+住宿费)②编写程序(文件名PROG3_2.PRG)利用以上两个表，通过输入的学习班名称，查询该学习班的每个学员的姓名，每日宿费，天数以及应缴的住宿费(=每日宿费*天数)。按下列格式显示出来(例如下面是计算机学习班的情况)：学习班学员住宿情况学习班名称：计算机姓名每日宿费天数住宿费李璐40.001248刘欣45.002090赵勇40.0030120合计………参考程序:（1）*cleacleaallsettalkoffsetsafeoffsele1usejckindeon编号tagbhsele2usejczysetrelato编号intojckacce"请输入教材的编号:"tobhlocafor编号=bh?"序号使用专业人数"i=1scanfor编号=bh ?i,使用专业,人数 i=i+1endsclosallsettalkonsetsafeonretu*cleacleaallsettalkoffsetsafeoffsele1usejczyindeon编号tagbhtotalon编号tohzsele2usehzindeon编号tagbhsele3usejcksetrelato编号intohz?"书名单价预定总册数预定总金额"scanendsclosallsettalkonsetsafeonretu*cleacleaallsettalkoffsetsafeoffsele1usejckindeon编号tagbhsele2usejczysetrelato编号intojckdowhile.t. acce"请输入书名:"tosm ?"教材销售单" ?"书名:"+sm ?"使用专业册数" scanforjck.书名=sm ?使用专业,人数 ends sum人数torsforjck.书名=sm locaforjck.书名=sm ?"合计",rs,"(册)",je,"(元)" wait"是否继续(Y/N)?"tox ifupper(x)="N" exit endifenddclosallsettalkonsetsafeonretu（2）*PROG2.PRGcleacleaallsettalkoffsetsafeoffsele1usersreplaceall实发工资with基本工资+工龄工资-扣款indeon职称tagzcdmtotalon职称tohzusehzindeon职称tagzcdmsele2usezdsetrelato代码intohzindeon代码tagdm&&按代码升序排列?"基本工资工龄工资扣款实发工资"scanendscansumhz.基本工资,hz.工龄工资,hz.扣款,hz.实发工资tojb,gl,kk,sf?"合计",jb,gl,kk,sfclosallsettalkonsetsafeonretu（2）*cleacleaallsettalkoffsetsafeoffsele1use学费indeon姓名tagxmtotalon姓名tohzsele2usehzindeon姓名tagxmsele3use住宿费setrelationto姓名intohz?"学员费用情况单"?"姓名学费住宿费总费用"scan ?姓名,hz.学费,每日宿费*天数,hz.学费+每日宿费*天数endsclosallsettalkonsetsafeonretu*cleacleaallsettalkoffsetsafeoffsele1use住宿费aliazsfindeon姓名tagxmsele2use学费setrelato姓名intozsfacce"请输入学习班名称："tomc?"学习班名称："+mc?"姓名每日宿费天数住宿费"store0tox1,x2,x3scanfor学习班名称=mcendssumzsf.每日宿费,zsf.天数,zsf.每日宿费*zsf.天数tox1,x2,x3for学习班名称=mc?"合计"+""+str(x1,6,2)+""+alltrim(str(x2))+""+str(x3,7,2)closallsettalkonsetsafeonretu实验10模块化程序设计1）实验目的：通过本实验，要求大家掌握用模块化的程序程序设计思想来组织自己的程序系统，并对程序模块间的参数传递及程序变量的作用范围能够把握。2）实验内容：1用自定义函数或子程序的方法编写程序（1）计算函数y=3+6x在2，4，6处的值，并求出平均值；（2）输入梯形的上底长、下底长和高，求梯形的面积。参考程序:①自定义函数（思考：用子程序的方法如何编写该程序） CLEAR S=0 N=1FORX=2TO6STEP2?Y(X)S=S+Y(X)N=N+1NEXT ?"平均值为：",S/N RETURNFUNCTIONYPARAMETERSXRETURN3+6*X②自定义函数（思考：用子程序的方法如何编写该程序）CLEARINPUT"请输入梯形的上底长："TOXINPUT"请输入梯形的下底长："TOYINPUT"请输入梯形的高："TOZ?"梯形的面积为：",AREA(X,Y,Z)RETURNFUNCTIONAREAPARAMETERSA,B,HS=(A+B)*H/2RETURNS2读下面的程序写出运行结果*主程序PUBLICX1,X12,XYZSTORE5TOX1,X12,XYZ,ADOSUB1?"X1=",X1,"X12=",X12,"XYZ=",XYZ,"A=",ACANCEL*子程序PRIVATEALLLIKEX1*STORE0TOX1,X12,XYZX1=X1+1X12=X12+1XYZ=XYZ+1?"X1=",X1,"X12=",X12,"XYZ=",XYZ,"A=",AWAITDOSUB2RETURN*子程序X1=X1+1X12=X12+1XYZ=XYZ+1RETURN1.6表单设计实验11常用表单控件（一）1）实验目的（1）熟练掌握表单设计器的使用方法。（2）熟练在表单新建的方法和步骤。（3）掌握在表单中添加对象的操作方法。（4）掌握在属性窗口中设置对象属性的方法。（5）掌握在对象事件中书写代码的方法。（6）掌握常见对象的事件和属性以及对象的方法。（7）掌握文本框、标签、按钮的常用属性、方法的代码。2）实验内容设计一个登录表单LOGIN.SCX，如图所示。当用户输入用户名和密码并单击“登录”按钮后检查其输入是否正确，若正确（假定用户名为SWNU_JKX，密码为CCEO），就显示一个对话框为“欢迎使用学生信息管理系统”；若不正确，则显示“用户名或密码不正确！”。单击“取消”按钮则关闭表单。（要求将“登录”按钮设置为Default按钮。另外，密码输入时显示星号“*”。）图登录表单效果图操作步骤：先创建表单，然后在表单上添加两个标签label1和label2、两个文本框text1和text2以及两个命令按钮Command1和Command2。②设置表单的Caption为“学生管理系统登录”；分别设置label1和label2的Caption属性值为“用户名”和“密码”；分别设置Command1和Command2按钮的Caption属性值为“登录”和“退出”，“登录”按钮的Default属性值设置为.T.；设置文本框text2的Passwordchar属性值为“*”。③双击“登录”按钮启动代码窗口，在Command1的Click事件中设置如下代码：IFThisform.Text1.value="SWNU_JKX"ANDThisform.Text2.Value="CCEO"&&注意大小写，在这里是要求区分大小写的=MESSAGEBOX("欢迎使用学生信息管理系统","提示信息")&&产生提示窗口，第一个字符串为要提示的信息，第二个为窗口标题ELSE=MESSAGEBOX("用户名或密码错误！","提示信息")ENDIF④双击“退出”按钮，在Command2的Click事件中设置如下代码：Thisform.Release&&调用表单release方法关闭表单⑤保存表单。单击工具栏上【保存】按钮，在【另存为】对话框中将表单保存为“”。⑥运行表单。单击工具栏上【运行】按钮，执行表单，观察效果。实验12常用表单控件（二）1）实验目的（1）掌握组合框的常用属性和方法以及事件的使用方法。（2）掌握列表框的常用属性和方法以及事件的使用方法。（3）掌握复选框的常用属性和方法以及事件的使用方法。（4）体会在控件中编写查询代码的方法。2）实验内容1设计查询表单设计一个选择查询表单SEARCH.SCX，如图所示。要求表单运行时，可以先在右侧下拉列表框中选择要打开并查询的表的文件（此时，表的字段要自动显示在左侧的列表框内）；然后在列表框中选择要输出的字段；最后单击“查询”按钮，显示指定表中的记录在指定字段上的内容。图选择查询操作步骤：①创建表单，然后在表单上添加两个标签Label1和Label2、添加一个列表框List1、一个组合框Combo1以及两个按钮Command1和Command2。②设置表单Caption属性值为“选择查询”；分别设置标签label1和label2的Caption为“选择字段”和“选择表文件”；分别设置命令按钮Command1和Command2的Caption属性值为“查询”和“关闭”。③设置组合框Combo1的Style属性值为“2-下拉列表框”，RowSourceType属性值为“7-文件”（将盘上根目录或子目录中的文件名作为下拉列表框的条目），RowSource属性值为“*.DBF”（在列表中只显示VisualFoxPro表文件）；设置列表框List1的RowSourceType属性值为“8-结构”（在列表中显示当前打开表中的字段信息），MultiSelect属性值为.T.。④双击组合框Combo1在InteractiveChange事件中设置如下代码：table=This.ValueUSE&tableThisForm.List1.RowSource=This.Value⑤双击“查询”按钮，在Command1的Click事件中设置如下代码：zd=""Fori=1ToThisForm.List1.ListCountIFThisForm.List1.Selected(i)zd=zd+","+ThisForm.List1.List(i)ENDIFENDFOR&&循环产生查询要显示的字段信息zd=SUBSTR(zd,2)&&去掉多余的第一个逗号“,”SELECT&zdFROM&table&&利用宏代换技术生成SELECT-SQL语句⑥双击“关闭”按钮，在Command2的Click事件中设置代码：ThisForm.Release。⑦保存表单到表单文件“”。⑧运行表单。2修改查询表单修改前面得到的表单SEARCH.SCX，如图所示，添加一个复选框控件和文本框控件，当复选框被选中时文本框成为可见的，单击“查询”按钮就可以进行条件查询；复选框没有选中时，文本框不可见，单击“查询”按钮就可查询表中全部记录。图加条件的选择查询操作步骤：①打开表单“”，在表单上添加一个复选框Check1和一个文本框Text1。②设置复选框Check1的Caption属性值为“查询条件”；设置文本框Text1的Visible属性值为.F.。③双击复选框Check1，设置Click事件代码为：IFThis.Value=1ThisForm.Text1.Visible=.T.&&当复选框选中时text1就设置为可见的ELSE.Visible=.F.&&当复选框取消选中时text1就设置为不可见ENDIF④修改“查询”按钮的Click事件代码为：zd=""&&初值为空串Fori=1ToThisForm.List1.ListCountIFThisForm.List1.Selected(i)zd=zd+","+ThisForm.List1.List(i)ENDIFENDFOR&&循环产生查询要显示的字段信息zd=SUBSTR(zd,2)&&去掉多余的第一个逗号“,”IFThisForm.Check1.Value=1SELECT&zdFROM&tableWHERE&tj&&利用宏代换技术生成SELECT-SQL语句ELSESELECT&zdFROM&tableENDIF⑤保存表单并运行。实验13常用表单控件（三）1）实验目的（1）练习并掌握表格控件的使用方法。（2）掌握表格常用属性的使用方法。（3）掌握选项组控件的使用方法。2）实验内容设计一个学生成绩综合查询表单，如图所示，要求根据对查询依据的选择，文本框前面的标签就显示相应的文字；然后在文本框中输入要查询的信息，单击“查询”按钮就可进行模糊查询，并将查询结果显示在表格中。图学生成绩综合查询表操作步骤：①启动【表单设计器】，设置表单的Caption属性为“学生成绩综合查询”；然后在表单上添加标签label1，设置Caption属性为“请选择查询依据”；在表单上添加一个选项组控件对象OptionGroup1，选定该对象然后单击鼠标右键选择【生成器】菜单项，在【选项组生成器】窗口的【按钮】选项卡中设置“按钮的数目”为4，标题分别设置为“按姓名查询”，“按学号查询”，“按院系查询”和“按课程名查询”，在【布局】选项卡中设置“按钮布局”为“水平”，然后单击【确定】按钮。②再添加一标签控件label2，设置Caption属性为“请输入姓名：”；添加一文本框控件对象Text1；添加一个命令按钮，设置Caption属性为“查询”；添加一表格控件Grid1，设置RecordSourceType属性为“4-SQL说明”。③双击OptionGroup1在它的Click事件中添加代码，使得当选择相应选项按钮时，label2就显示对应的提示信息，代码如下：docasecasethis.value=1&&OptionGroup对象的Value属性返回选中按钮的序号thisform.label2.caption="请输入姓名："casethis.value=2thisform.label2.caption="请输入学号："casethis.value=3thisform.label2.caption="请输入专业班级："casethis.value=4thisform.label2.caption="请输入课程名："endcase④双击“查询”按钮在Click事件中添加代码，实现生成查询使用的SELECT-SQL语句，并且使用代码的方式设置Grid1的RecordSource为此SQL语句，代码如下：docasecasethisform.optiongroup1.value=1tj="姓名like'%"+alltrim(thisform.text1.value)+"%‘"casethisform.optiongroup1.value=2tj="学生档案.学号like'%"+alltrim(thisform.text1.value)+"%‘"casethisform.optiongroup1.value=3tj="专业班级like'%"+alltrim(thisform.text1.value)+"%’"casethisform.optiongroup1.value=4tj="课程名like'%"+alltrim(thisform.text1.value)+"%’"endcase&&根据选择的不同查询依据产生查询条件sql="SELECT学生档案.学号AS学号,姓名,性别,专业班级,课程名,成绩,;重考成绩FROM学生档案,选课成绩,课程;WHERE选课成绩.学号=学生档案.学号AND选课成绩.课程号=课程.课程号;AND"+tj+"INTOCURSORtemp"Thisform.Grid1.RecordSource=sql⑤保存表单文件为ZHCX.SCX。⑥实验14常用表单控件（四）1）实验目的（1）练习页框控件的使用。（2）练习定时器控件的使用。（3）了解表单中对象移动的原理。（4）练习超链接控件的使用。2）实验内容设计一个表单ABOUT.SCX，表单中有一个页框其中包含两个页“开发团队”和“推荐搜索引擎”，在“开发团队”中实现“制作群”及其以下的文字缓缓地向上移动到一定位置停下。在“推荐搜索引擎”中添加一张图片，当单击图片时就启动网页浏览器并访问网站“”。单击“确定”按钮就关闭窗口。操作步骤：①启动表单设计器，设置表单的Caption属性为“有关我们的情况”。②在表单中添加一个页框对象PageFrame1，设置其PageCount属性为2。③选定页框对象，单击鼠标右键选择“编辑”命令项，这时我们就可以选择页框中的页对象Page1设置Caption属性为“开发团队”，在Page1中添加标签Label1，Label2，Label3，分别设置他们的Caption属性为“制作群”，“公共计算机基础教育部”，“系统研发小组”；再添加一个计时器Timer1，设置Interval属性为100（相当于0.1秒）。④双击计时器Timer1在Timer事件（每隔Interval指定的时间就触发一次）中添加代码，实现标签的移动，代码如下：IFThis.Parent.Label1.Top>20&&如果第一个标签的Top大于20像素时继续移动Tarent.Label1.Top=This.P&&向上移动一个像素This.Parent.Label2.Top=This.PThis.Parent.Label3.Top=This.PThis.Parent.Label4.Top=This.PELSEThis.Enabled=.F.&&标签移动到位时，计时器设为不可用标签不再移动ENDIF⑤选择页框中的页对象Page2设置Caption属性为“推荐搜索引擎”，在Page2上添加一图片控件对象Image1，设置Picture属性为“”（这里我们使用的是从网上下载的Google的图片logo.gif保存到c:\myfile文件夹下的），设置BackStyle属性为“0-透明”；再添加一超级链接控件对象HyperLink1。⑥双击Image1，在Click事件中添加如下代码：This.Parent.HyperLvigateTo("")&&HyperLink对象的NavigateTo方法指定链接的地址表单中添加命令按钮，设置Caption属性为“确定”⑧保存表单到文件About.SCX。⑨运行表单。实验15表单控件综合设计（一）1）实验目的（1）理解表单、控件的关系（2）掌握设计表单的方法（3）熟练掌握表单设计器的操作（4）掌握表单、页框、标签、文本框、命令按钮、列表框等常用对象的主要属性、事件和方法2）实验要求（1