Membuat Form Admin Aplikasi Penggajian

Ini adalah tahapan #KeTujuh pada Step by Step Pembuatan Aplikasi Penggajian dengan Visua Basic .Net 2005
Pembelajaran sebelumnya :
1. Membuat Project Baru
2. Membuat Menu Utama
3. Membuat Database dan Tabel
4. Membuat Koneksi Database Dengan Module
5. Membuat Form Login Aplikasi Penggajian
6. Membuat Koding Logout

Berikut langkah  Membuat Form Admin Aplikasi Penggajian

Berikut langkahnya :
Klik Project - Add Windows Form

Maka akan muncul :

Beri nama : FormMasterAdmin.vb

Dan buatlah Design FormMasterAdmin.vb sepert gambar dibawah :

Fungsi dari Form Admin ini adalah Untuk bisa Input, Edit dan Delete data pada tabel Admin didalam database. Untuk itu setidaknya anda telah belajar Input, Edit dan Delete pada sebuah Form Terlebih dahulu.

Buatlah form Admin Aplikasi Penggajian seperti gambar diatas
Kemudian copy paste koding dibawah ini :

Imports System.Data.OleDb
Public Class FormMasterAdmin
    Sub TampilStatus()
        ComboBox1.Items.Clear()
        ComboBox1.Items.Add("ADMIN")
        ComboBox1.Items.Add("USER")
    End Sub

    Sub Kosongkan()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Focus()
        Call TampilStatus()
    End Sub

    Sub TampilGrid()
        DA = New OleDbDataAdapter("select kodeAdmin,NamaAdmin,LevelAdmin from Admin", CONN)
        DS = New DataSet
        DA.Fill(DS, "Admin")
        DGV.DataSource = DS.Tables("Admin")
        DGV.ReadOnly = True
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text.Length < 6 Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan Kode Admin 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            CMD = New OleDbCommand("Select * from Admin where kodeAdmin='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                Dim simpan As String = "insert into Admin values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
                CMD = New OleDbCommand(simpan, CONN)
                CMD.ExecuteNonQuery()
                MsgBox("Input berhasil")
            End If

            Call TampilGrid()
            Call Kosongkan()
            Call TampilStatus()
        End If
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox1.Text = "" Then
            MsgBox("kode Admin masih kosong, silakan diisi dulu")
            TextBox1.Focus()
        End If
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Call Kosongkan()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub

    Private Sub FormAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call TampilStatus()
        Call TampilGrid()
        Call Kosongkan()
        TextBox3.PasswordChar = "X"
    End Sub

    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            CMD = New OleDbCommand("Select * from Admin where kodeAdmin='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                TextBox2.Text = ""
                TextBox3.Text = ""
                ComboBox1.Text = ""
                TextBox2.Focus()
            Else
                TextBox2.Text = RD.Item("namaAdmin")
                TextBox3.Text = RD.Item("passwordAdmin")
                ComboBox1.Text = RD.Item("LevelAdmin")
                TextBox2.Focus()
            End If
        End If
    End Sub

    Private Sub TextBox2_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        TextBox2.MaxLength = 30
        If e.KeyChar = Chr(13) Then ComboBox1.Focus()
    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        TextBox3.MaxLength = 15
        If e.KeyChar = Chr(13) Then Button1.Focus()
    End Sub
    Private Sub ComboBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        ComboBox1.MaxLength = 15
        If e.KeyChar = Chr(13) Then TextBox3.Focus()
    End Sub
End Class

Ikuti terus pembelajaran Visual Basic dari kami

Silahkan KLIK DISINI Untuk Download Project Pembelajaran diatas.
Silahkan KLIK DISINI Untuk melanjutkan ke Tahap-8