表单和控件.doc

课程名称：VFP程序设计基础
VFP数据库与程序设计
作业与实验报告
（第九章 表单和控件）
学号: 13413337
姓名： 罗祖斌
专业： 国贸131
教师: 朱 莹 莹
2014年5月
第九章 表单和控件及其应用
【实验题目一】”欢迎”和“登录"表单
【实验目的】通过本次实验让学生掌握表单的创建方法、表单常用属性设置及事件代码的编写；掌握标签、文本框和编辑框等控件的常用属性和方法.【运行界面参见实验教材P145的实验9.1.】
【实验准备】
1.复习创建表单的方法及标签、文本框控件的常用属性和方法。
2.启动VFP6。0,将“我的VFP实验作业"文件夹设置为默认工作目录。
【实验内容及实验步骤】
1。打开表单设计器.
步骤:单击菜单栏的【文件】—【新建】菜单命令，在弹出的“新建"对话框中，文件类型选择 表单 ，再单击“新建文件"即可以创建一个新表单。
2。添加相关表单控件。
步骤：在“表单控件”工具栏中选择 标签 标签后在表单上单击鼠标，就可以添加一个标签对象，按照此方法再添加一个“标签”和一个“命令按钮”对象.
3.设置各个对象的属性并保存表单为"欢迎.scx”。【提示：对象的属性请看实验教材P146的表9—6】
4。编辑事件代码并运行表单.
1)步骤:要在Label2对象中显示系统日期,可以在form1的init事件中键入如下代码：
SET DATE TO YMD
SET MARK TO ‘-’
THISFORM.Label2.Caption= dtoc（date(））
2）运行表单
运行表单的方法有三种,请写出用运行表单的命令。
Do form 欢迎
5.添加该表单至项目文件中。
步骤:打开“jxgl”项目，在 文档 选项卡中选择“表单",再单击 添加 按钮,然后选择“欢迎.scx”就可以将其添加到项目中。
6.在jxgl项目中创建表单“登录。scx”,该表单实现的功能如实验教材P147所述.
步骤：打开“jxgl”项目，选择“表单”-——“新建”按钮，在“创建"对话框的文件名中输入表单名 登录 .
7．参照实验教材P147的图9-5（a\b)，在表单中添加两个标签控件、两个文本框控件和两个按钮控件，并设置表单中各对象的属性。
8．编写事件代码。
l 在表单中的init事件中键入代码如下：
Public n
n=0 &&用于用户错误登录的计数
thisform。text2.enabled= .F. &＆设置其为不可用状态
thisform。text1。setfocus ＆＆用户名文本框获取焦点
l 在用户名文本框（TEXT1）对象的keypress事件中键入代码，实现“若text1非空,且按下回车键，则激活text2对象”功能:
If nkeycode=13 。and。 ！empty（thisform.text1.value）
Thisform。text2。enabled=。t。
Endif
l 在“登录”按钮(command1）对象的click事件中键入代码,实现系统检查用户名和密码功能，判断是否可以成功登录，若登录失败则释放表单：
If alltrim（thisform.text1.value）="tom” 。and。 alltrim（thisform。text2。value）="123"
messagebox(”登录成功”,0,"提示”)
else
n=n+1
if n〉=3
messagebox("连续三次登录失败，再见”，16,”提示")
inkey(2) ＆&延时两秒钟
thisform.release ＆&释放当前表单
else
thisform。text1.value="”
thisform.text2。value="" ＆＆文本框清空，重新登录
endif
endif
9．保存并运行表单，编写“关闭”按钮的click事件，实现表单的关闭功能，事件代码如下： thisform.release
10．打开“欢迎”表单，在“登录"按钮的click事件中编写代码如下,实现将两个表单连接起来，并释放“欢迎”表单。
DO FORM 登录
Thisform。release
=============================================================================
【实验题目二】信息浏览及维护功能表单的设计与实现
【实验目的】掌握一对多表单的设计方法【运行界面参看实验教材P151的图9—6.】；掌握“记录导航”表单的设计方法【运行界面参看实验教材P151的图9-7。】;初步掌握信息浏览、添加、删除的方法【运行界面参看实验教材P152的图9-8.】。
【实验准备】
1.复习表记录指针移动命令的使用和命令按钮组控件的常用属性和方法。
2。准备好实验所需要的项目、数据库和表.
3.启动VFP6。0，将“我的VFP实验作业”文件夹设置为默认工作目录。
【实验内容及实验步骤】
一、一对多表单的设计
按照实验教材P150的“1。利用表单向导，创建一对多表单"提供的实验步骤，创建并保存表单“学生成绩浏览”，并将表单设计界面和运行界面截图粘贴此处：
二、记录导航表单的设计
按照实验教材P150的“2.创建表单，实现记录导航的功能”提供的实验步骤,创建并保存表单“记录导航”。
1。创建表单 记录导航。SCX.
步骤： 打开项目jxgl，在项目管理器中创建表单，并命名为 记录导航。scx 。
2．在表单设计器中右击表单，在弹出的快捷菜单中选择“数据环境”菜单项,把xs。dbf添加到表单的数据环境中去。
3．设置表单的caption属性值为“学生信息浏览"。
步骤:在表单的属性窗口中选择“全部"选项卡，在其中找到caption 属性,输入值 学生信息浏览 。
4．在数据环境中， 把学生表中的相关字段拖放到表单相应位置上.添加“命令按钮组”控件，使用鼠标右击操作选定“生成器”，在“按钮”选项卡中修改按钮数目为4,并修改相应按钮的caption属性值，依次是“第一条",“最后一条”,“下一条”,“上一条"。同时在“布局"选项卡中修改按钮的布局。
5。编写该“命令按钮组”的click事件。
步骤:选定该“命令按钮组"控件，右击鼠标在弹出的菜单中选择“代码"菜单项,打开代码编辑窗口，在代码编辑窗口的“过程”下拉列表中选择Click事件，即可在代码编辑窗口中输入如下代码：
Do case
Case this。value=1 ＆＆选中“第一条”按钮
Go top ＆&定位表的第一条记录
This。command3。enabled=。T.
This。command4。enabled=.f.
Case this.value=2 ＆＆选中“最后一条”按钮
Go bottom &＆定位表的最后一条记录
Tmand3.enabled=.f。
Tmand4.enabled=。t。
Case this。value=3 &&选中“下一条”按钮
If !Enf() &＆判断是否到文件尾
Skip 1
Else
Go bottom
Endif
Tmand4。enabled=。T.
Case this.value=4 &&选中“上一条”按钮
If ！Bof(） &&判断是否到文件头
Skip -1
Else
Go top
Endif
This。command3。enabled=。T。
Endcase
Thisform。refresh &＆刷新显示
6。保存运行表单,实现记录导航功能。
三、信息维护表单的实现
按照实验教材P152的“3.创建表单，实现信息维护的相关功能”提供的实验步骤，修改表单“记录导航”并保存为“学生信息维护”表单,实现在表文件尾添加新的记录，并能够逻辑删除表中的相应记录.
1.打开“记录导航.SCX”文件，添加两个命令按钮“添加"和“删除"。并设置其相应属性:
步骤： 在command1命令的caption 属性值输入 添加 可以使得按钮显示为；同理输入“删除”按钮的caption属性值，使得按钮显示为.
2。将表单另存为“学生信息维护.scx”,并将表单caption属性值设置为“学生信息维护”.
3．在“添加”按钮的click事件中编写代码：
Append blank
Thisform。refresh
4。在“添加”按钮的click事件中编写代码：
Yn=messagebox(“是否确定删除?”,4+32，”信息窗口”) &＆弹出“信息窗口”，包含“是"和“否”按钮
If yn=6 &＆点击了“是"按钮,返回值6;“否"按钮,返回值7
Delete &＆逻辑删除当前记录，
Messagebox(“记录删除成功!")
Thisform。refresh
Endif
5。最后保存表单并运行，分别单击“添加”和“删除”按钮，观察表中记录的变化。
评阅时间：
6
常州大学 怀德学院