Contoh programnya : Klik Disini ( BADAWI )
Langkan Melakukannya
Buatlah 4 Form, 1 Module, dan 1 Data Environment
Buat Database dengan cara :
1. Klik add-ins
2. Visual Data Manager
3. File
4. New
5. Microsoft Acces Version 7.0 MDB
6. tulis Filename pada direktori penyimpanan projek ini
7. pada properties klik kanan
8. New Table
9. Table Name = login
10. pada pilihan Field List pilih add Field
Buat dua Connection yakni Connection1. dan pass
Caraya :
1. Klik Add Connection
2. Klik Kanan pada Connection
3. Properties
4. pada Provider Pilih : Microsoft Jet 4.0 OLE DB Provider
5. Next
6. Pada Pilihan Database Name pilih Data untuk Connection1. dan login Untuk Connection pass
7.OK
Buat pula Command 2 buah
Langkahnya :
Klik Kanan Connection kemudian add Command
Pengaturan pada Properties Command :
Pada Connection pilih Connection1 untuk Command 1 dan pass untuk untuk Command 2
Pada pilihan data object pilih Table
Pada object Name pilih Data untuk Command1 dan login Untuk Command 2
Pada tab Advance pilihan LockType pilih 3-Optimistic kemudian OK
Kemudian tampilan Data environment akan diperileh sebagai berikut :
Buatlah Masing-masing Form Sebagai Berikut :
Form 1
Form 1 Memiliki properties sebagai berikut :
Kemudian Tulis Code berikut :
Private Sub Cmdok_Click()
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "SELECT * FROM login WHERE
user ='" + txtuser + "' and Pass = '" + txtpass + "'",
CN, adOpenDynamic, adLockOptimistic
If (txtpass.Text = "") And
(txtuser.Text = "") Then
MsgBox "Please Type Username and
Password"
txtpass.Text = ""
txtuser.Text = ""
txtuser.SetFocus
ElseIf (txtuser.Text = "") Then
MsgBox "Please Type Username"
txtuser.Text = ""
txtuser.SetFocus
ElseIf (txtpass.Text = "") Then
MsgBox " Please Type Password"
txtpass.Text = ""
txtpass.SetFocus
Else
With RS
If RS.RecordCount = 1 Then
Unload Me
MsgBox "Acces Code Accepted!"
Form2.Show
Unload Me
Else
MsgBox "Password and Username
Mismatch"
txtpass.Text = ""
txtuser.Text = ""
txtuser.SetFocus
End If
End With
End If
End Sub
Private Sub Command1_Click()
Form1.Hide
Form3.Show
End Sub
Private Sub Form_Load()
Me.Show
Set CN = New ADODB.Connection
CN.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\login.mdb;Persist Security Info=False;Jet OLEDB:Database
Password=MLEVDQ48L2"
End Sub
Untuk Form 2
Propertiesnya :
Codenya :
Private Sub Command1_Click()
End
End Sub
End
End Sub
FORM 3
Code nya :
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text2.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text3.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text4.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text5.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text6.Text = "" Then
MsgBox " Data Belum Lengkap"
Else
DT.rsCommand1.AddNew
Form3.Hide
Form4.Show
End If
End Sub
Private Sub Command2_Click()
DT.rsCommand1.AddNew
Frame1.Visible = True
Command2.Visible = False
End Sub
FORM 4
Propertiesnya :
Codenya :
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Data Belum Lengkap"
ElseIf Text2.Text = "" Then
MsgBox " Data Belum Lengkap"
Else
DT.rsCommand2.AddNew
MsgBox "Selamat, Registrasi anda
Selesai"
Form1.Show
Form4.Hide
End If
End Sub
Private Sub Command2_Click()
DT.rsCommand2.AddNew
Frame1.Visible = True
Command2.Visible = False
End Sub
Untuk Penjelasan kode dan Propertienya dapat juga di downloadDISINI ( BADAWI )
