dbdata.pas

进销存管理 编译环境Delphi7+Win2000 用到的控件 ReportMachine2.6 InfoPower4000Pro_vcl7 RxLib2.7 SkinEngine 3

unit DBData;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DB, dxCntner, ADODB, ImgList, KsSkinEngine;

type
  TfrmData = class(TDataModule)
    StyleController: TdxEditStyleController;
    ADOConnet: TADOConnection;
    ADOConnetLogin: TADOConnection;
    ImageList: TImageList;
    SeSkinEngine: TSeSkinEngine;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmData: TfrmData;

implementation

uses SysPublic, TableCreate;

{$R *.DFM}

procedure TfrmData.DataModuleCreate(Sender: TObject);
begin
  //打开数据库
  with frmData.ADOConnetLogin do
  begin
    if Connected = True then Close;
    ConnectionString := GetConnectionString(GetExePath + FILE_LOGIN_DATA);
    LoginPrompt := False;
    Open('Admin', '');
  end;
  ControlInitialize;
end;

end.