《地质数据库设计及应用》上机实习指导书.doc

《《地质数据库设计及应用》上机实习指导书.doc》由会员分享，可在线阅读，更多相关《《地质数据库设计及应用》上机实习指导书.doc（57页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、地质数据库设计及应用上机实习指导书陈练武西安科技大学地环学院前 言地质数据库设计及应用是地质工程专业必修的一门基础课。它的主要任务是研究地质数据库的设计方法、设计流程及在Visual FoxPro环境下地质数据库的建立、维护、以及程序设计方法和技巧。目的是使学生掌握数据库系统的基本知识和应用技术；掌握地质数据库管理系统的设计方法与技巧；培养学生以计算机为工具解决本专业实际问题的能力。教学大纲要求本课程总学时68，理论教学50学时。根据教学内容和教学目标，实习课共开设18个学时，其中基础实习14学时，设计型实习4学时。由于课内机时有限，要熟练掌握所学理论知识有一定难度，在课内上机时间内不能完成实

2、习内容的同学们，希望利用课外上机时间，完成每个实习所要求的内容。目 录实习一 VFP6.0表的基本操作1实习二 地质数据库的建立5实习三 建立查询和视图5实习四、五 VFP程序的设计与调试5实习六、七 表单设计5实习八 开发一个小型的地质数据库应用系统5实习一 VFP6.0表的基本操作一、实习目的 了解Visual FoxPro6.0系统的运行的软硬件环境。 掌握正确启动和退出Visual FoxPro6.0系统的方法。 初步认识Visual FoxPro6.0的界面组成，学习使用Visual FoxPro6.0中窗口和菜单的基本操作方法。 初步掌握Visual FoxPro6.0中表的基本操

3、作方法。二、实习内容 启动和退出Visual FoxPro6.0中文版。 操作Visual FoxPro6.0中的窗口和菜单。 设置Visual FoxPro6.0系统系统系统环境。 使用“表向导”建立一个自由表。 作用“表设计器”修改表的结构。 使用“生成器”，生成表达式。 使用项目管理器。三、实习步骤1、了解当前使用的计算机的操作系统和硬件配置。2、启动Visual FoxPro6.0中文版。（1） 通过“开始”菜单启动；（2） 通过快捷方式启动；（3） 直接从Visual FoxPro6.0中文版安装目录中启动。 3、退出Visual FoxPro6.0中文版分别使用下列几种方法退出Vi

4、sual FoxPro6.0(每次退出后请重新启动Visual FoxPro6.0，以便练习其他退出方法): 在I命令窗口中键入命令 QUIT，然后按回车键。 按下ALT+F4组合快捷键。 单击Visual FoxPro6.0窗口的文件菜单项，在下拉菜单中单击退出选项。 单击Visual FoxPro6.0窗口右上角的关闭窗口按钮。4、Visual FoxPro6.0中窗口和菜单的基本操作 (1)窗口操作 启动Visual FoxPro6.0，显示主窗口。用鼠标单击最小化l按钮，此时将窗口缩小成图标并显示在Wndows的任务栏上，注意观察效果。 单击显示在Wmdows的任务栏上的Visual

5、FoxPro6.0图标，激活窗口，回到原来状态。 单击 还原或最大化按钮，将窗口还原或者最大化。 移动窗口：将鼠标移至命令窗口的标题栏(蓝色区域)，按下鼠标左键不放，移动鼠标将其拖至目标位置后释放鼠标。 (2)菜单操作将鼠标移至菜单栏，单击文件菜单项，观察下拉子菜单选项和相应的组合快捷键，同时观察状态栏中显示的帮助信息。移动鼠标至打开选项，此时状态栏中的信息已做了相应的更新。单击鼠标左键，打开对话框，如图1-1所示。图1-1 Visual FoxPro打开文件对话框从弹出的打开对话框中可看到当前默认打开的文件类型为 “项目文件”(*.PJX)，单击文件类型旁的下拉按钮，将要打开的文件类型改为“

6、表”(*.dbf)，如图1-2所示。在系统安装目录“VFP98”，此时可在窗口中看到两个表文件“FOXUSER.DBF”和 “LABELS.DBF”。用鼠标选中“LABELS.DBF”，单击“确定”按钮打开此表文件，如图1-2所示。此时，打开对话框窗口关闭，在主窗口的状态栏中将显示当前打开表的一系列信息，同时系统将在命令窗口中生成并显示该操作相应的命令行，如图1-3所示。图1-2 更改要打开的文件类型图1-3 命令窗口中显示的命令行选择显示菜单项中的浏览命令，此时将看到打开的窗口中显示了表“LABELS.DBF”的内容。同时，在命令窗口中增加了命令行：“BROWSE LAST”，菜单栏中也添加

7、了一个表菜单项用于数据表的操作，如图1-4所示。图1-4 打开表后的Visual FoxPro窗口(3) 命令窗口的操作关闭上一步打开的表浏览窗口，在命令窗口中用鼠标将插入点定位在“BROWSE LAST”命令行的任意位置（或在命令窗口直接输入“BROWSE LAST”），按回车键，此时系统重新打开了浏览窗口。 (4)工具栏的使用。主窗口中显示的是Visual FoxPro6.0的常用工具栏，如图1-5所示，直接利用工具栏来执行Visual FoxPro命令是非常简便快捷的，比如单击常用工具栏上的打开按钮就可以直接进入文件打开窗口。工具栏的有些按钮不是任何时候都可用，在无操作对象时为灰色不可用

8、状态。图1-5 常用工具栏把鼠标光标移到图1-5所示中某个工具栏按钮上，系统就会自动在光标下方显示注释框，说明该按钮的功能。请依次观察每一个按钮的功能注释。单击显示菜单的工具栏选项，打开工具栏窗口。窗口中列出了Visual FoxPro提供的一系列工具栏，其中只有常用工具栏处于选定状态，如图1-6所示。任意选中其它几个工具栏，单击“确定”按钮，此时选定的工具栏将出现在Visual FoxPro的主窗口中。 图1-6 定制工具栏5、配置Visual FoxPro6.0的系统环境Visual FoxPro6.0系统环境的配置决定了Visual FoxPro6.0系统的操作环境和工作方式。Visua

9、l FoxPro6.0允许用户通过设置参数来控制其工作方式。设置Visual FoxPro6.0既可以使用菜单操作，也可以使用命令方式。(1)启动Visual FoxPro6.0，在系统主菜单中选择工具菜单项下的选项选项卡，打开选项窗口，如图1-7所示。图1-7 选项窗口为了便于存储和查找文件，需要首先设置文件位置选项。要求将系统默认目录和搜索路径设置为D盘的“myfile”目录。 先将Visual FoxPro主窗口最小化，打开“我的电脑”，在某一个磁盘驱动器中(这里暂定为D盘)建立一个新文件夹，取名为 “myfile”。还原Visual FoxPro主窗口，在选项窗口中单击文件位置选项卡，

10、找到默认目录选项，选中后单击“修改” ，打开更改文件位置对话框，如图1-8所示。图1-8 打开更改文件位置对话框 选中使用(U)默认目录复选框，单击翻按钮打开选择目录对话框。找到并选定“D:myfile”目录，然后单击“确定”按钮，此时默认目录已改为“D:myfile”用同样方法在文件位置选项卡中将文件的搜索路径也改为 “D:myfile”。接下来，通过对显示选项卡的设置进一步理解Visual FoxPro的环境设置。 单击显示选项卡，取消对状态栏复选框的选中，单击“确定”按钮，退出选项窗口后，将发现Visual FxoPro主窗口中的状态栏被隐藏了。 提示：设置结束后，如果单击“设置为默认值

11、”按钮后退出选项窗口，则下次启动Visual FoxPro时，设置仍然有效，否则仅当前有效。6、使用表向导建立一个自由表向导是一种快捷设计工具。它通过一组对话框依次与用户对话，引导用户分步完成Visual FoxPro的某项任务。表向导可一步一步地引导，快速地根据己有的表 (样表)建立新的表文件。（1）在Visual FoxPro系统主菜单中选择工具菜单项下的向导选项，在弹出的子菜单中可看见 “表”、“查询”、“表单”、“报表”等一系列向导，选择“表”向导，打开表向导对话框。（2）步骤 1：字段选取。在 样表列表框中选择一个样表，本例选择表“Classes.dbf”，此时可用字段列表框中列出了

