超级菜鸟提问，系列问题，每个50分～～～～ UP有分

关于F1Book

No.1:
procedure TF1BookFrn.Button8Click(Sender: TObject);
begin
  //F1Book1.FormulaRC[nRow, nCol]:=
  with F1Book1 do
  begin
    ...;
    FormulaRC[3,1] := 'A1 + A2';
   {我要得到他们的值，而不是只写表达试，可以不用循环么手动的写？}
    ...
  end;
end;
No.2:
  F1Book还有加再什么东西？
如：
procedure TF1BookFrn.FormatCell(CellRow, CellCol: integer; CellWidth,
  CellXiaoShu: string);
{var
  f: F1CellFormat;//为什么不能通过？
  i: integer;
  NumberWidth, NumberXiaoShu: string;  }

begin
  {F1Book1.SetActiveCell(CellRow, CellCol);
  F := F1Book1.GetCellFormat;
  for i := 0 to strtoint(CellWidth) do
    NumberWidth := NumberWidth + '#';
  for i := 0 to strtoint(CellXiaoShu) do
    NumberXiaoShu := NumberXiaoShu + '#';
  if NumberXiaoShu <> '' then
    NumberXiaoShu := '.' + NumberXiaoShu;
  f.NumberFormat[F1Book1.Handle] := NumberWidth + NumberXiaoShu;
  F1Book1.SetCellFormat(f);     }
end;

No.3 ,No.4,No.5:
  求相关资料

63 个解决方案

#1

UP以下

#2

#3

我是菜菜菜菜菜得很的菜！
听说UP有分。
帮你UP！

#4

NO.1,
现在很困，大脑不听指挥啊。
学习。。。

#5

E文太差，不要说让我看文档，头大。。。

#6

F1Book是什么东西?

#7

星星的问题耶！

#8

应为之间没有用过她，这次要用......

#9

也知道这些问题再会者的眼里是超菜问题......

#10

#11

楼主真喜欢考人啊！

#12

To pandengzhe(攀登者)
你多说说.........
No.1 ～～No.2的分给你

#13

up
upup

#14

#15

No1
F1Book就是电子表格控件，类似Excel，但用起来不太方便。在设计时不能手工写，但运行状态可以手工写。

#16

水平不行，所以叫攀登者。
老兄名气很大啊！感觉是。
只能是学习了？！

#17

星期六，大家都不在？
不对啊，有好几个星星在啊？

#18

不懂,UP

#19

EXCEL我到是还会些，F1Book，我没用过，学习学习，楼主不要骂我。
等我回去研究研究再说

#20

To cxz7531(cat)
现在已经选择了它，你随便的说一说她的用法好不好？

等待，如沙漠行舟，痛苦万分

#21

F1Book是大名鼎鼎的Formula One的delphi简化版。没错吧？
可惜，我没用过formula one等，主要考虑版权。

难道大家就没有明白的？

to楼主，分不重要，我经常来，却没精力回答问题。

#22

TO:pandengzhe(攀登者)
F1Book 在Active页

#23

谢谢！我找到了。

请教一下，高手有不会c++,vc的末？

#24

可以不用循环么手动的写？----------什莫意思？
{ f: F1CellFormat;//为什么不能通过？}中 F1CellFormat什莫东西？

既然没有高手，我就多up两下吧！

期待高手到来！

#25

如果手动的去写的话，就有可能要解析字符串，麻烦，不职能......

----------------------------------------------------------
等待，如沙漠行舟，痛苦万分

#26

#27

我比较菜，先up

#28

30贴，却间隔了20分钟，看来现在人气不足

#29

那我只好up

#30

没搞明白，不多说了。星期一再见。

★★★祝大家周末愉快！！！★★★

#31

#32

我这里有一个简单的程序，你看一下
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, AxCtrls, OleCtrls, VCF1, DB, ADODB;

type
  TForm1 = class(TForm)
    F1Book1: TF1Book;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery; //数据集
    Edit1: TEdit;         //表名编辑框
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
VAR
I,J: INTEGER;
begin
    SHOWMESSAGE(trim(Edit1.Text)); //显示表名
    with ADOQuery1 do　//读取数据集
    begin
         close;
         ADOQuery1.sql.clear;
         sql.add('SELECT * FROM '+ TRIM(Edit1.Text));
         open;
    end;
    //写f1Book的标题栏
    FOR  I:=0 TO ADOQuery1.FieldCount-1 DO
    BEGIN
         F1BOOK1.ColText[I+1]:=ADOQuery1.Fields[I].FieldName;
    END;
    J:=1;
    //写内容
    ADOQuery1.First;
    WHILE NOT ADOQuery1.EOF DO
    BEGIN
         FOR I:=0 TO ADOQuery1.FieldCount-1 DO
         BEGIN
              F1BOOK1.TextRC[J,I+1]:=ADOQuery1.FIELDBYNAME(ADOQuery1.Fields[I].FieldName).ASSTRING;
         END;
         J:=J+1;
         ADOQuery1.Next;
    END;
end;

end.
再多的用法就不知道了

#33

#34

也只能up

#35

#36

#37

这个也算超级菜鸟的问题！

#38

No.2
该段代码是不是用的F1BOOK版本比较高，而你的F1BOOK是DELPHI自带的，所以有此提示。
查查F1CellFormat在哪个PAS单元声明的，引用一下

各种资料

赋值：
f1book1.textrc[row+4,1]:=Table1.fields[0].asSTRING;
f1book1.TextRC[2,2]:=datetostr(now);

读入
f1book1.read(ExtractFileDir(paramstr(0))+'\f1book1.xls',F1FileExcel5);

写入
f1book1.write(ExtractFileDir(paramstr(0))+'\SHHH.xls',F1FileExcel5);

选择
F1book1.SetSelection(2,2,2,2);
F1book1.GetSelection(0,pRow1,pCol1,pRow2, pCol2);

合并
var
CellFormat: F1CellFormat;
begin
cellformat := F1Book1.GetCellFormat;
cellformat.MergeCells := true;
F1Book1.SetCellFormat(cellformat);
end;

#39

对不起楼主，借宝地一用

大家有兴趣的话帮我看看这个问题：

http://expert.csdn.net/Expert/topic/2016/2016211.xml?temp=.1899073

#40

直接看帮助啊
尽管BORLAND帮助做的一贯不好但是解决这些问题还是绰绰有余的

#41

两个星还菜鸟啊，晕

#42

同意楼上。
我才两裤衩。
汗......

#43

To cxz7531(cat)这个我也知道.........
谢谢。.
To things(平) (枕流以洗耳，漱石以磨牙)
我看了一下，windows 自己有一个vcf132.ocx的，但情况没有好转
是不是要倒入类型库？是哪个？

#44

自己UP..

#45

为什么没有初学者的论坛呢??高手当菜鸟.

#46

up!

#47

up!

#48

我用过，好象是要注册一下该控件！很久以前的事了，回头给你查查

#49

别骗人了，你是菜鸟我是什么？

#50

实际上f1book是个用的很普遍的空间。
他的版本很多，里面的对象也不同。开发资料也不多。
３年前用ｖｂ用f1book开发了一个报表程序，现在忘的差不多，代码也找不到了，只能帮你ｕｐ了
还是靠自己吧，哈哈哈哈哈哈哈哈哈

#1