Membuat Form Tambah User

Membuat Form Untuk Menambah Data User Baru.

Setelah sebelumnya penulis telah membahas tentang cara pembuatan form ganti password, dimana form tersebut ditujukan agar user yang menggunakan aplikasi kita, dapat mengganti password mereka sendiri. Sekarang penulis akan share tentang cara pembuatan form untuk menambah data user baru. Hal ini tentunya agar kita sebagai pembuat aplikasi tidak direpotkan dengan masalah penambahan user baru, karena jika kita tidak membuatkan form untuk menambah data user baru, sudah tentu dan pasti pula jika suatu saat ada penambahan user yang menggunakan aplikasi kita, maka kita harus mengakses ke tabel yang menyimpan data-data user yang menggunakan aplikasi tersebut. Iya kalau cuma sesekali, lha kalau berkali-kali atau frekuensi adanya user baru itu sering kan jadi repot tuh. Nah untuk mengantisipasi hal tersebut, biasanya setiap aplikasi memiliki fitur Manajemen User atau dalam bahasa inggrisnya User Management, dimana dalam fitur tersebut akan ada fitur untuk menambah data user baru, mengedit data user yang telah ada atau yang lainnya yang berhubungan dengan user, yang tentu saja user yang bisa mengakses fitur tersebut haruslah user dengan level administrator (umumnya sih begitu), sehingga anda bisa menyerahkan tugas penambahan user baru kepada orang-orang atau user-user yang telah anda jadikan administrator dalam aplikasi anda, dan anda bisa duduk santai setelah bekerja keras membuat aplikasi tersebut, atau anda bisa tenang untuk membuat aplikasi yang lainnya, dengan tidak direpotkan oleh urusan tambah-menambah data user baru.

Okay, kita langsung ke pokok pembahasan kita sekarang ini yaitu mengenai pembuatan Form untuk Menambah data user baru. Dalam pembahasan kali ini penulis menggunakan file database ms access yang telah penulis buat sebelumnya ketika membuat artikel Pembuatan Form Ganti Password, jika anda belum membacanya, silahkan anda baca sekarang atau nanti juga tidak apa-apa, tetapi yang penting anda harus mempunyai file yang telah penulis buat sebelumnya agar and tidak tersesat dalam mengikuti langkah-langkah yang akan penulis berikan dalam pembuatan form ini. Jika anda belum memilikinya sekarang, anda bisa mendownloadnya terlebih dahulu di 4Shared (terbuka pada tab baru), jika anda sudah memilikinya, silahkan lanjutkan ke langkah-langkahnya berikut ini

Buka file yang telah anda download sebelumnya (tentang Form Ganti Password). dalam membuka file tersebut anda harus pastikan jendela databasenya ikut ditampilkan.

Buat sebuah form baru, form yang berjenis Unbound, dengan cara klik dua kali pada Create form in design view.

Masukkan 2 (dua) buah TextBox kedalam form tersebut dan ganti namanya masing-masing dengan :

txtUserName -> Untuk memasukkan nama user yang baru

txtPassword -> Password untuk user yang baru (tambahan: penulis setting default value untuk txtPassword adalah 1234)

Masukkan 1 (satu) buah Combo Box menggunakan Wizard, pilih RowSourcenya dari table mstLevel (atur yang lainnya sesuai kebutuhan anda) dan beri nama Combo Box tersebut dengan cboLevelUser, Combo Box ini yang akan menjadi source data untuk field UserLevel dalam table tblUser. Langkah opsional untuk cboLevelUser :

Default Value = cboLevelUser.ItemData(0)

Limit To List = Yes

Masukkan 1 (satu) buah Check Box, atur default valuenya menjadi 1, dan ganti namanya menjadi cbxActive, dan ganti caption dari labelnya menjadi Active, Check Box ini yang akan menjadi source data untuk field StatusUser dalam table tblUser.

Masukkan 3 (tiga) buah command button, masing-masing dengan nama :

cmdSave -> Caption = SAVE

cmdAddNew -> Caption = ADD NEW

