LATIHAN_36_36110030
Deskripsi Latihan_36_36110030
A. Object-object dalam Latihan_36_36110030:
1. Object Label
Terdapat enam label (yang bertuliskan no
transaksi, tanggal, jenis transaksi, kode barang, unit, dan harga).
2. Object Textbox
Terdapat lima textbox (semuanya status
input) yang digunakan untuk memasukkan nilai: no transaksi, jenis transaksi,
kode barang, unit, dan harga.
3. Object Button
Terdapat dua object button (Tambah dan
Simpan). Tombol tambah digunakan untuk menyimpan data yang telah diinput pada
textbox ke dalam datatabel (yang ditampilkan pada datagridview). Tombol simpan
digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA
MAJEMUK). Pada latihan ini, data yang memiliki nomor transaksi yang sama tidak
dapat ditambah atau disimpan ke dalam database.
4. Object DateTimePicker
Terdapat satu object datetimepicker yang
digunakan untuk menentukan tanggal transaksi.
5. Object DataGridView
Terdapat satu object datagridview yang
digunakan untuk menampilkan data yang telah diinput pada textbox.
B. Script Unique
Untuk script, silahkan lihat selengkapnya
pada Langkah-Langkah Latihan_36_36110030.
C. Even
TAMBAH_36110030_Click
Latihan_36_36110030_Load
SIMPAN_36110030_Click
PROSEDUR PENYELESAIAN LATIHAN 36
1.KLIK STAR KEMUDIAN PILIH
MICROSOFT VISUAL STUDIO 2008
2.KEMUDIAN KLIK NEW PROJECT PADA FILE
3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT
4.
KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :
5.KEMUDIAN MASUKAN RUMUS :
Public Class Latihan_36_36110030
Dim bridgeYhuya As NewOleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath &"\datamajemuk.accdb;Jet OLEDB:Database Password=hma")
Dim DT As New DataTable
Private Sub Latihan_36_36110030_Load(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Me.Load
Dim truckYhuya As New OleDb.OleDbDataAdapter
truckYhuya = New OleDb.OleDbDataAdapter("Select
KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI where NOTRANS = '" & NO_36110030.Text & "'", bridgeYhuya)
DT.Rows.Clear()
truckYhuya.Fill(DT)
truckYhuya.Dispose()
Dim KolomPrimary(1) As DataColumn
KolomPrimary(0) = DT.Columns("KODEBARANG")
DT.PrimaryKey = KolomPrimary
DGV_36110030.DataSource = DT
End Sub
Private Sub TAMBAH_36110030_Click(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesTAMBAH_36110030.Click
If KODE_36110030.Text.Length = 0 Then
MsgBox("Anda Harus
Masukkan Kode Barangnya")
Exit Sub
End If
If Val(UNIT_36110030.Text) = 0 Then
MsgBox("Anda Harus
Masukkan Unit Barangnya")
Exit Sub
End If
If Val(HARGA_36110030.Text) = 0 Then
MsgBox("Anda Harus
Masukkan Harga Barangnya")
Exit Sub
End If
If DT.Rows.Find(KODE_36110030.Text) Is NothingThen
DT.Rows.Add(KODE_36110030.Text, Val(UNIT_36110030.Text),
Val(HARGA_36110030.Text))
Else
MsgBox("Kode Barang
Sudah Ada, Masukkan Kode Barang yang Lain!")
Exit Sub
End If
KODE_36110030.Text = ""
UNIT_36110030.Text = ""
HARGA_36110030.Text = ""
End Sub
Private Sub SIMPAN_36110030_Click(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesSIMPAN_36110030.Click
If NO_36110030.Text.Length = 0 Then
MsgBox("Anda Harus
Masukkan No Transaksinya")
Exit Sub
End If
If JENIS_36110030.Text.Length = 0 Then
MsgBox("Anda Harus
Masukkan Jenis Transaksinya")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("Datanya Belum
Ada, Masukkan Kode Barang, Unit dan harganya")
Exit Sub
End If
Dim Periksa As NewByIskandar.CariKeDataBaseByIskandar
Periksa.AturPencarianDataBase("MASTERTRANSAKSI","NOTRANS",
NO_36110030.Text, 1, bridgeYhuya)
If Periksa.JumlanBaris > 0 Then
MsgBox("No Transaksi
Sudah Ada, Masukkan No Transaksi yang Lain")
Exit Sub
End If
Dim trukYhuya As New OleDb.OleDbCommand
trukYhuya = New OleDb.OleDbCommand("Insert
Into MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) " & _
"Values ('" &
NO_36110030.Text & "', #" & DATE_36110030.Value.Month & "/" & DATE_36110030.Value.Day
& "/" & DATE_36110030.Value.Year
& "#, '" & JENIS_36110030.Text
& "')", bridgeYhuya)
bridgeYhuya.Open()
trukYhuya.ExecuteNonQuery()
bridgeYhuya.Close()
For Each row As DataRow In DT.Rows
trukYhuya = New OleDb.OleDbCommand("Insert
Into DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) " & _
"Values ('" &
NO_36110030.Text & "', '" & row("KODEBARANG") & "', " & row("UNIT") & ", " & row("HARGA") & ")", bridgeYhuya)
bridgeYhuya.Open()
trukYhuya.ExecuteNonQuery()
bridgeYhuya.Close()
Next
trukYhuya.Dispose()
NO_36110030.Text = ""
JENIS_36110030.Text = ""
DT.Rows.Clear()
End Sub
End Class
6. KEMUDIAN
UJI PROGRAM
7. JIKA SUDAH
BERHASIL Save program anda
8. selesai
0 komentar:
Posting Komentar