dmunit.pas

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

unit DMUnit;

interface

uses
  SysUtils, Classes, DB, ADODB, Forms;

type
  TDM = class(TDataModule)
    ADOCon: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation
uses MainUnit;
{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
        pathstr:string;
begin
        pathstr:=ExtractFileDir(Application.ExeName);
        pathstr:=pathstr+'\Data\Filedb.mdb';
        ADOCon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+pathstr+';Persist Security Info=False';
        DM.ADOCon.Connected:=true;
end;

end.