12、样表 “Classes.dbf”的所有字段，使用加入按钮任意加入几个字段到选定字段列表框中，或使用全部加入按钮将所有字段加入，然后单击“下一步”按钮，如图1-9所示。图1-9 步骤1：字段选取 (3) 步骤1a：选择数据库。在此窗口中选择系统默认的 创建独立的自由表，然后单击“下一步”。(4)步骤2：修改字段设置。利用此窗口可修改选定字段的属性，包括字段名、类型、宽度等，实际上就是设置将要生成的新表的字段属性。在本例中直接单击“下一步”按钮，暂且不修改这些字段，使其保持在样表中原有的属性，如图1-10所示。图1-10 步骤2：修改字段设置（5）步骤3：为表创建索引。通过此步骤可在创建表的同时，

13、建立表的索引。关于数据表的索引在此不深究，直接单击“下一步”。（6）步骤4：完成。通过前面的操作，表的创建工作已基本完成，此时需要做最后的工作：保存表。对此步，向导共给出了3种选择（图1-11），这里选择第二种方式(表名可定为TEST.DBF)。此时表被保存在默认的目录下，然后表的内容将显示在浏览窗口中(由于生成的表没有记录，此时仅看到表的字段)。图1-11 保存表7、使用表设计器修改表对于已打开的表，如果要修改其结构，可选择系统主菜单中显示菜单下的表设计器，打开表设计器窗口，如图1-12所示，然后可进行表结构的修改。图1-12 表设计器8、操作项目管理器在Visual FoxPro中，项目是

14、有关文件、数据文档及对象的集合，项目管理器是Visual FoxPro处理数据和对象的重要组织工具。下面将创建名为TEST.PJX的项目文件。在Visual FoxPro系统主菜单中选择 文件菜单下的新建选项，打开新建窗口，选择新建文件类型为项目，然后单击新建文件按钮，在接下来的窗口中输入将要创建的项目文件名 TEST.PJX，确认后系统将打开项目管理器窗口（图1-13）。在命令窗口中使用命令“CREATE PROJECT TEST.PJX”同样可完成此操作。图1-13 项目管理器 (2) 项目管理器的基本操作。折叠和还原项目管理器：单击项目管理器右上角的向上箭头，此时项目管理器被折叠。同时箭

15、头变为向下箭头，单击该箭头项目管理器被还原为初始状态。折叠和展开列表项：项目管理器中的各选项是以类似于大纲的结构来组织的，可以将其展开或折叠，以便查看不同层次中的详细内容。如果项目中具有一个以上某一类型的选项，则该类型符号的左边会出现一个“+”图标。单击此图标可显示该选项中的该类型项的各种名称。若要折叠已展开的表，可单击“-”图标。拆分选项卡：项目管理器被折叠后，可以用鼠标选中某一选项卡，拖动鼠标，在目标位置释放，可把它的6个选项卡一个个拆卸下来放置到其他位置，如图1-14所示。拆卸下来的每个选项卡都可单独使用。如要还原，只要用鼠标拖动选项卡至项目管理器中的原位置释放，或单击关闭按钮即可。图1

16、-14 拆分选项卡9、向新建的项目TEST.PJX中添加 1个自由表TEST.DBF。单击项目管理器的数据选项卡，在列表框中选择自由表选项，然后单击项目管理器右部分的“添加”按钮。在弹出的打开对话框中选择自由表TSET.DBF，单击“确定”，表将被添加到项目中，如图1-15所示。图1-15 向项目管理器中添加文件四、思考（1）Visual FoxPro6.0中主菜单项内容是否是固定不变的?（2）Visual FoxPro6.0的工具栏可否移动到主窗口的其他地方?（3）如何改变命令窗口中命令行的字体大小?（4）Visual FoxPro6.0的环境设置主要包括那些类别的选项?（5）Visual

17、FoxPro6.0提供的哪一种辅助设计工具集合了建立和修改编辑文件的功能?（6）项目管理器的作用和地位是怎样的?实习二 地质数据库的建立一、实习目的 学习并掌握Visual FoxPro中的各种数据类型。 掌握数据表及数据库的建立方法及命令。 掌握各种类型数据的录入方法。 掌握地质数据库创立的基本方法与步骤。二、实习内容 按提示步骤建立一个数据表和数据库，并录入记录。 练习数据表的打开和关闭操作。 浏览数据表。 数据表的编辑与维护。 数据表的排序与索引。三、实验步骤1、建立表2-1所示的自由表“ZKQK.DBF”表2-1 某井田钻孔基础数据表钻孔号孔口坐标X孔口坐标Y孔口标高终孔深度开孔日期钻

18、孔级别是否斜孔843.400.3301131.720492.621989.11.01甲级不是8430.120.0001082.940402.461990.01.20甲级不是842.700.0001089.000370.431992.08.14乙级是847.200.6001135.440532.271990.01.01甲级不是846.980.1901147.900541.251982.10.11甲级是845.570.7101183.700522.561993.07.21甲级不是844.570.2401164.490501.571994.07.09乙级不是ya3.450.2001164.18039

19、8.131993.05.15甲级不是663.970.2601136.670331.111992.11.22丙级是8411.350.5001158.600572.081996.04.18乙级是8410.020.3301186.440552.811996.05.10甲级不是（1）首先在某一用户盘上（如E：）建立一个文件夹，文件夹名为学生的姓名（如陈练武）。将系统的默认路径设置为该文件夹。（2）创建一个项目文件，项目文件名为学生的姓名。请用“向导”创建。注意查看系统自动创建的目录结构。（3）在项目管理器的列表项中选择“自由表”，选择“新建”按钮（图2-1），新建自由表的文件名为ZKQK.DBF，文件

20、存放在用户目录下的DATA子目录下。图2-1 创建自由表(4)设计表的结构由于Visual FoxPro采用关系型数据模型，故能方便的将二维表作为“表”存储到计算机中。建表时，二维表的每一列将成为数据库表的一个字段，标题栏下方的内容输入到表中将成为表的数据，每一行数据称为表的一个记录。也就是说，表由结构和数据两部分组成，那么针对上述二维表创建的数据库表（如ZKQK.dbf）则含有8个字段和11个记录。要将一个二维表变为Visual FoxPro的一个表(table)，首先要仔细研究二维表每一列数据的类型、宽度、小数位数等，在此基础上设计表的结构。对于通过计算可获取的数据不要作为一个字段出现，例

21、如某表中如有出生日期字段，就没有必要再有一个年龄字段，因为只要知道一个人的出生日期，就可计算出他的年龄。根据上述规定，可为表2-1设计如表2-2所示的结构。说明：字段名也可采用中文名。表2-2 钻孔基础数据表的结构字段名字段类型字段宽度小数位数说 明drill_id字符型10钻孔号，主键，非空kkx0数值型113孔口坐标Xkky0数值型103孔口坐标Ykkz0数值型83孔口标高end数值型72终孔深度date0日期型8开孔日期drilldgree字符型4钻孔级别isdip逻辑型1是否斜孔2、输入记录向表中输入数据常用的有以下几种方法。(1)建立好表结构后立即输入数据当表结构建立并存盘后，系统会

22、提问是否现在输入记录，选择“是”按钮便可输入记录，用此方法输入数据对一个表机会只有一次。(2)追加数据向表中追加数据是最常用的一种方法，操作步骤如下：第一步 执行 USE ZKQK 命令来打开表。第二步 执行APPEND 命令后开始输入数据（参见图2-2）。图2-2追加数据对话框 (3)窗口追加方式（BROWSE方式）第二种方法是在编辑窗口中输入记录，也可在浏览窗口中输入记录。操作步骤如下：第一步 执行 USE表文件名 命令来打开表第二步 执行BROWSE 命令后打开浏览窗口第三步 选定“显示”菜单下的“追加方式”选项后，可开始输入数据（参见图2-3）。图2-3 数据浏览方式(4)成批追加数据

