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?
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.
Ini design saya karena masih belajar waktu kuliah jadi ngasal begini gan.HIhihiiihiih
Dan Berikut Source Code untuk Menu Master.
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.
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.
 |
| Master Petugas / User -RELAINC ANDRO- |
- Pertama
- Kita Klik kanan pada Project
- Klik Add
- Klik Windows Forms
- Setelah itu berikan nama sesuai dengan nama form yang diiinginkan, (disini saya menamakan Petugas.frm).
- Masukan Label Sebanyak 6 item dengan nama masing - masing field (ID User, Nama, Password, Tanggal, No Telepon, Status/Level Admin).
- Masukan Textbox sebanyak 5 Item dengan nama masing - masing field (ID_User, Nama, Password, Tanggal, No_Telepon).
- Masukan Combobox sebanyak 1 item dengan nama CmbStatus.
- Masukan Datagridview sebanyak 1 item dengan nama DGV.
- Masukan Button sebanyak 4 item dengan nama (Simpan, Batal, Hapus, Tutup).
Ini design saya karena masih belajar waktu kuliah jadi ngasal begini gan.HIhihiiihiih
 |
| Design Master Petugas/User -RELAINC ANDRO- |
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.
