Delphi Rave Report 及其Event Edit代码编写问题！急。高手进来讨论下！高分不够再给！

Question

1.
procedure TCPN_CpnPrint.Button5Click(Sender: TObject);
var
     MyPage:  TRavePage;
     MyBand: TRaveBand;
     MyRegion: TRaveRegion;
    // mytext2: Travetext;
     //mydataband: Travedataband;
     mydatatext1: Travedatatext;
     myDatatext2: Travedatatext;
     myDatatext3: Travedatatext;  —————————Datatext就是这样申明类型的可是条码控件呢？如何申明就是下面这句怎么写？
     //myI2of5BarCode: TRaveBarCode;_________________就是这一句怎么写？如何申明类型？只有先申明了下面查找时有相应的属性时才能查得出！有人知道吗？
     myDatatext4: Travedatatext;
     mydatatext5: Travedatatext;
     myDatatext6: Travedatatext;
     mydatatext7: Travedatatext;
     myDatatext8: Travedatatext;
     mydatatext9: Travedatatext;
     myDatatext10: Travedatatext;
     myDataView: TRaveDataView;
     CPNinfo:string;
begin
RvProject1.open;
CPNinfo:=ExtractFilePath(Paramstr (0))+'Cmts.ini';
iniinfo:=Tinifile.Create(CPNinfo);
RvSystem1.SystemSetups :=[];
With   RvProject1.ProjMan   do
  begin
    MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage; //查找ＰＡＧＥ
    MyBand := FindRaveComponent('DataBand1',MyPage) as TRavedataBand;//.....
    MyRegion := FindRaveComponent('Region1',MyPage) as TRaveRegion;//查找打印区域
    mydatatext1 := FindRaveComponent('dataText1',MyPage) as Travedatatext; //查找ＴＥＸＴ1
    mydatatext2 := FindRaveComponent('dataText2',MyPage) as Travedatatext; //查找ＴＥＸＴ2
    mydatatext3 := FindRaveComponent('dataText3',MyPage) as Travedatatext; //查找ＴＥＸＴ3
   // myI2of5BarCode1 := FindRaveComponent('text',MyPage) as Ttext; //查找ＴＥＸＴ3
    mydatatext4 := FindRaveComponent('dataText4',MyPage) as Travedatatext; //查找ＴＥＸＴ4
    mydatatext5 := FindRaveComponent('dataText5',MyPage) as Travedatatext; //查找ＴＥＸＴ5
    mydatatext6 := FindRaveComponent('dataText6',MyPage) as Travedatatext; //查找ＴＥＸＴ6
    mydatatext7 := FindRaveComponent('dataText7',MyPage) as Travedatatext; //查找ＴＥＸＴ7
    mydatatext8 := FindRaveComponent('dataText8',MyPage) as Travedatatext; //查找ＴＥＸＴ8
    mydatatext9 := FindRaveComponent('dataText9',MyPage) as Travedatatext; //查找ＴＥＸＴ9
    mydatatext10 := FindRaveComponent('dataText10',MyPage) as Travedatatext; //查找ＴＥＸＴ10
2.这第二个问题就是有人有关于Rave Report Event Edit代码编写的资料吗？网上很上。哪位高人能指点一下就好。现在我主要是只能用这个制表组件完成一个这样的效果：就是从数据集里取了打印的数据，在打印预览里显示了。然后要按了上面那个打印后。有没有办法把现在显示在打印预览里的数据做一个标记。（如果可以让已经打印过了的数据插入一个标记进数据库里）主要是为了避免重复打印。
郑重申明，有高人知道的分数可以加到200，再高也行。希望 大家帮我下。谢谢。

Answer 1

1、在窗体CPN_CpnPrint.PAS代码文件头TYPE后添加：TMYRaveBarCode = Class(TRaveBarCode);
   然后var myI2of5BarCode: TMYRaveBarCode;这样就可以访问到TRaveBarCode里面具体的属性了。
2、DELPHI引用的Rave Report 报表控件好像不受欢迎啊，很少用这个控件，不过应该可以在预览事件里触发你标记数据库的标识吧。或者直接添加一按钮进行限制进行打印和标识已打印功能。