Latihan_36_46110022
Deskripsi Form Latihan_36 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
__
Even
Click
Load
Langkah-Langkah Membuat Form Latihan 36_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_36_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_36_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
Dim
dc(1) As DataColumn
dc(0) = dt.Columns("kodebarang")
dt.PrimaryKey = dc
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("Isi
rong itu Kode Barang na..")
Exit
Sub
End If
If
Val(unit46110022.Text) = 0 Then
MsgBox("Isi
rong itu Unit na..")
Exit
Sub
End If
If
Val(harga46110022.Text) = 0 Then
MsgBox("Isi
rong itu Harga na..")
Exit
Sub
End If
Dim dr As DataRow
dr = dt.Rows.Find(kode46110022.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG")
= kode46110022.Text
dr("UNIT")
= unit46110022.Text
dr("HARGA")
= harga46110022.Text
dt.Rows.Add(dr)
kode46110022.Text = ""
unit46110022.Text = ""
harga46110022.Text = ""
Else
MsgBox("Kode
barang itu sudah ada, mohon ganti dengan kode barang yang lain")
End If
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("Isi
rong No Transaksi na..")
Exit
Sub
End If
If
jenis46110022.Text.Length = 0 Then
MsgBox("Isi
rong Jenis Transaksi na..")
Exit
Sub
End If
If
dt.Rows.Count = 0 Then
MsgBox("Maaf...Isi
rong itu datatable na..")
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 & "#,'"
& jenis46110022.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 = ""
jenis46110022.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 36 seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
