Membuat Pengaturan Sistem Sendiri Di Access - Membuat Modul (Bagian 3)

Setelah membuat tabel pengaturan sistem, kita harus membuat modul, terutama modul standar yang digunakan untuk mengelola pengaturan sistem. Modul yang kita buat akan memudahkan penulisan program saat menampilkan, memperbaharui, dan menyimpan data yang berkaitan dengan pengaturan sistem.

Seperti telah dijelaskan di ....., kita menggunakan tabel yang bernama tblPreferensiSistem untuk menyimpan data pengaturan sistem. Untuk itu, kita menggunakan tblPreferensiSistem sebagai sumber tabel dalam menyusun modul. Berikut ini adalah modul standar yang terkait dengan pengaturan sistem.

view plainprint?

1. Function tampilkanNilaiPrefs(strPrefsNama As String) As Variant  
2.   Dim strNamaField As String, strNilai As String  
3.   Dim strNamaSumber As String  
4.   Dim strFieldPrimaryKey As String  
5.     
6. On Error GoTo Err_Msg  
7.   strNamaField = "prefNilai"  
8.   strNamaSumber = "tblPreferensiSistem"  
9.   strFieldPrimaryKey = "prefNama"  
10.   strNilai = strPrefsNama  
11.   tampilkanNilaiPrefs = Nz(menampilkanNilaiField(strNamaField, strNamaSumber, strFieldPrimaryKey, strNilai, oprIn), "")  
12. Exit_Function:  
13.   Exit Function  
14. Err_Msg:  
15.   MsgBox "Function tampilkanNilaiPrefs, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
16.   Chr(13) & Err.Description  
17.   Resume Exit_Function  
18. End Function  
19. Function simpanNilaiPrefs(strPrefsNama As String, varprefNilai As String) 'OK  
20.   Dim strSql As String  
21. On Error GoTo Err_Msg  
22.   strSql = "UPDATE tblPreferensiSistem SET prefNilai = '" & Nz(varprefNilai, "") & _  
23.             "' WHERE prefNama='" & strPrefsNama & "'"  
24.   
25.   jalankanActionQuery strSql  
26. Exit_Function:  
27.   Exit Function  
28. Err_Msg:  
29.   MsgBox "Function simpanNilaiPrefs, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
30.   Chr(13) & Err.Description  
31.   Resume Exit_Function  
32. End Function  
33. Function kembaliKeDefault(frm As Form)  
34.   Dim ctl As Control  
35. On Error GoTo Err_Msg  
36.   
37.   With frm  
38.    .Controls("borderDitampilkan").Value = "-1"  
39.    .Controls("borderTipe").Value = ""  
40.    .Controls("borderUkuran").Value = ""  
41.    .Controls("borderWarna").Value = ""  
42.    .Controls("fontTipe").Value = "Calibri"  
43.    .Controls("fontUkuran").Value = ""  
44.    .Controls("lokasiFolder").Value = CurDir  
45.    .Controls("moneterPengucapan").Value = "Rupiah"  
46.    .Controls("moneterUnit").Value = "Rp"  
47.    .Controls("namaPemilik").Value = ""  
48.    .Controls("penggunaTampilkanNama").Value = "0"  
49.   End With  
50. Exit_Function:  
51.   Exit Function  
52. Err_Msg:  
53.   MsgBox "Function kembaliKeDefault, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
54.   Chr(13) & Err.Description  
55.   Resume Exit_Function  
56. End Function  
57.   
58. Function aplikasikanFormat(frm As Form)  
59.   Dim ctl As Control  
60. On Error GoTo Err_Msg  
61.   
62.   With frm  
63.     For Each ctl In .Controls  
64.       If ctl.ControlType <> acCheckBox And ctl.ControlType <> 119 Then  
65.         ctl.FontName = tampilkanNilaiPrefs("fontTipe")  
66.         ctl.FontSize = Val(tampilkanNilaiPrefs("fontUkuran"))  
67.         If CBool(tampilkanNilaiPrefs("borderDitampilkan")) Then  
68.           ctl.BorderColor = Val(tampilkanNilaiPrefs("borderWarna"))  
69.           ctl.BorderWidth = Val(tampilkanNilaiPrefs("borderUkuran"))  
70.           ctl.BorderStyle = Val(tampilkanNilaiPrefs("borderTipe"))  
71.         Else  
72.           ctl.BorderStyle = 0  
73.         End If  
74.       End If  
75.     Next ctl  
76.   End With  
77. Exit_Function:  
78.   Exit Function  
79. Err_Msg:  
80.   MsgBox "Function aplikasikanFormat, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
81.   Chr(13) & Err.Description  
82.   Resume Exit_Function  
83. End Function  

Function tampilkanNilaiPrefs(strPrefsNama As String) As Variant
  Dim strNamaField As String, strNilai As String
  Dim strNamaSumber As String
  Dim strFieldPrimaryKey As String
  
On Error GoTo Err_Msg
  strNamaField = "prefNilai"
  strNamaSumber = "tblPreferensiSistem"
  strFieldPrimaryKey = "prefNama"
  strNilai = strPrefsNama
  tampilkanNilaiPrefs = Nz(menampilkanNilaiField(strNamaField, strNamaSumber, strFieldPrimaryKey, strNilai, oprIn), "")
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function tampilkanNilaiPrefs, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Function simpanNilaiPrefs(strPrefsNama As String, varprefNilai As String) 'OK
  Dim strSql As String
