Tutorial membuat login multiuser dengan vb6 (buat pemula terutama)

Bismillahirrahmanirrahim

Assalamualaikum wr. wb

Jadi untuk yang pertama ini saya akan memberikan tutorial #ceilah

Bagaimana membuat login multiuser dengan menggunakan aplikasi visual basic 6?

Nha, sedikit curcol, saya juga baru belajar vb6 (baru 1 bulanan lah)

Untuk awal saya bener" bingung bagaimana sih membuat login itu? Secara sederhana saja.

Hampir 3 hari nyari akhirnya ketemu, maklum kroco wkwk

Ok jadi langsung saja yah

Pertama buat database-nya.

Saya misalkan punya saya 

Database berikut menggunakan SQL Server 2000 dan untuk editingnya, saya menggunakan Navicat For SQL Server

Ohya dan untuk database bisa dibuat di lain software juga. Mo pake sql server, mysql, msaccess, dbase, apa aja deh wkwk tapi ini saya mencontohkan menggunakan sql server 2000

TRUS YANG PALING PENTING DAN KADANG KELUPAAN ITU, JANGAN LUPA KALO MAKE SERVER LOKAL MACAM SQL,XAMPP,WAMPP,DSB JANGAN LUPA IDUPIN SERVERNYA BRO WKWK 

Tar kalo pas di koneksi-in ga bisa bingung, marah" dan biasanya masalah sepele ginian yang bikin njeblug #pengalaman wkowk oh tapi untuk msaccess ato excel ga usah terlalu dipikirkan untuk beginiannya ^^

Kemudian gambaran sedikit tentang database-nya seperti berikut, saya asumsikan kalo udah tau sedikit banyak tentang database hehe :

Tabel itu saya buat dengan : 

Ngedit pake = Navicar for sql server

Nama database = db_material

Nama Tabel = login

Pokonya intinya sama kok mau ngedit database pake apa, gambarannya kek gitu paling ngga ^^

Keterangan singkatnya sih, saya ingin membuat beberapa login yang berbeda menurut orangnya jadi misalkan kalau saya adalah seorang kasir, maka logikanya ketika login saya akan masuk ke form kasir. Atau kalau saya manager ya masuk ke manager seperti itu. Ok, ini masih database-nya aja.

Lanjot ke nganu, vb-nya ^^

Buka visual basic 6 pilih standard exe

Ok udah masuk sekarang langkah selanjutnya adalah "Gimana sih koneksi-in database kita ama program kita?"

Ada berbagai cara, pertama anda bisa membuat dengan modul. Apa itu modul? mm apa ya? saya juga kurang tau arti sebernarny #facepalm. Intinya sih kek tempat-buat-ngasi-skrip-koneksi hehe XD

BUAT MODULE KONEKSI

Buatnya? Klik kanan form anda (yang pojok kanan atas tu lho, karena blom diotak atik namanya jadi form1)

Trus klik add module, trus klik open

Nah tar akan keluar halaman kosong gitu kasi aja skrip smacam ini

Public Conn As New ADODB.Connection

Public RsMhs As ADODB.Recordset

Public Sub Buka()

    Set Conn = New ADODB.Connection

    Set RsMhs = New ADODB.Recordset

    Conn.Open "Provider=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_material;Data Source=BINGO-LONEWOLF-"

End Sub

Penjelasan singkatnya

Conn itu sebagai koneksi bisa diganti namanya

RsMhs itu sebagai yang nganu recordset tabel"nya, pokoe isinya di database #cmiiw

Trus buat fungsi namanya "Buka"

Trus set

Nha itu ada Conn.Open itu kita memberikan koneksi dari database ke program vb. Copas silahkan yang perlu diperhatikan itu Catalog=db_material;Data Source=BINGO-LONEWOLF-

Catalog itu nama databasenya, trus data source itu nama servernya dalam hal ini komputer saya yg saya jadikan server. Monggo diutak-atik sendiri ^^

Nah yang kedua lebih gampang, caranya dengan memakai adodc. 

Untuk awal, komponen ini emang ga ada di tools tapi kita akan munculkan dongs, karena kan mau dipake xixixi

BUAT ADODC

Klik kanan pada salah satu tools, apa aja

Kemudian klik components

Cari yang namanya Microsoft ADO Data Control, centang, OK

Munculkan? bentuknya kaya kuning" gitu kecil

BUAT FORMNYA KAKAKS

Nah langkah persiapan udah, langsung bikin yok

Tampilan kasarnya gini deh

Jadi kita butuh dua textbox

