A. Object-object dalam Latihan_33B_36110051
:
1. Object Label
Terdapat
empat label (yang bertuliskan kode barang, nama barang, harga jual, dan jumlah
barang).
2. Object Textbox
Terdapat
empat textbox yang semuanya merupakan status input. Status input digunakan
untuk memasukkan nilai: kode barang, nama barang, harga jual, dan jumlah barang
yang akan disimpan ke dalam form BARANG di Ms Access.
3. Object Button
Terdapat
satu object button (Simpan). Button Simpan digunakan untuk menyimpan data
barang baru yang telah diinput. Data barang baru ini merupakan data barang yang
telah dipilih untuk diedit dari datagridview pada form Latihan_33A_36110051.
4. Object StatusStrip
Terdapat satu object statusstrip.
Pada statusstrip ini terdapat dua statuslabel (yang bertuliskan kode barang
lama dan - )
B. Script Unique
Untuk script, dapat dilihat secara
menyeluruh pada PROSEDUR dibawah ini.
C. Even
SIMPAN_36110051_Click
PROSEDUR :
1. Klik Start dan pilih Microsoft
Visual Studio 2008.
2. Klik menu file dan pilih New Project.
3. Ketik nama dan pilih lokasi yang
diinginkan pada masing-masing tempat yang tersedia, klik Ok.
4. Klik menu view dan pilih toolbox dan
buatlah desain kolom seperti kolom dibawah ini:
5.
Berikut ini adalah rumus untuk menjalankan form di atas:
Public NotInheritable Class
Latihan_33b_36110051
Dim MELISSA
As New
ByIskandar.CariKeDataBaseByIskandar
Dim ACI As New
OleDb.OleDbCommand
Dim ISA As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DATABARANG.accdb'")
Private Sub Button136110051_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button136110051.Click
If
kbl_36109003.Text = "" Then
MELISSA.AturPencarianDataBase("Barang", "KodeBarang",
kb_36110051.Text, 1, ISA)
If
MELISSA.JumlanBaris > 0 Then
MsgBox("kode
barang telah ada")
kb_36110051.Text = ""
Exit
Sub
ElseIf
kb_36110051.Text.Length = 0 Then
MsgBox("kode
barang harus tercantum")
Exit
Sub
ElseIf
nb_36110051.Text.Length = 0 Then
MsgBox("nama
barang harus tercantum")
Exit
Sub
ElseIf
hj_36110051.Text.Length = 0 Then
MsgBox("harga
jual harus tercantum")
Exit
Sub
ElseIf
jb_36110051.Text.Length = 0 Then
MsgBox("jumlah
barang harus tercantum")
Exit
Sub
End
If
Dim
ISHA As String
= "insert into barang (kodebarang, namabarang,
hargajual, jumlahbarang) values ('" & kb_36110051.Text & "','" & nb_36110051.Text & "'," & Val(hj_36110051.Text) & "," & Val(jb_36110051.Text) & ")"
ACI = New
OleDb.OleDbCommand(ISHA, ISA)
ISA.Open()
ACI.ExecuteNonQuery()
ISA.Close()
ACI.Dispose()
kb_36110051.Text = ""
nb_36110051.Text = ""
hj_36110051.Text = ""
jb_36110051.Text = ""
Else
If
kbl_36110051.Text <> kb_36110051.Text Then
MELISSA.AturPencarianDataBase("Barang", "KodeBarang",
kb_36110051.Text, 1, ISA)
If
MELISSA.JumlanBaris > 0 Then
MsgBox("kode barang tidak dapat diupdate")
Exit
Sub
End
If
End
If
If
kb_36110051.Text.Length = 0 Then
MsgBox("kode
barang harus tercantum")
Exit
Sub
ElseIf
nb_36110051.Text.Length = 0 Then
MsgBox("nama
barang harus tercantum")
Exit
Sub
ElseIf
hj_36110051.Text.Length = 0 Then
MsgBox("harga
jual harus tercantum")
Exit
Sub
ElseIf
jb_36110051.Text.Length = 0 Then
MsgBox("jumlah
barang harus tercantum")
Exit
Sub
End
If
Dim
ISHA As String
= "update barang set kodebarang = '"
& kb_36110051.Text & "', namabarang =
'" & nb_36110051.Text & "',
hargajual = " & Val(hj_36110051.Text) & ", jumlahbarang = " &
Val(jb_36110051.Text) & " where kodebarang
= '" & kbl_36110051.Text & "'"
ACI = New
OleDb.OleDbCommand(ISHA, ISA)
ISA.Open()
ACI.ExecuteNonQuery()
ISA.Close()
ACI.Dispose()
kbl_36110051.Text = "-"
kb_36110051.Text = ""
nb_36110051.Text = ""
hj_36110051.Text = ""
jb_36110051.Text = ""
End If
End Sub
6. Uji program
dengan mengklik icon Start Debugging.
Tidak ada komentar:
Posting Komentar