vfp课程设计实验报告

江苏师范大学

《数据库原理及应用》

实验报告

实验名称：班级情况数据库

班级：

姓名：

学号：

实验日期：2014年1月9日

指导教师：吴庆忠

江苏师范大学测绘学院

一、实验目的及意义

通过这次数据库应用系统开发实践，我相信本人对数据库应用系统开发有了更深、更具体的认识，也有了很多体会。

我们进行本次课程设计的主要目的是通过上机实践操作，熟练掌握数据库的设计、表单的设计、表单与数据库的连接、SQL语言的使用和了解它的功能：数据定义、数据操纵、数据控制，以及简单VF程序的编写。基本实现学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除，并对Visual FoxPro6.0的各种功能有进一步的了解，为我们更进一步深入的学习奠定基础，并在实践中提高我们的实际应用能力，为我们以后的学习和工作提供方便，使我们更容易融入当今社会，顺应知识经济发展的趋势。

这次设计的体会大概就是这些了，到最后还是有一些问题解决不了，看来数据库设计系统也不是那么简单的一件事，所以以后自己一定得加强这方面知识的巩固和学习，多与同学交流，多向老师请教。

二．实验要求以及目的

1．要养成使用项目管理器进行系统开发的良好习惯，合理设置开发环境和工作目录，文件目录明确有序；

2．数据库内容丰富，至少要由3张以上的表构成，子表的记录数不少于200条，主表的记录数不少于50条，且表间主次关系明确；

3．应创建具有各种实际功能的表单，表单个数不少于10个，其中必须有一个主表单；

4．创建具有不同用途、信息丰富的报表，报表个数不少于3个；

5．设计一个界面友好、功能丰富的应用菜单，至少要有4个下拉菜单，菜单项数不少于10个，要有一个系统退出菜单；

6．设计一个系统登录表单和主文件；

7．系统连编通过，且能够生成可执行文件；

8．开发的数据库应用系统能够正确运行；

9．撰写设计性实验报告；

10．以班级为单位，将每位同学开发的数据库应用系统汇总后刻录一张光盘，以作备案存档。

三、实验内容

通过该系统可以基本实现班级信息的管理

四、实验步骤

1.登入界面的制作流程制作

制作步骤如下：

一、新建表单，将表单的caption属性值设置为“系统登录”，ShowWindow属性值设置为“2-作为顶层表单”，width属性值设置为295，height属性值设置为100，AutoCenter属性值设置为，并将表单保存为“系统登录.scx”。

二、继续设置该表单的属性：将表单的MaxButton及MinButton属性值均设置为.f.，这样就屏蔽掉了表单的最大化和最小化按钮，成为只有一个关闭按钮的对话框。

三、向表单添加两个label控件，将它们的caption属性值分别设置为“用户名”和“密码”。

四、向表单添加两个文本框控件，并将其中的Text2的PasswordChar属性值设置为“*”。

五、向表单添加两个命令按钮command1和command2，将它们的caption属性值分别设置为“确定”和“退出”。

六、适当调整各控件在表单上的位置及大小，调整后的表单设计器如下图：

七、右击表单空白处，选“数据环境”命令，将“管理”表添加到表单的数据环境中。

八、添加事件代码：（一）表单的init事件代码： public cn &&声明全局变量,用于计算登录次数 cn=0 (二) 表单的unload事件: close all

clear events quit （三）接收用户名的文本框Text1的KeyPress事件代码： LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode=13.and.!empty(this.value) &&输入用户名后按回车即进入输密码 thisform.Text2.enabled=.t.

thisform.Text2.setfocus endif （四）“确定”按钮command1的click事件代码： cname=alltrim(thisform.text1.value)

ppassword=alltrim(thisform.text2.value) cn=cn+1 if cn=3 thisform.release endif set exact on go top locate for 操作员姓名

=cname.and.密码=ppassword if eof() messagebox('用户名或密码错误，请重新输入！','系统提示') return else

thisform.visible=.f. do form 主表单 &&调入主界面表单 endif set exact off &&设置字符非精确比较（五）“退出”按钮command2的click事件代码：thisform.release

1，可以通过命令创建，CREATE TABLE命令；2，可以通过菜单上的‘新建’，3，可以通知工具栏中的第一个按钮来实现，（其实它也是‘新建’所包含的）

2，

