Scribd
Upload
31 views

Koding Log in VB

The document describes a login form for an application. It checks the user's login credentials against a database and determines whether the user is an admin or regular user. The form then loads the main application interface and sets the appropriate menu options depending on the user type.

Uploaded by

Remot Mepet Sawah
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
31 views

Koding Log in VB

The document describes a login form for an application. It checks the user's login credentials against a database and determines whether the user is an admin or regular user. The form then loads the main application interface and sets the appropriate menu options depending on the user type.

Uploaded by

Remot Mepet Sawah
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

Option Explicit Dim MaxLogin As Integer Private Sub Form_Load() Move (Screen.Width - Width) / 2, _ (Screen.

Height - Height) / 3 Call BukaDatabase cmbStatus.AddItem ("KASIR") cmbStatus.AddItem ("ADMIN") End Sub Private Sub TbLogin_Click() If txtUser.Text = "" Then MsgBox "USER ID MASIH KOSONG !", _ vbCritical + vbOKOnly, "Error" txtUser.SetFocus ElseIf txtPwd.Text = "" Then MsgBox "PASSWORD MASIH KOSONG !", _ vbCritical + vbOKOnly, "Error" txtPwd.SetFocus Else SQL = "" SQL = "SELECT * FROM Pengguna " _ & "WHERE UserID='" & txtUser.Text & "' " _ & " AND PassID='" & txtPwd.Text & "'" _ & " AND Status='" & cmbStatus.Text & "'" Set Rs_Pengguna = KoneksiDB.Execute(SQL) If Not Rs_Pengguna.BOF Then If Rs_Pengguna!Status = "ADMIN" Then Unload Me FrmUtama.Enabled = True FrmUtama.Show FrmUtama.mnuLaporan.Enabled = True FrmUtama.mnuBarang.Enabled = True FrmUtama.mnuJenis.Enabled = True FrmUtama.mnuPengguna.Enabled = True FrmUtama.mnuTransaksi.Enabled = True FrmUtama.mnuTamStok.Enabled = True FrmUtama.mnuTransJual.Enabled = True FrmUtama.mnuJualPeriode.Enabled = True FrmUtama.mnuLapJual.Enabled = True FrmUtama.mnuJualTgl.Enabled = True FrmUtama.mnuJualNota.Enabled = True FrmUtama.Toolbar1.Enabled = True Else Unload Me FrmUtama.Enabled = True FrmUtama.Show FrmUtama.mnuLaporan.Enabled = True FrmUtama.mnuLapBarang.Enabled = True FrmUtama.mnuBarangJenis.Enabled = True FrmUtama.mnuLapJenis.Enabled = True FrmUtama.mnuTransJual.Enabled = True FrmUtama.mnuTamStok.Enabled = False FrmUtama.mnuJualPeriode.Enabled = False FrmUtama.mnuLapJual.Enabled = False FrmUtama.mnuJualTgl.Enabled = False

FrmUtama.mnuBarang.Enabled = False FrmUtama.mnuJenis.Enabled = False FrmUtama.mnuJualNota.Enabled = False FrmUtama.mnuPengguna.Enabled = False FrmUtama.mnuTransaksi.Enabled = True FrmUtama.Toolbar1.Enabled = False End If PenggunaID = Rs_Pengguna!UserId PenggunaNm = Rs_Pengguna!Nama With FrmUtama .StatusBar1.Panels(1).Text = Rs_Pengguna!Nama .StatusBar1.Panels(2).Text = "[" _ & Rs_Pengguna!Status & "]" .mnuLogin.Enabled = True .mnuLogin.Caption = "Logout" End With Unload Me Else ' Periksa, login hanya 3 kali ' 3x gagal pesan error ditampilkan If MaxLogin < 3 Then MsgBox "PASSWORD MASIH SALAH, SILAHKAN ULANGI LAGI!", _ vbCritical + vbOKOnly, "Error" txtPwd.Text = "" txtPwd.SetFocus MaxLogin = MaxLogin + 1 Else MsgBox "ANDA BUKAN USER YANG BERHAK!", _ vbCritical + vbOKOnly, "Error" End End If End If End If End Sub Private Sub TbTutup_Click() Unload Me End Sub

You might also like