VFP表单练习

VFP表单练习一、 VFP表单练习一、修改表单FORMA TEST项目中已经存在表单FORMA，该表单可以完成类似于Windows中的记事本功能。其实现的基本思想为：打开一个文本文件时将该文件的内容放入临时表中，保存时将临时表中内容写入文本文件中。已知在表单的LOAD事件中已经定义了一个临时表textfile。根据下列要求对表单进行修改，完成以后运行表单，效果如图2所示。设置表单的ControlBox属性，使表单运行时左上角的窗口菜单图标不显示，如图2所示。设置表单的有关属性，使表单运行时边框样式为“固定对话框”。为“打...

一、 VFP表单练习一、修改表单FORMA TEST项目中已经存在表单FORMA，该表单可以完成类似于Windows中的记事本功能。其实现的基本思想为：打开一个文本文件时将该文件的内容放入临时表中，保存时将临时表中内容写入文本文件中。已知在表单的LOAD事件中已经定义了一个临时表textfile。根据下列要求对表单进行修改，完成以后运行表单，效果如图2所示。设置表单的ControlBox属性，使表单运行时左上角的窗口菜单图标不显示，如图2所示。设置表单的有关属性，使表单运行时边框样式为“固定对话框”。为“打开”按钮设置访问键“ALT+O”。设置表单的标题为“记事本”。完善“新建”按钮的Click事件代码，当运行表单并点击该按钮时编辑框清空且得到焦点。完善“打开”按钮的Click事件代码，当运行表单并点击该按钮时将选定的文本文件的内容放入临时表中。完成修改以后，运行表单，画面显示如图2所示。此时点击“打开”按钮，会弹出“打开”对话框，选择一个已存在的文本文件（如当前目录下没有，也可以到其它目录下选择），单击“确定”按钮以后被选择的文本文件就会显示在编辑框中，此时可对该文本文件进行编辑，编辑以后可以按“保存”，也可以按“另存为”按钮。如果要新建一个文本文件，可点击“新建”按钮。答案： 1．Controlbox属性值为.F. （2） 2．Borderstype属值为.F. （1） 3．Command1.caption="打开\ 表格中的各列标头改为如图2所示的标题。将表格的删除标志列去掉。设置表单的有关属性，使表单运行时不可随意移动。完善选项按钮组op1的Click事件代码，使得当选择“按学号”查时标签label1标题为“总成绩”，当选择“按课程”查时标签label1标题为“总人数”。完善列表框的InterActiveChange事件代码：使得当“按学号”查询并在列表框中选择学号时文本框中统计该学生的总成绩，当“按课程代号”查询并在列表框中选择课程代号时文本框中统计该课程的学生选修人数。答案：将表格中的各列标头改为如下图所示（2分）将表格的删除标志去掉（1分）表单的Moveable属性为.F. （1） thisform.label1.caption='总成绩' （1） thisform.label1.caption='总人数' （1） ThisForm.text1.Value=czcj(1) （2） Thisform.text1.value=czrs(1) （2）四、修改表单FORMC TEST项目中已经存在表单FORMC，该表单用来进行系统登录。已知A盘根目录下存在表文件USER，该表用来存放登录用户的工号（no）、姓名（name）、职务（title）和口令（password）。根据下列要求对表单进行修改，完成以后运行表单，效果如图2所示。设置窗口的标题为“系统登录”。使姓名和年月下拉列表框只可选择，不可输入。将“职务”文本框置为废止状态。姓名下拉列表框显示的内容为用户姓名，其RowSouceType为“3-SQL语句”，请设置RowSource属性。假如USER表中姓名（name）字段的值不重复，且已经按姓名建立了一个普通索引name，索引表达式为name，当用户点击“确定”按钮时，要验证用户输入的口令的合法性：若口令输入正确则关闭该登录窗口；若口令输入不正确，则提示用户重新输入，并将口令文本框中的内容置空，然后将光标停留在口令文本框中。根据上述要求完善“确定”按钮的Click事件代码。答案： 1．表单的Caption属性为“系统登录” （1） 2．下拉框的Style属性为2 （2） 3．职务文本框的Enabled属性为.F. （1） 4．SELECT name FROM user INTO CURS cNameTmp （2） 5．SEEK lc_name ORDER name IN USER （2） This.Parent.Txt_Password.SetFocus() （2）五、修改表单FORMD TEST项目中已经存在表单FORMD，该表单用来进行系统登录。已知A盘根目录下存在表文件USER，该表用来存放登录用户的编号（no）、姓名（name）、职务（title）和口令（password）。另一张表LOGIN用来存放登录的年（year）和月（month）根据下列要求对表单进行修改，完成以后运行表单，效果如图2所示。将表单的标题设置为“系统登录”。设置表单有关属性，使表单运行时不可最小化。使口令文本框中输入的字符以“*”号显示。为“确定”按钮设置有关属性，使得当表单运行并按 ENTER 键时，无论当前焦点在哪个对象上，“确定”按钮总能得到焦点并自动执行它的Click事件代码。 “年月”下拉列表框的RowSouceType为“3-SQL语句”，设置它的RowSource属性，使得该下拉列表框中显示LOGIN表中的年月两个字段的数据。且显示格式为 ××××年××月（如图2所示）。假如USER表中姓名（name）字段的值不重复，且已经按姓名建立了一个普通索引name，索引表达式为name，完善姓名下拉列表框的InterActiveChange事件，使得当选择不同的用户姓名时，“职务”文本框中显示其相应的职务(title)字段的值。答案：表单的Caption属性为“系统登录” （1）表单的MinButton属性值为.F. （1）口令文本框的PasswordChar值为* （1） “确定”按钮的Default属性为.T. （1） SELECT year+'年'+Right('0'+ALLT(month),2)+'月' FROM login INTO CURS cYmtmp （2） SEEK lsname ORDER name IN USER (2) THISFORM.TXT_TITLE.VALUE = USER.TITLE (2) 六、修改表单FORME TEST项目中已经存在表单FORME，该表单用来进行人员信息查询，根据下列要求修改表单，完成以后运行表单，效果如图2所示。将表单设置为固定对话框。为“退出”按钮设置一个访问键“ALT+X”。设置表格的有关属性，使表格不显示删除标记列。将表单数据环境中的USER表设置为独占方式打开。在表单的Load事件中创建一个名为USER_CUR的临时表，要求包含工号（no）、姓名(name)、职务(title)、部门(department)和说明(remark) 字段，括号中的符号表示相应的字段名称，字段的类型及长度与数据环境中的用户信息表（USER）中对应的字段相同。为“退出”按钮编写Click事件代码，要求当点击“退出”按钮时先关闭USER_CUR临时表，然后再关闭表单。答案： Borderstyle属值为2 (1) Command4.Caption="退出(\

                    本文档为【VFP表单练习】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

VFP表单练习

你可能还喜欢