Deskripsi form Latihan_40b_46110003
Dalam form Latihan_40b_46110003 terdapat lima object yaitu Label, Textbox, Button, StatuSrtip dan DataGridView.
Dalam form Latihan_40b_46110003 terdapat lima object yaitu Label, Textbox, Button, StatuSrtip dan DataGridView.
Object Label :
Dalam form ini terdapat empat buah object label yang bertuliskan “No.Transakasi”, “Tgl Transaksi”, “Jenis Transaksi” dan “Total”
Dalam form ini terdapat empat buah object label yang bertuliskan “No.Transakasi”, “Tgl Transaksi”, “Jenis Transaksi” dan “Total”
Object Textbox :
Dalam form ini terdapat sembilan buah object textbox 3 yang berstatus input dan 1 yang berstatus read only.
Dalam form ini terdapat sembilan buah object textbox 3 yang berstatus input dan 1 yang berstatus read only.
Object Button :
Dalam form ini hanya terdapat sebuah object button yang bertuliskan “simpan” berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.
Dalam form ini hanya terdapat sebuah object button yang bertuliskan “simpan” berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.
Object datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Object StatusStrip :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Pada latihan ini tidak terdapat script unique
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Pada latihan ini tidak terdapat script unique
Even :
Button click
Load
CellEndEdit
Langkah-langkah
penyelesaian form latihan_40b_46110003
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_40b_46110003
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Dim baru(1)
As DataColumn
Public Sub botto()
Dim
ttotal_46110003 As Integer
For Each hasil As DataRow
In gitik.Rows
ttotal_46110003 += hasil("Jumlah")
Next
Total_46110003.Text = ttotal_46110003
End Sub
Public Sub makecolumn()
'mendeklarasikan
kendaraan
Dim
bojel As New
OleDb.OleDbDataAdapter
'Mengatur
data yang akan di angkut
bojel = New
OleDb.OleDbDataAdapter("SELECT
detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga,
detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI
inner join barang on detailtransaksi.kodebarang=barang.kodebarang where
detailtransaksi.notrans='" & NT_46110003.Text & "'", Jalan)
'bersihkan
data
gitik.Rows.Clear()
'untuk
memasukkan data yg telah di angkut ke dalam datatable
bojel.Fill(gitik)
bojel.Dispose()
'untuk
menampilkan isi datatable ke data grid view
gitik.Columns("Kodebarang").DefaultValue
= ""
gitik.Columns("NamaBarang").DefaultValue
= ""
gitik.Columns("unit").DefaultValue
= 0
gitik.Columns("harga").DefaultValue
= 0
gitik.Columns("jumlah").DefaultValue
= 0
gitik.Columns("NamaBarang").ReadOnly
= True
baru(0) = gitik.Columns("kodebarang")
gitik.PrimaryKey = baru
Showme_46110003.DataSource = gitik
End Sub
Private Sub Latihan40b_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
makecolumn()
End Sub
Private Sub showme_46110003_CellEndEdit(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
Showme_46110003.CellEndEdit
'mengosongkan
data
If
e.ColumnIndex = 0 Then
Showme_46110003.CurrentRow.Cells("NamaBarang").Value = ""
Showme_46110003.CurrentRow.Cells("Unit").Value = 0
Showme_46110003.CurrentRow.Cells("harga").Value = 0
Showme_46110003.CurrentRow.Cells("Jumlah").Value = 0
'mencari
data yang ada di tabel
Dim
Pencari As New
ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang",
Showme_46110003.CurrentRow.Cells("kodebarang").Value,
1, Jalan)
If
Pencari.JumlanBaris > 0 Then
Showme_46110003.CurrentRow.Cells("kodebarang").Value =
Pencari.DataTablenya.Rows(0).Item(0)
Showme_46110003.CurrentRow.Cells("namabarang").Value
= Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the
data is not found")
If
Latihan_383940_46110003.ShowDialog = Windows.Forms.DialogResult.OK Then
Showme_46110003.CurrentRow.Cells("kodebarang").Value
= Latihan_383940_46110003.view_46110003.CurrentRow.Cells("KodeBarang").Value
Showme_46110003.CurrentRow.Cells("Namabarang").Value =
Latihan_383940_46110003.view_46110003.CurrentRow.Cells("namabarang").Value
End
If
End
If
'mengitung
jumlah dan total_46110003
ElseIf
e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
Showme_46110003.CurrentRow.Cells("jumlah").Value =
Showme_46110003.CurrentRow.Cells("unit").Value
* Showme_46110003.CurrentRow.Cells("harga").Value
botto()
End If
End Sub
Private Sub Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Simpan_46110003.Click
'Memeriksa
isi textbox
If
NT_46110003.Text.Length = 0 Then
MsgBox("Please,
insert the Number of the transaction")
Exit
Sub
End If
If
JT_46110003.Text.Length = 0 Then
MsgBox("Please,
insert the type of the transaction")
Exit
Sub
End If
If
gitik.Rows.Count = 0 Then
MsgBox("the
data is none")
Exit
Sub
End If
'Memeriksa
nomor transaksi pd master transaksi
If
replace_46110003.Text <> NT_46110003.Text Then
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110003.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
Exit
Sub
End
If
End If
'Proses
delete dan Penyimpanan ke tabel master transaksi
Dim
data As Integer
= Val(replace_46110003.Text)
Dim
kacci As New
OleDb.OleDbCommand
kacci = New
OleDb.OleDbCommand("delete * from
mastertransaksi where notrans='" & replace_46110003.Text & "'", Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
kacci = New
OleDb.OleDbCommand("delete * from
detailtransaksi where notrans='" & replace_46110003.Text & "'", Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
kacci = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& NT_46110003.Text & "',#"
& DTP_46110003.Value.Month & "/"
& DTP_46110003.Value.Day & "/"
& DTP_46110003.Value.Year & "#,'"
& JT_46110003.Text & "')",
Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
'penyimpanan
isi datatable ke detail transaksi
For Each nhana As DataRow
In gitik.Rows
kacci = New
OleDb.OleDbCommand("insert into
detailtransaksi (notrans,kodebarang,unit,harga) values ('" &
NT_46110003.Text & "','" &
nhana("kodebarang") & "'," & nhana("unit") & ","
& nhana("harga") & ")", Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
Next
kacci.Dispose()
'Mengosongkan
isi text box
NT_46110003.Text = ""
JT_46110003.Text = ""
'Mengosongkan
baris datatable
gitik.Rows.Clear()
'mengambildata
Latihan_40a_46110003.grabdata()
'menutup form
Me.Close()
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar