Minggu, 28 Oktober 2012
di
05.07
|
Form Latihan_36_36110037 terdapat Empat object yaitu
Label, Textbox, Button, dan Data Grid View.
Object Label
Terdapat Enam object label yang bertuliskan “nomor transaksi”, “tanggal”, “jenis transaksi”, “kode barang”, “unit”, dan “harga”.
Object Textbox
Terdapat Enam object textbox yang semuanya berstatus input.
Object Button
Terdapat Dua object button yaitu Button tambah yang digunakan untuk menginput data textbox ke tabel yang ada
pada data grid view. Sedangkan button simpan digunakan untuk menyimpan
data yang diinput ke database.
Object Data Grid View
Terdapat sebuah object data
grid view yang bernama “kertas_36110037”.
Script Unique
Scrip
Proteksi
If
notrans_36110037.Text.Length = 0 Then
MsgBox("nomor
transaksi harus terisi")
ElseIf
jnstrans_36110037.Text.Length = 0 Then
MsgBox("Jenis
Transaksi Harus diisi")
ElseIf
table.Rows.Count = 0 Then
MsgBox("data
table tidak boleh kosong")
Exit
Sub
End If
Event
ButtonclickProperty
Default
Prosedur Penyelesaian
1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public NotInheritable Class Latihan_36_36110037
Dim rhepoet
As New
ByIskandar.CariKeDataBaseByIskandar
Dim table As New DataTable
Dim rpt As New
OleDb.OleDbCommand
Dim hubung As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DataMajemuk.accdb'")
Private Sub Latihan_36_36110037_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select KODEBARANG,
UNIT, HARGA from detailtransaksi where notrans = '" &
notrans_36110037.Text & "'",
hubung)
adapter.Fill(table)
adapter.Dispose()
kertas_36110037.DataSource = table
Dim
datakolom(1) As DataColumn
datakolom(0) = table.Columns("kodebarang")
table.PrimaryKey = datakolom
End Sub
Private Sub tambah_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles tambah_36110037.Click
If
kb_36110037.Text.Length = 0 Then
MsgBox("kode
barang tidak terisi")
ElseIf
Val(unit_36110037.Text) = 0 Then
MsgBox("unit
tidak terisi")
ElseIf
Val(harga_36110037.Text) = 0 Then
MsgBox("harga
barang tidak terisi")
Exit
Sub
End If
Dim
datarow As DataRow
datarow =
table.Rows.Find(kb_36110037.Text)
If
datarow Is Nothing
Then
datarow = table.NewRow
datarow("KODEBARANG")
= kb_36110037.Text
datarow("UNIT")
= unit_36110037.Text
datarow("HARGA")
= harga_36110037.Text
table.Rows.Add(datarow)
kb_36110037.Text = ""
unit_36110037.Text = ""
harga_36110037.Text = ""
Else
MsgBox("kode
barang telah terdaftar,")
End If
End Sub
Private Sub simpan_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles simpan_36110037.Click
If
notrans_36110037.Text.Length = 0 Then
MsgBox("nomor
transaksi harus terisi")
ElseIf
jnstrans_36110037.Text.Length = 0 Then
MsgBox("Isi
rong Jenis Transaksi na..")
ElseIf
table.Rows.Count = 0 Then
MsgBox("data
table tidak boleh kosong")
Exit Sub
End If
rhepoet.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36110037.Text, 1,
hubung)
If
rhepoet.JumlanBaris > 0 Then
MsgBox("nomor
transaksi telah ada")
Exit
Sub
End If
rpt = New
OleDb.OleDbCommand("insert into
mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('"
& notrans_36110037.Text & "',#"
& tgl_36110037.Value.Month & "/"
& tgl_36110037.Value.Day & "/"
& tgl_36110037.Value.Year & "#,'"
& jnstrans_36110037.Text & "')",
hubung)
hubung.Open()
rpt.ExecuteNonQuery()
hubung.Close()
For Each x As DataRow In table.Rows
rpt = New
OleDb.OleDbCommand("insert into
detailtransaksi(notrans, kodebarang, unit, harga) values ('" &
notrans_36110037.Text & "','"
& x("kodebarang") & "','" & x("unit")
& "','" & x("harga") & "')",
hubung)
hubung.Open()
rpt.ExecuteNonQuery()
hubung.Close()
Next
rpt.Dispose()
notrans_36110037.Text = ""
jnstrans_36110037.Text = ""
table.Rows.Clear()
End Sub
End Class
8. Uji program dengan
mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar