Vb .Net - Menciptakan Form Login Aplikasi Rental Dvd

Berikut ini ialah Tahap ke-5 dalam menciptakan Aplikasi Rental DVD dengan VB .Net, untuk anda yang gres bergabung dengan kami, silahkan ikuti tutorial kami dari tahap-1 dalam menciptakan Aplikasi Rental DVD, alasannya ialah jikalau anda eksklusif ke tahap ini anda akan galau sendiri Hehehehe...

Berikut langkah dari menciptakan Form Login Aplikasi Rental DVD
Buka Project anda sebelumnya :

Pada gambar diatas, anda telah sukses menciptakan koneksi database dengan Module.
Silahkan Klik Menu Project - Add Windows Form

Silahkan beri nama : FormLogin.vb menyerupai gambar dibawah ini :

Klik Add
Silahkan design formlogin.vb menyerupai gambar dibawah ini ;

Jika sudah, anda dapat memasukan koding dibawah ini :
FormLogin.vb

  Imports System.Data.Odbc Public Class FormLogin     Dim CMD As New OdbcCommand     Dim RD As OdbcDataReader      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If TextBox1.Text = "" Or TextBox2.Text = "" Then             MsgBox("data login belum lengkap")             Exit Sub         Else             Call Koneksi()             CMD = New OdbcCommand("select * from tbl_petugas where kodepetugas='" & TextBox1.Text & "' and passwordpetugas='" & TextBox2.Text & "'", Conn)             RD = CMD.ExecuteReader             RD.Read()             If RD.HasRows Then                 Me.Close()                 FormMenuUtama.Show()                 FormMenuUtama.LoginToolStripMenuItem.Enabled = False                 FormMenuUtama.LogoutToolStripMenuItem.Enabled = True                 FormMenuUtama.MasterToolStripMenuItem.Enabled = True                 FormMenuUtama.TransaksiToolStripMenuItem.Enabled = True                 FormMenuUtama.LaporanToolStripMenuItem.Enabled = True                 FormMenuUtama.UtilityToolStripMenuItem.Enabled = True             Else                 MsgBox("Kode Petugas atau Password salah")             End If         End If     End Sub      Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         TextBox1.MaxLength = 6         TextBox2.PasswordChar = "X"         TextBox1.Clear()         TextBox2.Clear()     End Sub      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Me.Close()     End Sub End Class 

FormMenuUtama.vb

  Public Class FormMenuUtama     Sub Terkunci()         LoginToolStripMenuItem.Enabled = True         LogoutToolStripMenuItem.Enabled = False         MasterToolStripMenuItem.Enabled = False         TransaksiToolStripMenuItem.Enabled = False         LaporanToolStripMenuItem.Enabled = False         UtilityToolStripMenuItem.Enabled = False     End Sub      Private Sub FormMenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Call Terkunci()     End Sub      Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click         End     End Sub      Private Sub LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click         FormLogin.ShowDialog()     End Sub End Class  

Jika sudah anda dapat mengeceknya dengan Running Aplikasi Rental DVD

Kode Petugas : PTG001
Password : ADMIN

Jika sudah harusnya tidak terjadi error dan anda dapat masuk login ke Aplikasi Rental DVD
Silahkan ikuti tahap ke-6 dalam menciptakan Aplikasi Rental DVD

Silahkan KLIK DISINI untuk melanjutkan ke Tahap-6
Silahkan KLIK DISINI untuk download Project Aplikasi Rental DVD diatas