On Error GoTo Err_Msg
  strSql = "UPDATE tblPreferensiSistem SET prefNilai = '" & Nz(varprefNilai, "") & _
            "' WHERE prefNama='" & strPrefsNama & "'"

  jalankanActionQuery strSql
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function simpanNilaiPrefs, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Function kembaliKeDefault(frm As Form)
  Dim ctl As Control
On Error GoTo Err_Msg

  With frm
   .Controls("borderDitampilkan").Value = "-1"
   .Controls("borderTipe").Value = ""
   .Controls("borderUkuran").Value = ""
   .Controls("borderWarna").Value = ""
   .Controls("fontTipe").Value = "Calibri"
   .Controls("fontUkuran").Value = ""
   .Controls("lokasiFolder").Value = CurDir
   .Controls("moneterPengucapan").Value = "Rupiah"
   .Controls("moneterUnit").Value = "Rp"
   .Controls("namaPemilik").Value = ""
   .Controls("penggunaTampilkanNama").Value = "0"
  End With
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function kembaliKeDefault, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function

Function aplikasikanFormat(frm As Form)
  Dim ctl As Control
On Error GoTo Err_Msg

  With frm
    For Each ctl In .Controls
      If ctl.ControlType <> acCheckBox And ctl.ControlType <> 119 Then
        ctl.FontName = tampilkanNilaiPrefs("fontTipe")
        ctl.FontSize = Val(tampilkanNilaiPrefs("fontUkuran"))
        If CBool(tampilkanNilaiPrefs("borderDitampilkan")) Then
          ctl.BorderColor = Val(tampilkanNilaiPrefs("borderWarna"))
          ctl.BorderWidth = Val(tampilkanNilaiPrefs("borderUkuran"))
          ctl.BorderStyle = Val(tampilkanNilaiPrefs("borderTipe"))
        Else
          ctl.BorderStyle = 0
        End If
      End If
    Next ctl
  End With
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function aplikasikanFormat, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function

Simpanlah modul di atas dengan nama mdlPreferensiSistem. Untuk mudahnya, kita hanya membuat dua fungsi yang ada dalam modul mdlPreferensiSistem, yaitu fungsi tampilkanNilaiPrefs dan simpanNilaiPrefs. Bisa saja kita menambahkan fungsi lain yang berkaitan dengan pengaturan sistem.

Fungsi tampilkanNilaiPrefs digunakan untuk menampilkan nilai dari field prefNilai dari sebuah field primary key. Fungsi ini tergantung pada fungsi lain yang bernama menampilkanNilaiField. Hasil dari nilai ini adalah variant, yang bisa berarti string/text atau array. Nantinya, kita bisa mengkonversi nilai variant ini sesuai dengan kebutuhan. Jadi, bila hasil yang diinginkan adalah integer, maka kita bisa mengkonversinya dengan menggunakan fungsi CInt. Bila hasil yang diinginkan adalah nilai Yes/True, maka kita bisa mengkonversinya menjadi CBool, dan seterusnya. Misalnya seperti ini:

view plainprint?

1. Function konversiTanggal(strNilai As String) As Date  
2.   If IsDate(strNilai) Then konversiTanggal = CDate(strNilai) Else konversiTanggal = vbNull  
3. End Function  
4. Function konversiBoolean(strNilai As String) As Boolean  
5.   If Not IsNumeric(strNilai) Then konversiBoolean = False Else konversiBoolean = CBool(strNilai)  
6. End Function  
7. Function konversiInteger(strNilai As String) As Integer  
8.   If IsNumeric(strNilai) Then konversiInteger = CInt(strNilai)  
9. End Function  

Function konversiTanggal(strNilai As String) As Date
  If IsDate(strNilai) Then konversiTanggal = CDate(strNilai) Else konversiTanggal = vbNull
End Function
Function konversiBoolean(strNilai As String) As Boolean
  If Not IsNumeric(strNilai) Then konversiBoolean = False Else konversiBoolean = CBool(strNilai)
End Function
Function konversiInteger(strNilai As String) As Integer
  If IsNumeric(strNilai) Then konversiInteger = CInt(strNilai)
End Function

Fungsi simpanNilaiPrefs digunakan untuk menyimpan nilai dari field prefNilai jika ada perubahan. Fungsi ini menjalankan fungsi lain yang bernama jalankanActionQuery.

Fungsi kembaliKeDefault mengatur ulang sistem ke keadaan default sesuai dengan saat awal sistem diinstall.

Fungsi aplikasikanFormat digunakan untuk mem-format tampilan sesuai dengan data yang ada format di tabel tblPreferensiSistem.

Penjelasan lebih detail dari setiap fungsi di atas akan dijelaskan di artikel selanjutnya, yaitu saat kita membuat form pengaturan sistem.

Baca juga:

Membuat Pengaturan Sistem Sendiri Di Access - Pengantar (Bagian 1)
Membuat Pengaturan Sistem Sendiri Di Access - Mendesain Tabel  (Bagian 2)
Membuat Pengaturan Sistem Sendiri Di Access - Membuat Form (Bagian 4)