1）选定菜单命令“工具|向导|表单”，即显示“向导选取”对话框）→在列表中选定“一对多表单向导”选项，即出现“一对多表单向导”对话框→以“订货”数据库的“订单”表为父表并选用全部字段→以“订单明细”表为子表并选用货

号和

数量

字段

→单

击

“完

成”

按

钮，，

接着

在“完成”对话框中选定“保存表单并用表单设计器修改表单”选项按钮（参阅主教材图6.5），然后将表单文件取名为“11测绘学生成绩”。保存后表单设计器参照图2.6.2缩小表格，移动对象

4.创建报表

用“报表向导”创建简单的单表或多表报表。

用“快速报表”从单表中创建一个简单报表。

用“报表设计器”修改已有的报表或创建自己的报表。

以上每种方法创建的报表布局文件都可以用“报表设计器”进行修改。“报表向导”是创建报表的最简单途径，它自动提供很多“报表设计器”的定制功能。“快速报表”是创建简单布局的最迅速途径。如果直接在“报表设计器”内创建报表，“报表设计器”将提供一个空白布局。

修改布局

如果已有一个空白报表或标签，或者已通过向导或“快速报表”生成了一个不算很符合要求的报表，下一步就可以在“报表设计器”中修改它

5.创建查询

创建查询的方法有两种:一是使用查询向导,二是使用查询设计器。

使用查询设计器创建查询的基本步骤:

①启动查询设计器②添加表③设置表间关联④选择显示字段⑤设置筛选记录条件⑥排序,分组查询结果⑦设置查询输出类型

使用查询向导创建查询：

开待查询的数据表②从文件菜单中单击新建③在新建对话框中选择查询并单击向导④选择查询向导⑤从单张或多张相关的表中进行字段选取⑥设置筛选条件⑦设置排序次序⑧选择查询结果的保存方式⑨给出查询文件名并选择保存位置⑩查询结果显示在查询窗口中

6.报表设计

①打开“报表向导”:在“项目管理器”的“全部”或“文档”选项卡中，选择“报表”，单击“新建按钮”，弹出“新建报表”对话框。在该对话框中，单击“报表向导”按钮，弹出“向导选取”对话框。在vfp中，提供两种不同的报表向导：一是“报表向导”，针对单一的表或视图进行操作;二是“一对多报表向导”，针对多表或视图进行操作。我们根据具体情况，选择相应的向导。这里假设我们操作的是单一的表，所以选择“报表向导”，系统会按步骤弹出一系列对话框。

②字段选取。在这个对话框中，选择要在报表中输出的字段。首先，单周“数据库和表”列表框右侧的按钮选择报表的数据源，然后选择所需的字段。

③分组记录，在此对话框中，如果需要，可设置分组控制，最多设置三级分组。在选定一个字段后，单击“分组选项”按钮，打开“分组间隔”对话框，设置分组是根据整个字段还是字段的前几个字符。

④选择报表样式，在此对话框中，可以设置报表的样式，有经营式，账务式，简报式，带区式和随意式5种。

⑤定义报表布局，在此对话框中，可以通过对“列数”,字段布局，“方向”的设置来定义报表的布局。其中，“列数”定义报表的分栏数;“字段布局”定义报表是列报表还是行报表;“方向”定义报表在打印纸上的打印方向是横向还是纵向。

如果在向导的步骤二设置了记录分组，则此处的“列数”和“字段布局”是不可用的。

⑥排序记录，在此对话框中，可设置排序的字段，最多设置3个。

⑦完成，这一步可设置报表的标题，可在离开报表向导前预览报表，可以选择退出报表向导的方式。

7.表单设计

表单分析

以VF6.0表单设计开发的“网站管理系统数据库及其人员信息表记录修改表单”，它是网站工作人员进行网站人员信息管理的好帮手。此外，通过对该系统的设计可以更进一步清楚数据库表单设计是如何实现的，掌握它可以设计出自己满意的应用程序。此系统设计简单、有实用性，通过该表单我们可以熟悉表单设计器工具，逐步熟练使用各种控件、技术和手段，熟练掌握总体设计、数据库设计、表单设计，表单能够实现预定的功能，运行稳定，操作方便，唯一不足的地方就是整个各个环节都要求我们自己动手，并且命令程序过于繁杂。

设计步骤：

①在项目管理器中，文档－>表单－>新建。

