BAB 5. MESSAGE BOX
1. Buat
6 label danatur text sesuaidengantampilan
form
2. Buat
6buah textbox denganpengaturan properties sbb:
Namaobjek
|
Text
|
Name
|
Textbox1
|
Kosongkan
|
Textbox1
|
Textbox2
|
,,
|
Txtnokatalog
|
Textbox3
|
,,
|
Txtnamabarang
|
Textbox4
|
,,
|
Txtkemasan
|
Textbox5
|
,,
|
TxtSTOK
|
Combobox1
|
,,
|
ComboBoxJENISBARANG
|
Form
|
FORM DATA STOK
|
STOKBARANG
|
BUTTON1
|
Add
|
Btntambah
|
BUTTON2
|
Edit
|
Btnubah
|
BUTTON3
|
DELETE
|
Btnhapus
|
BUTTON4
|
Bersih
|
Btnbersih
|
BUTTON5
|
Exit
|
Btnkeluar
|
BUTTON6
|
Cari
|
Button2
|
BUTTON7
|
TAMPIL StokBarang
|
BUTTON3
|
LISTVIEW1
|
LVDATABARANG
|
3. Cara
membuatlistview
KlikListviewpada
toolbox letakanpada form anda
a. Kliktandapanahpadaujungkananataslistview
b. Klikedit colom
c. Klik
view padapilihanDetail
d. Akan
tampil menu
e. Klik
add sebanyak 5 kali danketik text
padacolumnheader properties
Sesuaidengantampilan
yang di inginkandanaturlebar data sesuaitampilan.
f. Klik
ok jikaselesai
g. Aktifkan
gridlines pada properties padaposisi TRUE
1. Mengetik
listing program
2. Klik
form kosongpada form danklik view code pada properties anda
Imports
System.Data
PublicClass STOKBARANG
Sub
ListViewDataBarang()
Dim buka AsString = "Select *
From Q_Stok Order By Nomor_Katalog Asc"
Try
Using STOK AsNew OleDbConnection(My.Settings.STRKONEKSI)
Using Cmd AsNew OleDbCommand(buka, STOK)
STOK.Open()
Using Data As OleDbDataReader = Cmd.ExecuteReader()
LVDATABARANG.Items.Clear()
Dim x AsInteger = 0
DoWhile Data.Read
LVDATABARANG.Items.Add(Data("Nomor_Katalog"))
LVDATABARANG.Items(x).SubItems.Add(Data("Nama_Barang"))
LVDATABARANG.Items(x).SubItems.Add(Data("Kemasan"))
LVDATABARANG.Items(x).SubItems.Add(Data("Jumlah_Stok"))
LVDATABARANG.Items(x).SubItems.Add(Data("Jenis_Barang"))
x = x + 1
Loop
EndUsing
EndUsing
EndUsing
Catch ex As Exception
MsgBox(ex.Message())
Finally
buka = Nothing
EndTry
EndSub
1.
KLIK 2X
FORM STOKBARANG
PrivateSub Stok_Load(ByVal sender As
System.Object, ByVal e As
System.EventArgs) HandlesMyBase.Load
ComboBoxJenisBarang.Items.Add("Elektronic")
ComboBoxJenisBarang.Items.Add("komputer")
ComboBoxJenisBarang.Items.Add("Tehnis")
ComboBoxJenisBarang.Items.Add("Buku")
ComboBoxJenisBarang.Items.Add("PENA")
ComboBoxJenisBarang.Items.Add("Lain-lain")
Call
ListViewDataBarang()
EndSub
2. KLIK TXTNOKATALOG PILIH MODUS KEYDOWN
PrivateSub
TxtNoKatalog_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TXTNOKATALOG.KeyDown
Try
If e.KeyCode
= Keys.Enter Then
Using STOK AsNew OleDbConnection(My.Settings.STRKONEKSI)
Using Cmd AsNew OleDbCommand("Select
* From StokBarang Where Nomor_Katalog='"& TXTNOKATALOG.Text
&"'", STOK)
STOK.Open()
Using Data As OleDbDataReader = Cmd.ExecuteReader
Data.Read()
If
Data.HasRows = TrueThen
TXTNOKATALOG.Text = Data("Nomor_Katalog")
TXTNAMABARANG.Text = Data("Nama_Barang")
TXTKEMASAN.Text =
Data("Kemasan")
TXTSTOK.Text =
Data("Stok")
ComboBoxJENISBARANG.Text = Data("Jenis_Barang")
EndIf
EndUsing
EndUsing
EndUsing
EndIf
Catch ex As Exception
MsgBox(ex.Message())
EndTry
EndSub
3. KLIK LVDATABARANG
PrivateSub
LVDataBarang_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles
LVDATABARANG.Click
Me.TxtNoKatalog.Text
= Me.LVDataBarang.SelectedItems(0).Text.ToString
Me.TxtNamaBarang.Text
= Me.LVDataBarang.SelectedItems(0).SubItems(1).Text.ToString
Me.TxtKemasan.Text
= Me.LVDataBarang.SelectedItems(0).SubItems(2).Text.ToString
Me.TxtStok.Text
= Me.LVDataBarang.SelectedItems(0).SubItems(3).Text.ToString
Me.ComboBoxJenisBarang.Text
= Me.LVDataBarang.SelectedItems(0).SubItems(4).Text.ToString
EndSub
4.
KLIK TOMBOL
ADD
PrivateSub
BtnTambah_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BTNTAMBAH.Click
If
TxtNoKatalog.Text = ""Then
MsgBox("isikan
data!", MsgBoxStyle.Information)
TxtNoKatalog.Focus()
EndIf
Try
Dim Tambah AsString = "insert
into StokBarang values ('"& TxtNoKatalog.Text &"','"& TxtNamaBarang.Text &"','"& TxtKemasan.Text &"','"& TxtStok.Text &"','"& ComboBoxJenisBarang.Text
&"')"
Using STOK AsNew OleDbConnection(My.Settings.STRKONEKSI)
Using cmd AsNew OleDbCommand(Tambah, STOK)
STOK.Open()
cmd.CommandType =
CommandType.Text
cmd.ExecuteNonQuery()
MsgBox("datanya sudah bertambah!")
Call
ListViewDataBarang()
EndUsing
EndUsing
Catch ex As Exception
MsgBox("DATA
SUDAH ADA")
EndTry
EndSub
5.
KLIK TOMBOL
EDIT
PrivateSub
BtnUbah_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BTNUBAH.Click
Try
Dim Ubah AsString = "update
StokBarang set Nomor_Katalog='"&Me.TxtNoKatalog.Text
&"',"& _
"Nama_Barang='"&Me.TxtNamaBarang.Text &"',"&
_
"Kemasan='"&Me.TxtKemasan.Text &"',"&
_
"Stok='"&Me.TxtStok.Text &"',"&
_
"Jenis_Barang='"&Me.ComboBoxJenisBarang.Text &"' where Nomor_Katalog='"&Me.TxtNoKatalog.Text &"'"
Using STOK AsNew OleDbConnection(My.Settings.STRKONEKSI)
Using cmd AsNew OleDbCommand(Ubah, STOK)
STOK.Open()
cmd.CommandType =
CommandType.Text
cmd.ExecuteNonQuery()
EndUsing
EndUsing
MsgBox("data
telah di ubah...")
Call
ListViewDataBarang()
TxtNoKatalog.Focus()
Catch ex As Exception
MsgBox(ex.Message())
EndTry
EndSub
6.
KLIK TOMBOL
DELETE
PrivateSub
BtnHapus_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BTNHAPUS.Click
Try
Dim Hapus AsString = "delete *
from StokBarang where Nomor_Katalog ='"&Me.TxtNoKatalog.Text &"'"
Using STOK AsNew OleDbConnection(My.Settings.STRKONEKSI)
Using cmd AsNew OleDbCommand(Hapus, STOK)
STOK.Open()
cmd.CommandType =
CommandType.Text
cmd.ExecuteNonQuery()
EndUsing
EndUsing
Me.TxtNoKatalog.Text
= ""
Me.TxtNamaBarang.Text
= ""
Me.TxtKemasan.Text
= ""
Me.TxtStok.Text
= ""
Me.ComboBoxJenisBarang.Text
= ""
Hapus = Nothing
MsgBox("Data
Anda Telah Dihapus")
Call
ListViewDataBarang()
Me.TxtNoKatalog.Focus()
Catch ex As Exception
MsgBox(ex.Message())
EndTry
EndSub
7.
KLIK TOMBOL
CLEAR
PrivateSub
BtnBersih_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BTNBERSIH.Click
TxtNoKatalog.Text = ""
TxtNamaBarang.Text = ""
TxtKemasan.Text = ""
TxtStok.Text = ""
ComboBoxJenisBarang.Text = ""
TxtNoKatalog.Focus()
Call
ListViewDataBarang()
EndSub
13.KLIK
TOMBOL CARI
PrivateSub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
Dim buka AsString = "Select *
From StokBarang where Nama_Barang like '%"& TextBox1.Text &"%' Order By Nomor_Katalog Asc"
Try
Using STOK AsNew OleDbConnection(My.Settings.STRKONEKSI)
Using Cmd AsNew OleDbCommand(buka, STOK)
STOK.Open()
Using Data As OleDbDataReader = Cmd.ExecuteReader()
LVDATABARANG.Items.Clear()
Dim x AsInteger = 0
DoWhile Data.Read
LVDATABARANG.Items.Add(Data("Nomor_Katalog")) LVDATABARANG.Items(x).SubItems.Add(Data("Nama_Barang"))
LVDATABARANG.Items(x).SubItems.Add(Data("Kemasan"))
LVDATABARANG.Items(x).SubItems.Add(Data("Stok")) LVDATABARANG.Items(x).SubItems.Add(Data("Jenis_Barang"))
x = x + 1
Loop
EndUsing
EndUsing
EndUsing
Catch ex As Exception
MsgBox(ex.Message())
Finally
buka = Nothing
EndTry
EndSub
8.
KLIK TOMBOL
TAMPIL DATA BARANG
PrivateSub
Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button3.Click
Call
ListViewDataBarang()
EndSub
9. KLIK TOMBOL EXIT
PrivateSub
BtnKeluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs)
Me.Close()
EndSub
end class
latihan
Tidak ada komentar:
Posting Komentar