Ada beberapa cara untuk membuat LOGIN.Ada yang menggunakan
DATA MASTER dan ada yang tidak menggunakan
Berikut ini saya akan menjelaskan kedua cara tersebut,Anda tinggal
memilih Cara mana yang menurut anda mudah.
Textbox yang atas saya beri nama txtusername
Textbox yang bawahnya saya beri nama txtpassword
Sedangkan tombol yang Login diberi nama cmdlogin
Pada Form tsb pada Properties, Captionnya = Login, StartUpPosition =
CenterScreen, MinButton = False, MaxButton = False
Langkah selanjutnya buat koneksi dengan ODBC, langkahnya :
Masuk ke Control Panel > Administrative Tools > ODBC > pada tab User
DNS > Add > Cari Driver do Microsoft Access (*.mdb) Kemudian Finish
Pada Data Source Name diisi koneksi (nama lain bebas), Discription diisi
boleh tidak juga boleh. Kemudian klik tombol Database dan kemudian
cari file database yang sudah dibuat dengan access, jika sudah ketemu
klik Ok > Ok. Sehingga hasilnya sebagai berikut:
Nah sampai tahap ini database sudah siap untuk dibuat koneksinya
dengan VB, sekarang tinggal dilanjutkan ke VB lagi. Pada toolbox
diklik kanan, pilih Componen, kemudian cari dan centang Microsoft
Ado Data Control 6.0 (OLEDB) > Ok
Masukkan/drag Componen ADODC ke dalam Form_Login, kemudian pada Propertis
Visiblenya diset False. Kemudian klik kanan Adodc1 tersebut pilih Adodc Properties,
kemudian > pada Use Connection String pilih > Build > pada Tab Provider
pilih Microsoft OLEDB Provider for ODBC Driver > Next > Pada Use
data source name > cari Koneksi >kemudian untuk menyakinkan koneksinya
sukses atau tidak Coba Test Connection, jika sukses bisa dilanjutkan
> Kemudian masuk ke Tab Record Source, buka pada Command Text (SQL)
masukkan perintah SQL sbb
Select * from TBKaryawan
Kemudian OK
Langkah selanjutnya lagi masuk ke Form_Menu atur
propertiesnya StartUpPosition = CenterScreen
Lalu buat menunya menggunakan Menu Editor,
dan susunlah menjadi seperti berikut :
<!–[if gte mso 9]> Normal 0 false false false MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]> <![endif]–>
Sedangkan settingannya sebagai berikut :
Caption |
name |
Master |
mnMaster |
Karyawan |
mnKaryawan |
Pengkodean Barang |
mnBarang |
Keluar |
mnKeluar |
Transaksi |
mnTransaksi |
Pembelian |
mnPembelian |
Penjualan |
mnPenjualan |
Laporan |
mnLaporan |
Data Karyawan |
mnLapKaryawan |
Utility |
mnUtility |
Pengguna Software |
mnPengguna |
BackUp Data |
mnBackup |
Setelah menu terbentuk, tinggal pasang coding untuk keluar, caranya pada
Form_Menu, buka Master klik Keluar, kemudian tambahkan coding
End
sehingga tampak sbb :
Private Sub mnKeluar_Click()
End
End Sub
Kemudian buka kembali Form_Login dan pada Tombol Login
klik 2x dan isikan codingnya menjadi sbb :
Private Sub cmdlogin_Click()
Vusername = txtusername.Text
Vpassword = txtpassword.Text
Adodc1.RecordSource = “select * from TBKaryawan
where nik = ‘” + Vusername + “‘ and password = ‘” + Vpassword + “‘”
Adodc1.Refresh
If (Adodc1.Recordset.RecordCount >= 1) Then
tbagian = Adodc1.Recordset!bagian
If (tbagian <> “Admin”) Then
Form_Menu.mnPengguna.Enabled = False
End If
Form_Menu.Show
Form_Login.Hide
Else
MsgBox “Username atau password salah”
End If
End Sub
Nah sampai disini selesai sudah tinggal di run
Hasilnya seperti berikut, jika yang login bagiannya Casir ya tidak
bisa membua pengguna software, tapi kalau yang Login Admin ya
bisa membuka Pengguna Software :
Jika mengunakan DATA BASE anda harus menglinkkan DATA BASE
atau mengkonecsikan.mungkin agak terlalu ribet.tapi cara tersebut sangat aman digunakan
SELAMAT MENCOBA…
Berikut ini cara membuat LOGIN tampa menggunakan DATA BASE,
Sangat mudah digunakan tampa harus mengkoneksikan DATA BASE.
CARA MEMBUAT LOGIN TAMPA MENGGUNAKAN DATA BASE
Private sub txtuser_keyascii (interger as char)
Keyascii=ash(Ucase(char(keyascii)))
If keyascii=13 Then
Txtpass.setfocus
End sub
Private sub txtpas keyascii (interger as char)
Keyascii=ash(Ucase(char(keyascii)))
If keyascii=13 Then
cmblogin.setfocus
End sub
Private sub cmblogin_click()
Static as integer
If txtuse.text=”Kholik” And txtpas.text=”12100651” Then
Msgbox”Selamat Anda Berhasil Login”I N F O”
End if
Gosub noacc
If txtuse.text = ”” And txtpas.text = ”” Then
Msgbox”Anda tidak bias mengakses Aplikasi ini”,vbinformation,”I N F O”
Txtuser.text = “”
Txtpass.text = “”
Unload me
End if
End sub
Noacc:
I = I + 3
If I = 3 Then
Msgbox”Anda tidak dapa mengakses aplikasi ini”,vbcritical,”E R R O R”
Unload me
End if
End sub
Noacc:
Digunakan untuk perulangan sehingga jika dalam 3x anda salah input
maka akses akan tertutup secara otomatis…
Klo ada yang salah sms w ja coalna w kga ngeliat vbna dikantor kga ada..
W nulis seinget w ja..
Oke
Selamat mencoba..