menu login dengan enscripsi nilai ascii (VB 6.0 & mysql)

November 7, 2008 at 8:21 am Leave a comment

Pertama buat dahulu databasenya, ddl dan dml sbb :

create database stok;

use stok;

CREATE TABLE tbkaryawan (

NIK varchar(20) NOT NULL,

Nama varchar(35) NOT NULL,

Agama varchar(1) NOT NULL,

Tempat_Lahir varchar(35) NOT NULL,

Tanggal_Lahir date NOT NULL,

Bagian varchar(35) NOT NULL,

Password varchar(20) NOT NULL

) type=MyISAM;

INSERT INTO tbkaryawan VALUES (‘R001’, ‘Ely’, ‘1’, ‘Kebumen’, ‘1984-11-06’, ‘Casir’, ‘qdzd’);

INSERT INTO tbkaryawan VALUES (‘R002’, ‘Wati’, ‘1’, ‘Kebumen’, ‘1983-11-09’, ‘Casir’, ‘qz’);

INSERT INTO tbkaryawan VALUES (‘R003’, ‘Admin’, ‘1’, ‘Kebumen’, ‘1990-11-01’, ‘Admin’, ‘hgs’);

Buat dahulu koneksi ODBCnya dahulu dalam contoh saya ini saya buat koneksinya dengan nama koneksimysql, caranya :

Masuk ke Control panel > Administrative Tools > pada tab User DSN > Add > MySql ODBC 3.51 Driver > Finish

Keluar menu lagi, pada Data Source Name diisi koneksimysql

Description diisi boleh tidak juga boleh

Server diisi localhost

User diisi root

Password diisi password mysqlnya

Database pilih stok > OK > OK

Kemudian buat Form sebanyak 2 Form, yaitu Form_Login dan Form_Menu sbb :

mysql2

Sedangkan untuk Form_Login desain formnya adalah sbb :

access6

Textbox yang atas saya beri nama txtusername

Textbox yang bawahnya saya beri nama txtpassword, dan PasswordCharnya diisi *

Sedangkan tombol yang Login diberi nama cmdlogin

Pada Form tsb pada Properties, Captionnya = Login, StartUpPosition = CenterScreen, MinButton = False, MaxButton = False

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 masukke 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 :

access9

access10

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

n = Len(Trim(txtpassword.Text))

For i = 1 To n

w = Mid(txtpassword, i, 1)

x = Asc(w)

xx = Chr(x + 3)

sandi = sandi + xx

Next i

Adodc1.RecordSource = “select * from TBKaryawan where NIK = ‘” + Vusername + “‘ and password = ‘” + sandi + “‘”

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, saat Login Username isikan R003 dengan password edp, walaupun di mysql tersimpan hgs, karena enscripsinya setiap karakter ditambah tiga, logikanya e menjadi h, d menjadi g, p menjadi s. Jika yang login Admin maka semua menu bisa diakses,namun jika dicoba Login dengan username R001 dan passwordnya diisi nawa, maka menu Pengguna Software tidak bisa diakses seperti berikut:

access11


Entry filed under: Pemrograman Visual. Tags: .

Membuat menu login dengan VB 6.0 dan MS Access Kuliah pilih jurusan komputer

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

Trackback this post  |  Subscribe to the comments via RSS Feed


November 2008
M T W T F S S
« Oct   Dec »
 12
3456789
10111213141516
17181920212223
24252627282930

%d bloggers like this: