谁有F1Book1(在ActiveX页中)与数据库联系使用的范例

Question

完整code在此
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, AxCtrls, OleCtrls, vcf1;type
  TForm1 = class(TForm)
    F1Book1: TF1Book;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  fname:widestring;ftype:smallint;
begin
f1book1.SaveFileDlg('Save File Dialog',fname,ftype);
f1book1.Write(fname,ftype);
if FileExists(fname) then showmessage('File Save OK!');
end;procedure TForm1.Button2Click(Sender: TObject);
var
  hwnd:cardinal;fname:widestring;
  ftype:smallint;
begin
hwnd:=form1.Handle;
f1book1.OpenFileDlg('Open File Dialog',hwnd,fname);
f1book1.Read(fname,ftype);
end;procedure TForm1.Button3Click(Sender: TObject);
var
  pconnect:widestring;
  returncode:smallint;errors:wordbool;
begin
//在ODBC中建一个数据源
pconnect:='test';
errors:=true;
f1book1.ODBCConnect(pconnect,errors,returncode);
if returncode=0 then showmessage('Connect OK!')
else showmessage('Connect Faild!');
end;procedure TForm1.Button4Click(Sender: TObject);
var
  query:widestring;returncode:smallint;
  showdlg,setColNames,setColFormats,setColWidths,setMaxRC:wordbool;
  nrow,ncol:integer;
begin
 query:='select * from gjjmain';
 setcolnames:=true;setcolformats:=true;setcolwidths:=true;setmaxrc:=true;
 showdlg:=false;nrow:=1;ncol:=1;
 f1book1.ODBCQuery(query,nrow,ncol,showdlg,setColNames,setColFormats,
     setColWidths,setMaxRC,returncode);
end;procedure TForm1.Button5Click(Sender: TObject);
begin
f1book1.ODBCDisconnect;
end;procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;end.