Deskripsi Form Latihan_40B_46110038:
Form Latihan_40B_46110038 hanya terdapat 6 object yaitu label, textbox, button, datagridview, toolstatusstrip,
dan Datetimepicker.
Object Label
Di
Latihan_40B_46110038 ada 4 label yang
bertuliskan No. Transaksi, Tanggal, Jenis Transaksi, dan Total.
Object Textbox
Di
Latihan_40B_46110038 ada 3 textbox, 2 status input yang digunakan untuk memasukkan data:
no transaksi dan jenis transaksi, dan 1 status readonly yang digunakan untuk
menampilkan jumlah data yang telah di input.
Object Toolstatusstrip
Di
Latihan_40B_46110038 ada 2 object toolsstatusstrip.
Object Button
Di
Latihan_40B_46110038 ada 1 object button,
Simpan. Tombol Simpan 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).
Object DateTimePicker
Di
Latihan_40B_46110038 ada 1 object
datetimepicker yang digunakan untuk menentukan tanggal transaksi.
Object Datagridview
Di
Latihan_40B_46110038 ada 1 datagridview.
Digunakan untuk menampilkan datatable.
Script Unique
-
Even
Load
click
Cara
Membuat Form Latihan_40B_46110038:
1.
Buka project yang telah dibuat.
2.
pilih Add New Item pada Microsoft Visual Studio 2005/ 2008
3.
Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.
4.
Kemudian buat form seperti di bawah ini:
5. Setelah
format untuk Latihan_40B_46110038
sudah dibuat maka selanjutnya membuat listing program pada jendela code:
Public Class Latihan_40B_46110038
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim DT As New DataTable
Dim baru(1)
As DataColumn
Public Sub tot()
Dim
total As Integer
For Each hasil As DataRow
In DT.Rows
total += hasil("Jumlah")
Next
total46110038.Text = total
End Sub
Public Sub makecolumn()
'mendeklarasikan
kendaraan
Dim
merah As New
OleDb.OleDbDataAdapter
'Mengatur
data yang akan di angkut
merah = 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='" & nomor46110038.Text & "'", Jalan)
'bersihkan data
DT.Rows.Clear()
'untuk
memasukkan data yg telah di angkut ke dalam datatable
merah.Fill(DT)
merah.Dispose()
'untuk
menampilkan isi datatable ke data grid view
DT.Columns("Kodebarang").DefaultValue
= ""
DT.Columns("NamaBarang").DefaultValue
= ""
DT.Columns("unit").DefaultValue
= 0
DT.Columns("harga").DefaultValue
= 0
DT.Columns("jumlah").DefaultValue
= 0
DT.Columns("NamaBarang").ReadOnly
= True
baru(0) = DT.Columns("kodebarang")
DT.PrimaryKey = baru
Data46110038.DataSource = DT
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 data_CellEndEdit(ByVal
sender As System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
Data46110038.CellEndEdit
'mengosongkan
data
If
e.ColumnIndex = 0 Then
Data46110038.CurrentRow.Cells("NamaBarang").Value = ""
Data46110038.CurrentRow.Cells("Unit").Value = 0
Data46110038.CurrentRow.Cells("harga").Value = 0
Data46110038.CurrentRow.Cells("Jumlah").Value = 0
'mencari
data yang ada di tabel
Dim
Pencari As New
ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang",
Data46110038.CurrentRow.Cells("kodebarang").Value,
1, Jalan)
If
Pencari.JumlanBaris > 0 Then
Data46110038.CurrentRow.Cells("kodebarang").Value =
Pencari.DataTablenya.Rows(0).Item(0)
Data46110038.CurrentRow.Cells("namabarang").Value =
Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the
data is not found")
If
Latihan_383940_46110038.ShowDialog = Windows.Forms.DialogResult.OK Then
Data46110038.CurrentRow.Cells("kodebarang").Value
= Latihan_383940_46110038.Data46110038.CurrentRow.Cells("KodeBarang").Value
Data46110038.CurrentRow.Cells("Namabarang").Value
= Latihan_383940_46110038.Data46110038.CurrentRow.Cells("namabarang").Value
End
If
End
If
'mengitung
jumlah dan total
ElseIf
e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
Data46110038.CurrentRow.Cells("jumlah").Value =
Data46110038.CurrentRow.Cells("unit").Value
* Data46110038.CurrentRow.Cells("harga").Value
tot()
End If
End Sub
Private Sub Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan46110038.Click
'Memeriksa
isi textbox
If
nomor46110038.Text.Length = 0 Then
MsgBox("Please,
insert the Number of the transaction")
Exit
Sub
End If
If
jenis46110038.Text.Length = 0 Then
MsgBox("Please,
insert the type of the transaction")
Exit
Sub
End If
If
DT.Rows.Count = 0 Then
MsgBox("the
data is none")
Exit
Sub
End If
'Memeriksa
nomor transaksi pd master transaksi
If
Tool246110038.Text <> nomor46110038.Text Then
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("mastertransaksi", "notrans", nomor46110038.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(Tool246110038.Text)
Dim
kawan As New
OleDb.OleDbCommand
kawan = New
OleDb.OleDbCommand("delete * from
mastertransaksi where notrans='" & Tool246110038.Text & "'", Jalan)
Jalan.Open()
kawan.ExecuteNonQuery()
Jalan.Close()
kawan = New
OleDb.OleDbCommand("delete * from
detailtransaksi where notrans='" & Tool246110038.Text & "'", Jalan)
Jalan.Open()
kawan.ExecuteNonQuery()
Jalan.Close()
kawan = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& nomor46110038.Text & "',#"
& tanggal46110038.Value.Month & "/"
& tanggal46110038.Value.Day & "/"
& tanggal46110038.Value.Year & "#,'"
& jenis46110038.Text & "')",
Jalan)
Jalan.Open()
kawan.ExecuteNonQuery()
Jalan.Close()
'penyimpanan
isi datatable ke detail transaksi
For Each erma As DataRow In DT.Rows
kawan = New
OleDb.OleDbCommand("insert into
detailtransaksi (notrans,kodebarang,unit,harga) values ('" &
nomor46110038.Text & "','"
& erma("kodebarang") & "'," & erma("unit")
& "," & erma("harga") & ")",
Jalan)
Jalan.Open()
kawan.ExecuteNonQuery()
Jalan.Close()
Next
kawan.Dispose()
'Mengosongkan
isi text box
nomor46110038.Text = ""
jenis46110038.Text = ""
'Mengosongkan
baris datatable
DT.Rows.Clear()
'mengambildata
Latihan_40A_46110038.merah()
'menutup form
Me.Close()
End Sub
End Class
Untuk
menjalankan Latihan_40B _46110038, klik
start debugging.
Tidak ada komentar:
Posting Komentar