Tutorial VB.Net Aplikasi Penjualan (PART 6)

Hey Kawan RELAINC ANDRO, tidak terasa untuk tutorial ini sudah masuk ke Tutorial VB.Net Aplikasi Penjualan (PART 6), sekarang kita akan membuat Data Master.

Sebelum lebih dalam, apasih pengertian data master itu?
Data Master Adalah Data yang digunakan sebagai data sumber sebagai pengolahan data, dan data tersebut bersifat central dalam pengambilan atau refrensi data.

Dan pada proses sebelumnya kita sudah telah membuat Menu Utama, dan sekarang kita membuat data master. dan untuk Tutorial VB.Net Aplikasi Penjualan (PART 6) ini kita akan membuat data Master PETUGAS atau USER pengguna aplikasi.

oke langsung saja untuk tampilan data master PETUGAS atau USER kita bisa langsung liat Tampilan dibawah ini.

Tutorial VB.Net Aplikasi Penjualan (PART 6)
Master Petugas / User -RELAINC ANDRO-

  1. Pertama
  2. Kita Klik kanan pada Project
  3. Klik Add
  4. Klik Windows Forms
  5. Setelah itu berikan nama sesuai dengan nama form yang diiinginkan, (disini saya menamakan Petugas.frm).
 Setelah itu Masukan Component - Component yang akan di design kedalam Form, Yaitu :
  1. Masukan Label Sebanyak 6 item dengan nama masing - masing field (ID User, Nama, Password, Tanggal, No Telepon, Status/Level Admin).
  2. Masukan Textbox sebanyak 5 Item dengan nama masing - masing field (ID_User, Nama, Password, Tanggal, No_Telepon).
  3. Masukan Combobox sebanyak 1 item dengan nama CmbStatus.
  4. Masukan Datagridview sebanyak 1 item dengan nama DGV.
  5. Masukan Button sebanyak 4 item dengan nama (Simpan, Batal, Hapus, Tutup).
dan design seperti tampilan dibawah ini : (design disesuaikan dengan selera anda)
Ini design saya karena masih belajar waktu kuliah jadi ngasal begini gan.HIhihiiihiih


Tutorial VB.Net Aplikasi Penjualan (PART 6)
Design Master Petugas/User -RELAINC ANDRO-
 Dan Berikut Source Code untuk Menu Master.

