unit U_DM;

interface

uses
  SysUtils, forms, Classes, DB, ADODB;

type
  TF_Dm = class(TDataModule)
    DBcon: TADOConnection;
    Temp: TADOQuery;
    Ado_OperateLog: TADOQuery;
    Ado_OperateLogUserid: TStringField;
    Ado_OperateLogUsername: TStringField;
    Ado_OperateLogFormname: TStringField;
    Ado_OperateLogOperate: TStringField;
    Ado_OperateLogOperateDate: TDateTimeField;
    procedure DataModuleCreate(Sender: TObject);
    procedure DBconAfterConnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Dm: TF_Dm;

implementation

uses U_Function, U_Dbsetting, Dialogs, U_Login;

{$R *.dfm}

procedure TF_Dm.DataModuleCreate(Sender: TObject);
 var F_login: TF_login;
begin
  Readfromini(Dbserver, dbname, dbuserid, dbpassword);
  if not Connectdb(dbcon, dbname) then
  begin
    MessageDlg('連接數據庫時出錯誤，請重新設定連接信息!', mtInformation, [mbOK], 0);
  // Application.Terminate;
    if not assigned(F_dbsetting) then
      application.CreateForm(TF_dbSetting, F_dbsetting);
    F_dbsetting.ShowModal;
  end
  else
    GetCompanryName(Thecompanry);

  F_login := TF_login.create(Self);
  F_login.showmodal;
  if not F_login.CanLogin then
  Application.Terminate;
  F_login.Free ;

end;

procedure TF_Dm.DBconAfterConnect(Sender: TObject);
begin
 // else
  // F_login.Free;
end;

end.