| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 786 人关注过本帖
标题:问1个以前没关心过的问题?VFP用向导做的表单按钮?
取消只看楼主 加入收藏
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
结帖率:98.98%
收藏
已结贴  问题点数:10 回复次数:2 
问1个以前没关心过的问题?VFP用向导做的表单按钮?
VFP用向导做的表单按钮中的,增加,修改,删除,保存,等等按钮,做好后进去,怎么看不到具体的操作语句的?
他是怎么实现相应的操作的?今天看到VFP的数据缓存技术?难道是用TableUpdate()来处理的?
以前一直都是直接修改表,没用过TableUpdate来更新表。
搜索更多相关主题的帖子: 技术 
2015-10-20 09:41
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
查到了,是用CURSORGETPROP,来更新数据的。。
2015-10-20 12:56
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
*这个是cmdEdit的
#DEFINE C_NOUPDATE_LOC    "由于选定的视图不发送更新因此你不能编辑它。"

LOCAL lNoSendParentUpdates,lNoSendChildUpdates
LOCAL aTablesUsed,nTablesUsed,i

IF EMPTY(ALIAS())
    RETURN
ENDIF

** Reverting record
IF THIS.Parent.EditMode
   
    IF THIS.Parent.UseDataEnv
        SELECT (THIS.Parent.OldAlias)
        IF CURSORGETPROP("Buffering")>1
            =TableRevert(.T.)
        ENDIF
        IF !EMPTY(THIS.Parent.GridAlias)
            SELECT (THIS.Parent.GridAlias)
            IF CURSORGETPROP("Buffering")>1
                =TableRevert(.T.)
            ENDIF
        ENDIF            
    ELSE
        DIMENSION aTablesUsed[1]
        m.nTablesUsed = AUSED(aTablesUsed)
        FOR i = 1 TO m.nTablesUsed
            IF CURSORGETPROP("Buffering",aTablesUsed[m.i,1])>1
                =TableRevert(.T.,aTablesUsed[m.i,1])
            ENDIF
        ENDFOR
    ENDIF
   
    * Go back to original place
    SELECT (THIS.Parent.OldAlias)
    IF RECCOUNT() < THIS.Parent.OldRec    &&added record at EOF()
        GO TOP
    ELSE
        GO THIS.Parent.OldRec
    ENDIF
ELSE
    * Check to see if view allows updates
    IF CURSORGETPROP("SourceType")#3 AND !CURSORGETPROP("offline") AND;
        !CURSORGETPROP("SendUpdates") AND CURSORGETPROP("SourceType")<100
        lNoSendParentUpdates = .T.
    ENDIF
   
    IF !EMPTY(THIS.Parent.GridAlias) AND ;
      CURSORGETPROP("SourceType",THIS.Parent.GridAlias)#3 AND ;
      !CURSORGETPROP("offline",THIS.Parent.GridAlias) AND ;
      !CURSORGETPROP("SendUpdates",THIS.Parent.GridAlias)
        lNoSendChildUpdates= .T.
    ENDIF
   
    IF (m.lNoSendChildUpdates AND m.lNoSendParentUpdates) OR;
        (EMPTY(THIS.Parent.GridAlias) AND m.lNoSendParentUpdates)
        MESSAGEBOX(C_NOUPDATE_LOC)
        RETURN
    ENDIF
   
    THIS.Parent.OldAlias = ALIAS()    &&save alias in case reverting
    THIS.Parent.OldRec = RECNO()    &&save record in case reverting
ENDIF

** Editing record
THIS.Parent.EditMode = !THIS.Parent.EditMode
THIS.Parent.AddMode = .F.
THIS.Parent.ButtonRefresh()
THIS.Parent.NavRefresh()
2015-10-20 16:16
快速回复:问1个以前没关心过的问题?VFP用向导做的表单按钮?
数据加载中...
 
   



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

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