23、方式以上三种方法输入记录只能逐条输入，如果数据已以其它文件形式保存，或已保存在其它表中，可将这些数据成批追加到当前表中。如果要从另一个表中导入，操作步骤如下：第一步 执行 USE表文件名 命令来打开表（目标表）第二步 执行APPEND FROM 表文件名（源数据表）命令导入输入数据说明：用上述方法导入时只能将两个表中共有字段的数据导入。如果要从一个文本文件中导入数据，操作步骤如下：第一步 执行 USE表文件名 命令来打开表（目标表）第二步 执行APPEND FROM 数据文件名 SDF/DELI 命令导入输入数据。说明：A数据文件名是一个文本文件；BSDF与DELI（DELIMITED）选其中

24、的一个，具体选那一个取决于文本文件的格式，如果文本文件是标准格式，则选SDF，如果是紧凑格式则选DELI。C导入时，文本文件的第一列数据导入到表的第一个字段，第二列数据导入到表的第二个字段，所以要注意数据类型的一致性，如果不一致可在APPEND FROM 命令中加入FIELDS 来指定导入的具体字段。除了用命令方式成批导入数据外，也可用“文件”菜单下的“导入”选项来成批导入数据（图2-4）。图2-4 导入数据对话框3、修改表的结构（1） 打开表ZKQK.DBF（2） 打开表设计器（3） 增加备注（BZ）字段，字段类型为备注型（4） 保存结构后，向备注型字段中输入记录（内容可任意）。4、排序操作

25、（1） 打开已输入记录的ZKQK.DBF（2） 按终孔深度（END字段）从小到大排序生成一个新表ZKQK_END.DBF。命令为：SORT TO D:陈练武DATAZKQK_END ON END （3） 将ZKQK_END.DBF添加到项目文件中的自由表中。5、索引操作（1）打开已输入记录的ZKQK.DBF（2）打开表设计器。（也可在项目管理器中选择该表后，单击“修改按钮”，如图2-5所示）。图2-5 修改表(3) 钻孔编号按升序建立索引文件，钻孔深度按降序建立索引文件（图2-6）。图2-6 建立索引（4）分别将drill_id和drill_end作为主索引，浏览表，观察其效果。6、创建断层数

26、据库库文件名 fault.dbc数据库中包含的表：断层基本信息表 fault_base.dbf断层位置控制表 fault_control.dbf各表的建表意义及结构如下：(1)断层基本信息表(fault_base.dbf)断层基本信息表存放的是断层的基本属性信息(表2-3)，它是断层库中的主表（父表），一条断层在该表中为一条记录。表2-3 断层基本信息表结构字段名字段类型字段宽度小数位数说 明fault_id字符型10断层编号fault_name字符型10断层名称expose_time日期型8揭露时间fau_property字符型10性质fau_orient数值型74倾向fau_angle数值

27、型72倾角fau_fall数值型72落差line_drawing通用型4素描图、照片等(2)断层位置控制表(fault_control.dbf)该表中存放的是控制断层平面位置的控制点坐标(表2-4)。一条断层有几个控制点，在该表中就有几条记录，它与上面的断层基本信息表之间为子表的关系（多方）。表2-4 断层位置控制表结构字段名字段类型字段宽度小数位数说 明fault_id字符型10断层编号number数值型30序号ctrlpos_x数值型113控制点坐标xctrlpos_y数值型103控制点坐标yctrlpos_z数值型83控制点坐标z（3）表关系设计断层库中的两个表关系设计如下：断层基本信息

28、表(fault_base.dbf)与断层位置控制表(fault_control.dbf)之间通过关键字段fault_id建立一对多的永久关系，断层基本信息表为一方，断层位置控制表为多方（图2-7）。这样，在断层位置控制表中，断层控制点的个数可为任意多个。图2-7 断层库表间关系设计图7、编辑参照完整性建立关系后，我们可设置管理数据库关联记录的规则，即参照完整性。所谓参照完整性，简单地说就是控制数据一致性，尤其是不同表之间关系的规则。“参照完整性生成器”可以帮助我们建立规则，控制记录如何在相关表中被插入、更新或删除，这些规则将被写到相应的表触发器中。选择“数据库”菜单下的“编辑参照完整性”选项（

