formular one的详细例子或使用说明(200分)

我用的是D5自带的，确是个好东东
可惜我玩不转
我想找一份详细的例子或帮助学习一下
不知哪位能帮助我（它们主页上的例子我下了版本太高用不了）

和这个问题
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=218607
是一样的，实际上这个问题是300分

例子看他的帮助文件 上面有很多 VB的例子

下面给你一段代码
procedure Treportfrm.baobiao6 ;
VAR
I,j:integer;
bm:string;
a:array[1..12] of DOUBLE;
sum:array[0..10] of DOUBLE;
month,year,day:word;
s:double;
query:string;
begin
//对YB1 进行汇总处理
f1book1.Read(ExtractFileDir(paramstr(0))+'/bao6.vts',typef);
with datamodule1.qry do
begin
with datamodlue1.ary do
begin
SQL.Add('SELECT ,DV,DM,NCJE,SDJ,SRJ,SRJ1,SRJ2,SRJ4,SRJ5,SRJ7,SRJ8,FCJ,FCJ1,FCJ4,FCJ3,FCJ5,FCJ2,QMJE FROM YB1');
OPEN;
I:=5;
WHILE NOT EOF DO
BEGIN
FOR J:=1 TO FIELDCOUNT DO
IF FIELDS[J-1].ASSTRING<>'0' THEN
IF J<=3 THEN
F1BOOK1.TEXTRC[I,J]:=FIELDS[J-1].ASSTRING
ELSE
F1BOOK1.NUMBERRC[I,J]:=FIELDS[J-1].ASFLOAT;
I:=I+1;
NEXT;
END;
END;
decodedate(now,year,month,day);
F1BOOK1.TextRC[1,1]:='1~'+INTTOSTR(monTH)+'月份原材料、能源收入、消费与库存报表';
F1BOOK1.TextRC[2,2]:=DATETOSTR(NOW);
f1book1.SetRowHeight(5,74,365,true);
f1book1.write(ExtractFileDir(paramstr(0))+'/bao4.xls',F1FileExcel5);
end;

帮助里怎么好象没有例子？

哪位朋友愿意进一步帮助luckystar的，
给我提供一份详细例子如何？
delphiboy@sohu.com

VB的例子要不要?
地址报上来!

要！
谢谢！

Go Top

没人要这300分么?

我现在下在研究
如果你有分的话我们就共同研究
我可以给你一些例子
但太多不知给你那一个
你先提出
来吧其实你不给分我也可以给你的
和我联系
xzsyz@china.com

to anti_ant:

简单的我也知道点点，但我不知怎样连数据库？

你的例子有多少我要多少，我出200+分

F1 BOOK的比较新的版本有没有在哪里下载?

呵呵,迫切知道

procedure SaveSpreadsheet(F1Book: TF1Book);
var
BlobStream : TBlobStream;
MyBlob : HGlobal;
pblob : Pointer;
begin
with Datamodule1.Query1 do
begin
Set8087CW($133f);
try
Application.ProcessMessages;
F1Book.SaveWindowInfo;
MyBlob:=GlobalAlloc(GMEM_MOVEABLE, 2000);
try
F1Book.WriteToBlob(MyBlob, 0);
pBlob:=globalLock(MyBlob);
try

Blobstream:=TBlobStream.Create(TBlobField(FieldByName('QUOTE_BLOB')),bmWrite
);
try
Blobstream.Write(pBlob^,GlobalSize(myBlob));
finally
Blobstream.Free;
end;
finally
globalUnlock(MyBlob);
end;
F1book.IF1Book_Modified:=False;
finally
globalFree(myblob);
end;
finally
Set8087CW(Default8087CW);
Application.ProcessMessages;
end;
end;

end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,cx,cy:integer;
n,ns:smallint;
begin
x:=0;y:=0;cx:=form2.Width;cy:=form2.Height;n:=1;ns:=1;
form2.Show;
Book1.SetSelection(1,1,10,20);
Book1.SetPrintAreaFromSelection;
Book1.PrintPreview(form2.handle,x,y,cx,cy,n,ns);//form2上预览
form2.Update;
end;

anti_ant:

你的例子有多少
我全想要请发住delphiboy@sohu.com
除了这些外另加200$

多人接受答案了。