data.pas

来自「ODAC 5.7.0.28」· PAS 代码 · 共 37 行

unit Data;

interface

uses
{$IFDEF LINUX}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids, OdacClx,
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, OdacVcl,
{$ENDIF}
  Db, DBAccess, Ora, MemDS, OraSmart;

type
  TdmData = class(TDataModule)
    OraSession: TOraSession;
    dsPictures: TDataSource;
    sqCreateTable: TOraSQL;
    sqDropTable: TOraSQL;
    quPictures: TSmartQuery;
    ConnectDialog: TConnectDialog;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmData: TdmData;

implementation

{$R *.dfm}

end.