membuat form login pada delphi

Membuat Form Login
Hal yang perlu disiapkan adalah :
Membuat database
Membuat tabel (kasir)
Kodeksr
Namaksr
Passwordksr
Membuat modul untuk akses database
Membuat form

Catatan : di bagian bawah ada sebuah textbox yang tertutup form
Membuat menu utama yang telah ditambahkan statusbar

Membuat coding di VB



lalu masukan kode dibawah ini:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call Koneksi
RSKasir.Open "select * from kasir where namaksr='" & Text1 & "'",
Conn
If Not RSKasir.EOF Then
Text1.Enabled = False
Text2.SetFocus
Else
MsgBox "nama kasir tidak terdaftar"
Text1.SetFocus
Text1 = ""
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call Koneksi
RSKasir.Open "SELECT * FROM KASIR WHERE NAMAKSR='" & Text1 & "' AND
PASSWORDKSR='" & Text2 & "'", Conn
If Not RSKasir.EOF Then
Text2.Enabled = False
Text3 = RSKasir!kodeksr
Me.Visible = False
MENU.Show
MENU.STBar.Panels(1).Text = LOGIN.Text1
MENU.STBar.Panels(2).Text = LOGIN.Text3
Else
MsgBox "PASSWORD SALAH"
Text2.SetFocus
Text2 = ""
End If
End If
End Sub