Deskripsi latihan_38_36110036
A.
Object Label
Terdapat Sembilan label yang bertuliskan no transaksi, tanggal, jenis
transaksi, kode barang, nama barang, unit, harga, jumlah, total.
B.
Object textbox
Terdapat
delapan textbox (enam status input, dua status read only). Status input digunakan untuk
memasukkan nilai dari no transaksi, jenis transaksi, kode barang, nama barang,
unit, dan harga.
Status read
only digunakan untuk menampilkan nama barang, jumlah, dan total.
C.
Object button
Terdapat dua
object button yang bertuliskan (tambah dan simpan). Button tambah digunakan
untuk menambah daftar barang di Ms Access yang
juga dapat dilihat pada data gridview sedangkan button simpan digunakan untuk
menyimpan data. Kode
barang yang telah diinput harus merupakan kode barang yang sudah ada pada table
kode barang karena nama barang akan ditampilkan pada textbox readonly sesuai
dengan kode barang yang diinput. Jika kode barang tidak ada, maka akan muncul
form latihan_383940_36110036.
D.
Object data gridview
Terdapat satu data gridview yang
digunakan untuk menampilkan data yang telah diinput.
E.
Object Date timepicker
Terdapat satu object date timepicker yang digunakan untuk
menginput tanggal transaksi.
F.
Script Unique
Untuk script
unique dapat dilihat pada Langkah-langkah mengerjakan latihan_38_36110036.
G.
Even
latihan_38_36110036_Load
tambah_36110036_Click
simpan_36110036_Click
H.
Property
Property
TextBox ==> ReadOnly=True
Langkah-langkah mengerjakan latihan_38_36110036
1.
Buka project yang telah dibuat, dan
buka solution explorer
2.
Klik
kanan nama project ==> add ==> new item
3.
Klik New Item, setelah terbuka pilih windows form dan ketik nama form lalu klik Add
4. Kemudian klik file
tersebut, maka akan terbuka jendela
pekerjaan dari Ms. Visual Studio.
5. Kemudian buat form seperti dibawah ini:
6. Setelah
design form
selesai dibuatlah rumusnya,
Berikut adalah rumus untuk
menjalankan latihan_38_36110036.
Public Class
latihan_38_36110036
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database
Password=anna")
Dim anna As New DataTable
Dim fika As DataRow
Private Sub
latihan_38_36110036_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select
BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT,
DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH
from DETAILTRANSAKSI INNER JOIN BARANG ON
DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '"
& no_36110036.Text & "'",
CONECT)
X.Fill(anna)
X.Dispose()
Dim dataPrimary(1) As
DataColumn
dataPrimary(0)
= anna.Columns("KODEBARANG")
anna.PrimaryKey
= dataPrimary
data_36110036.DataSource = anna
End Sub
Private Sub
TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In
anna.Rows
TOT = TOT +
x("JUMLAH")
Next
total_36110036.Text = TOT
End Sub
Private Sub
KB_36110036_Leave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles KB_36110036.Leave
If KB_36110036.Text.Length = 0 Then
Exit Sub
End If
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG",
"KODEBARANG", KB_36110036.Text, 1,
CONECT)
If
Pencari.JumlanBaris > 0 Then
KB_36110036.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
no_36110036.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang tersebut tidak ada")
If latihan_383940_36110036.ShowDialog =
Windows.Forms.DialogResult.OK Then
KB_36110036.Text =
latihan_383940_36110036.data_36110036.CurrentRow.Cells("KodeBarang").Value
NB_36110036.Text =
latihan_383940_36110036.data_36110036.CurrentRow.Cells("NamaBarang").Value
Else
KB_36110036.Text = ""
End If
End If
End Sub
Private Sub
KB_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
KB_36110036.TextChanged
NB_36110036.Text = ""
unit_36110036.Text = ""
harga_36110036.Text = ""
End Sub
Private Sub
UNIT_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
unit_36110036.TextChanged, harga_36110036.TextChanged
jumlah_36110036.Text = Val(unit_36110036.Text) *
Val(harga_36110036.Text)
End Sub
Private Sub
tambah_36110036_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
tambah_36110036.Click
If KB_36110036.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If NB_36110036.Text.Length = 0 Then
MsgBox("Nama barang sudah ada")
End If
If Val(unit_36110036.Text) = 0 Then
MsgBox("Masukkan unit barang")
Exit Sub
End If
If Val(harga_36110036.Text) = 0 Then
MsgBox("Masukkan harga barang barang")
Exit Sub
End If
fika =
anna.Rows.Find(KB_36110036.Text)
If fika Is Nothing Then
fika =
anna.NewRow
fika("KODEBARANG") = KB_36110036.Text
Else
MsgBox("Maaf kodebarang sudah ada")
Exit Sub
End If
fika =
anna.NewRow
fika("KODEBARANG") = KB_36110036.Text
fika("NAMABARANG") = NB_36110036.Text
fika("UNIT") = unit_36110036.Text
fika("HARGA") = harga_36110036.Text
fika("JUMLAH") = jumlah_36110036.Text
anna.Rows.Add(fika)
KB_36110036.Text = ""
NB_36110036.Text = ""
unit_36110036.Text = ""
harga_36110036.Text = ""
TOTALJUMLAH()
End Sub
Private Sub
Simpan_36110036_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
simpan_36110036.Click
If no_36110036.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jenis_36110036.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
If anna.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI",
"NOTRANS", no_36110036.Text, 1,
CONECT)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
Dim NN As New OleDb.OleDbCommand
NN = New OleDb.OleDbCommand("INSERT
INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES
('" & no_36110036.Text & "',
#" & tanggal_36110036.Value.Month & "/" & tanggal_36110036.Value.Day & "/" & tanggal_36110036.Value.Year
& "#, '" &
jenis_36110036.Text & "')",
CONECT)
CONECT.Open()
NN.ExecuteNonQuery()
CONECT.Close()
For Each X As DataRow In
anna.Rows
NN = New OleDb.OleDbCommand("INSERT
INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('"
& no_36110036.Text & "','"
& X("KODEBARANG") & "'," & X("UNIT")
& ", " & X("HARGA") & ")",
CONECT)
CONECT.Open()
NN.ExecuteNonQuery()
CONECT.Close()
NN.Dispose()
Next
no_36110036.Text = ""
jenis_36110036.Text = ""
jumlah_36110036.Text = ""
anna.Rows.Clear()
TOTALJUMLAH()
End Sub
End Class
7. Setelah rumus selesai, program dijalankan dengan menggunakan
start debugging
8. Setelah program jalan maka
file disave.
Tidak ada komentar:
Posting Komentar