ActiveX中的F1Book怎么用啊?两天后还不知道,我就将"光荣"的下岗!!高手快UP!!!

Question

不知你说的是什么东西
请详细点描述或发至
[email protected]
我或许可以帮助你

Answer 1

我用过，不过只是用它来做的打印
和excel差不多，和数据库不能直接相连

Answer 2

用formula one 怎么做报表？？/？

Answer 3

有点麻烦，但是做不规则报表很好！
真是和Excel差不多，没一个cell显示什么都要写语句付值
看看帮助吧

Answer 4

formula one 的美国一家公司类似excel组件的ocx，可以实现与excel相类似的功能。不能够与数据库相联但可能将数据送到formula one中指定的位置中去，这样可以实现报表轻松打印。

Answer 5

我认真研究过formula one 三个月

Answer 6

请问怎么才能将数据库中的数据送到formula one中指定的位置中去

Answer 7

到它的网站上找demo呀！
下载一个formula one 6.1吧
delphi自带的不是这么好用，新的excel格式不支持。
看一下它的help不就以了很容易用的！

Answer 8

formula one 6.1的下载地址或者是帮助，可以mail一个给我吗？
[email protected]，谢谢了

Answer 9

我原来的公司的老板用F1Book写了一个报表程序，几乎和Excel一样，还是很好用的。

Answer 10

我原来公司的老板用F1Book写了个报表程序，和Excel差不多，还是很好用的。

Answer 11

formula one 怎么进行算术运算？？？

Answer 12

我写了一个从DBGrid输出到Formula One的函数,也许对你有用,我用的是Formula One 6.1,有些属性Delphi自带的Formula One 3.0不支持,你至少得安装Formula One 5.0以上版本.你可以修改一下这个函数,直接传入DataSet做参数,我用DBGrid作参数传入是考虑到在F1Book上带出DBGrid的对齐格式、列宽等.函数如下://-----------------------------------------------------------------------------
// 函数名：WriteDataFromDBGrid
// 功能描述：将一个DBGrid的内容输出到F1Book
// 入口参数：ADBGrid - 数据网格
//           AStartRow - 数据起始行
//           AStartCol - 数据起始列
//           AF1Book – 接受数据的Formula one book
// 示例：WriteDataFromDBGrid(DBGrid1, 2, 2, F1Book1);
//       上面的例子是从F1Book1的2行2列起输出DBGrid1的内容
// 作者：JoyHero
//-----------------------------------------------------------------------------
procedure WriteDataFromDBGrid(ADBGrid: TDBGrid;
  AStartRow, AStartCol: Integer; AF1Book : TF1Book);
var
  i,j:Integer;
  iColCount, iRowCount:Integer;
  cfTemp:F1CellFormat;
  iUnvisibleColCount: Integer;
begin
  with AF1Book do
  begin
    //获得数据列数
    iColCount:= ADBGrid.Columns.Count;
    iRowCount:= ADBGrid.DataSource.DataSet.RecordCount;
    iUnvisibleColCount:= 0;    //填充标题列
    for j:=0 to iColCount-1 do
    begin
      EntryRC[AStartRow,AStartCol+j]:=
        ADBGrid.Columns[j].Title.Caption;
      ColWidth[AStartCol+j]:= ADBGrid.Columns[j].Width*50;
    end;    //填充数据
    if ADBGrid.DataSource.DataSet.Active then
    begin
      with ADBGrid.DataSource.DataSet do
      begin
        First;
        i:= AStartRow+1;
        while not Eof do
        begin
          for j:= 0 to iColCount-1 do
          begin
            EntryRC[i,AStartCol+j]:= ADBGrid.Columns[j].Field.DisplayText;
          end;
          Next;
          Inc(i);
        end;
      end;
    end;    //设置标题列居中显示，字体为粗体
    SetSelection(AStartRow, AStartCol, AStartRow, AStartCol+iColCount-1);
    HAlign:=F1HAlignCenter;
    FontBold:=True;    //按照DBGrid的对齐方式设置数据列的对齐方式
    try
      for j:=0 to iColCount-1 do
      begin
        SetSelection(AStartRow+1, AStartCol+j, AStartRow+iRowCount, AStartCol+j);
        Case ADBGrid.Columns[j].Alignment of
          taLeftJustify:
            HAlign:=F1HAlignLeft;
          taRightJustify:
            HAlign:=F1HAlignRight;
          taCenter:
            HAlign:=F1HAlignCenter;
        end;
      end;
    except
    end;    //删除DBGrid不显示的列
    try
      for j:=0 to iColCount-1 do
      begin
        if not ADBGrid.Columns[j].Visible then
        begin
          SetSelection(AStartRow, AStartCol+j-iUnvisibleColCount,
            AStartRow+iRowCount, AStartCol+j-iUnvisibleColCount);
          EditDelete(F1ShiftHorizontal);
          iUnvisibleColCount:= iUnvisibleColCount+1;
        end;
      end;
    except
    end;    //画边框
    SetSelection(AStartRow, AStartCol, AStartRow+iRowCount, AStartCol+iColCount-1-iUnvisibleColCount);
    cfTemp:=GetCellFormat;
    cfTemp.BorderStyle[F1TopBorder]:=F1BorderThin;
    cfTemp.BorderStyle[F1LeftBorder]:=F1BorderThin;
    cfTemp.BorderStyle[F1BottomBorder]:=F1BorderThin;
    cfTemp.BorderStyle[F1RightBorder]:=F1BorderThin;
    cfTemp.BorderStyle[F1HInsideBorder]:=F1BorderThin;
    cfTemp.BorderStyle[F1VInsideBorder]:=F1BorderThin;
    SetCellFormat(cfTemp);
  end;
