The files contained in this repository can be downloaded to your computer using a svn client.
On Linux you simply type the command displayed below.

This URL has Read-Only access.

Statistics
| Revision:

root / trunk / DomotiGa / FSettingsMySQL.class @ 550

History | View | Annotate | Download (1.3 kB)

1 2 riemers 
' Gambas class file
2 2 riemers 

    

    
    
    
    

      3
      
      2
      riemers
      
' Description:


    

    
    
    
    

      4
      
      2
      riemers
      
' FSettingsMySQL.class


    

    
    
    
    

      5
      
      2
      riemers
      
' Settings form for database connection.


    

    
    
    
    

      6
      
      2
      riemers
      

    

    
    
    
    

      7
      
      2
      riemers
      
' Development Status:


    

    
    
    
    

      8
      
      2
      riemers
      
' Works.


    

    
    
    
    

      9
      
      2
      riemers
      

    

    
    
    
    

      10
      
      2
      riemers
      
' DomotiGa - an open source home automation program.


    

    
    
    
    

      11
      
      2
      riemers
      
' Copyright(C) 2008 Ron Klinkien


    

    
    
    
    

      12
      
      2
      riemers
      

    

    
    
    
    

      13
      
      25
      rdnzl
      
' Read file called COPYING for license details.


    

    
    
    
    

      14
      
      2
      riemers
      

    

    
    
    
    

      15
      
      2
      riemers
      
PUBLIC SUB Form_Open()


    

    
    
    
    

      16
      
      2
      riemers
      

    

    
    
    
    

      17
      
      2
      riemers
      
  ME.Move(FMain.X + 50, FMain.Y + 70)


    

    
    
    
    

      18
      
      2
      riemers
      

    

    
    
    
    

      19
      
      2
      riemers
      
  WITH Main


    

    
    
    
    

      20
      
      2
      riemers
      
    txtDBHost.Text = .sSQLHost


    

    
    
    
    

      21
      
      2
      riemers
      
    txtUser.Text = .sSQLUser


    

    
    
    
    

      22
      
      2
      riemers
      
    txtPassword.Text = .sSQLPass


    

    
    
    
    

      23
      
      2
      riemers
      
    txtDatabase.Text = .sSQLDatabase


    

    
    
    
    

      24
      
      2
      riemers
      
    chkDebug.Value = .bSQLDebug


    

    
    
    
    

      25
      
      2
      riemers
      
  END WITH


    

    
    
    
    

      26
      
      2
      riemers
      
  btnSave.Enabled = FALSE


    

    
    
    
    

      27
      
      2
      riemers
      

    

    
    
    
    

      28
      
      2
      riemers
      
END


    

    
    
    
    

      29
      
      2
      riemers
      

    

    
    
    
    

      30
      
      2
      riemers
      
PUBLIC SUB btnSave_Click()


    

    
    
    
    

      31
      
      2
      riemers
      

    

    
    
    
    

      32
      
      2
      riemers
      
  WITH Main


    

    
    
    
    

      33
      
      2
      riemers
      
    .sSQLHost = txtDBHost.Text


    

    
    
    
    

      34
      
      2
      riemers
      
    .sSQLUser = txtUser.Text


    

    
    
    
    

      35
      
      2
      riemers
      
    .sSQLPass = txtPassword.Text


    

    
    
    
    

      36
      
      2
      riemers
      
    .sSQLDatabase = txtDatabase.Text


    

    
    
    
    

      37
      
      2
      riemers
      
    .bSQLDebug = chkDebug.Value


    

    
    
    
    

      38
      
      2
      riemers
      
  END WITH


    

    
    
    
    

      39
      
      2
      riemers
      

    

    
    
    
    

      40
      
      2
      riemers
      
  ' reconnect with new settings


    

    
    
    
    

      41
      
      2
      riemers
      
  Main.SetConfig()


    

    
    
    
    

      42
      
      2
      riemers
      
  Main.GetConfig()


    

    
    
    
    

      43
      
      2
      riemers
      
  Main.ConnectDatabase()


    

    
    
    
    

      44
      
      2
      riemers
      
  ME.Close


    

    
    
    
    

      45
      
      2
      riemers
      

    

    
    
    
    

      46
      
      2
      riemers
      
END


    

    
    
    
    

      47
      
      2
      riemers
      

    

    
    
    
    

      48
      
      2
      riemers
      
PUBLIC SUB btnCancel_Click()


    

    
    
    
    

      49
      
      2
      riemers
      

    

    
    
    
    

      50
      
      2
      riemers
      
  ME.Close


    

    
    
    
    

      51
      
      2
      riemers
      

    

    
    
    
    

      52
      
      2
      riemers
      
END


    

    
    
    
    

      53
      
      2
      riemers
      

    

    
    
    
    

      54
      
      2
      riemers
      
PUBLIC SUB txtDBHost_KeyPress()


    

    
    
    
    

      55
      
      2
      riemers
      

    

    
    
    
    

      56
      
      2
      riemers
      
  btnSave.Enabled = TRUE


    

    
    
    
    

      57
      
      2
      riemers
      

    

    
    
    
    

      58
      
      2
      riemers
      
END


    

    
    
    
    

      59
      
      2
      riemers
      

    

    
    
    
    

      60
      
      2
      riemers
      
PUBLIC SUB textDBHost_KeyPress()


    

    
    
    
    

      61
      
      2
      riemers
      

    

    
    
    
    

      62
      
      2
      riemers
      
  btnSave.Enabled = TRUE


    

    
    
    
    

      63
      
      2
      riemers
      

    

    
    
    
    

      64
      
      2
      riemers
      
END


    

    
    
    
    

      65
      
      2
      riemers
      

    

    
    
    
    

      66
      
      2
      riemers
      
PUBLIC SUB txtDatabase_KeyPress()


    

    
    
    
    

      67
      
      2
      riemers
      

    

    
    
    
    

      68
      
      2
      riemers
      
  btnSave.Enabled = TRUE


    

    
    
    
    

      69
      
      2
      riemers
      

    

    
    
    
    

      70
      
      2
      riemers
      
END


    

    
    
    
    

      71
      
      2
      riemers
      

    

    
    
    
    

      72
      
      2
      riemers
      
PUBLIC SUB txtUser_KeyPress()


    

    
    
    
    

      73
      
      2
      riemers
      

    

    
    
    
    

      74
      
      2
      riemers
      
  btnSave.Enabled = TRUE


    

    
    
    
    

      75
      
      2
      riemers
      

    

    
    
    
    

      76
      
      2
      riemers
      
END


    

    
    
    
    

      77
      
      2
      riemers
      

    

    
    
    
    

      78
      
      2
      riemers
      
PUBLIC SUB txtPassword_KeyPress()


    

    
    
    
    

      79
      
      2
      riemers
      

    

    
    
    
    

      80
      
      2
      riemers
      
  btnSave.Enabled = TRUE


    

    
    
    
    

      81
      
      2
      riemers
      

    

    
    
    
    

      82
      
      2
      riemers
      
END


    

    
    
    
    

      83
      
      2
      riemers
      

    

    
    
    
    

      84
      
      2
      riemers
      
PUBLIC SUB chkDebug_Click()


    

    
    
    
    

      85
      
      2
      riemers
      

    

    
    
    
    

      86
      
      2
      riemers
      
  btnSave.Enabled = TRUE


    

    
    
    
    

      87
      
      2
      riemers
      

    

    
    
    
    

      88
      
      2
      riemers
      
END