Latihan_35_46110022
Deskripsi Form Latihan_35 46110022
Dalam
form ini terdapat 4 buah object yaitu object textbox, label, datetimepicker dan
DataGriedView.
Object
Label
Terdapat
6 buah object label yaitu no transaksi, tanggal, jenis transaksi, kode
barang, unit dan harga.
Object
Textbox
Terdapat
5 buah object textbox yang berstatus input yang berfungsi untuk menginput data
k dalam data table.
Object
DateTimePicker
Terdapat
sebuah object datetimepicker yang digunakkan untuk menginput date pada data
table.
Object DataGriedView
Terdapat
sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam
bentuk tabel yang terdiri dari baris dan kolom.
Script Unique
1. Untuk memeriksa isi
textbox :
If
no46110022.Text.Length = 0 Then
MsgBox("Maaf, anda harus mengisi nomor transaksi
dulu...")
Exit Sub
End If
2. Untuk memeriksa nomor
transaksi pada master transaksi :
cari.AturPencarianDataBase("mastertransaksi", "notrans", no46110022.Text, 1, ega
If
cari.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
3. Untuk menyimpan data
ke table master transaksi :
cm = New OleDb.OleDbCommand("insert
into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('"
& no46110022.Text & "',#"
& tgl46110022.Value.Month & "/"
& tgl46110022.Value.Day & "/"
& tgl46110022.Value.Year & "#,'"
& jnis46110022.Text & "')",
ega)
ega.Open()
cm.ExecuteNonQuery()
ega.Close()
4. Untuk menyimpan isi
datatable ke dalam detail transaksi :
For Each x As DataRow In dt.Rows
cm = New
OleDb.OleDbCommand("insert into
detailtransaksi(notrans, kodebarang, unit, harga) values ('" &
no46110022.Text & "','" &
x("kodebarang") & "','" & x("unit")
& "','" & x("harga") & "')",
ega)
ega.Open()
cm.ExecuteNonQuery()
ega.Close()
Even
Click
Load
Langkah-Langkah Membuat Form Latihan 35_46110022
1. Buat form baru
seperti langkah berikut :
2. Input nama form
pada kolom yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form
seperti gambar berikut :
4. Input script di
bawah ini :
Public Class
Latihan_35_46110022
Dim ega As New OleDb.OleDbConnection("PROVIDER
= MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" &
Application.StartupPath & "/datamajemuk.ACCDB")
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Dim cm As New OleDb.OleDbCommand
Dim dt As New DataTable
Private Sub
Latihan_35_46110022_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select
KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '"
& no46110022.Text & "'",
ega)
a.Fill(dt)
a.Dispose()
dgv46110022.DataSource = dt
End Sub
Private Sub
tambah46110022_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
tambah46110022.Click
If kode46110022.Text.Length = 0 Then
MsgBox("Maaf, anda harus mengisi kode barang dulu...")
Exit Sub
End If
If Val(unit46110022.Text) = 0 Then
MsgBox("Maaf, anda harus mengisi unit dulu...")
Exit Sub
End If
If Val(hrg46110022.Text) = 0 Then
MsgBox("Maaf, anda harus mengisi harga dulu...")
Exit Sub
End If
Dim dr As DataRow
dr = dt.NewRow
dr("KODEBARANG") = kode46110022.Text
dr("UNIT") = unit46110022.Text
dr("HARGA") = hrg46110022.Text
dt.Rows.Add(dr)
kode46110022.Text = ""
unit46110022.Text = ""
hrg46110022.Text = ""
End Sub
Private Sub
simpan46110022_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
simpan46110022.Click
If no46110022.Text.Length = 0 Then
MsgBox("Maaf, anda harus mengisi nomor transaksi
dulu...")
Exit Sub
End If
If jnis46110022.Text.Length = 0 Then
MsgBox("Maaf, anda harus mengisi jenis transaksi
dulu...")
Exit Sub
End If
If dt.Rows.Count = 0 Then
MsgBox("Maaf, anda harus mengisi data table dulu...")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi",
"notrans", no46110022.Text, 1,
ega)
If cari.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If
cm = New OleDb.OleDbCommand("insert
into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('"
& no46110022.Text & "',#"
& tgl46110022.Value.Month & "/"
& tgl46110022.Value.Day & "/"
& tgl46110022.Value.Year & "#,'"
& jnis46110022.Text & "')",
ega)
ega.Open()
cm.ExecuteNonQuery()
ega.Close()
For Each x As DataRow In dt.Rows
cm = New OleDb.OleDbCommand("insert
into detailtransaksi(notrans, kodebarang, unit, harga) values ('"
& no46110022.Text & "','"
& x("kodebarang") & "','" & x("unit")
& "','" & x("harga") & "')",
ega)
ega.Open()
cm.ExecuteNonQuery()
ega.Close()
Next
cm.Dispose()
no46110022.Text
= ""
jnis46110022.Text = ""
dt.Rows.Clear()
End Sub
End Class
5. Jalankan program dengan cara mengklik start debugging seperti berikut
:
6. Setelah menekan start debug, maka akan tampil hasil dari latihan 35 seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
