目录 实验一、微机启动及键盘操作 ………………………………（2） 实验二、中、英文输入训练 …………………………………（4） 实验三、Windows 2000基本操作 ………………………………（6） 实验四、Windows 2000高级管理操作 …………………………（8） 实验五、Word 2000文档编辑基本操作 ………………………（10） 实验六、Word 2000文档排版、制表及打印 …………………（12） 实验七、VFP 6.0数据库基本操作 …………………………（14） 实验八、VFP 6.0库基本操作 ………………………………（16） 实验九、库文件操作与常用函数 …………………………（27） 实验十、VFP 6.0程序设计 ……………………………（32） 实验一、微机启动及键盘操作 一、 实验目的及要求 （1） 熟悉本校计算机机房环境 （2） 了解微机基本构成和基本配置 （3） 掌握微机的启动方法 （4） 熟悉键盘布局，并学习正确的击键方法 二、 实验内容及步骤 （1） 熟悉计算机机房环境。 （2） 了解微机的基本构成和基本配置，微机一般由主机、显示器、键盘等组成。结合实物，认识各部件，学习主机箱面板上各按钮的作用，特别是主机和显示器上开关位置；了解实验所用微机的品牌、档次。 （3） 掌握微机启动方法 ① 冷启动：打开主机面板上的电源开关（标有POWER字样的按钮或开关），系统开始启动，进行自检和引导操作系统。 ② 热启动、RESET复位启动 热启动和RESET复位启动的前提是机器电源已开，为了加快系统的启动过程，所采用的启动方式。 A、 热启动：同时按下CTRL、ALT、DEL键再松开，即可使系统进行热启动。 B、 RESET复位启动：按下主机面板上的RESET键，机器便重新启动。 （4） 熟悉键盘、并学习正确的击键方法 A、 基本键位练习 B、 指法分工击键练习 C、 空格键、回车键输入练习 D、 26个英文字母输入练习 E、 功能键F1—F3的使用练习 三、 注意事项 （1） 热启动时必须注意DEL键的按键方法，按一下就赶快松开，如果按键的时间长了，会使计算机进入系统设置状态，此时屏幕上出现有关系统设置的一此信息，在此情况下，切勿擅自作其它操作，可再按热启动键或RESET复位键重新启动系统 （2） 键盘操作时要坐姿端正，腰背挺直，肩部放松，大臂自然下垂，小臂和手腕自然平抬与键盘成水平，双脚平放 （3） 双手的八个指头一定要分别轻轻放在“ASDF JKL；”8个基准键位上，两面个大拇指轻轻放在空格键上。击键时力量不要过大，指端垂直击向键钮，击键后立即反弹，否则会产生连击 四、 思考题 （1） 计算机机房微机是什么品牌、什么档次的？ （2） 比较计算机冷启动、热启动和复位启动它们之间异同点。 （3） 字符$、&、*、@、＃、％如何通过键盘输入？ （4） 功能键F1—F3的作用是什么？ 实验二、中、英文输入训练 一、 实验目的及要求 a) 进一步熟悉键盘 b) 进行英文盲打训练 c) 熟悉金山打字通打字练习软件的使用 d) 掌握中英文切换、全角半角切换，以及输入法的选择等 e) 初步熟悉五笔字型字根键盘的键位 f) 练习键名汉字、高频字、成字字根的输入方法 g) 熟悉汉字的拆分原则 h) 熟悉二级简码及词组的输入方法 二、 实验内容及步骤 a) 基准键位练习，26个字母键输入练习，大小写混合输入练习，文章输入练习 练习：Ijloq ajquf asdf jkl; Zubjllee nczubbxzci llleee cnWsdsge chddd fewser rwqcdo123 3567#@! *&^3 Having arrived in the United States,an immigrant progabley looks for a joh.Sobetimes friends or relatives find Word 2000 for him before he arrives,If not there are manu things he cando to get Work. b) 中、英文切换、全角半角切换，以及输入法的选择训练。 在Windows状态栏进行中英、文输入切换和输入法选择 c) 五笔字型输入训练： i. 键名汉字的输入方法：将键名所在的键连击四下 ii. 成字字根的输入方法：键名码+ 1、2、末单笔划（不足四码补空格） iii. 键外汉字的输入方法：第1、第2、第3加末字字根编码，若不足四码，补打空格键 iv. 一级简码（高频字）的输入方法：编码键+空格 v. 二级简码的输入方法：第1码+第2码+空格 vi. 两字词的输入方法：各字均取前两码 vii. 三字词的输入方法：前两字各取前一码，后一字取前二码 viii. 四字词的输入方法：各字均取前一码 ix. 多字词的输入方法：前三字及最后一字各取首码 x. 了解“Z”键（万能键或学习键）的用途：若对字根不熟悉，或者难以确定，可以用Z键代替这一未知编码（有重码，再选字上屏） 三、 注意事项 a) 输入中文文章时一般要进入全角状态，全角状态时标点符号占一个汉字宽度。有些标点只有在全角状态时才能打出，如： “、” “。” “《》” “ ” 四、 思考题 a) ESC键通常是用来干什么的？ b) 熟记五笔字型字根助记词。 实验三、Windows 2000基本操作 一、 实验目的及要求 a) 掌握Windows 2000 的启动、运行及退出 b) 了解窗口的图标操作、菜单操作以及对话框操作等 c) 掌握鼠标基本操作，能熟练运用鼠标操作Windows 2000 d) 掌握Windows 2000窗口结构及窗口操作 e) Windows 2000其它一些基本操作 二、 实验内容及步骤 a) 启动Windows 2000:启动Windows 2000非常简单。首先，打开计算机（含显示器）的电源开关。稍候，在屏幕上显示Windows 2000的标志性画面，同时，在屏幕底行将出现不断滚动的水波纹，表明系统开始启动Windows 2000。 b) 退出Windows 2000：鼠标左键单击任务栏上的“开始”按钮，打开“开始”按钮，打开“关闭系统”命令，将弹出“关闭Windows”对话框，用鼠标左键单击“关闭计算机”选项即可。 c) 常用的鼠标操作： 1. 鼠标指向操作：移动鼠标，使鼠标指针指向一位置或一对象。 2. 鼠标单击操作：按下并松开鼠标左键一次。 3. 鼠标右键操作：按下并松开鼠标右键一次。 4. 鼠标双击操作：快速连续两次单击左键。 5. 鼠标拖动操作：按下鼠标左键不放松，再移动鼠标到目标位置，然后松开鼠标左键。 6. 鼠标右键拖动操作：按下鼠标右键不放松，再移动鼠标到目标位置，然后松开鼠标左键。 d) Windows 2000窗口组成及基本操作：一个典型的Windows 2000窗口由如下几个部分组成：标题栏，菜单栏及下拉菜单，最大化、最小化和关闭按钮，水平和垂直滚动条，工具栏和快捷按钮，图标，控制菜单图标，状态栏。基本操作有：窗口的最大化、最小化和关闭操作及窗口移动、大小改变等操作。 e) Windows 2000开始菜单的操作，任务栏的理解，及卓面图标的改变等。 三、 注意事项 a) 当Windows 2000系统出现“死机”现象时，可按CTRL+ALT+DEL键，系统将会弹出“关闭程序”对话框，然后单击“关机”按钮，可以正常关闭Windows 2000系统 b) 当Windows 2000系统没有正常关机，则下次启动计算机时，系统会自动调用磁盘扫描程序检查磁盘错误才能继续启动Windows 2000。 四、 思考题 a) Windows 2000有哪些主要功能和特点？怎么样启动和关闭Windows 2000？ b) Windows 2000有哪些常用的鼠标操作和鼠标指针？ c) 什么是Windows 2000的桌面？Windows 2000的卓面上主要有哪些要素？ d) 如何打开并运行应用程序？ e) “开始”菜单中有哪些选项？它们的功能各是什么？ f) Windows 2000的图标是什么？怎么样建立卓面快捷图标？怎么样删除桌面图标？ 实验四、Windows 2000高级管理操作 一、 实验目的及要求 a) 掌握在MS-DOS方式下及在Windows 方式下对Windows 2000的文件管理。 b) 了解资源管理器，并掌握其基本操作。 c) 文件和文件夹的操作。 d) 掌握Windows 2000附件程序含义及其操作 e) 运用Windows 2000“控制面板”，对其进行各种系统资源设置。 二、 实验内容及步骤 a) Windows 2000的文件管理功能一般通过“我的电脑”和“Windows资源管理器”来完成，也可通过“MS-DOS方式”程序用MS-DOS命令来完成。 i. 进入MS-DOS方式有，方法一：单击“开始”按钮，再单击“程序”选项，就可进入MS-DOS运行方式；方法二：单击“开始”按钮，再单击“关闭系统”对话框，继续单击“重新启动计算机并切换到MS-DOS方式”，可关闭Windows 2000系统，并切换到MS-DOS运行方式。方法三：在启动Windows 2000时，当屏幕上出现启动界面时，迅速按F8键，系统会出现一个启动菜单，按6键选择“COMMAND PROMPT ONLY”,也可启动MS-DOS方式。 ii. 启动“我的电脑”：单击桌面上的“我的电脑”图标，将打开“我的电脑”窗口，在“我的电脑”窗口中将显示系统的所有磁盘驱动器图标及“控制面板”、“打印机”和“拨号网络”等图标。鼠标双击驱动器图标，将打开一个窗口，显示 其根文件夹的内容。双击文件夹图标，将打开一个新的窗口，其中有该文件夹的内容，使用起来十分直观方便。 iii. “Windows 2000资源管理器”是用于管理各种资源的主要工具。运用它，可以对文件和文件夹进行移动、复制、删除、改名和改属性等操作。 b) 文件夹是Windows 2000文件管理的重要工具，文件是用户操作的核心。1、创建新文件夹；2、选定文件或文件夹；3、复制文件或文件夹；4、移动文件或文件夹；5、删除文件或文件夹；6、文件或文件夹改名等到操作。 c) 附件程序：1、“记事本”程序操作；2、“画图”程序的使用；3、其它附件程序如：写字板、CD播放器、计算器、字符映射表等程序的操作与使用。 d) Windows 2000的系统设置：打开“控制面板”窗口，在窗口中以大图标的形式显示出各种系统资源，用鼠标双击这些图标，可以对各种系统资源进行参数设置。如：显示器、鼠标、键盘、字体等进行设置。 三、 注意事项 a) Windows 2000文件系统与MS-DOS文件系统的异同： i. 文件命名方面的异同：MS-DOS的文件名遵循8.3规则，Windows 2000的文件名最多可达255个字符，其中可以有空格，但是不能有以下字符：斜杠（/）、冒号（：）、星号（*）、问号（?）双引号（”）、尖括号（< >）和竖线（|） ii. 文件系统结构方面的异同：MS-DOS文件系统以磁盘为基础，以目录为工具，对文件、目录和设备进行统一管理；Windows 2000文件系统以文件夹为工具对所有系统资源进行统一管理。 四、 思考题 a) Windows 2000的控制面板是什么？其中的图标有何作用？ b) Windows 2000启动盘有何作用？怎么样制作Windows 2000的启动盘？ c) 在Windows 2000中，怎么样进行文件或文件夹的移动、复制、删除和改名等操作的？ d) 在Windows 2000中，文件管理主要有哪些工具？ 实验五、Word 2000文档编辑基本操作 一、 实验目的及要求 a) 掌握Word 2000的启动与退出。 b) 正确认识Word 2000的工作界面。 c) 文档编辑的基本操作。 二、 实验内容及步骤 a) 启动Word 2000有如下几种方法： ① “开始菜单”启动：用鼠标单击“开始”按钮，打开“开始”菜单。再单击“程序选项”，打开“程序”菜单。继续单击“Microsoft Word 2000”选项，可启动Word 2000。 ② “快捷工具栏”启动: 用鼠标单击“Microsoft Word 2000快捷工具栏”中代表“Microsoft Word 2000”的图标，可启动Word 2000。 ③ “桌面快捷图标”启动：如果已在桌面建立Word 2000的快捷图标，则用鼠标双击桌面上“Microsoft Word 2000” 快捷图标，可启动Word 2000。 ④ 文档启动：在桌面上、“文档”菜单中、“我的电脑”窗口中、“Windows 资源管理器”窗口中或“查找”程序的查找结果窗口中等位置，用鼠标双击一个Word 2000文档，可启动Word 2000。 b) Word 2000 主窗口中包含如下内容：1、标题栏，2、菜单栏，3、“常用”工具栏，4、水平标尺，5、文本区，6、垂直滚动条，7、水平滚动条，8、状态栏，9、“格式”工具栏，10、视图按钮。 c) 文档编辑主要操作：新建和打开文档，输入文本，选定文本，插入、删除和修改文本，复制和移动文本，查找和替换文本，撤消和恢复操作，保存文档，插入文档等常用的文档编辑操作。 三、 注意事项 a) “撤消”操作并不是万能的，有些操作不能撤消。例如：用“另存为”命令覆盖了一个文件。 b) 将鼠标指针指向要选定的段落中任意位置，然后快速连续3次单击鼠标左键，可选定该段文本。按住CTRL键，然后在段落内的任意位置单击鼠标左键，也可选定该段落。 四、 思考题 a) 启动Word 2000一般有哪几种方法？怎么样关闭Word 2000？ b) 在Word 2000窗口中有哪些主要组成部分？ c) 在Word 2000中，怎样新建和打开文档？ d) 在Word 2000中，选定文本有哪几种方法？ e) 在Word 2000中，怎样编辑文本？怎样查找文本？ f) 在Word 2000中，用户进行了错误的操作，怎么办？ g) 在Word 2000中，怎样保存文档？怎样给文档加上保密口令？ 实验六、Word 2000文档排版、制表及打印 一、 实验目的及要求 a) 掌握文档的排版和打印 b) 掌握表格制作的基本方法以及对表格处理 c) 学会图形处理与绘图基本操作 二、 实验内容及步骤 a) 文档排版就是按照有关出版行业的一般要求，先设置好文本的字符格式，再对每个段落进行排版，然后设置好页面格式，再通过“打印预览”功能反复调整排版效果，直到满足用户文档的打印需要为止。 b) 字符格式设置：对文本进行字符格式设置，既可使用“格式”工具栏上的快捷按钮，又可使用“格式”菜单中的“字体”选项。 c) 段落排版：对段落进行格式设置，既可使用“格式”工具栏上的快捷按钮，又可使用“格式”菜单中的“段落”选项。 d) 文档打印：用户在打印文档之前，需要先进行“打印预览”，用户可根据“打印预览”调整字符、段落和页面设置，以获取令人满意的打印效果。之后，便函可打印该文档。 e) 表格制作与处理：1、建立表格,一般有两种操作方式，即使用命令和使用工具栏按钮；编辑表格，表格建立之后，用户可对表格进行调整，对表格的行、列进行增、删或改变宽度，对单元格进行合并或拆分；修饰表格，进一步美化表格外观其中操作有对齐单元格、对齐表格、改变表格线、自动套用表格格式。 f) 图形处理和绘图：插入图片、图片调整、图片剪裁、图文混排和绘制简单图形等操作。 三、 注意事项 a) 制作与处理表格时，将鼠标指针置于垂直标尺上下端或水平标尺左右端，当鼠标指针变成了双向箭头形状时拖动鼠标，可以改变页边距。 四、 思考题 a) 在Word 2000中，怎样合并多个文档？ b) 段落缩进有哪几种形式？它们各有何作用？怎样进行设置？ c) “打印预览”有何作用？怎样操作？怎样打印文档？ 实验七、VFP 6.0数据库基本操作 一、 实验目的及要求 a) 掌握VFP 6.0数据库系统的启动与退出 b) 掌握VFP 6.0数据库系统菜单的基本操作与使用 c) 掌握操作VFP 6.0命令窗口方法，以及基本命令使用。 d) 掌握常量和变量的命名与使用 e) 掌握表达式的分类与各表达式的运用。 二、 实验内容及步骤 a) 在Windows“开始”菜单中的程序组中选择“VFP 6.0 for windows”菜单即可。要退出VFP 6.0系统，可在命令窗口中输入QUIT命令，也可在文件菜单中选择退出选项。 b) VFP 6.0数据库系统菜单的操作类似于Windows菜单的操作。 c) 数据库中，常量分为字符型常量、数值型常量、逻辑型常量、日期型常量，注意它们的格式，变量有字段变量和内存变量 i. 给内存变量赋值的简单命令： 格式1：store <表达式> to <内存变量表> 格式2：<内存变量>=<表达式> 练习： ? store 32 to x ,y ,z ?? store .t. to yn,dd ?? a=3*3+5/2 ? store “小芳” to xm 理解其含义。 例1：建立4个变量，分别打印各种计算结果。 任 务 数据库的命令 计算结果 ①建立aa1=12.5 Aa1=12.5 ②建立aa2=15 aa2=15 ③建立aa3="ABCD" aa3="ABCD" ④建立aa4=.t. aa4=.t . ⑤输出aa1是否大于aa2的结果 ? aa1>aa2 .F. ⑥输出是否aa1小于aa2和aa4的结果 ? aa1<aa2.AND .aa1<aa4 .T. ⑦输出aa3 ? aa3 ABCD ⑧输出aa1是否小于aa2的结果 ? aa1<aa2 .T. ii. VFP 6.0数据库的表达式是把常量、变量、函数等用圆括号和运算操作符连接起来有意义的式子。其分为：算术表达式，关系表达式，字符表达式，逻辑表达式。 练习: gl=20 store 65 to gz store “讲师” to zc ? gl>=20 .or. zc<>“讲师” ? gl>=20 .and. zc<>“讲师” ? gl>=25 .or. .not.gz<=100 .and. zc=“讲师” ? gl>=25 .or.gz<=100 .and..not. zc=“讲师” ? (gl>25 .or. gz<=100).and..not.zc=“讲师” 三、 注意事项 a) 给变量命名时，我们一定要遵循命名规则：变量可以是字母、汉字、数字、以及下划线组成，但必须以字母、汉字开头，变量名长度不得超过10个字符。比如：性别，YY,dd_dd等均为合法的变量名；而 ，姓名是非法的变量名。 b) 当不同类型的运算符在同一表达式中出现时，算术、字符串运算符优先于比较运算符；比较运算符优先于逻辑运算符；括号最优先。 四、 思考题 a) 说明下列数据哪些是变量？哪些是常量？是什么类型常量？ “性别” “Y” 34.33 xm “03/12/98” N .N. b) 写出下列符合要求的逻辑表达式 i. 工资高于500且低于是100 ii. 工资高于500的男性 iii. 职称是“讲师”或“教授”，工龄大于20年的非汉族女性。 实验八、VFP 6.0库基本操作 一、 实验目的及要求 a) 掌握数据库库结构的建立，数据的输入、显示等基本操作 b) 掌握数据库结构的修改、数据库记录的修改 c) 掌握数据库的排序与索引文件的建立与使用，数据的分类求知汇总等操作 d) 掌握数据库中的数据的检索方法和数据库中数据的统计方法 二、 实验内容及步骤 a) 数据库结构新建，库文件结构，记录的立即输入，记录的查看，记录的追加，记录的插入，数据库的关闭，记录的显示，记录指针的移动及相关函数的使用。 练习：1、建立数据库文件结构：在命令窗口中键入命令 CREATE GZ 屏幕出现库结构对话框，按下列要求依次输入各字段的字段名、字段类型、字段宽度和小数位数 字段名 类型 宽度 小数位 xm c 8 ks c 6 jbgz n 6 2 bt n 6 2 jj n 6 2 kk n 5 2 存盘：当最后一个字段的内容输入完毕，按CTRL+W键存盘或用TAB键或光标键将鼠标指针移至“确定”按钮按回车，可立即进行记录的输入 xm 李文明 ks 学生科 jbgz 362.00 bt 180.00 jj 92.00 kk 10.00 xm 皮学庆 ks 学生科 jbgz 352.00 bt 180.00 jj 80.00 kk 25.00 xm 盛辉 ks 教务科 jbgz 352.00 bt 180.00 jj 80.00 kk 12.00 xm 李小刚 ks 教务科 jbgz 352.00 bt 180.00 jj 80.00 kk 20.00 xm 王广明 ks 总务科 jbgz 456.00 bt 210.00 jj 60.00 kk 27.00 记录输入完，可以用光标键前后浏览已录入的数据，看是否正确，发现问题进行修改，无误后按CTRL+W存盘，返回命令窗口。 库结构的查看： LIST STRUCTURE DISPLAY STRU ? FCOUNT() ? FIELDS(1) ? FIEL(4) 记录的查看与修改 LIST BROW 记录的追加 用APPEND命令向库中追加如下三条记录： xm 张朝 ks 教务科 jbgz 392.00 bt 190.00 jj 80.00 kk 10.00 xm 陈小美 ks 学生科 jbgz 392.00 bt 190.00 jj 92.00 kk 10.00 xm 刘江富 ks 教务科 jbgz 462.00 bt 310.00 jj 92.00 kk 10.00 插入记录：在“王广明”之后插入以下记录： xm 赵新月 ks 总务科 jbgz 392.00 bt 190.00 jj 80.00 kk 25.00 在命令窗口中输入： DISP ALL GO 5 INSERT 数据库的关闭：1、在同一工作区打开另一数据库的同时，即关闭了当前数据库。2、use 3、close database 4、退出VFP 6.0时，系统自动关闭所有数据库。 b) 库结构的修改：追加、插入、删除一个字段；记录的浏览；记录的删除 练习：库结构的修改：在命令窗口中键入以下命令 USE GZ LIST STRU MODI STRU 追加一个字段： 字段名 类型 宽度 小数位 SFS N 6 2 插入字段在“KK”字段后插入两个新的字段 字段名 类型 宽度 小数位 CX N 3 0 YFS N 6 2 字段数据的替换：在命令窗口中输入命令： LIST GO 3 REPLACE YFS WITH JBGZ+BT+JJ LIST REPL ALL YFS WITH JBGZ+BZ+JJ REPL ALL SFS WITH YFS-KK LIST USE 记录的删除： USE GZ GO 2 DELE LIST DELE ALL FOR JBGZ<390 LSIT ALL DELE ALL FOR KS=”学生科” LIST FOR DELE() RECALL ALL FOR JBGZ<390 LIST FOR DELE() GO 14 RECALL DELE FOR XM=”刘小小” LIST PACK ZAP CLOS DATA c) 对库文件进行升序、降序，建立排序文件，对库文件建立索引文件 1、 排序 ① 对 RSDAK.DBF 数据库按 “GZ”字段升序排列，建立排序文件GZ_01.DBF 并显示其内容： DIR &&观察当前目录下的所有库文件 USE RSDAK SORT TO GZ_01 ON GZ &&按工资升序排列 BROW &&看当前库是否排序 DIR &&观察是否产生 GZ_01.DBF 库文件 USE GZ_01 BROW &&看是否按要求排好序 USE ② 对RSDAK.DBF 按 “GZ”字段降序建立排序文件 GZ_02.DBF ： USE RSDAK SORT TO GZ_02 ON GZ /D && 按工资降序排列 DIR USE GZ_02 BROW USE 2、 索引 对RSDAK.DBF 数据库按 “GZ”字段升序排序，建立索引文件 GZ_03.IDX ，并与排序文件GZ_03.DBF 比较效果： USE RSDAK BROW INDE TO GZ_03 ON GZ && 按 GZ 字段建立名为 GZ_01.IDX 的升序索引文件 BROW && 注意观察效果与上有何不同 DIR *.* && 显示所有文件，观察是否有 GZ_01.IDX 文件 CLOS DATA && 关闭数据库文件 ① 对RSDAK.DBF按“GZ”字段降序排列，建立索引文件 GZ_04.IDX ： USE RSDAK BROW INDE TO GZ_04 ON ―GZ &建立索引时可以在数值字段前加“—”号按降序排列 BROW DIR *.* CLOS DATA 索引文件的打开 ① 建立索引文件时自动起作用 ② 打开库文件后，再打开索引文件 USE RSDAK BROW SET INDE TO GZ_03 && 打开索引文件 BROW && 观察与刚才的区别 USE ③ 打开库文件的同时打开索引文件 USE RSDAK INDE GZ_03 &&打开库的同时打开索引文件 ？ RECN ( ) &&当前记录号是否为1：_______ GO BOTT ? RECN ( ) &&当前记录号为：_______，记录号是否为最大？_______ GO TOP ? RECN ( ) &&当前记录号为：_______ LIST ? RECN ( ) && 当前记录号为：_______ 索引文件的关闭 SET INDE TO &&只关闭打开的索引文件 或 USE && 关闭库文件的同时关闭索引文件 多重排序 ① 对RSDAK.DBF 数据库先按XB 字段升序，性别相同的再按 CSRQ 字段升序排列，建立多重排序文件 RSDAK_XBCSRQ.DBF : USE RSDAK SORT TO RSDAK_XBCSRQ ON XB,CSRQ LIST && 是否有排序效果_________ USE RSDAK_XBCSRQ DISP ALL &&注意观察排序效果 USE ② 对 RSDAK.DBF 数据库先按 GZ 字段降序，工资相同的再按 XM 字段升序排列，建立多重排序文件 RSDAK_GZXM.DBF : USE RSDAK SORT ON GZ /D , XM TO RSDAK_GZXM LIST && 是否有排序效果_________ USE RSDAK_GZXM BROW && 注意观察排序效果 USE 多重索引 ① 对 RSDAK.DBF 数据库按 “XB”和“BH”字段建立多重索引文件 XBBH.IDX USE RSDAK INDE TO XBCSRQ ON XB + BH &&先按性别排序，性别相同的再按编号排序 BROW && 观察索引效果 USE ② 对 RSDAK.DBF 数据库按 “XB”和 “GZ”字段建立多重索引文件 XBGZ.IDX USE RSDAK INDE ON XB + STR(GZ) TO XBGZ &&当字段类型不一致时应将非字符型转换为字符型 DISP ALL &&观察索引结果 USE 主索引文件的改变 打开 RSDAK 数据库的同时打开多个索引文件，观察主索引文件所起的作用。 USE RSDAK INDE GZ_03 , GZ_04 , XBBH , XBGZ BROW &&观察当前起作用的索引文件是__________ SET ORDER TO GZ_04 &&改变主索引，注意主屏幕显示的信息 BROW &&观察当前起作用的索引文件是_______ SET ORDER TO 4 &&再改变主索引，注意主屏幕显示的信息 BROW &&观察当前起作用的索引文件是_________ USE d) 检索 1、 用条件显示命令进行检索 在命令窗口输入以下命令，注意观察分析结果： USE RSDAK LIST FOR XM=’李长贵’ &&列出XM为“李长贵”的记录 LIST FOR XM=’李’ &&列出姓“李”的记录 LIST FOR XM=’李长’ &&列出：_______________的记录 LIST FOR XM=’长贵’ &&结果：_______________ LIST FOR “长”$XM &&列出XM中有“长”字的记录 LIST FOR SUBS(XM, 3 ,2)=”长” &&列出XM中第二个字为“长”的记录。 思考：能否将以上命令中的LIST 改为DISP ？_____________。 2、 用LOCATE 命令进行顺序检索 ① 在 RSDAK.DBF 数据库中找出工资超过300 元的第一条记录 USE RSDAK LOCATE FOR GZ>300 DISP ② 继续查找工资超过 300 元的所有记录 CONTINUE DISP 反复执行上述两条命令，直到屏幕显示“END OF LOCATE SCOPE ”时表示检索范围结束。 ③ 在RSDAK.DBF 库中找出所有1970 年及以后出生的人员，并观察 FOUND( ) 函数的返回值： USE RSDAK LOCATE FOR YEAR(CSRQ) >= 1970 ? FOUND() && 查询记录是否找到 ? EOF() DISP CONT DISP 连续输入CONT 命令，直到检索范围结束。再输入： ？ FOUND() ? EOF() && 找不到时记录指针指向______________ USE 3、 索引检索 ① 先对 RSDAK.DBF 数据库按 GZ 建立索引，再查找工资等于255.20 元的记录： USE RSDAK INDE TO RSDAK_GZ ON GZ FIND 255.20 && 在RSDAK.DBF 中找 工资为 255.20 的记录 DISP SKIP && 找下一条满足条件的记录 DISP 连续输入SKIP 和 DISP 命令，直至显示的记录不符合条件，可结束查找 ？ EOF() && 找不到时记录指针指向__________ ② 先对 RSDAK.DBF 数据库按XM 建立索引，再查找姓名为“李长贵”的记录和第一个姓“李”的记录： USE RSDAK INDE TO RSDAK_XM ON XM FIND 李长贵 && 找叫“李长贵”的记录 DISP FIND 李 && 找姓 “李”的记录 DISP USE ③ 在 RSDAK.DBF 数据库中查找职称为讲师的第一条记录： USE RSDAK INDE TO RSDAK_ZW ON ZW SEEK “讲师” DISP ④ 打开RSDAK.DBF 库及 RSDAK_XM.IDX 索引文件，观察用 SEEK 命令查询内存变量的情况： USE RSDAK INDEX RSDAK_XM QQ=”李长贵” SEEK QQ DISP WW=”李” SEEK WW DISP 连续键入SKIP ,DISP 命令，直到显示的记录不符合条件，可结束查找。 若键入： MZ=”长贵” SEEK MZ 则屏幕显示： no FIND. 思考：为什么找不到：__________________________________ e) 统计与汇总 数据统计（请注意观察主屏幕上的输出信息） ① 记录数统计 USE RSDAK COUNT &&统计总记录数 COUNT FOR GZ>300 &&统计基本工资在300元以上的人数 COUNT FOR ZW=”讲师” .AND. GZ > 300 TO A1 &&统计职称为讲师且工资超过300元的人数，并将结果保存在 A1中 ? A1 ② 数据求和 SUM && 对所有数值型字段纵向求和 SUM BT + JJ && 求 BT + JJ 的总和 SUM GZ,BT,JJ TO B1,B2,B3 FOR ZW=”助教” && 统计职务为助教的所有人员的GZ,BT,JJ总和 ? B1,B2 ③ 求平均值 USE RSDAK AVER &&对所有数值型字段求平均值 AVER GZ,BT TO C1,C2 FOR XB=”男” && 求性别为男所有人员的平均工资和补贴数 ? C1,C2 USE 分类求和 ① 对 RSDAK.DBF 数据库中所有数值型字段按性别字段分类求和（汇总），生成名为 XB1.DBF的新数据库文件。 USE RSDAK LIST STRU &&记下数字型字段的宽度： INDE TO GZ_XB ON XB &&分类汇总前应对数据库按关键字进行排序或索引 TOTAL ON XB TO XB1 &&按XB 进行分类汇总 USE XB1 LIST &&观察分类求和的结果 LIST STRU &&观察汇总后的库结构并注意其中的数值字段宽度是否自动增加了______ USE ② 对RSDAK.DBF 的 BT 及 JJ 两字段按性别分类求和，生成名为XB2.DBF的新数据库。 USE RSDAK INDE GZ_XB TOTAL ON XB TO XB2 FIELD BT,JJ USE XB2 LIST USE 三、 意事项 a) 区分排序与索引。 b) 区分比较FIND与SEEK,LOCATE。 四、 思考题 a) 只打开文件时，记录指针指向几号记录？ b) 排序和索引有何区别？ c) 只打开库文件时，记录指针指向第________号记录； d) 打开库文件的同时打开索引文件，记录指针是否指向1号记录？最后一条记录是否为记录号最大胡记录？ e) 排序和索引有何区别？ f) 用LOCATE 命令进行检索，要索引吗？ g) 如果不索引，FIND 与 SEEK 命令能否正常使用？，如果对一字段建立了索引，而用 FIND 或 SEEK 检查另一字段，能否成功？ 实验九、库文件操作与常用函数 一、 实验目的及要求 a) 掌握数据库库结构的复制 b) 掌握库文件操作的常用命令 c) 熟悉VFP 6.0的常用函数的功能及初步了解数据库的关联 二、 实验内容及步骤 a) 数据库的复制 ① 整库复制 DIR &&看当前目录下的库文件情况 USE GZ01 COPY TO GZLS &&将GZ01库中所有内容复制到库GZLS.DBF中 DIR &&看是否增加了GZLS.DBF 库文件 USE GZLS LIST DELE FILE GZLS.DBF &&欲删除GZLS.DBF，能删除吗？为什么？ USE &&关闭GZLS.DBF DIR &&看GZLS.DBF是否还在 ERASE GZLS.DBF &&删除GZLS.DBF DIR &&看GZLS.DBF是否删除 ② 部分复制 复制部分字段 USE GZ01 COPY TO GZLS1 FIEl XM,KS,JBGZ &&将GZ01中的XM,KS,JBGZ三个字段及其内容复制到GZLS1库中 USE GZLS1 LIST USE 按记录范围复制部分记录 USE GZ01 GO 5 COPY TO GZLS2 NEXT 4 &&将GZ01中的5—9号记录复制到GZLS2库中 COPY TO GZLS3 &&将GZ01库复制到GZLS3库中 USE GZLS2 &&观察复制情况 LIST USE GZLS3 &&观察复制情况 LIST USE 按条件复制 USE ZGDA01 COPY TO DA1 FOR XB=’女’ &&将ZGDA01中的所有女性记录复制到DA1库中 COPY TO DA2 FOR XB=’男’ .AND. KS=’学生科’ &&将ZGDA01中学生科的所有男性记录复制到DA2库中 COPY TO DA3 FIEL KS,XM,JBGZ FOR KS=’实验科’ &&将ZGDA01中实验科人员的KS,XM,JBGZ字段内容复制到DA3库中 USE DA1 && 观察复制情况 LIST USE DA2 LIST USE DA3 LIST USE 1、 复制库结构 ① 全部复制 USE GZ01 COPY STRU TO GZLS &&将GZ01库结构复制到库GZLS中 USE GZLS LIST LIST STRU &&观察有无数据：________ USE RUN DEL GZLS.DBF ② 部分复制 USE GZ01 COPY STRU TO GZLS FIEL XM,JBGZ,SFS &&将GZ01中的XM,JBGZ,SFS三个字段复制到GZLS库中 USE GZLS LIST STRU USE ! DEL GZLS.DBF 3.从其他库中追加数据 USE GZ01 COPY STRU TO GZ1 &&将GZ01库结构复制到GZ11中 COPY STRU TO GZ2 USE GZ1 LIST USE GZ2 LIST APPEN FROM GZ01 FOR KS= ’学生科’ &&将GZ01中满足条件的数据追加到GZ2中 LIST USE DELE FILE GZ1.DBF DELE FILE GZ2.DBF 4.常用函数练习（仔细观察、记录运行结果） ① 数值型函数的练习 CLEAR &&清屏 ? EXP(2) &&指数函数 ? INT(87.26) &&取整函数 ? INT(-87.56) ? ABS(-523) &&取绝对值函数 ? SQRT(16) &&平方根函数 ? ROUND(3245.346,2) &&四舍五入函数 ? ROUND(3245.644,2) ? ROUND(3245.644,-2) ? MAX(432,198,234) &&取最大值函数 ? MAX(‘ABC’,’21’,’WS’) ? MAX(“ABC”,”21”,”WS”) ? MAX([ABC],[21],[WS]) ? MOD(52,5) &&取余函数 ② 字符型函数的练习 ？LEN(‘计算机等级考试’) &&字符串长度函数 ？UPPE(“It is a computer”) &&转换为大写字母函数 ? SUBS(’99计算机等级考试上机辅导教材’，9，8) && 取子串函数 ？AT(‘中心’，“计算机中心”) && 子串位置函数 ？AT(“aa”,“aabbcc”) AA=’五笔字型’ BB=’输入法’ ？AA+BB ? AA+SPACE(2)+BB ③ 日期和时间函数的练习 ？DATE( ) &&系统当前日期 ? TIME( ) &&系统当前时间 ④ 转换函数的练习 ？STR(12345.678 ,8 ,1) && 数值转字符 ? STR(12345.678 ,8 ,2) ? STR(435.76 , 4) ? STR(123.56) ? VAL(‘1234.5’) && 字符转数值 ? VAL(‘abcd’) ? VAL(12ABCD’) ? CTOD(‘04/18/99’) && 字符转日期 ? CTOD(‘04/18/99’)+20 ? CTOD(‘04/18/99’)-5 ? DTOC(date()) && 日期转字符 ⑤宏替换函数“ & ” 的练习 A=12345 B=’A’ ? &B ? B STORE 10 TO B B=’18-8’ ? A+&B S=’DIR’ ? S &S ⑥复合函数 ？ SQRT(VAL(“100”)) ? CTOD(“12/12/98”)+12 M=“今天的日期是：”+DTOC(DATE()) ? M N=“现在的月份是：”+ SUBS(DTOC(DATE()),1,2)+ “月” ? N 1、 多工作区及其使用方法 ①工作区命名及选择 ②数据库的关联 ③ 数据库的更新 ④ 数据库的连接 三、 注意事项 a) 不能删除已打开的数据库文件。 四、 思考题 a) 没有关闭的数据库能否被删除？ b) COPY STRU 在拷贝时，能否将记录一并拷贝？ c) 字符串的定界符除了双引号外还有什么？ d) ROUND( )函数中取的位数为负数时表示什么？(例：ROUND(1234.567,-2) 实验十、VFP 6.0程序设计 一、 实验目的及要求 a) 熟悉VFP 6.0建立程序（命令）文件（扩展名: PRG）的方法，掌握程序的三种基本结构。 b) 学习简单的算法。 c) 记录操作程序与数据检索程序设计初步 二、 实验内容及步骤 a) 顺序程序设计： 求一元二次方程的实数解。 在命令窗口中输入命令：MODI COMM PRG01便进入程序文件编辑窗口，输入如下内容： ＊＊＊PRG01＊＊＊＊＊＊ SET TALK OFF &&关闭控制命令响应 信息的显示 CLEA INPUT “A=” TO A &&给方程的二次项系数赋值 INPUT “B=” TO B &&给方程的一次项系数赋值 INPUT “C=” TO C &&给方程的常数项系数赋值 D=B＊B—4＊A＊C E=SQRT（D） X1=（— B + E）/（2＊A） X2=（— B — E）/(2＊A) ? “X1=”,X1 ? “X2=”,X2 SET TALK ON &&打开控制命令响应信息的显示 输入完毕检查无误后，按CTRL+W存盘，返回到命令窗口，输入： DO ROG01 运行该程序，计算机提示输入数据时，对A、B、C分别输入2、4、-6，计算机输出结果，用笔验算一下，看结果是否正确。 1、 思考：该程序存在什么问题？ 再运行一次该程序，这次分别输入4、2、1，程序运行中止，出现错误信息。： 按回车键后进入PRG01.PRG的编辑窗，可对其进行修改，暂不修改，按ESC键退出，这说明程序不完善，问题出没有对判别式进行判断（负数不能开平方）。 b) 分支程序的设计： 判断并求一元二次方程的实数解 COPY FILE PRG01.PRG TO PRG02.PRG &&PRG01.PRG复制成PRG02.PRG MODI COMM PRG02 按下面内容编辑： ＊ ＊＊＊＊PRG02.PRG＊＊＊＊＊＊＊ SET TALK OFF CLEA INPUT “A=” TO A INPUT “B=” TO B INPUT “C=” TO C D=B＊B—4＊A＊C IF D<0 ? “没有实根” ELSE D=SQRT（D） X1=（—B + E）/（2＊A） X2=（—B —E）/(2＊A) ? “X1=”,X1 ? “X2=”,X2 ENDIF SET TALK ON 运行该程序两次，分别在命令窗口中输入的两次命令： DO PRG02 第一次分别输入4、2、1 第二次分别输入2、4、—6 观察分析程序的运行结果。 c) 循环程序的设计 以上程序在每次运行中只能解一个方程，下面用DO WHILE / ENDDO循环来解多个方程。首先将PRG02.PRG复制成PRG03.PRG,然后按以下内容编辑修改PRG03.PRG： ＊ ＊＊＊＊＊＊PRG03.PRG＊＊＊＊＊＊＊＊＊＊＊＊＊＊ SET TALK OFF DO WHILE .T. CLEA INPUT “A=” TO A INPUT “B=” TO B INPUT “C=” TO C D=B＊B—4＊A＊C IF D<0 ? “没有实根” ELSE D=SQRT（D） X1=（—B + D）/（2＊A） X2=（—B —D）/(2＊A) ? “X1=”,X1 ? “X2=”,X2 ENDIF ANS=”y” @10,10 SAY“还继续求解吗？(Y/N)：”GET ANS PICT “y” READ IF UPPE(ANS)=”N” EXIT ENDIF ENDDO SET TALK ON 运行该程序求三次解，在命令窗口中输入命令：DO PRG03 第一次分别输入4、2、1，得出结果后回答“Y”， 第二次分别输入设备、4、-6，得出结果后回答“Y”， 第三次分别输入0、1、1，会得出什么结果？_____________________，此时回答“N”返回命令窗口。 DO WHILE / LOOP / ENDDO 上面程序的问题出在没有对二次项系数进行检验，将上述程序复制为PROG03_1.PRG，进行如下修改，并运行： ＊ ＊＊＊＊＊＊PRG03_1.PRG＊＊＊＊＊ SET TALK OFF DO WHILE .T. CLEA INPUT “A=” TO A IF A=0 WAIT “二次项系数不能为0，按任意键重新输入！” LOOP ENDIF INPUT “B=” TO B INPUT “C=” TO C D=B＊B—4＊A＊C IF D<0 ? “没有实根” ELSE D=SQRT（D） X1=（—B + D）/（2＊A） X2=（—B —D）/(2＊A) ? “X1=”,X1 ? “X2=”,X2 ENDIF ANS=”y” @10，10 SAY “还继续求解吗？（Y/N）：” GET ANS PICT “y” READ IF UPPE(ANS)=”N” EXIT ENDIF ENDDO SET TALK ON d) 记录操作程序与数据检索程序设计 追加记录程序设计（要计算的字段：YFS与SFS不列出，追加完毕后用替换命令填入） SET TALK OFF CLEAR USE GZ APPE FIEL XM,KS,JBGZ,BT,JJ,KK REPL ALL YFS WITH JBGZ+BT+JJ,SFS WITH YFS-KK DISP ALL USE SET TALK ON RETURN 数据查询程序设计 SET TALK OFF CLEAR USE GZ DO WHILE .T. ACCE “请输入要查询的姓名：” TO NAME LOCA FOR SM=NAME IF .NOT.FOUND() CLEAR ? “无此记录” ELSE DISP FOR XM=NAME ANS=”y” @24,1 SAY “继续查询吗？ (Y/N):” GET ANS PICT “Y” READ IF ANS$”nN” EXIT ENDIF CLEAR ENDDO USE CLEAR SET TALK ON RETU 三、 注意事项 a) 分支程序设计与循环程序设计时要注意它们之间的嵌套。 四、 思考题 a) 求 1+2+3+……+1000的和 。 b) 求 2+4+6+……的和，一直加到和大于1000 为止。 c) 求能整除6688的所有正整数（含1和6688）的个数。 d) 求 1-1/3+1/5-1/7+……+1/37-1/39的和。 e) 某工厂去年产值10亿3千万元，以年平均7.5％的增长率，要多少年才能达到年产值20亿元。 f) 有一个数列，前三个数为0、0、1，以后的每一个数是其三个数之和，求这个数列的前20项之和。