表单和控件.doc

课程名称：VFP程序设计基础VFP数据库与程序设计作业与实验报告（第九章 表单和控件）学号: 13413337 姓名： 罗祖斌 专业： 国贸131 教师: 朱 莹 莹 2014年5月第九章 表单和控件及其应用【实验题目一】”欢迎”和“登录表单【实验目的】通过本次实验让学生掌握表单的创建方法、表单常用属性设置及事件代码的编写；掌握标签、文本框和编辑框等控件的常用属性和方法.【运行界面参见实验教材P145的实验9.1.】【实验准备】1.复习创建表单的方法及标签、文本框控件的常用属性和方法。2.启动VFP6。0,将“我的VFP实验作业文件夹设置为默认工作目录。【实验内容及实验步骤】1。打开表单设计器.步骤:单击菜单栏的【文件】【新建】菜单命令，在弹出的“新建对话框中，文件类型选择 表单 ，再单击“新建文件即可以创建一个新表单。2。添加相关表单控件。步骤：在“表单控件”工具栏中选择 标签 标签后在表单上单击鼠标，就可以添加一个标签对象，按照此方法再添加一个“标签”和一个“命令按钮”对象.3.设置各个对象的属性并保存表单为欢迎.scx”。【提示：对象的属性请看实验教材P146的表96】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（ab)，在表单中添加两个标签控件、两个文本框控件和两个按钮控件，并设置表单中各对象的属性。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。Endifl 在“登录”按钮(command1）对象的click事件中键入代码,实现系统检查用户名和密码功能，判断是否可以成功登录，若登录失败则释放表单：If alltrim（thisform.text1.value）=tom” 。and。 alltrim（thisform。text2。value）=123messagebox(”登录成功”,0,提示”)else n=n+1 if n=3 messagebox(连续三次登录失败，再见”，16,”提示) inkey(2) &延时两秒钟 thisform.release &释放当前表单 else thisform。text1.value=” thisform.text2。value= 文本框清空，重新登录 endifendif9保存并运行表单，编写“关闭”按钮的click事件，实现表单的关闭功能，事件代码如下： thisform.release 10打开“欢迎”表单，在“登录按钮的click事件中编写代码如下,实现将两个表单连接起来，并释放“欢迎”表单。 DO FORM 登录 Thisform。release=【实验题目二】信息浏览及维护功能表单的设计与实现【实验目的】掌握一对多表单的设计方法【运行界面参看实验教材P151的图96.】；掌握“记录导航”表单的设计方法【运行界面参看实验教材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。EndcaseThisform。refresh &刷新显示6。保存运行表单,实现记录导航功能。三、信息维护表单的实现按照实验教材P152的“3.创建表单，实现信息维护的相关功能”提供的实验步骤，修改表单“记录导航”并保存为“学生信息维护”表单,实现在表文件尾添加新的记录，并能够逻辑删除表中的相应记录.1.打开“记录导航.SCX”文件，添加两个命令按钮“添加和“删除。并设置其相应属性:步骤： 在command1命令的caption 属性值输入 添加 可以使得按钮显示为；同理输入“删除”按钮的caption属性值，使得按钮显示为. 2。将表单另存为“学生信息维护.scx”,并将表单caption属性值设置为“学生信息维护”.3在“添加”按钮的click事件中编写代码： Append blankThisform。refresh4。在“添加”按钮的click事件中编写代码： Yn=messagebox(“是否确定删除?”,4+32，”信息窗口”) &弹出“信息窗口”，包含“是和“否”按钮 If yn=6 &点击了“是按钮,返回值6;“否按钮,返回值7 Delete &逻辑删除当前记录， Messagebox(“记录删除成功!) Thisform。refresh Endif5。最后保存表单并运行，分别单击“添加”和“删除”按钮，观察表中记录的变化。评阅时间：6常州大学 怀德学院