Membuat Aplikasi Penjualan VB .NET dgn Database MySQL – #Part 6

Ini adalah tutorial keenam atau Part 6 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. di Part 6 kita akan membuat StatusBar yang fungsinya untuk memunculkan siapa yang login, Level yang Login, Jam, Tanggal yang data tersebut nanti akan dibutuhkan dalam membuat Form Transaksi Penjualan Barang.

Kembali ke FormMenuUtama, silahkan tambahkan Timer1 dan StatusStrip1 seperti gambar dibawah ini:



Kemudian tambahkan beberapa koding di FormMenuUtama :

 Sub Terkunci()
        LoginToolStripMenuItem.Enabled = True
        LogoutToolStripMenuItem.Enabled = False
        MasterToolStripMenuItem.Enabled = False
        TransaksiToolStripMenuItem.Enabled = False
        LaporanToolStripMenuItem.Enabled = False
        UtilityToolStripMenuItem.Enabled = False
        STLabel2.Text = ""
        STLabel4.Text = ""
        STLabel6.Text = ""
    End Sub

    Private Sub FormMenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Terkunci()
        STLabel10.Text = Today
    End Sub 

dan di Form Login masukan koding dibawah ini :

    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("Kode Admin dan Password Tidak Boleh Kosong!")
        Else
            Call Koneksi()
            Cmd = New OdbcCommand("Select * From tbl_admin where kodeadmin='" & TextBox1.Text & "' and passwordadmin = '" & TextBox2.Text & "'", Conn)
            Rd = Cmd.ExecuteReader
            Rd.Read()
            If Rd.HasRows Then
                Me.Close()
                Call Terbuka()
                FormMenuUtama.STLabel2.Text = Rd!KodeAdmin
                FormMenuUtama.STLabel4.Text = Rd!NamaAdmin
                FormMenuUtama.STLabel6.Text = Rd!LevelAdmin
                If FormMenuUtama.STLabel6.Text = "USER" Then
                    FormMenuUtama.AdminToolStripMenuItem.Enabled = False
                End If
            Else
                MsgBox("Kodeadmin atau password salah!")
            End If
        End If
    End Sub

Video Tutorial diatas bisa anda lihat di :

Demikian Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 6 semoga bermanfaat