Thursday, June 20, 2013

cara LOGIN DENGAN DATABASE di vb 6.0

LOGIN DENGAN DATABASE
7.1. Form Login
Form login digunakan untuk masuk ke dalam program aplikasi. Dengan
demikian pengguna program aplikasi dapat mengakses program aplikasi sesuai
dengan hak akses yang diberikan kepada nya. Pada form login terdapat bagian
password atau sandi. Password inilah yang merupakan kunci dari masing-masing
pengguna untuk masuk kedalam system. Untuk membuat form login, lakukan
langkah-langkah sebagai berikut :
1. Tambahkan sebuah form pada proyek IP.
2. Tambahkan dua buah textbox, combo1 serta dua buah command button dan tiga
buah label.
3. Atur property objek-objek tersebut sebagai berikut :
Objek Properti Setting
Form1 Nama UserLogin
Caption Form User Login
Label1 Caption ID User
Label2 Caption Password
Label3 Caption Bagian
Text1 Nama Text1
Text
Text2 Nama text2
passwordChar *
Text
ComboBox1 Name Combo1
Text Pilih
List Admin,svp,menejer
Command1 Nama command1
Caption Login
Command2 Nama Command2
Caption Batal
40
4. Tampilan form login seperti yang terlihat pada gambar 6.1.
Gambar 7.1. Tampilan Form User Login
5. Sedangkan untuk kode programnya adalah sebagai berikut :
‘Deklarasi Koneksi dan Recordset
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim iduser, passworduser, bagian As String
Private Sub Command1_Click() (Login)
Reportpassworduser = Text2.Text
Reportiduser = Text1.Text
Dim mysql As String
mysql = "select * from tbuser where iduser = '" & Replace(Text1, "'", "''") & "' and " & _
"passworduser = '" & Replace(Text2, "'", "''") & "' and " & _
"bagian = '" & Replace(Combo1, "'", "''") & "'"
Set rs = New ADODB.Recordset
Set rs = conn.Execute(mysql)
If Not rs.EOF Then
MsgBox "Login sukses"
If Combo1.Text = "Admin" Then
Menu.menuutama(1).Enabled = True
Menu.menulogin(1).Enabled = False
Menu.menuutama(2).Enabled = False
Menu.menuutama(3).Enabled = True
Menu.menuutama(4).Enabled = True
41
Menu.menuutama(5).Enabled = False
Menu.menuutama(6).Enabled = False
Menu.menuutama(7).Enabled = False
ElseIf Combo1.Text = "Supervisor" Then
Call Menu_Tampak
Menu.menulogin(1).Enabled = False
Else: Combo1.Text = "Menejer"
Call Menu_Bisa
End If
Menu.Show
Login.Hide
Unload Me
Else
MsgBox "Chek Kembali Username,Password Dan Bagian", vbCritical
Call kosong
Text1.SetFocus
End If
End Sub
Private Sub Command6_Click() (Keluar)
Dim pesan As String
pesan = MsgBox("keluar", 4 + 32, "penting")
If pesan = vbYes Then
Do
Me.Left = Me.Left + 100
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width - 500
Unload Me
Menu.Show
End If
End Sub
Private Sub Form_Activate()
Text1.SetFocus
Me.Top = 2000
Me.Left = 5900
Me.Height = 4700
Me.Width = 4400
End Sub
42
Private Sub Form_Load()
Dim koneksi As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
Adodc1.Refresh
End Sub

Sub kosong()
Text1 = ""
Text2 = ""
Combo1 = ""
End Sub

baca juga
cara membuat laporan dgn crystal report

0 comments:

Post a Comment

◄ Posting Baru Posting Lama ►
 
Protected by Copyscape Web Copyright Checker

Template information

Copyright © 2012. Download free area - All Rights Reserved B-Seo Versi 5 by Blog Bamz