31 July 2014


Saat ingin aplikasi visual basic & mysql kita lebih fleksible dengan dapat mengatur koneksi ke database saat aplikasi di jalankan. Salah satu cara yang dapat kita gunakan adalah dengan menyimpan setting di registry.
Simak contoh berikut untuk menyimpan dan memanggil keterangan yang ada dalam registry.
Pertama-tama siapkan layout UI sebagai berikut?

Kemudian tambahkan module untuk menyimpan variable dan fungsi yang bersifat public agar dapat dipanggil dan digunakan dimanapun dalam project yang bersangkutan.

Untuk menambahkan module baru klik menu Project -> Add Module...
Pilih Module kemudian klik tombol OK.
Kode yang kita simpan dalam Module1 yaitu:
Option Explicit

Public ServerName As String
 
Public DatabaseName As String
Public UserName As String
Public PasswordKey As String

Public Sub SaveConnectionSetting(ByVal AppName
As String, _
   
ByVal Server As String, ByVal Database As String, _
   
ByVal User As String, ByVal Password As String)
   
    'Menyimpan setting
    SaveSetting AppName, "Koneksi", "Server", Server
    SaveSetting AppName, "Koneksi", "Database", Database
    SaveSetting AppName, "Koneksi", "UserName", User
    SaveSetting AppName, "Koneksi", "Password", Password
   
    ServerName = Server
    DatabaseName = Database
    UserName = User
    PasswordKey = Password
   
End Sub

Public Sub LoadConnectionSetting(
ByVal AppName As String)
    ServerName = GetSetting(AppName, "Koneksi", "Server", "")
    DatabaseName = GetSetting(AppName, "Koneksi", "Database", "")
    UserName = GetSetting(AppName, "Koneksi", "UserName", "")
    PasswordKey = GetSetting(AppName, "Koneksi", "Password", "")
End Sub


Data setting akan diambil dari registry saat form di load. Jika belum pernah mengeset atau menyimpan setting database sebelumnya maka akan diambil nilai default. Perhatikan kode dibawah, code dengan warna font merah adalah nilai default.
ServerName = GetSetting(AppName, "Koneksi", "Server", "")

Dan code untuk di Form:
Option Explicit

Private Sub
Form_Load()

LoadConnectionSetting "WPPOS"

txtServer.Text = ServerName
txtUsername.Text = UserName
txtPassword.Text = PasswordKey
txtDatabase.Text = DatabaseName

End Sub

Private Sub
cmdOK_Click()

SaveConnectionSetting "WPPOS",
txtServer.Text, _

    txtDatabase.Text, txtUsername.Text, txtDatabase.Text
End Sub

Private Sub
cmdCancel_Click()

Unload Me

End Sub


Pertama form di load data setting  di load, kemudian ditampilkan ke textbox yang bersangkutan. Tombol OK untuk menyimpan perubahan setting yang diambil dari textbox. Sementara tombol cancel untuk menutup form.
Silahkan dicoba, saat pertama kali load data setting karena blom dibuat textbox tampilkan data kosong.
Tetapi setelah setting save, kemudian run ulang hasil save setting kita akan ditampilkan.
Lalu dimana sih sebenernya setting itu disimpan? Disinih nih....



Click here if you like this article.


0 comments: