ddata.pas

来自「从文本文件象Oracle数据库导入数据」· PAS 代码 · 共 34 行

unit dData;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Oracle, Db, OracleData;

type
  TdmData = class(TDataModule)
    OraSessionScm: TOracleSession;
    OraLogonScm: TOracleLogon;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
  end;

var
  dmData: TdmData;

implementation

{$R *.DFM}

procedure TdmData.DataModuleCreate(Sender: TObject);
begin
  //连接数据库
  if not OraLogonScm.Execute then
    Application.Terminate;
end;

end.