谁用过cell组件开发报表，进来看看

Question

我想从数据库中取出制定的值赋给cell报表中指定的行和列，因为刚开始不熟悉，所以参考vb下的演示源代码设计，可是无法触发CalcFunc事件，各位大哥帮忙给看看或者提供另外一种思路。谢谢了

Answer 1

附：源代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls,sys_public,data,unit3,
  DB, ADODB, Grids, DBGrids,  OleCtrls, CELL50Lib_TLB,
  ExtCtrls ;
type
  TForm1 = class(TForm)
    Cell1: TCell;
    Label1: TLabel;
    ListBox1: TListBox;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Cell1CalcFunc(ASender: TObject; const name: WideString;
      rettype, paranum: Integer);
    procedure Cell1QueryFuncGuide(ASender: TObject; const name: WideString;
      var hasguide: Integer);  private
    { Private declarations }      procedure definefun();
      procedure setfun(index:longint);
      function opendb(filedname :string ;row :double):double;
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  strarray,HelpArray:array[0..17] of string;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
path:string;begin
   path := ExtractFilePath(application.ExeName)+'资产负债表.cll';
   cell1.OpenFile(path,'');
   definefun();
   setfun(1);
   cell1.ReDraw;
   label2.Caption :=helparray[0];
end;
procedure tform1.definefun();
var
str :string;
begin
//strarray := char(13);
str := '''资产负债表取数函数'' Any 货币资金( str:string,[Double num] )';
str := str + #13#10 + 'BEGIN_HELP';                 //#13回车  #10空格
str := str + #13#10 + '货币资金( String str,Double index )';
str := str + #13#10 + '本函数用来获取数据库中的 货币资金 字段的值';
str := str + #13#10 + 'END_HELP';
cell1.DefineFunctions(str);
//showmessage('definefun');
str := '';
str :=str + #13#10 + '货币资金( String str,Double index )';
str := str +  #13#10 + '本函数用来获取数据库中的 货币资金 字段的值';
HelpArray[0] := str;
end;
procedure tform1.setfun(index:longint);
var
temp,strtemp:string;
//i:integer;
begin
  listbox1.Clear;
  strTemp := '货币资金(' + Char(34) + '货币资金' + Chr(34) + ','  + IntToStr(index)+ ')';
Cell1.SetFormula(3,7,0,strtemp);
//showmessage(strtemp);
listbox1.Items.Add(strtemp);
temp := Cell1.CellToLabel(3, 7);
strArray[0] := temp
end;
function tform1.opendb(filedname :string ;row :double):double;
var
index :longint;
i:integer;
begin
with dm1.aq do
  begin
    SQL.Clear;
    SQL.Add('Select * From 资产负债表');
    Active := true;
    dm1.aq.Open;
    end;
    for i :=1 to dm1.aq.Fields.Count do
    begin
      if dm1.aq.fields[i].FieldName = filedname then
          begin
            index :=i;
            exit;
          end;
    end;
    i:=1;
    while not dm1.aq.Eof do
    begin
      if i=row then
        begin
          opendb := dm1.aq.Fields[index].Value;
          exit;
        end;
        i :=i +1;
    end;
    dm1.aq.Close;
end;
procedure TForm1.Button7Click(Sender: TObject);  //jg :integer;
begin
with dm1.aq do
      begin
    SQL.Clear;
    SQL.Add('Select * From 资产负债表');
    Active := true;
    dm1.aq.Open;
    end;
   // dbgrid1.DataSource := dm1.aq;end;procedure TForm1.Button8Click(Sender: TObject);begin
  {with Dm1.ADOConnection1 do
    begin
      Open;
      if Connected then
        showmessage('连接成功')
      else
        showmessage('连接失败');
    end;}
   //para :=0;end;
procedure TForm1.Cell1CalcFunc(ASender: TObject; const name: WideString;
  rettype, paranum: Integer);
  var
  para :longint;
  result :double;
begin
  showmessage('calcfunc');
  result := opendb(cell1.GetFuncStringPara(0,para),cell1.GetFuncDoublePara(1,para));
  
   cell1.SetFuncResult(result,'',0);
end;procedure TForm1.Cell1QueryFuncGuide(ASender: TObject;
  const name: WideString; var hasguide: Integer);
begin
If name = '货币资金' Then hasguide := 1;
If name = '短期投资' Then hasguide := 1;
If name = '应收票据' Then hasguide := 1;
If name = '坏帐准备' Then hasguide := 1;
If name = '预付帐款' Then hasguide := 1;
If name = '存货' Then hasguide := 1;
If name = '待处理流动资产净损失' Then hasguide := 1;
If name = '其他流动资产' Then hasguide := 1;
If name = '固定资产原价' Then hasguide := 1;
If name = '在建工程' Then hasguide := 1;
If name = '无形资产' Then hasguide := 1;
If name = '短期借款' Then hasguide := 1;
If name = '应付票据' Then hasguide := 1;
If name = '应付帐款' Then hasguide := 1;
If name = '应付工资' Then hasguide := 1;
If name = '长期借款' Then hasguide := 1;
If name = '长期应付款' Then hasguide := 1;
end;end.