dataunit.pas

来自「一个简单的数据库管理系统,是用delphi开发的.」· PAS 代码 · 共 42 行

unit DataUnit;

interface

uses
  SysUtils, Classes, DB, ADODB, MainUnit ;

type
  TDataForm = class(TDataModule)
    FriendsConnection: TADOConnection;
    qrySource: TADOQuery;
    qryEdit: TADOQuery;
    dscSource: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataForm: TDataForm;

implementation

{$R *.dfm}

procedure TDataForm.DataModuleCreate(Sender: TObject);
begin
  FriendsConnection.Connected := False;
  FriendsConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=' + Path +'Data.mdb;Persist Security Info=True';
  FriendsConnection.connected := True;
end;

procedure TDataForm.DataModuleDestroy(Sender: TObject);
begin
  FriendsConnection.Connected := False;
end;

end.