编程入门网-表单(二) 表单内部控件的事件发生顺序
您的位置： &&
5.2 表单(二)
编辑：Mali
八.为表单创建新属性:
1.打开表单,单击&表单&菜单,选&新建属性&菜单项,系统弹出&新建属性&对话框
2.在该对话框的&名称&框中输入属性名,同时可在说明框中加上该属性的注释,单击&添加&即可,如图8
3.选access项和assign项,则在新建表单属性的同时创建该属性对应的方法程序,其中access方法在查询该属性时被执行,assign方法程序在修改该属性时被执行.
4.单击对话框中的&关闭&按钮,该属性即被添加到&属性&窗口中,选中表单,在&属性&窗口中可选中并检查该属性,如图9
九.为表单创建新方法程序:
1.打开表单,单击&表单&菜单,选&新建方法程序&菜单,系统显示&新建方法程序&对话框
2.输入方法程序的名称后,单击&添加&按钮即可,如图10.
方法程序代码应在&属性&窗口的&方法程序&选项卡中选择该方法程序名双击,在弹出的编辑器中输入方法程序.新建的方法程序的执行方法与系统提供的方法程序相同.
十.例一:制作表单xggz.scx,修改人员工资数据.
1.新建一个表单,右击表单空白处,将&工资情况&表添加到数据环境中
2.在&数据环境设计器&中,将&工资情况&表的各个字段,依次拖到表单上,如图11,
并调整它们的位置,全部字段拖到表单上后,如图12
3.向表单添加5个命令按钮:command1,command2,command3,command4和command5,将它们的caption属性依次设为&第一个&,&上一个&,&下一个&,&最后一个&,&退出&,并调整它们的位置,如图13.
再次说明一下修改控件属性的方法:以command1为例,在&表单设计器&中选中command1,其四周出现黑色方块,表明已被选取.然后在&属性&窗口中选&全部&选项卡,拖动滚动条,选中caption属性,在上方的文本框中输入属性值:第一个,如图14
4.将表单的caption属性(即标题栏显示的内容)设为&修改工资&,autocenter属性设为.T.(此属性设为真,运行时表单自动居中).
5.编写代码:
★ &第一个&按钮(command1)的click事件代码:
thisform.refresh &&刷新显示
★&上一个&按钮(command2)的click事件代码:
skip -1 &&如果当前记录不是首记录,则向上移动一位记录指针
thisform.refresh
★&下一个&按钮(command3)的click事件代码:
skip &&如果当前记录不是最后一条记录,向下移动一位记录指针
thisform.refresh
★&最后一个&按钮(command4)的click事件代码:
thisform.refresh
★&退出&按钮(command5)的click事件代码:
tui=messagebox(&您确实要退出吗?&,4+64,&提示信息&)
if tui=6 &&如果此条件为真,说明运行时用户点了消息框中的&是&,执行thisform.release释放表单
thisform.release
clear events
6.保存表单到e:\myvfp,名为&xggz&
7.运行表单,如
十一.例二:表单调用举例:建立一个名为diaoyong的程序文件,用程序代码调用例一中建立的xggz.scx表单
1.在命令窗口输入命令:modify command diaoyong,在弹出的代码窗口中输入如下代码:
set default to e:\myvfp
do form xggz
read events
2.在命令窗口如下命令执行程序:
do diaoyong
十二.例三:表单内部控件的事件发生顺序
1.新建一个表单,添加三个命令按钮,如图16
2.添加事件代码:
★表单的load事件:messagebox(&form1.load&)
★表单的inint事件:messagebox(&form1.init&)
★表单的click事件:messagebox(&form1.click&)
★表单的destroy事件:messagebox(&form1.destroy&)
★command1的init事件:messagebox(&command1.init&)
★command2的init事件:messagebox(&command2.init&)
★command3的init事件:messagebox(&command3.init&)
★commadn1的click事件:messagebox(&command1.click&)
3.保存表单文件为li3.scx,目录为e:\myvfp.运行li3.scx,观察事件发生的先后顺序.
十三.例四:修改表单li3.scx:
1.在命令窗口依次输入下面两条命令,打开表单li3.scx
set default to e:\myvfp
modify form li3.scx
2.向表单中添加一个文本框text1,为text1编写下列事件代码:
★text1的when事件:messagebox(&text1.when&)
★text1的gotfocus事件:messagebox(&text1.gotfocus&)
★text1的valid事件:
messagebox(&text1.valid&)
return .t.
★text1的lostfocus事件:messagebox(&text1.lostfocus&)
3.运行表单,单击text1文本框,观察文本框对象事件发生的先后顺序
4.将text1的valid事件的返回值改为.F.(即return .F.),运行表单,单击text1文本框,观察有何不同.
Copyright&
Powered by 编程入门网 All Rights Reserved. |温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
没什么好说的！
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(15362)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_080',
blogTitle:'VF表单设计',
blogAbstract:'&\r\n设置菜单的SDI属性\r\n通过设置用户菜单的顶层表单(SDI)属性，可以扩大用户菜单的使用范围。对于没有设置顶层表单属性的菜单，一般只允许在VFP 6页框中使用，设置后的用户菜单系统不仅能够在页框中使用，也可以在用户定义的顶层表单中使用。\r\n对用户菜单设置SDI属性，其操作步骤如下：\r\n⑴单击“显示”菜单中的“常规选项”命令，弹出“常规选项”对话框。\r\n⑵在“常规选项”对话框中，选中“顶层表单”复选框，然后单击“确定”按钮。',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:9,
permalink:'blog/static/',
commentCount:9,
mainCommentCount:9,
recommendCount:1,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'没什么好说的！',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}您的访问出错了(404错误)
很抱歉，您要访问的页面不存在。
1、请检查您输入的地址是否正确。
进行查找。
3、感谢您使用本站，1秒后自动跳转}