bustradedatamoduleunit.pas

来自「公交行业的管理系统」· PAS 代码 · 共 35 行

unit BusTradeDataModuleUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB;

type
  TBusTradeDataModule = class(TDataModule)
    ADOConnection1: TADOConnection;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenDatabase;
  end;

var
  BusTradeDataModule: TBusTradeDataModule;

implementation
procedure TBusTradeDataModule.OpenDatabase;
begin
       ADOConnection1.Connected:=false;
       ADOConnection1.ConnectionString:=
                'Provider=Microsoft.Jet.OLEDB.4.0;'+
                'Data Source='+ExtractFilePath(Application.ExeName)+'database\gyjdatabase.mdb'+';'+
                'Persist Security Info=False';
       ADOConnection1.Connected:=true;
end;
{$R *.dfm}

end.