CARA MEMBUAT LOGIN DENGAN MENGGUNAKAN DATA MASTER

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.

Windows Live Blog

clip_image001

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:

clip_image002

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

clip_image003

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 :

clip_image004

clip_image005

<!–[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

clip_image001[1]

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..

About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s