| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2333 人关注过本帖
标题:我又迷糊了!
只看楼主 加入收藏
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用不懂才问在2015-12-8 12:07:57的发言:

我在main.prg里  声明一个公共类  里面有clear events

共性与个性最好能明确清晰一点。
如:
程序代码:
blLogin = .F.
loginForm = CREATEOBJECT("logForm")
loginForm.show
READ EVENTS
IF !blLogin
    MESSAGEBOX("登录失败","提示")
    IF _VFP.StartMode == 4
        QUIT
    ELSE
        CLEAR ALL 
        RETURN
    ENDIF
ENDIF
主程序()
CLEAR ALL 

PROCEDURE 主程序
    MESSAGEBOX("主程序")
ENDPROC

DEFINE CLASS logForm as  FormShow2
    caption="欢迎登录材料管理系统"
    autoCenter=.t.
    width=300
    height=200
    titleBar=0
    picture="登录背景.bmp"
    icon="logo.ico"
    controlBox=.f.

    ADD OBJECT cmdOk     as BtnBase WITH top=168,left=160,height=25,width=60,caption="确 定"
    ADD OBJECT cmdCancel as exitBtn WITH top=168,left=228,height=25,width=60,caption="取 消"

    PROCEDURE cmdOk.Click
        blLogin = .T.
        thisform.Release
    ENDPROC
    
    PROCEDURE Destroy
        CLEAR EVENTS 
    ENDPROC 
ENDDEFINE


DEFINE CLASS FormShow2 as FormBase  
    ShowWindow = 2
    * add user code here
ENDDEFINE

DEFINE CLASS FormShow1 as FormBase 
    ShowWindow = 1
    * add user code here
ENDDEFINE

DEFINE CLASS FormBase as Form 
    * add user code here
ENDDEFINE

DEFINE CLASS exitBtn as BtnBase
    PROCEDURE click
        RELEASE thisform 
    ENDPROC 
ENDDEFINE

DEFINE CLASS BtnBase as CommandButton 
    * add user code here
ENDDEFINE


[此贴子已经被作者于2015-12-8 21:09编辑过]

2015-12-08 21:03
快速回复:我又迷糊了!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023963 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved