data.~pas

单机进销存管理程序 Delphi+Acce

unit data;

interface

uses
  SysUtils, Classes, DB, ADODB,Qforms;

type
  TDatabase = class(TDataModule)
    ADOC: TADOConnection;
    ADOQ1: TADOQuery;
    ADOQ2: TADOQuery;
    ADOQ3: TADOQuery;
    ADOQ4: TADOQuery;
    ADOQ5: TADOQuery;
    ADOQ6: TADOQuery;
    ADOQ7: TADOQuery;
    ADOQ8: TADOQuery;
    ADOQ9: TADOQuery;
    DataS1: TDataSource;
    DataS2: TDataSource;
    DataS3: TDataSource;
    DataS4: TDataSource;
    DataS5: TDataSource;
    DataS6: TDataSource;
    DataS7: TDataSource;
    DataS8: TDataSource;
    DataS9: TDataSource;
    ADOQ0: TADOQuery;
    DataS0: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Database: TDatabase;

implementation

{$R *.dfm}

procedure TDatabase.DataModuleCreate(Sender: TObject);
begin
adoc.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.exename)+'mdb\jxc.mdb;Persist Security Info=False';

end;

end.