Imports System.Data.OleDb
Public Class Petugas
    Dim conn As OleDbConnection
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter
    Dim rd As OleDbDataReader
    Dim ds As DataSet
    Dim str As String
    Sub tampilkan()
        da = New OleDbDataAdapter("select * from Petugas", conn)
        ds = New DataSet
        da.Fill(ds, "Petugas")
        dgv.DataSource = ds.Tables("petugas")
    End Sub
 
 Sub koneksi()
        str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"
        conn = New OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
 
 Sub tampilstatus()
        cmd = New OleDbCommand("select distinct(Status) from Petugas", conn)
        rd = cmd.ExecuteReader
        Cmbstatus.Items.Clear()
        Do While rd.Read
            Cmbstatus.Items.Add(rd.Item("status"))
        Loop
    End Sub
 
 Sub kosongkan()
        Tiduser.Text = ""
        Tnama.Text = ""
        Tpassword.Clear()
        Tno_telepon.Text = ""
        Cmbstatus.Text = ""
        Tiduser.Focus()
    End Sub
    Sub DataBaru()
        Tnama.Clear()
        Tpassword.Clear()
        Tno_telepon.Clear()
        Cmbstatus.Text = ""
        Tnama.Focus()
    End Sub

    Private Sub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click
        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        da = New OleDbDataAdapter("Select * from petugas", conn)
        ds = New DataSet
        da.Fill(ds, "Anggota")
        dgv.DataSource = ds.Tables("Anggota")
        Ltanggal.Text = Today
        Call tampilstatus()
        Call koneksi()
        Call tampilkan()
    End Sub
    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        If Tiduser.Text = "" Or Tnama.Text = "" Or Tpassword.Text = "" Or Ltanggal.Text = "" Or Tno_telepon.Text = "" Or Cmbstatus.Text = "" Then
            MessageBox.Show("Data belum lengkap harus di isi semua")
            Tiduser.Focus()
        Else
            cmd = New OleDbCommand("select * from Petugas where id_petugas = '" & Tiduser.Text & "'", conn)
            rd = cmd.ExecuteReader
            rd.Read()
            If Not rd.HasRows Then
                Dim simpan As String = "insert into petugas(Id_petugas,Nama,password_user,Tanggal,No_telepon,Status) values " & _
                "('" & Tiduser.Text & "','" & Tnama.Text & "','" & Tpassword.Text & "','" & Ltanggal.Text & "','" & Tno_telepon.Text & "','" & Cmbstatus.Text & "')"
                cmd = New OleDbCommand(simpan, conn)
                cmd.ExecuteNonQuery()
                MsgBox("data berhasil disimpan")
                Call tampilkan()
                Call kosongkan()
            Else
                Dim edit As String = "update petugas set " & _
                "nama='" & Tnama.Text & "', " & _
                "Password_user='" & Tpassword.Text & "', " & _
                "Tanggal='" & Ltanggal.Text & "', " & _
                "no_telepon='" & Tno_telepon.Text & "', " & _
                "status='" & Cmbstatus.Text & "' where id_petugas ='" & Tiduser.Text & "' "
                cmd = New OleDbCommand(edit, conn)
                cmd.ExecuteNonQuery()
                Call tampilkan()
                Call kosongkan()
                Call tampilstatus()
            End If
        End If
    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        Call kosongkan()
    End Sub

    Private Sub Cmbstatus_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Cmbstatus.KeyPress
        If e.KeyChar = Chr(13) Then
            Btnsimpan.Focus()
        End If
    End Sub

    Private Sub Cmbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbstatus.SelectedIndexChanged

    End Sub

    Private Sub Tiduser_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tiduser.KeyPress
        Tiduser.MaxLength = 5
        If e.KeyChar = Chr(13) Then
            If Tiduser.Text = "" Then
                MsgBox("kode wajib diisi")
                Tiduser.Focus()
            Else
                cmd = New OleDbCommand("select * from Petugas where Id_Petugas='" & Tiduser.Text & "'", conn)
                rd = cmd.ExecuteReader
                rd.Read()
                If rd.HasRows Then
                    Tnama.Text = rd.Item(1)
                    Tpassword.Text = rd.Item(2)
                    Tno_telepon.Text = rd.Item(3)
                    Cmbstatus.Text = rd.Item(4)
                    Tnama.Focus()
                Else
                    MsgBox("data tidak ada")
                    Tnama.Focus()
                End If
            End If
        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        If Tiduser.Text = "" Or Tnama.Text = "" Or Tpassword.Text = "" Or Tno_telepon.Text = "" Or Cmbstatus.Text = "" Then
            MessageBox.Show("Data belum lengkap harus di isi semua")
            Tiduser.Focus()
        Else
            cmd = New OleDbCommand("Select * from Petugas where id_petugas = '" & Tiduser.Text & "'", conn)
            rd = cmd.ExecuteReader
            rd.Read()
            If rd.HasRows Then
                If MessageBox.Show("yakin mau dihapus", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                    Dim HAPUS As String = "delete * from petugas where id_petugas = '" & Tiduser.Text & "'"
                    cmd = New OleDbCommand(HAPUS, conn)
                    cmd.ExecuteNonQuery()
                    Call tampilkan()
                    Call kosongkan()
                End If
            Else
                Tiduser.Focus()
            End If
        End If
    End Sub

    Private Sub Tnama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tnama.KeyPress
        If e.KeyChar = Chr(13) Then Tpassword.Focus()
    End Sub

    Private Sub Tpassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tpassword.KeyPress
        Tpassword.MaxLength = 6
        If e.KeyChar = Chr(13) Then Tno_telepon.Focus()
    End Sub

    Private Sub Tno_telepon_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tno_telepon.KeyPress
        If e.KeyChar = Chr(13) Then Cmbstatus.Focus()
    End Sub
End Class


Oke Terima Kasih, Silahkan dicoba untuk teman teman RELAINC ANDRO dalam PEMBUATAN data MASTER USER. Semoga bahasan kali ini bisa bermanfaat untuk temen temen newbie yang baru mengenal VB.NET.

Jika Bermanfaat, tolong untuk di share ya kawan di media sosial maupun yang lainnya. terima kasih karena ilmu jika di sebarkan akan menambah pahala :).

Salam, RELAINC ANDRO.
Previous
Next Post »
Post a Comment
Thanks for your comment