dbdata.pas

来自「进销存·完整的·有数据库的·非常完整·只得参考」· PAS 代码 · 共 47 行

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.