luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: Clear database passwords when opening a new project.


git-svn-id: svn://localhost/gambas/trunk@2157 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2009-07-23 23:57:15 +00:00
parent ca1bdc4b43
commit e340d5271c
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
app/src/gambas3/.src/Connection/MConnection.module
View file

@ -1,6 +1,6 @@
' Gambas module file ' Gambas module file
Private $cPassword As New Collection Public Password As New Collection
Public Sub InitFrom(hConn As Connection, hConfig As Object, sName As String, Optional bWithDatabase As Boolean) Public Sub InitFrom(hConn As Connection, hConfig As Object, sName As String, Optional bWithDatabase As Boolean)
@ -25,11 +25,11 @@ Public Sub LoadPassword(sName As String, bDesktop As Boolean) As String
Dim sPassword As String Dim sPassword As String
sPassword = $cPassword[sName] sPassword = Password[sName]
If Not sPassword Then If Not sPassword Then
If bDesktop Then If bDesktop Then
sPassword = Desktop.Passwords[Project.Name &/ sName] sPassword = Desktop.Passwords[Project.Name &/ sName]
$cPassword[sName] = sPassword Password[sName] = sPassword
Endif Endif
Endif Endif
@ -39,7 +39,7 @@ End
Public Sub SavePassword(sName As String, sPassword As String, bDesktop As Boolean) Public Sub SavePassword(sName As String, sPassword As String, bDesktop As Boolean)
$cPassword[sName] = sPassword Password[sName] = sPassword
If sPassword Then Desktop.Passwords[Project.Name &/ sName] = sPassword If sPassword Then Desktop.Passwords[Project.Name &/ sName] = sPassword
End End

2
app/src/gambas3/.src/Project.module
View file

@ -366,6 +366,8 @@ Public Function Open(sDir As String) As Boolean
Inc Project.TimeStamp Inc Project.TimeStamp
MConnection.Password.Clear
Refresh Refresh
DefineStartup(Startup, True) DefineStartup(Startup, True)