unitdm.pas

来自「关联规则算法的实现和表示Delphi源码」· PAS 代码 · 共 65 行

unit UnitDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOCommand1: TADOCommand;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

   { Cellset1:ICellset;
    catalog1:ICatalog;
    m_bInitOLAPDB:boolean;
    procedure InitOLAPDB(); }

    procedure InitADOConn();

  end;

var
  DM: TDM;

implementation

{$R *.dfm}
{
procedure TDM.InitOLAPDB();
var
  ds:String;
begin
  ds:='Provider=MSolap.1;Data Source=localhost;Initial Catalog=iCube';
  Cellset1:=Cocellset.Create();
  Catalog1:=CoCatalog.Create();

  Catalog1.Set_ActiveConnection(oleVariant(ds));
  m_bInitOlapDB:=true;
end;

 }


procedure TDM.DataModuleCreate(Sender: TObject);
begin
       //InitOLAPDB();
       InitAdoConn();
end;


procedure TDM.InitADOConn();
begin
    AdoConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=iCube;Data Source=127.0.0.1';
    AdoConnection1.Open;
end;

end.