DESAIN FORM LOGIN

Desain form LOGIN:

Private Sub cancel_Click()

Call bersih

End

End Sub

Private Sub Form_Activate()

tkode.SetFocus

End Sub

Private Sub Form_Load()

Call bersih

tpass.PasswordChar = "@"

End Sub

Private Sub masuk_Click()

‘untuk tombol login

‘data_user adalah nama DATA-nya

data_user.Recordset.Index = "kode_user"

data_user.Recordset.Seek "=", tkode.Text

'data_user.Recordset.Seek "=", tpass

If tkode = "" Or tpass = "" Then

MsgBox "Data Harus Diisi!", vbCritical, "Pesan"

ElseIf tkode <> data_user.Recordset!kode_user And tpass.Text <> data_user.Recordset!Password Then

MsgBox "Anda tidak berhak login!", vbCritical, "Pesan"

Else

‘form loading untuk menampilkan splash

‘form loading diambil dari nama formnya

form_loading.Show

‘windowstate=2 untuk menampilkan form secara full (maximized)

form_loading.WindowState = 2

    If data_user.Recordset!jabatan = "admin" Then

‘F_MENU diambil dari nama form MENU UTAMA

    F_MENU.data_file.Enabled = True

    ElseIf data_user.Recordset!jabatan = "user" Then

    F_MENU.data_file.Enabled = False

    End If

End If

Unload Me

End Sub

Private Sub tkode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tkode.Enabled = False

tpass.SetFocus

End If

End Sub

Sub bersih()

tkode = ""

tpass = ""

End Sub

Sub aktif()

tkode.Enabled = True

tpass.Enabled = True

End Sub

Private Sub tpass_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

masuk_Click

End If

End Sub