Untuk membuat sistem keamanan dalam program yang dibuat, kita harus membuat form login yang bisa membatasi orang yang akan masuk ke sistem. Ada beberapa cara yang dapat dilakukan untuk membuat sebuah form login pada sebuah program. Cara ini tentu tergantung pada selera dan kebutuhan. Pada contoh ini kita akan membuat sebuah form login yang terdiri dari satu tabel login, form login, module koneksi. Adapun langkah-lankahnya sebagai berikut.
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