dm.pas

来自「这是应一个市委的朋友要求给做一个物品管理软件。 初始密码:admin」· PAS 代码 · 共 71 行

unit dm;

interface

uses
  Forms, SysUtils, Classes, DB, ADODB, IniFiles;

type
  Tfdm = class(TDataModule)
    conn: TADOConnection;
    q: TADOQuery;
    tuser: TADOTable;
    dsuser: TDataSource;
    dssort: TDataSource;
    qsort: TADOTable;
    qvendor: TADOQuery;
    dsvendor: TDataSource;
    qvlist: TADOQuery;
    dsqvlist: TDataSource;
    qgoods: TADOQuery;
    dsgoods: TDataSource;
    qslist: TADOQuery;
    dslist: TDataSource;
    qslist1: TADOQuery;
    dsqslist1: TDataSource;
    qrk: TADOQuery;
    dsrk: TDataSource;
    qdan: TADOQuery;
    dsdan: TDataSource;
    q2: TADOQuery;
    qdlist: TADOQuery;
    dsdlist: TDataSource;
    qkc: TADOQuery;
    dskc: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fdm: Tfdm;

implementation

{$R *.dfm}

procedure Tfdm.DataModuleCreate(Sender: TObject);
var
  myini : TIniFile;
  db : string;
begin
  myini := TIniFile.Create(pchar(ExtractFilePath(Application.ExeName))+'inc\set.ini');
  db := myini.ReadString('config','db','');
  if db='' then
  begin
      db := 'db.mdb';
      myini.WriteString('config','db',db);
  end;
  myini.Free;
  conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+pchar(ExtractFilePath(Application.ExeName))+'inc\'+db+';Jet OLEDB:Database Password=hpping9751';
  conn.LoginPrompt := false;
  try
    conn.Connected := true;
  except
  end;
end;

end.