 2015-12-23 23:11
	    2015-12-23 23:11
   2015-12-24 07:30
	    2015-12-24 07:30
  
 2015-12-24 08:08
	    2015-12-24 08:08
   2015-12-24 08:31
	    2015-12-24 08:31
   2015-12-24 08:35
	    2015-12-24 08:35
   报表扩展功能示例.rar
				(5.71 KB)
报表扩展功能示例.rar
				(5.71 KB)
				
				
			 程序代码:
程序代码:** 报表扩展功能示例
ASTACKINFO(a程序)
SET DEFAULT TO ADDBS(JUSTPATH(a程序[2]))     
CREATE CURSOR tt (ff I)
FOR i = 1 TO 100
    INSERT INTO tt VALUES (i)
ENDFOR
oPC = NULL
DO (_REPORTPREVIEW) WITH oPC
oPC.Top = 0
oPC.Left = 0
oPC.Width = 800
oPC.Height = 500
oPC.Caption = "报表扩展功能示例"
oPC.CanvasCount = 1
oPC.ToolbarIsVisible = .T.
oPC.ZoomLevel = 5   && 100%
oRP = NEWOBJECT("MyRetroPreview")
oPC.SetExtensionHandler(oRP)
oRL = NEWOBJECT("Reportlistener")
oRL.ListenerType = 1
oRL.PreviewContainer = oPC
REPORT FORM 报表扩展功能示例.frx OBJECT oRL
RETURN
DEFINE CLASS MyRetroPreview AS Custom
    PROCEDURE Show(iStyle)
        this.PreviewForm.Toolbar.addobject("myCmd", "CommandButton")
        this.PreviewForm.Toolbar.myCmd.Width = 80
        this.PreviewForm.Toolbar.myCmd.Height = 22
        this.PreviewForm.Toolbar.myCmd.Caption = "我的按钮"
        this.PreviewForm.Toolbar.myCmd.Visible = .T.
        BINDEVENT(this.PreviewForm.Toolbar.myCmd, "Click", this, "myCmdClick")
    ENDPROC
    PROCEDURE myCmdClick
        MESSAGEBOX("点击了我的按钮")
    ENDPROC
ENDDEFINE
										
					
	 2015-12-24 09:55
	    2015-12-24 09:55
   2015-12-25 21:58
	    2015-12-25 21:58
   
										
					
	 2015-12-25 22:03
	    2015-12-25 22:03
   2015-12-27 22:55
	    2015-12-27 22:55
  
 2015-12-28 10:35
	    2015-12-28 10:35