Ajuste para utilizar função listar DSN multiplataforma

cf84fcec · Sandro Camata Santana · 80a94596 · cf84fcec
Commit cf84fcec authored Apr 08, 2019 by Sandro Camata Santana
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

ituDataBaseLogin.pas EvoUMLPlugin/src/ituDataBaseLogin.pas +4 -2

No files found.
--- a/EvoUMLPlugin/src/ituDataBaseLogin.pas
+++ b/EvoUMLPlugin/src/ituDataBaseLogin.pas
@@ -37,7 +37,7 @@ type

 implementation

-uses strUtils, odbc_dsn_win, acuObject, utuFactory;
+uses acuQuerySQLODBC, strUtils, acuObject, utuFactory;

 {$R *.dfm}

@@ -73,7 +73,9 @@ end;

 procedure TDataBaseLogin.cbODBCD_DSNChange(Sender: TObject);
 begin
-  edtUsuario.Text := GetDSNLastUser(cbODBCD_DSN.Text);
+  {$IFDEF MSWINDOWS}
+//  edtUsuario.Text := GetDSNLastUser(cbODBCD_DSN.Text);
+  {$ENDIF}
  edtPassword.Text := '';
 end;