untdm.pas

来自「delphi制作的帮助学习软件」· PAS 代码 · 共 95 行

{*******************************************************}
{                                                       }
{       单元名称: UntDM                                 }
{       创建日期: 2005-08-26                            }
{       摘要说明: 系统数据模块                          }
{                                                       }
{       详细说明:                                       }
{                                                       }
{       参　　阅:                                       }
{                                                       }
{       已知问题:                                       }
{                                                       }
{       待作事项:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       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;

  {==========================================================================
                          单元实现部分
  ==========================================================================}

implementation

uses UntSysFaceD;

{$R *.dfm}

{==========================================================================
  过程名:    TDM.DataModuleCreate
  功  能:    配置并打开ADO连接
  参　数:
  作　者:    胡孟杰
  日　期:    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('打开代码数据库失败！请检查数据库文件。');
  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('打开资料数据库失败！请检查数据库文件。');
  end;
end;

end.