1.
Klik Start lalu pilih Microsoft
Visual Studio 2008
2.
Lalu akan muncul jendela awal
Microsoft Visual Studio seperti di bawah ini.
3.
Lalu pilih New Project dan beri nama
serta pilih tempat folder untuk menyimpannya.
4.
Kemudian
buat form sesuai dengan form di bawah ini.
5.
Berikut
ini adalah rumus untuk menjalankan form di atas.
Public Class
Latihan_38_36110048
Dim bridgeRio As New OleDb.OleDbConnection("
Provider = microsoft.ace.oledb.12.0; data source = " &
Application.StartupPath & "\DataMajemuk.accdb")
Dim tabelRio As New DataTable
Private Sub
Latihan_38_36110048_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim truckRio As New OleDb.OleDbDataAdapter
truckRio = New OleDb.OleDbDataAdapter("Select
BARANG.KODEBARANG, BARANG.NAMABARANG, UNIT, HARGA, UNIT * HARGA As JUMLAH
" & _
"From DETAILTRANSAKSI Inner join BARANG on
DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG where NOTRANS = '"
& NO_36110048.Text & "'",
bridgeRio)
tabelRio.Rows.Clear()
truckRio.Fill(tabelRio)
truckRio.Dispose()
Dim KolomPrimary(1) As
DataColumn
KolomPrimary(0)
= tabelRio.Columns("KODEBARANG")
tabelRio.PrimaryKey = KolomPrimary
DGV_36110048.DataSource
= tabelRio
End Sub
Private Sub Hitung()
Dim Jumlah As Integer = 0
For Each row As DataRow In
tabelRio.Rows
Jumlah =
Jumlah + row("Jumlah")
Next
TOTAL_36110048.Text = Jumlah
End Sub
Private Sub
UNIT_36110048_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
UNIT_36110048.TextChanged, HARGA_36110048.TextChanged
JUMLAH_36110048.Text = Val(UNIT_36110048.Text) *
Val(HARGA_36110048.Text)
End Sub
Private Sub
KODE_36110048_Leave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles KODE_36110048.Leave
If KODE_36110048.Text.Length = 0 Then
Exit Sub
End If
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG",
"KODEBARANG", KODE_36110048.Text,
1, bridgeRio)
If Pencari.JumlanBaris = 0 Then
MsgBox("Kode barang tersebut tidak ada")
If Latihan_383940_36110048.ShowDialog =
Windows.Forms.DialogResult.OK Then
KODE_36110048.Text =
Latihan_383940_36110048.DGV_36110048.CurrentRow.Cells("KODEBARANG").Value
NAMA_36110048.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
KODE_36110048.Text = ""
End If
Exit Sub
End If
NAMA_36110048.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
End Sub
Private Sub
KODE_36110048_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
KODE_36110048.TextChanged
NAMA_36110048.Text = ""
UNIT_36110048.Text = ""
HARGA_36110048.Text = ""
End Sub
Private Sub
TAMBAH_36110048_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TAMBAH_36110048.Click
If KODE_36110048.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Kode Barangnya")
Exit Sub
End If
If NAMA_36110048.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Nama Barangnya")
Exit Sub
End If
If Val(UNIT_36110048.Text) = 0 Then
MsgBox("Anda Harus Masukkan Unit Barangnya")
Exit Sub
End If
If Val(HARGA_36110048.Text) = 0 Then
MsgBox("Anda Harus Masukkan Harga Barangnya")
Exit Sub
End If
If tabelRio.Rows.Find(KODE_36110048.Text) Is Nothing Then
tabelRio.Rows.Add(KODE_36110048.Text, NAMA_36110048.Text,
Val(UNIT_36110048.Text), Val(HARGA_36110048.Text), Val(JUMLAH_36110048.Text))
Else
MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang
Lain!")
Exit Sub
End If
KODE_36110048.Text = ""
UNIT_36110048.Text = ""
HARGA_36110048.Text = ""
Hitung()
End Sub
Private Sub
SIMPAN_36110048_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles SIMPAN_36110048.Click
If NO_36110048.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan No Transaksinya")
Exit Sub
End If
If JENIS_36110048.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Jenis Transaksinya")
Exit Sub
End If
If tabelRio.Rows.Count = 0 Then
MsgBox("Datanya Belum Ada, Masukkan Kode Barang, Unit dan
harganya")
Exit Sub
End If
Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar
Periksa.AturPencarianDataBase("MASTERTRANSAKSI",
"NOTRANS", NO_36110048.Text, 1,
bridgeRio)
If Periksa.JumlanBaris > 0 Then
MsgBox("No Transaksi Sudah Ada, Masukkan No Transaksi yang
Lain")
Exit Sub
End If
Dim truckRio As New OleDb.OleDbCommand
truckRio = New OleDb.OleDbCommand("Insert
Into MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) "
& _
"Values ('" & NO_36110048.Text &
"', #" &
TGL_36110048.Value.Month & "/"
& TGL_36110048.Value.Day & "/"
& TGL_36110048.Value.Year & "#,
'" & JENIS_36110048.Text & "')",
bridgeRio)
bridgeRio.Open()
truckRio.ExecuteNonQuery()
bridgeRio.Close()
For Each row As DataRow In
tabelRio.Rows
truckRio = New OleDb.OleDbCommand("Insert
Into DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) " & _
"Values ('" & NO_36110048.Text &
"', '" & row("KODEBARANG") & "', " & row("UNIT")
& ", " & row("HARGA") & ")",
bridgeRio)
bridgeRio.Open()
truckRio.ExecuteNonQuery()
bridgeRio.Close()
Next
truckRio.Dispose()
NO_36110048.Text = ""
JENIS_36110048.Text = ""
tabelRio.Rows.Clear()
Hitung()
End Sub
End Class
6.
Setelah itu, jalankan programnya.
0 komentar:
Posting Komentar