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
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)
@ -25,11 +25,11 @@ Public Sub LoadPassword(sName As String, bDesktop As Boolean) As String
Dim sPassword As String
sPassword = $cPassword[sName]
sPassword = Password[sName]
If Not sPassword Then
If bDesktop Then
sPassword = Desktop.Passwords[Project.Name &/ sName]
$cPassword[sName] = sPassword
Password[sName] = sPassword
Endif
Endif
@ -39,7 +39,7 @@ End
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
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
MConnection.Password.Clear
Refresh
DefineStartup(Startup, True)