main_dm_pas.pas

不错啊

unit main_dm_pas;

interface

uses
  SysUtils, Classes, ImgList, Controls, DB, ADODB,forms;

type
  Tmain_dm = class(TDataModule)
    gz: TADOConnection;
    adq1: TADOQuery;
    adq2: TADOQuery;
    adq3: TADOQuery;
    DataSource1: TDataSource;
    adq4: TADOQuery;
    DataSource2: TDataSource;
    adq5: TADOQuery;
    adq6: TADOQuery;
    DataSource3: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_dm: Tmain_dm;

implementation
  
{$R *.dfm}

procedure Tmain_dm.DataModuleCreate(Sender: TObject);
begin
  gz.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'gzgl.mdb;Persist Security Info=False';
end;

end.