Satu button, captionnya diganti masuk. Cara ganti caption? button yang udah dibuat klik trus liat propertiesnya di sblah kanan kan ada tulisan caption tuh button1, nha ganti aja

Dan satu adodc, visiblenya ganti false aja caranya sama kek ganti caption gitu 

BENERIN KONEKSI ADODC

Klik kanan adodc-nya kak, trus pilih adodc properties

Klik connection string

Untuk provider saya taunya cuma 3 wkwk

Yang Ms Jet 4.0 itu buat access atau excel

Trus kalo OLE DB ODBC itu buat mysql
OLE DB For Sql Server buat sql server
Sisane blom tau hehe

Karena saya make sql server jadi pake OLE DB For Sql Server , Next

Connection nya pilih server-nya misal BINGO-LONEWOLF- punya saya itu hehe

Use specific usernam aja pilihnya jangan Windows NT, ya kalo cuma buat contoh gapapa sih cuma kalo tar buat client server agak malesi juga

Ketik Username : sa (ini default user admin buat sql server, saya kurang tau sih kalo buat yang mysql,oracle,dbase,dsb)

Pilih databasenya, Test connection skalian aja. OK

Nah terus ubah recordsourcenya karena kita pengen ambil dari tabel login jadi buat beginian di RecordSource-nya

Buat beberapa form lain

BUAT FORM LAIN GUYS

Caranya sama kaya bikin module tadi tapi kali ini form. Klik add - form - form - open

Nah ini ceritanya kita kan login multi-user jadi beberapa form yang akan dibuat itu dianalogikan misal kalo kasir ntar abis login dia masuk kasir gitu

Nha buat beberapa , trus gantu namanya jadi Form_kasir, dan sebagainya gitu, Ubah nama? klik formnya trus atas sendiri di properties

Udah? nha abis ini bagian terpenting, script-nya

BUAT SKRIP

Klik dua kali button

Hapus semuanya

Trus kira" gini skrip-nya

Private Sub Command1_Click()

Adodc1.RecordSource = "select * from login where username = '" + Text1.Text + "'"

Adodc1.Refresh

If (Adodc1.Recordset.EOF = False) Then

    If (Text2.Text = Adodc1.Recordset.Fields("password_kasir")) Then

    MsgBox "login sukses"

    Unload Me

    Form_kasir.Show

    ElseIf (Text2.Text = Adodc1.Recordset.Fields("password_manager")) Then

    MsgBox "login sukses"

    Unload Me

    Form_manager.Show

    ElseIf (Text2.Text = Adodc1.Recordset.Fields("password_gudang")) Then

    MsgBox "login sukses"

    Unload Me

    Form_gudang.Show

    Else

    MsgBox "username atau password tidak ditemukan"

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

    End If

Else

    MsgBox "username atau password tidak ditemukan"

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

End If

End Sub

Penjelasan singkatnya :

Adodc1.RecordSource = "select * from login where username = '" + Text1.Text + "'"

Adodc1.Refresh

Sumbernya adodc dari tabel login yang "username"-nya itu apa yang tertulis di Text1

Adodc di refresh

If (Adodc1.Recordset.EOF = False) Then

    If (Text2.Text = Adodc1.Recordset.Fields("password_kasir")) Then

    MsgBox "login sukses"

    Unload Me

    Form_kasir.Show

    ElseIf (Text2.Text = Adodc1.Recordset.Fields("password_manager")) Then

    MsgBox "login sukses"

    Unload Me

    Form_manager.Show

Penjelasannya jika recordset adodc itu tidak pada end of file maka
jika teks yang ada pada Text2 itu merupakan field dari password_kasir maka akan muncul pesan login sukses, form login ditutup dan form kasir muncul

Jika bukan (elseif)  apa yang tertulis di teks 2 jika merupakan passwod manager maka muncul pesan login sukses, form login ditutup dan form manager muncul

    Else
MsgBox "username atau password tidak ditemukan"

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

    End If

Jika bukan merupakan pilihan" sebelumnya maka akan muncul pesan username dan password tidak ditemukan. Teks1 kosong, Teks 2 kosong akhiri if

Nah cukup mudah kan ya? hehe jangan takut mencoba, jangan malas mencoba, jangan mudah putus asa. Tuhan tidak memberikan cobaan diluar kekuatan hamba-Nya. ^^

Saya juga masih belajar (baru 1 bulan saya pegan vb6 wkwk) jadi kalo ada salah" tolong dikomen yah
Terima Kasih, smoga bermanfaat ^^

Wassalamualaikum wr. wb.