end;

Answer 13

这样写:
F1Book1.EntryRC[x,y] := Query1.FieldByname('FieldName').asstring;
说明:X为行Y为列,用它就可以定位Grid.
另外告你一个密秘,如果没有捕获右键，在运行时可以右键双击打开formula one.
祝你成功！

Answer 14

Formula One支持直接连接ODBC数据库并返回查询结果，以下是一个小例子：
在窗体上放一个F1Book（我使用的是Formula One 6.1）和一个按纽Botton1，Botton1的Click事件如下：procedure TForm1.Button1Click(Sender: TObject);
var
  myConnect : F1ODBCConnect;
  myQuery : F1ODBCQuery;
begin
  myConnect := CoF1ODBCConnect.Create;      //创建一个ODBC连接
  myConnect.ConnectStr := '';               //设置ConnectStr为空,则弹出ODBC窗口选择
  F1Book1.ODBCConnectEx(myConnect, True);   //打开ODBC连接
  myQuery := CoF1ODBCQuery.Create;          //创建一个查询
  myQuery.QueryStr := '';                   //设置ConnectStr为空,则弹出SQL语句创建窗口,你也可以直接设置ConnectStr为你想要的查询语句
  F1Book1.ODBCQueryEx(myQuery, 1, 1, True); //执行查询,并返回结果到F1Book
  F1Book1.ODBCDisconnect;                   //断开ODBC连接
end;运行一下，点击按纽，选择一个ODBC数据源，然后输入一个“Select * from ...”的查询语句，可以看到F1Book已经返回查询的数据集了。以上两个程序在Win98、Delphi 5、Formula One 6.1下通过。

Answer 15

Formula 6.1下载地址：
  http://202.96.94.21/person/webhome15/download/file/f1setup.zip不需要注册码，Enjoy it！

Answer 16

这个能用在D6上吗?
F1的
3.04版中,如何向表格中放查询结果数据?以下代码为什么出错?
　F1Book1.TextRC[4,1]:=MainForm.ADOQuery1['name'];
这个版本不能预览吗？

Answer 17

6.1在D6上安装不了,编译不过去,我也不知道为什么.把语句改为F1Book1.TextRC[4,1]:=MainForm.ADOQuery1.FieldByName('name').AsString;如果没有装打印机,就不能进行预览,各个版本都一样.

Answer 18

没有打印机，自己装了一个1600KIII的驱动，这样也不行吗？3。04中似乎没有预览的属性和方法啊

Answer 19

3.04中好像的确没有预览的方法，打印为F1Book1.FilePrint(True);
6.1中预览为：F1Book1.FilePrintPreview;

Answer 20

在大富翁上找到了在D6下安装Foumula One 6.x的办法：直接在D6中安装D5生成的TTF160_TLB.pas文件即可。是不是很简单？呵呵。

Answer 21

To Joyhero
你说得不错
我今天也看了一下，F1book确实能通过odbc直接与数据库连接
但是ConnectString应该用代码来实现,我的数据库是sql server 7
我写了，但总出错 不知你会不会写？