VFP 愛用者社區

[480615]

DEFINE CLASS EffectsListener AS ReportListener
PROCEDURE EvaluateContents(tnFRXRecno, toObjProperties)
LOCAL lcEffect,lnSession,lcExpression

lcEffect="*:EFFECTS FORECOLOR"
lnSession=SET("Datasession") &&保存当前数据工作期

SET DATASESSION TO This.FRXDataSession &&转到报表定义文件数据工作期
SELECT FRX &&选择报表定义文件工作区
GO tnFRXRecno &&根据记录号定位记录

IF ATC(lcEffect,FRX.User)>0 &&查找USER字段中是否包含“*:EFFECTS FORECOLOR”标记
lcExpression=STREXTRACT(FRX.User,lcEffect+'=',CHR(13),1,3) &&提取出IIF()函数语句
LOCAL lnColor,lnPenRed,lnPenGreen,lnPenBlue

SET DATASESSION TO lnSession &&返回报表数据工作期
SELECT Orders &&转换到Orders临时表来计算发货日期是否大于定货日期+10
lnColor=EVALUATE(lcExpression) &&根据表达式计算颜色值
IF VARTYPE(lnColor)='N'
*!* 根据颜色值重新分离为RGB颜色值
lnPenRed=BITAND(lnColor, 0x0000FF)
lnPenGreen=BITRSHIFT(BITAND(lnColor, 0x00FF00),
lnPenBlue=BITRSHIFT(BITAND(lnColor, 0xFF0000), 16)
WITH toObjProperties
IF .PenRed<>lnPenRed OR .PenGreen<>lnPenGreen OR .PenBlue<>lnPenBlue
.PenRed=lnPenRed
.PenGreen=lnPenGreen
.PenBlue=lnPenBlue
.FontStyle=129 &&粗体（1）+删除线（128），见表12-17中的说明
.Reload=.T. &&通知ReportListener进行重绘
ENDIF
ENDWITH
ENDIF
ENDIF
SET DATASESSION TO lnSession *!* 执行默认行为
DODEFAULT(tnFRXRecno, toObjProperties)&&根据 DODEFAULT()表示子类可以调用父类的方法或事件。它的子类是 EffectsListener，它调用父类ReportListener 的方法或事件(父类的事件是不是 PROCEDURE EvaluateContents(tnFRXRecno, toObjProperties)
到 SET DATASESSION TO lnSession加粗的一段代码？这样理介是否正确？
ENDPROC
ENDDEFINE

[aizz]

最簡單易懂的 foxpro , 居然可以被寫得這麼艱澀難讀......

猴腮雷呀

[elleryq]

應該不是這個說

dodefault() 的意思應該是

define class a
procedure do()
&& show something.
endproc
enddefine

define class a_child as a
procedure do()
dodefault()
endproc
enddefine

dodefault() 就只是執行父類別 do 裡的代碼。

[480615]

我的意思是在上面的代码中dodefault() 去執行哪一个父類別？