②设计属性有Caption AutoCenter Height Width WindowType Icon③添加各标签、文本框，设定文本框与源表中源字段的绑定有代码的写代码，如属性InteractiveChange Event 当用鼠标或键盘修改控件的值时发生的事件

④创建命令按钮

在设计表单时，一般应考虑一下原则：

从用户的角度设计表单，即使用用户熟悉的控件、术语和处理方法来设计表单。

表单的外观、操作与Windows中常见的窗口/对话框应尽可能地一致，使表单尽可能地简单、易操作。例如，使用命令按钮来响应用户的单击动作，而不是响应用户的双击动作等。

应用程序中的表单界面应尽可能的保持一致。

根据任务的不同，设计不同的表单和表单中的控件，以便于用户的使用。

根据表单中控件的数量、所表达的数据性质等，设计表单中控件的布局或表单中包含的页面数。

对于用户操作表单不要有过多的限制，应允许用户的一些错误操作，并能做出相应的处理，即具有一定的容错能力。

四、实验代码

一、数据库的建立、打开、关闭和删除

建立数据库:

CREATE DATABASE [databasename|?]

从磁盘中删除数据库:

DELETE DATABASE databasename|?

打开数据库：

OPEN DATABASE [EXCLUSIVE|SHARED][NOUPDATE]

打开数据库设计器（允许用户按交互方式编辑当前数据库）：

MODIFY DATABASE [databasename|?]

指定的数据库databasename为当前数据库。

指定当前的数据库：

SET DA TABASE TO [databasename]

Databasename必须为已经打开的数据库。如果省略数据库名称databasename，则不指定当前数据库（没有当前数据库）。

关闭数据库：

CLOSE DATABASE [ALL]

关闭当前数据库，如果带ALL子句，则关闭所有打开的数据库。

二、数据表和视图的建立、打开、关闭和删除

建立数据表（SQL命令）：

CREATE TABLE | DBF tablename (Col_name1 Type1 [NOT NULL/NULL]

[{,Col_name2 Type2 [NOT NULL/NULL]}...])

table_name是所创建的数据表的名字。

Col_name1,Col_name2,...是表中列的名。

Type1, Type2...是相应列的数据类型（VFP的数据类型见表3-9）。

如果说明为NOT NULL，则列中不允许分配空值（这种情况下，列不能包含空值，如果插入空值，将返回错误信息）。

向当前打开的数据库中添加数据表：

ADD TABLE tablename|?

从当前打开的数据库中删除数据表：

REMOVE TABLE tablename|? [DELETE]

如果包含DELETE子句，将从磁盘中删除这个表文件，否则，只从数据库中删除，但文件仍保存在磁盘中。

在当前打开的数据库中建立视图：

CREATE SQL VIEW viewname AS SELECT ……

其中SELECT ……为SELECT语句。

执行这个语句时，如果没有打开的数据库，则建立独立的视图，这样的视图不能存储。

从当前打开的数据库中删除视图：

DELETE VIEW viewname

打开一个表：

USE tablename|? [IN 工作区号]

将当前数据表与另一数据表连接后建立一个新表：

JOIN WITH 工作区号|表别名 TO tablename FOR 条件 [FIELDS 字段名表]

三、数据表和表结构的编辑、修改

打开浏览窗口（可在其中编辑数据表）：

BROWSW（详细格式见P. 114~116）

打开并修改数据表中的字段：

(1) CHANGE [FIELDS 字段名列表]

(2) EDIT [FIELDS 字段名列表]

这两个命令的功能相似，可选子句较多（详见手册）。

数据表改名：

RENAME TABLE tablename1 TO tablename2

其中数据表tablename1必须存在且未打开。

视图改名：

RENAME VIEW viewname1 TO viewname2

其中数据表tablename1必须存在且未打开。

修改数据表结构（SQL命令）：

ALTER TABLE tablename ;

ADD 字段名 Type [NULL | NOT NULL]

[,字段名 Type [NULL | NOT NULL] ;

[ALTER COLUMN字段名Type {NULL | NOT NULL}];

[{,字段名Type NULL | NOT NULL}...] ;

[DROP字段名[,字段名[, ...]]

将当前表与另一表之间建立关联：

SET RELATION TO [表达式1 INTO 工作区号1 | 表别名1]；

[, 表达式2 INTO 工作区号2 | 表别名2] [, ...]

建立关联的两个表必须事先已按关联表达式进行索引排序。

在当前表与另一表之间建立一对多关联：

SET SKIP TO表别名1[, 表别名2]

消除当前表与另一表之间的关联：

SET RELATION OFF INTO 工作区号 | 表别名

四、数据表中数据操作（查询、插入、删除和修改等）

数据查询SELECT语句（SQL命令）

格式见教材的有关章节。这是本课程的重点内容，必须很好地掌握。

更改数据表中的记录：

REPLACE 字段1 WITH 表达式1[ADDITIVE]；

[,< [,<字段2> WITH <表达式2>[ADDITIVE],…]；

[FOR 条件1][WHILE条件2]

其中的ADDITIVE子句适用于备注字段，表示将表达式的值加在字段的末尾。

用内存数组的值更新数据表中的记录：

REPLACE FROM ARRAY数组名 [FIELDS 字段名列表][常用子句]

用新的值更新表中的记录（SQL命令）：

UPDA TE [databasename!]tablename;

SET Column_1=Expression1 [{Column_2=expression2}...] ;

[WHERE Condition]

用一个表中的数据更新当前指定工作区中打开的表：

UPDA TE ON fieldname FROM filename;

REPLACE fieldname1 WITH expr1

[, fieldname2 WITH expr2 [, ...]]

给记录加删除标记（SQL命令）：

DELETE FROM [databasename!]tablename;

[WHERE 条件]

给记录加删除标记：

DELETE [范围] [FOR 条件] [WHILE 条件]；

[IN 工作区号|表别名]

永久删除加了删除标记的记录：

PACK

永久删除打开的数据库中加了删除标记的记录：

PACK DATABASE

去掉删除标记(恢复)

RECALL [常用子句]

删除一个表中所有记录（保留表的结构）：

ZAP [IN tablename|alias]

为数据表文件追加记录：

APPEND [BLANK][IN 工作区号|别名]

从另一个文件中提取数据添加到当前数据表的尾部：

APPEND FROM filename|? [FIELDS 字段名列表][ FOR 条件]

其中filename所指定的文件可以是数据表、EXCEL电子表格、文本文件等，如果不是数据表，需要其它子句指定格式（详见手册）。

用内存数组的值添加到当前数据表的尾部：

APPEND FROM ARRAY arrayname [ FOR 条件][FIELDS字段名列表]

数据中的一行对应一个新记录，一列对应一个字段。

从一个文件输入一个OLE对象放入一个通用（general）字段：

APPEND GENERAL 通用字段名 [FROM filename]

如果省略子句FROM filename，则将指定的字段清空。

将一个文本文件的内容拷贝到一个备注字段：

APPEND MEMO 备注字段名 [FROM filename][OVERWRITE]

如果省略子句FROM filename，则将指定的字段清空。

插入新记录（在当前记录之前或后插入）：

INSERT [BLANK] [BEFORE]

如不省略BLANK，则插入一个空白记录，且不显示输入窗口。

在表中插入新记录并赋值（SQL命令）：

INSERT INTO tablename [(字段1 [, 字段2, ...])]V ALUES (eExpression1 [, eExpression2, ...]) 或

INSERT INTO tablename FROM ARRAY ArrayName | FROM MEMV AR

如带有FROM MEMV AR子句，则用同名的内存变量给字段赋值。

清除当前记录中字段的数据：

BLANK [常用子句]

移动记录指针：

SKIP [n] [IN 工作区号|表别名]

五、文件管理(文件和文件夹的复制、创建和删除)

从当前表复制出表或其它类型的文件（表须打开）

COPY TO filename [FIELDS 字段名列表] [常用子句] [其它子句]

如果没有指定类型，则复制一个与当前的表相同的数据表。

复制表的结构

COPY STRUCTURE TO filename [FIELDS字段名列表]

复制任何文件：

COPY FILE 源文件 TO 目的文件

如果用此命令复制表，表须关闭

从磁盘上删除任意文件：

（1）ERASE filename|?

（2）DELETE FILE [filename|?]

任意文件改名（或文件移动到另一文件夹）：

RENAME filename1 TO filename2

其中filename1和filename2都可以包含路径。如二者不在同一文件夹，则将filename1移动到filename2所在的文件夹。

显示一个文件夹中的文件信息：

DIR | DIRECTORY [ON drive]

从磁盘上删除一个文件夹：

RD | REDIR 文件夹名

在磁盘上建立一个文件夹：

MD | MKDIR文件夹名

六、数据的复制与传送

单个记录与数组间的数据传送

当前记录→数组或内存变量：

SCATTER [FIELDS字段名列表][MEMO]TO 数组名 [BLANK] | MEMV AR [BLANK]

其中[BLANK]表示建立一个空元素的数组。如果用MEMV AR子句，则表示将各字段的值复制到同名同类型的内存变量。

如果包含MEMO子句，则备注字段一起复制。

数组或内存变量→当前记录

GA THER FROM 数组名 | MEMV AR [FILEDS字段名列表] [MEMO]

用同名的内存变量或数组中的第一行置换当前记录，如果数组为多行的二维数组，也只用第一行。

成批记录与数组间的数据传送

表→数组：

COPY TO ARRAY arrayname [常用子句]

数组→表：

(1) APPEND FROM ARRAY arrayname [ FOR 条件][FIELDS字段名列表]

用内存数组的值加在数据表的尾部，数据中的一行对应一个新记录，一列对应一个字段。

(2) REPLACE FROM ARRAY数组名 [常用子句]

用内存数组的值更新数据表中符合条件的记录。

查询结果→数组：

SELECT …… INTO ARRAY arrayname

将SQL SELECT语句的查询结果传给数组arrayname。这里“SELECT ……”可为各种形式的SELECT查询语句。

给内存变量赋值：

STORE 表达式 TO 变量名

或

变量名=表达式

七、排序与索引

将当前表排序后建立一个新数据表：

SORT TO 文件名 ON 字段名1 [/A | /D] ;

[/C] [ 字段名2 [/A | /D] [/C] ...];

[ASCENDING | DESCENDING] [常用子句];

建立单索引文件：

INDEX ON 表达式 TO 单索引文件名;

[FOR<条件>] [UNIQUE] [COMPACT];

[ASCENDING][DESCENDING][ADDITIVE]

建立复合索引文件：

INDEX ON 表达式 TO TAG 索引名 [OF 复合索引文件名];

[FOR 条件] [UNIQUE|CANDIDA TE];

[ASCENDING][DESCENDING][ADDITIVE]

使用索引文件：

打开表时将索引文件一并打开，USE命令带INDEX子句：

USE tablename|? [IN 工作区号][INDEX 索引文件名列表|?]

给当前表打开一个或多个索引文件：

SET INDEX TO［索引文件名列表|?］；

[ORDER 索引文件名序号|索引文件名|[TAG]索引名 [OF 复合索引文件名] ; [ASCENDING][DESCENDING]］

指定字符字段在排序或索引时的整理系列：

SET COLLATE TO 整理系列

对于汉字字符串，“整理系列”可以是“Machine”、“PinYin”或“Stroke”三者之一（必须带引号），分别表示按机器码、拼音和笔划排序。

指定当前表中的控制索引文件或标记：

SET ORDER TO；

[索引文件名序号|索引文件名|[TAG]索引名 [OF 复合索引文件名]；

[IN 工作区号|表别名]；

[ASCENDING][DESCENDING]

删除索引

DELETE TAG ALL [OF 复合索引文件名]

DELETE TAG 索引标识1 [OF 复合索引文件名1]；

[,索引标识2 [OF 复合索引文件名2]]…

八、查找和定位

顺序查找当前表中满足条件的第一条记录：

LOCATE FOR 条件下[范围][WHILE条件]

找到后将记录指针定位在满足条件的第一条记录，且函数FOUND()的返回值为真。

在索引表中查找：

FIND cExpr

其中cExpr为字符串表达式。如果找到，则记录指针定位在满足条件的第一条记录，且函数FOUND()的返回值为真；查找失败时，FOUND()的返回值为假，记录指针定位在文件尾。

在索引表中查找：

SEEK eExpr;

[ORDER 索引文件名序号|索引文件名|[TAG]索引名 [OF 复合索引文件名] ; [ASCENDING][DESCENDING]］;

[IN 工作区号|表别名]

如果找到，则记录指针定位在满足条件的第一条记录，且为真；查找失败时，FOUND()的返回值为假，记录指针定位在文件尾。

继续查找：

CONTINUE

用LOCATE、 FIND或 SEEK查找到一条记录后，用CONTINUE继续查找下一条。