29、或单击右键打开快捷菜单，选择“编辑参照完整性”选项），进入“参照完整性生成器”。 其中有选择更新、删除或插入三个选项卡，设置进行相应操作所遵循的若干规则。每个选项卡有二到三个选项，有级联、限制、忽略(图2-8)。图2-8 编辑参照完整性如果选择了级联，不论何时更改父表中的某个字段， Visual FoxPro 都会自动更改所有相关子表记录中的对应值。如果选择了限制则禁止更改父表中的主关键字段或候选关键字段中的值，这样在子表中就不会出现孤立的记录。如果选择了忽略则即使在子表中有相关的记录，仍允许更新父表中的记录。这里“更新”选项卡中选择“级联”。在“删除”选项卡中选择“限制”，在“插入”选项卡中

30、选择“限制”。选择“确定”，然后选择“是”保存所做的修改，生成“参照完整性”代码，并退出参照完整性生成器。这样，参照完整性就可利用两表的关系参照制约来控制两表数据的完整性和一致性。断层数据见表2-5、表2-6：表2-5 断层基本信息表断层编号断层名称揭露时间性质倾向倾角落差素描图W5-2203-1F2202302/02/1989正断层159523W5-2203-2F2203-209/09/1989正断层299.5251.5W5-2203-3F2203-309/09/1989逆断层348252W5-2203-4F2203-409/09/1989正断层0401.5W5-2201-1F2201-10

31、8/08/1989正断层21501.7W5-2201-2F2201-207/06/1988正断层70331.3W5-2201-3F2201-309/09/1989逆断层188401.2W5-2201-4F2201-408/08/1989正断层77411.0W5-2201-5F2201-509/09/1989正断层257352.1W5-2201-6F2201-1009/09/1988正断层77300.5表2-6 断层位置控制表断层编号序号控制点坐标x控制点坐标y控制点坐标zW5-2203-11.000.000W5-2203-12.000.000W5-2203-13.000.000W5-2203-

32、14.000.000W5-2203-21.000.000W5-2203-22.000.000W5-2203-31.000.000W5-2203-32.000.690W5-2203-41.000.000W5-2203-42.000.000W5-2203-43.000.000W5-2203-44.000.000W5-2203-45.000.000W5-2203-46.000.000W5-2201-11.000.000W5-2201-12.000.000W5-2201-21.000.000W5-2201-22.000.000W5-2201-31.000.000W5-2201-32.000.000W5

33、-2201-41.000.000W5-2201-42.000.000W5-2201-51.000.000W5-2201-52.000.000W5-2201-61.000.000W5-2201-62.000.000实习三 建立查询和视图一、实习目的学会查询设计器、视图设计器的使用及其相应文件的建立。熟练掌握SQL的查询语句。二、实习内容 用查询设计器创建查询 用视图设计器创建本地视图 使用SQL的查询语句进行查询设计三、实习步骤1、用查询设计器创建查询数据查询可有效地对数据源进行各种组合，有效地筛选记录，管理数据，并对结果进行排序。下面用“fault.dbc”数据库中的相关数据表，建立查询，并将

34、查询保存名为“查询设计fault.QPR”，操作步骤如下：（1）打开前面已创建的项目（如陈练武.PJX），单击数据选项，选择查询，单击新建按钮，这时出现新建查询窗口，单击新建查询，如图3-1所示。图3-1 添加表和视图对话框（2）在添加表和视图窗口中，将“fault.dbc”数据库中的断层基本信息表 fault_base.dbf和断层位置控制表 fault_control.dbf分别添加到查询设计器中，关闭添加表和视图对话框，出现查询设计器窗口，如图3-2所示。图3-2 查询设计器（3）在查询设计器窗口中，选择字段选项卡，在可用字段栏中，将Fault_base.fault_id, Fault_

35、base.fault_name, Fault_base.expose_time, Fault_base.fau_propery, Fault_base.fau_orient, Fault_base. fau_angle, Fault_base. fau_fall和fault_control number，fault_control. ctrlpos_x，fault_control. ctrlpos_y分别添加到选定字段栏中，如图3-3所示。（4）单击联接选项卡，将Fault_base.fault_id与fault_control.fault_id的联结类型改为左联接“Left Outer Jo

