disqlite3_world_form.pas

来自「DELPHI 访问SQLITE3 数据库的VCL控件」· PAS 代码 · 共 41 行

{ Visit the DISQLite3 Internet site for latest information and updates:

    http://www.yunqa.de/delphi/

  Copyright (c) 2005-2007 Ralf Junker, The Delphi Inspiration <[e-mail]>

------------------------------------------------------------------------------ }

unit DISQLite3_World_Form;

{$I DI.inc}

interface

uses
  Classes, DB, Grids, DBGrids, StdCtrls, DBCtrls, Mask, Controls, ExtCtrls,
  ComCtrls,
  DISQLite3Database, DISQLite3DataSet,
  DISQLite3_World_Common;

type
  TfrmWorld = class(TfrmWorld_Common)
    procedure FormCreate(Sender: TObject);
  end;

var
  frmWorld: TfrmWorld;

implementation

{$R *.dfm}

procedure TfrmWorld.FormCreate(Sender: TObject);
begin
  inherited;
  DISQLite3UniDirQuery.Open;
end;

end.