Input, edit dan hapus data Master Barang

[Pages:11]Dec. 25

Input, edit dan hapus data Master Barang FORM UNTUK INPUT EDIT DAN HAPUS DATA MASTER BARANG

FORM INPUT DATA BARANG

Form Input Data Barang Desain Form untuk Form Input Data Barang adalah sbb: Control yang digunakan pada form tersebut adalah :

1. 1 DataGridview 2. 1 GroupBox 3. 4 Button (Cari, Simpan, Batal, Keluar) 4. 3 TextBox 5. 1 Panel Atur Posisinya seperti pada tampilan diatas.

Pemrograman Visual Basic Net

Page 1

Dec. 25

Input, edit dan hapus data Master Barang

Seperti biasa, Sebelum menuliskan code pada form yang mengakses database bertype SQL Server, kode berikut digunakan untuk memanggil library ADO NET untuk SQL Server. Tuliskan kode seperti dibawah ini pada baris paling atas.

1. Imports System.Data.SqlClient

Sub Program Yang Dibutuhkan

1. Sub SiapInput() 2. textKode.Enabled = False 3. textNama.Enabled = True 4. textHarga.Enabled = True 5. Simpan.Enabled = True 6. buttonCari.Enabled = False 7. textNama.Focus() 8. End Sub

1. Sub normal()

2. textKode.Clear()

3. textNama.Clear()

4. textHarga.Clear()

5. textKode.Enabled = True

6. textNama.Enabled = False

7. textHarga.Enabled = False

8. Simpan.Enabled = False

9. buttonCari.Enabled = True

10.

textKode.Focus()

11.

End Sub

Pemrograman Visual Basic Net

Page 2

Dec. 25

Input, edit dan hapus data Master Barang

1. Sub isi_grid()

2. Dim adapter As New SqlDataAdapter("select * from barang", Module1.koneksi)

3. Dim tampung As New DataTable("barang")

4. adapter.Fill(tampung)

5. DataGridView1.DataSource = tampung

6. DataGridView1.Columns(0).HeaderCell. Style.Alignment = DataGridViewContentAlignment.MiddleCenter

7. DataGridView1.Columns(1).HeaderCell. Style.Alignment = DataGridViewContentAlignment.MiddleCenter

8. DataGridView1.Columns(2).HeaderCell. Style.Alignment = DataGridViewContentAlignment.MiddleCenter

9. DataGridView1. AlternatingRowsDefaultCellStyle.BackColor = Color.Aqua

10.

DataGridView1.Columns(0).HeaderText = "Kode

Barang"

11.

DataGridView1.Columns(1).HeaderText = "Nama

Barang"

12.

DataGridView1.Columns(2).HeaderText = "Harga

Satuan"

13.

DataGridView1.Columns(0).Width = 50

14.

DataGridView1.Columns(1).Width = 275

15.

DataGridView1.Columns(2).Width = 75

16.

End Sub

Pemrograman Visual Basic Net

Page 3

Dec. 25

TOMBOL CARI

Input, edit dan hapus data Master Barang

1. If textKode.Text = Nothing Then

2. MessageBox.Show("Kode barang tidak boleh kosong...", "Peringatan", MessageBoxButtons.OK, rmation)

3. textKode.Focus()

4. Else

5. If Trim(textKode.TextLength) 4 Then

6. MessageBox.Show("Kode barang harus 4 Digit...", "Warning", MessageBoxButtons.OK, rmation)

7. textKode.Focus()

8. Else

9. Dim aksi As String = String.Empty

10.

aksi = "select kode_barang from barang where

kode_barang='" & textKode.Text & "'"

11.

Dim sqlku As SqlCommand = New SqlCommand(aksi,

Module1.koneksi)

12.

Dim myreader As SqlDataReader

13.

myreader = sqlku.ExecuteReader

14.

If myreader.Read Then

15.

MessageBox.Show("Kode barang sudah ada...",

"Peringatan", MessageBoxButtons.OK,

rmation)

16.

myreader.Close()

17.

textKode.Clear()

18.

textKode.Focus()

19.

Else

20.

SiapInput()

21.

End If

22.

End If

23.

End If

Form Load 1. isi_grid()

Pemrograman Visual Basic Net

Page 4

Dec. 25

Input, edit dan hapus data Master Barang

Button Simpan

1. If textNama.Text = Nothing Then

2. MessageBox.Show("Nama barang tidak boleh kosong...", "Simpan Error", MessageBoxButtons.OK, rmation)

3. textKode.Focus()

4. Return

5. End If

6. If textHarga.Text = Nothing Then

7. MessageBox.Show("Harga barang tidak boleh kosong...", "Simpan Error", MessageBoxButtons.OK, rmation)

8. textKode.Focus()

9. Return

10.

End If

11.

Dim aksi As String = String.Empty

12.

aksi = "insert into

barang(kode_barang,nama_barang,harga_satuan)values('

" & textKode.Text & "','" & textNama.Text & "','" &

Val(textHarga.Text) & "') "

13.

Dim perintah As SqlCommand = New

SqlCommand(aksi, Module1.koneksi)

14.

perintah.ExecuteNonQuery()

15.

Module1.koneksi.Close()

16.

MessageBox.Show("Data sukses terekam",

"Sukses", MessageBoxButtons.OK,

rmation)

17.

normal()

18.

Isi_grid()

Button Batal 1. normal()

Button Keluar 1. Me.Close()

Pemrograman Visual Basic Net

Page 5

Dec. 25

Input, edit dan hapus data Master Barang

Sampai disini, agar form input data barang bisa di akses dari form utama, kita perlu

memodifikasi form utama kita dengan menambahkan coding untuk menampilkan form

input barang. Bisa sendiri kan????

FORM EDIT DATA BARANG

Desain form Edit Data Barang hampir sama dengan form input data barang. Hanya saja button simpan tidak ada, yang ada adalah button Update. Berikut gambarannya:

Codingnya pun banyak yang sama. Yang berbeda adalah coding untuk Button Cari dan Button Update. Selain itu, anda bisa gunakan jurus copas code-code dari form input data (Sub program, button batal, button Keluar). Berikut adalah code untuk buttton Cari dan Button Update

Pemrograman Visual Basic Net

Page 6

Dec. 25

Button Cari

Input, edit dan hapus data Master Barang

1. If textKode.Text = Nothing Then

2. MessageBox.Show("Kode barang tidak boleh kosong...", "Peringatan", MessageBoxButtons.OK, rmation)

3. textKode.Focus()

4. Else

5. If Trim(textKode.TextLength) 4 Then

6. MessageBox.Show("Kode barang harus 4 Digit...", "Warning", MessageBoxButtons.OK, rmation)

7. textKode.Focus()

8. Else

9. Dim aksi As String = String.Empty

10.

aksi = "select * from barang where

kode_barang='" & textKode.Text & "'"

11.

Dim sqlku As SqlCommand = New SqlCommand(aksi,

Module1.koneksi)

12.

Dim myreader As SqlDataReader

13.

myreader = sqlku.ExecuteReader

14.

If myreader.Read Then

15.

SiapInput()

16.

textNama.Text = myreader.Item(1)

17.

textHarga.Text = myreader.Item(2)

18.

myreader.Close()

19.

textNama.Focus()

20.

Else

21.

MessageBox.Show("Kode barang tidak ada...",

"Peringatan", MessageBoxButtons.OK,

rmation)

22.

textKode.Clear()

23.

textKode.Focus()

24.

25.

End If

26.

End If

27.

End If

Pemrograman Visual Basic Net

Page 7

Dec. 25

Button Update

Input, edit dan hapus data Master Barang

1. If textNama.Text = Nothing Then

2. MessageBox.Show("Nama barang tidak boleh kosong...", "Simpan Error", MessageBoxButtons.OK, rmation)

3. textKode.Focus()

4. Return

5. End If

6. If textHarga.Text = Nothing Then

7. MessageBox.Show("Harga barang tidak boleh kosong...", "Simpan Error", MessageBoxButtons.OK, rmation)

8. textKode.Focus()

9. Return

10.

End If

11.

Dim aksi As String = String.Empty

12.

aksi = "update barang set nama_barang='" &

textNama.Text & "',harga_satuan='" & textHarga.Text

& "'where kode_barang='" & textKode.Text & "' "

13.

Dim perintah As SqlCommand = New

SqlCommand(aksi, Module1.koneksi)

14.

perintah.ExecuteNonQuery()

15.

Module1.koneksi.Close()

16.

MessageBox.Show("Data sudah diupdate",

"Sukses", MessageBoxButtons.OK,

rmation)

17.

normal()

18.

isi_grid()

Sama juga seperti sebelumnya, buat perintah/coding agar form edit barang ini bisa diakses dari form utama.

Pemrograman Visual Basic Net

Page 8

 ................
................

In order to avoid copyright disputes, this page is only a partial summary.

Google Online Preview   Download