u_dm.pas

本程序主要实现了动态获取多个共享ACCESS数据库数据的功能

unit U_DM;

interface

uses
  SysUtils, Classes, DB, ADODB,Forms;

type
  TDM = class(TDataModule)
    ADOConnRemote: TADOConnection;
    ADOQRemote: TADOQuery;
    ADOConnCheck: TADOConnection;
    ADOConnLocal: TADOConnection;
    ADOTPassData: TADOTable;
    ADOTFailData: TADOTable;
    DsPassData: TDataSource;
    DsFailData: TDataSource;
    ADOTpath: TADOTable;
    ADOQFind: TADOQuery;
    ADOQPassData: TADOQuery;
    ADOQFailData: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;
  DataBaseCount:Integer;
  MyADOConn:Array of TADOConnection;
  MyQuery:Array of TADOQuery;
implementation

uses U_Main, U_State, U_DataSetup;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
mstr:string;
i,DataBaseCount:integer;
Frm_DataSetup: TFrm_DataSetup;
begin
Frm_State.Show;
application.ProcessMessages;
Frm_State.Pshow.Caption:='正在准备数据库连接......';
application.ProcessMessages;
if not adotpath.Active then adotpath.Active:=true;
DataBaseCount:=adotpath.RecordCount;
if DataBaseCount=0 then
  begin
    application.MessageBox('还没有设置数据库连接,请设置!','提示',64);
    Frm_DataSetup:=TFrm_DataSetup.Create(Self);
    Frm_DataSetup.ShowModal;
    Application.Terminate;
  end;
SetLength(MyADOConn,DataBaseCount);
SetLength(MyQuery,DataBaseCount);
i:=0;
while not adotpath.Eof do
  begin
    mstr:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source='+adotpath.FieldValues['path'];
    Frm_State.Pshow.Caption:=adotpath.FieldValues['path'];
    application.ProcessMessages;
    if not assigned(MyADOConn[i]) then
      begin
        MyADOConn[i]:=TADOConnection.Create(application);
        MyADOConn[i].LoginPrompt:=false;
        MyQuery[i]:=TAdoQuery.Create(Application);
        MyQuery[i].Connection:=MyADOConn[i];
      end;
    Myadoconn[i].ConnectionString:=mstr;
    try
    MyADOConn[i].Connected:=true;
    except
    Frm_main.EDH.Text:='数据库不正确，不能审核！';
    Frm_main.EDH.Enabled:=false;
    exit;
    end;
    adotpath.next;
    i:=i+1;
    Application.ProcessMessages;
  end;
end;
end.