cmdClose -> Caption = CLOSE

Lalu masukkan code berikut ini kedalam event On Click pada cmdSave :

Dim dbCnn As ADODB.Connection, dbRcr As ADODB.Recordset
Dim strCnn As String, strMsg As String

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.CurrentProject.Path & "\Nama File Databasenya.mdb"

If IsNull(Me.txtUserName) Or Me.txtUserName.Value = "" Then
MsgBox "Username tidak boleh kosong.", vbExclamation
txtUserName.SetFocus
ElseIf IsNull(Me.txtPassword) Or Me.txtPassword.Value = "" Then
    MsgBox "Password tidak boleh kosong.", vbExclamation
    txtPassword.SetFocus
ElseIf DCount("NamaUser", "tblUser", "[NamaUser]='" & txtUserName & "'") > 0 Then
        MsgBox "Username " & txtUserName & " Sudah ada, silahkan masukkan username yang lain.", vbExclamation
        txtUserName.SetFocus
Else

Set dbCnn = New ADODB.Connection
dbCnn.Open strCnn

Set dbRcr = New ADODB.Recordset
dbRcr.CursorType = adOpenKeyset
dbRcr.LockType = adLockOptimistic
dbRcr.Open "tblUser", dbCnn, , , adCmdTable
   
dbRcr.AddNew
    dbRcr!NamaUser = txtUserName
    dbRcr!Password = txtPassword
    dbRcr!UserLevel = cboLevelUser
    dbRcr!StatusUser = cbxActive
    dbRcr.Update
strMsg = "Berhasil menambahkan user baru, dengan detail :" & vbCr & vbCr
strMsg = strMsg & "Username: '" & txtUserName & "' Password " & txtPassword & "." & vbCr
strMsg = strMsg & "Level User: " & cboLevelUser
MsgBox strMsg, vbInformation
Call cmdAddNew_Click

dbRcr.Close
dbCnn.Close
End If

Silahkan anda rubah "Nama File Databasenya.mdb" sesuai dengan nama file yang sedang anda kerjakan.

Lalu masukkan code berikut ini kedalam event On Click dari cmdAddNew

Me.txtUserName = Null
Me.txtPassword = 1234
Me.txtUserName.SetFocus

Lalu masukkan code berikut ini kedalam event On Click dari cmdClose

DoCmd.Close acForm, "frmTambahUser"

Anda juga boleh tambahkan statement On Error pada awal code diatas (untuk berjaga-jaga jika terjadi error).

Jika anda mengatur properti Limit To List dari cboLevelUser menjadi Yes, maka anda harus masukkan code berikut ini kedalam event On Not In List dari cboLevelUser

MsgBox "Level " & NewData & " tidak ada dalam daftar, silahkan pilih level yang telah ada dalam daftar atau hubungi administrator."
Response = acDataErrContinue

Code Opsional (yang bisa anda tambahkan atau tidak, namun menurut penulis lebih baik anda tambahkan code berikut ini :

Event After Update cboLevelUser

If IsNull(Me.cboLevelUser) Or Me.cboLevelUser.Value = "" Then

cboLevelUser = cboLevelUser.ItemData(0)

End If

Event On KeyPress txtUserName

Select Case KeyAscii
    Case 97 To 122
    KeyAscii = KeyAscii - 32
    Case Else
End Select

Code-code diatas tidak baku, anda bisa dan boleh untuk merubah kata-kata dalam pesan MsgBox menjadi seperti yang anda inginkan.

Setelah semua code telah anda masukkan pada masing-masing event dari masing-masing control, lalu atur properti dari form tersebut sesuai dengan selera dan kebutuhan anda, dan anda simpan form tersebut dengan nama frmTambahUser. Berikut adalah tampilan form versi penulis :

Maka selesailah pembuatan form untuk menambah data user baru.
Tutup jendela VBA editor, lalu test form yang baru saja anda buat.
Semoga Berhasil...

Untuk file contoh form penambahan user baru, bisa anda download dari 4Shared.com.

Semoga Bermanfaat...

Posted in: tips n trik