{*******************************************************}
{                                                       }
{       單元名稱: UntDM                                 }
{       創(chuàng)建日期: 2005-08-26                            }
{       摘要說明: 系統(tǒng)數(shù)據(jù)模塊                          }
{                                                       }
{       詳細說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當前版本: 2.0                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit UntDM;

{==========================================================================
                        單元接口部分
==========================================================================}

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQueryFunc: TADOQuery;
    DataSourceFunc: TDataSource;
    ADOConnection2: TADOConnection;
    ADOQueryTips: TADOQuery;
    DataSourceTips: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM                : TDM;

  {==========================================================================
                          單元實現(xiàn)部分
  ==========================================================================}

implementation

uses UntSysFaceD;

{$R *.dfm}

{==========================================================================
  過程名:    TDM.DataModuleCreate
  功  能:    配置并打開ADO連接
  參　數(shù):
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  try
  Self.ADOConnection1.Connected := false;
  Self.ADOConnection1.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    ExtractFilePath(Paramstr(0)) + 'DB\config.mdb;' +
    'Persist Security Info=False';
  Self.ADOConnection1.Connected := True;
  except
    ShowMsg('打開代碼數(shù)據(jù)庫失敗！請檢查數(shù)據(jù)庫文件。');
  end;

  try
  Self.ADOConnection2.Connected := false;
  Self.ADOConnection2.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    ExtractFilePath(Paramstr(0)) + 'DB\DelphiTips.mdb;' +
    'Persist Security Info=False';
  Self.ADOConnection2.Connected := True;
  except
    ShowMsg('打開資料數(shù)據(jù)庫失敗！請檢查數(shù)據(jù)庫文件。');
  end;
end;

end.