Membuat ID pada Form Visual Basic 6.0

Bagi anda yg gemar menggunakan Visual Basic 6.0 berikut langkah membuat id sehingga ketika user login akan terus tersunting di form anda login sebagai siapa, pada sebuah form yg dijadikan halaman utama atau index form.

Langkah pertama tentunya kita membuat form utama.boleh menggunakan midi form dan tentunya form login..pada form utama beri komponen label dengan property name ID dan caption semisal : Anda tidak loginBagi anda yg gemar menggunakan Visual Basic 6.0 berikut langkah membuat id sehingga ketika user login akan terus tersunting di form anda login sebagai siapa, pada sebuah form yg dijadikan halaman utama atau index form.

Langkah pertama tentunya kita membuat form utama.boleh menggunakan midi form dan tentunya form login..pada form utama beri komponen label dengan property name ID dan caption semisal : Anda tidak login

lihat gambar beriku ini

Pada menu utama set Tombol Logout dengan tag berikut
private sub SmLogout_click()
smLogin.Enabled = True
smLogout.Enabled = False
{definiskan form yg di set disabled karena pada status logout}
ID.Caption = (“Status :Anda Tidak Login”)
End Sub

langkah selanjutnya definisikan status untuk membuat ID pada form login.Pada dasarnya ID di Dapatkan setelah kita melakukan proses login.Jadi setelah login kita baru dapat menentukan user login sebagai siapa dan mengubah Label pada Form Utama dengan text yg didapat pada saat login misal dari username…setelah sebelumnya ad pengecekan ke database tentang verifikasi username dan password.berikut script setelah pengecekan login selesai dilakukan…

buat variable golobal dan non global pada modul yg kita buat sebagai koneksi ke database.sebagai contoh untuk globalnya kita membuat variable umum sebagai koneksi pengecekan ke table dimana login dapat diakses :

Public Rs_cekuser As ADODB.Recordset
Set Rs_cekuser = New ADODB.Recordset
Rs_cekuser.Open “Select * FROM Master”, _
DbKoneksi, adOpenDynamic, adLockBatchOptimistic
End Sub
dan variable Yg di set public yaitu
Public PenggunaID As String
Public PenggunaNm As String
kembali pada form login
{ Bagian ini merupakan bagian segala pengecekan tentang username dan password jika sukses maka berikan informasi bahwa user sukses melakukan login bisa menggunakan procedure vbinformation semisal :

Konfirmasi = MsgBox(“Anda berhasil Login ke sistem!”, _
vbOKCancel + vbInformation, “informasi”)

dan setelah itu perhatikan script dibawah ini

If Konfirmasi = vbOK Then
With fmUtama{nama form utama}
.Show {menu yg dienable kan setelah login semisal form dengan sub menu dibawah ini} .smLogin.Enabled = False
.smLogout.Enabled = True
.MuPenugasan.Enabled = True
.MuPencarian.Enabled = True
.MuLaporan.Enabled = True
.MuMaster.Enabled = True
PenggunaID = _
Rs_cekuser!UserName
PenggunaNm = TxtUser.Text
.ID.Caption = ” Status Login Sebagai : ” _
& UCase(TxtUser.Text)
Unload Me
End With

bagian Yg dicetak tebal diatas merupakan proses pengantian label ID di menu utama dengan text yg dicek oelh RS_cek user sebagai username.sehinga ketika user sukses masuk ke dalam sistem maka pada menu utama label id akan berubah mejadi –> Status login sebagai :(username)

semoga bermanfaat..