Membuat login

Dalam pertemuan kali ini kitakan melanjutkan pembuatan penjualan obat klinik,untuk itu kita harus membuat login untuk keamanan .untuk itu buat lah form loginSeperti dibawah ini:
1.buatlah form 1 dengan nama LOGIN

keterangan Membuat Form

NAMA	KET
FORM1	NAME ( LOGIN) CAPTION ( JANGAN COBA MASUK KALAU BUKAN YANG PUNYA)
LABEL1	NAME (LABEL1) CAPTION (SILAHKAN KETIK USER NAME DAN PASSWORD UNTUK MASUK KE SISTEM}
LABEL2	NAME (LABEL2) CAPTION (USER NAME)
LABEL3	NAME (LABEL3) CAPTION (PASSWORD)
COMMAND1	NAME (COMMAND1) CAPTION (MASUK)
COMMAND2	NAME (COMMAND2) CAPTION (KELUAR)
TIMER1	INTERVAL (3) LEFT(600)
TIMER2	INTERVAL (500) LEFT(600)

SETELAH ITU MASUKAN KODENYA

KLIK GANDA TOMBOL MASUK

Private Sub Command1_Click()

If Text1.Text <> "" And Text2.Text <> "" Then

Set rslogin = New ADODB.Recordset

rslogin.LockType = adLockOptimistic

rslogin.CursorType = adOpenDinamic

rslogin.Open "select*from login where USERNAME = '" & Text1.Text & "' and  PASSWORD ='" & Text2.Text & "'", conn, , , adCmdText

If Not rslogin.EOF Then

MsgBox ("Login Anda Berhasil")

MENUUTAMA.Show

LOGIN.Visible = False

Else

MsgBox "User Name dan password Salah Silahkan Ulangi Kembali", vbCritical

Exit Sub

End If

End If

End Sub

KLIK GANDA TOMBOL KELUAR

Private Sub Command2_Click()

End

End Sub

KLIK GANDA FORM

Private Sub Form_Load()

koneksi

End Sub

KLIK GANDA TIMER1

Private Sub Timer1_Timer()

If Label1.Left > -6000 Then

Label1.Left = Label1.Left - 3

ElseIf Label1.Left < -6000 Then

Label1.Left = 6000

End If

End Sub

KLIK GANDA TIMER2

Private Sub Timer2_Timer()

Caption = Mid(Caption, 1 + 1, Val(Len(Caption) - 1)) & Mid(Caption, 1, 1)

End Sub

Sekian dan Terimah Kasih

Posted by Unknown

Tweet