Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 6

Ini adalah tutorial keenam atau saya sebut 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.

Jika temen2 baru gabung, pastikan anda sudah mengikuti tutorial sebelumnya ya :
Membuat Aplikasi Penjualan Part 1
Membuat Aplikasi Penjualan Part 2
Membuat Aplikasi Penjualan Part 3
Membuat Aplikasi Penjualan Part 4
Membuat Aplikasi Penjualan Part 5

Jika sudah, mari kita lanjut
Kembali ke FormMenuUtama, silahkan tambahkan Timer1 dan StatusStrip1 seperti gambar dibawah ini :

 Pada StatusStrip1 masukan menu 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 :

https://www.youtube.com/watch?v=5BePNfV3xPM

Demikian Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 6 semoga bermanfaat dan ikuti terus tutorial kami selanjutnya
Jika ada yang kurang jelas atau bertanya, silahkan WhatsApp saya, no WA ada di Footer Web ini

Tweet