发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: 如何在没有Form的情况下创建Table
发信站: 哈工大紫丁香 (Mon Sep  4 16:08:03 2000), 转信

//方法一



FSession := TSession.Create(nil);
  FDatabase := TDatabase.Create(nil);
  FSession.SessionName := 'DBSession'
  FDatabase.Connected := False;
  FDatabase.AliasName := Database;
  FDatabase.DatabaseName := USER_DATABASE;
  FDatabase.SessionName  := FSession.SessionName;

  FUserTBL := TTable.Create(nil);
  FUserTBL.DatabaseName := FDatabase.DatabaseName;
  FUserTBL.SessionName := FSession.SessionName;
  FUserTBL.TableName := USERTBL;
  FUserTBL.IndexName := USERSpIndex;

  FUserSource := TDataSource.Create(nil);
  FUserSource.DataSet := FUserTBL;



//方法二


unit Unit2;

interface
uses db, DBTables, dialogs;

type fake = class(Ttable)
  procedure fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
end;

var
  MyTable : fake;

implementation

procedure fake.fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  showmessage('hi Bill');
end;

Initialization

  MyTable := fake.create(nil);
  With Mytable do begin
    DataBaseName := 'dbdemos';
    TableName := 'biolife';
    OnFilterRecord := MyTable.fakeFilterRecord;
    Filtered := true;
    active := true;
  end;

  {just prove I got some data...}
  showmessage(MyTable.fields[1].asstring);

Finalization
{important!  MyTable has no parent - this will leak memory if you don't free it...}
MyTable.free;

end.

--
※ 修改:．haojs 于 Sep  4 16:05:36 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]