Ini mungkin listing programnya di tombol OKnya... semoga membantu
Private Sub cbok_Click()
Dim ctgl As String
If Trim(txtLogin.Text) = "" Then
MsgBox "Login ID harus diisi!", vbExclamation, "Empty Login ID"
txtLogin.SetFocus
Exit Sub
ElseIf cboLogon.Text = "" Then
MsgBox "Login To harus dipilih!", vbExclamation, "Empty Login To"
cboLogon.SetFocus
Exit Sub
Else
If Trim(txtPassword.Text) = "" Then
MsgBox "Password tidak boleh kosong!", vbExclamation, "Empty
Password"
Exit Sub
Else
'Bagian sini sesuaikan sama data basenya...
rs.Open "select idpetugas,Password from user where idpetugas = '"
& txtLogin.Text & "'", db, adOpenDynamic, adLockOptimistic
If rs.BOF = True And rs.EOF = True Then
MsgBox "Login ID tidak ditemukan, Coba Lagi!", vbExclamation,
"Wrong Login ID"
txtLogin.SetFocus
rs.Close
Exit Sub
Else
' isi field juga sesuaikan dengan yg ada ditabel ya....
If rs.Fields("password") <> txtPassword.Text Then
MsgBox "Password Salah, Coba Lagi!", vbExclamation, "Wrong
Password"
'txtPassword.Text = ""
txtPassword.SetFocus
rs.Close
Exit Sub
Else
'kalo sukses, masuknya ke sini.. selanjutnya terserah mau
ngapain......
' di contoh ini manggil form frmMain...
frmMain.Show
Unload Me
End If
End If
End If
End If
End Sub
Tarisno Amijoyo <[EMAIL PROTECTED]> wrote:
Dear ALL...
Sory nih aku NewBie...
aku pengin buat Form Login dimana
1. Sudah aku buat data sql hanya dengan tabel 2 kolom "nama" dan "passw"
dan udah aku isi hanya dengan 2 record. Dimana dalam form Login itu sudah
aku koneksikan dengan Adodc1
2. Dalam form itu terdapat 2 textbox yang mana sudah aku buatkan koneksi ke
Adodc1 tersebut dan sudah terkoneksi dengan sempurna ke Tabel itu.
3. Dalam form terdapat satu tombol 'OK' dan 'CANCEL"....
gimanakah listingnya agar sa'at Klik OK maka akan muncul Form Menu jika data
sesuai dengan database yang aku buat. Dan jika tidak maka akan keluar
message...
gimanakah itu?
makasih
--
Aku orang biasa
Tapi kepengin jadi Luar Biasa
[Non-text portions of this message have been removed]
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