36、in”。（5）单击筛选选项卡，在该选项卡中设置筛选条件。设置筛选条件为落差1.8，如图3-4所示。（6）单击排序论据选项卡，在该选项卡中设置排序。设置排序依据为断层落按升序排列，如图3-5所示。（7）查询设计完成后，在查询设计器窗口中单击右键，在弹出的输出设置命令，弹出查询去向对话框，如图3-6所示。单击浏览按钮，关闭查询去向窗口，并返回到查询设计器。（8）单击文件菜单，选择保存命令，在弹出的另存为对话框中，输入“查询设计fault.QPR”。单击常用工具栏上的运行按钮（警叹号），在弹出的浏览窗口中，显示出查询结果。查看项目管理器，可见查询设计fault.QPR已加入到查询中。在项目管理器中可

37、方便地对该查询进行各种操作。图3-3 查询设计器的字段选项卡图3-4 查询设计器的筛选选项卡图3-5 查询设计器的排序依据选项卡图3-6 查询去向对话框图3-7查询设计fault.QPR运行结果（9）在查询设计器工具栏中，单击SQL命令按钮，即可查看该查询的SELECT-SQL数据查询命令，如图3-8所示。图3-8 SELECTSQL查询命令2、用视图设计器创建本地视图用视图设计器创建本地视图的过程与用查询设计器创建查询的过程基本相似，请同学们按上述查询的要求，创建本地视图。实习四、五 VFP程序的设计与调试一、实习目的熟悉Visual FoxPro中常用命令的功能，能熟练地运用到编程中。学会

38、Visual FoxPro中利用命令文件编程的方法以及命令文件的执行方法，初步掌握VFP程序的设计与调试。掌握结构化程序设计的基本思想和常用方法。二、实习内容学习利用Visual FoxPro中的命令编程。三、实验步骤1、编写一个测试程序运行次数的程序。方式一：利用内存变量文件记录运行次数。set defa to E:陈练武Progsset talk offset safe offclear all=messagebox(这是一个测试程序运行次数的程序!,0+16,提示信息)IF file(PRG_NUM.mem) restore from PRG_NUM additive else runn

39、um=0 save to PRG_NUM all like runnum* ENDIF runnum=runnum+1 save to PRG_NUM all like runnum* num=alltrim(str(runnum)=messagebox(该程序运行了 &num 次!,0+16,提示信息)RETU方式二：利用表文件记录运行次数。set defa to E:陈练武dataset talk offset safe offclose database all=messagebox(这是一个测试程序运行次数的程序!,0+16,提示信息)IF file(PRG_NUM.DBF) use

40、PRG_NUM excl else create table PRG_NUM(运行次数 N(5,0) append blank replace 运行次数 WITH 1 ENDIF replace 运行次数 WITH 运行次数+1 num=alltrim(str(运行次数)=messagebox(该程序运行了 &num 次!,0+16,提示信息)RETU 2、张丘建 “算经”百鸡问题*鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，*问鸡翁、母、雏各几何*X+Y+Z=100*5X+3Y+Z/3=100set talk offclearfor x=1 to 19 for y=1 to 33 z=1

41、00-x-y if 5*x+3*x+Z/3=100 ?x,y,z endif endfor endforretu3、打印99乘法表*do while 方式set talk offclear 1,1 SAY *J=1do while J10 1,3*J+1 SAY str(J,3)J=J+1ENDDO n=1 do while n10 n+1,1 SAY str(n,3) k=1 do while k=n n+1,3*k+1 SAY STR(k*n,3) k=k+1 enddo n=n+1 enddoretu* FOR 方式set talk offclear 1,1 SAY *for J=1 t

42、o 9 1,3*J+1 SAY str(J,3) ENDFORFOR n=1 to 9 N+1,1 SAY str(n,3) FOR k=1 to n n+1,3*K+1 SAY STR(K*N,3) ENDFOR ENDFORRetu4、输入初值，输出50个能被37整除的数set talk offclearINPUT 请输入初值： TO a x=a n=0 do while n50 IF x%37=0 ?X n=n+1 ENDIF x=X+1 ENDDO RETU5、输出一个用“*”组成的三角形set talk offclearstore 1 to astore 10 to bDO while a=5 y=1 do while y=2*a-1 a,b say * b=b+1 y=y+1 enddo b=10-a