Cara Membuat Form Login
![Cara Membuat Form Login Cara Membuat Form Login dengan visual basic 6.0](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4KWLwB_QO5IYOpk91IIMNtNwJXncZU0Bl0y2M0N_SvlooS4xWcjXtIgfkTO1QyCY9g_6hOBjdQRmqDP4ksYTTRD6NLi7QbTRHfwzHpnDNA46g9YdwEEl1j37WQcmuphaep0XvS29kk_4A/s1600/Screenshot_1.png)
1. Membuat Tabel Login: Sebetulnya dalam mebuat form login tidak selamanya harus menggunakan tabel login. Tidak mesti juga membuatnya harus dimulai dengan membuat tabel login.
field
|
type data
|
field size
|
username
|
text
|
30
|
password
|
text
|
30
|
2. Membuat form login sederhana
3. Membuat Kode Module :Tambahkan satu module yang akan kita gunakan untuk membuat module koneksi. kemudian ketik kode-kede berikut.
Global conn As ADODB.Connection
Global
rspasien As ADODB.Recordset
Global
rsobat As ADODB.Recordset
Global
rsterapi As ADODB.Recordset
Sub
koneksi()
Set conn = New ADODB.Connection
conn.Provider =
"microsoft.jet.oledb.4.0"
conn.CursorLocation = adUseClient
conn.Open App.Path &
"\dbdr.mdb"
End
Sub
4. Ketikan mantra-mantra berikut pada jendela kode
Private Sub Form_Load()
koneksi
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command1_Click()
If Tuser.Text <> "" And Tpas.Text
<> "" Then
Set rslogin
= New ADODB.Recordset
rslogin.LockType = adLockOptimistic
rslogin.CursorType = adOpenDynamic
rslogin.Open "select * from login where user_name = '" &
Tuser.Text & "' and password = '" & Tpas.Text &
"'", conn, , , adCmdText
If Not
rslogin.EOF Then
MsgBox
("Login Anda Berhasil")
Form1.Show
login.Visible = False
Else
MsgBox "User Name dan Password Salah Silahkan Ulangi Kembali",
vbCritical
Exit
Sub
End If
End If
End Sub
Private Sub Timer1_Timer() ' tulisan
berjalan pada caption
Caption = Mid(Caption, 1 + 1, Val(Len(Caption) - 1)) & Mid(Caption, 1,
1)
End Sub
Great
ReplyDelete