Deskripsi Form Latihan_39_46110038:
Form Latihan_39_46110038 hanya terdapat 5 object yaitu label, textbox, button, datagridview,
dan Datetimepicker.
Object Label
Di
Latihan_39_46110038 ada 9 label yang bertuliskan No. Transaksi,
Tanggal, Jenis Transaksi, Kode Barang, Unit, Harga, Jumlah, dan Total.
Object Textbox
Di
Latihan_39_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 Button
Di
Latihan_39_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_39_46110038 ada 1 object datetimepicker yang digunakan untuk
menentukan tanggal transaksi.
Object Datagridview
Di
Latihan_39_46110038 ada 1 datagridview. Digunakan untuk menampilkan
datatable.
Script Unique
-
Even
Load
click
Leave
Cara
Membuat Form Latihan_39_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_39_46110038 sudah dibuat maka selanjutnya membuat
listing program pada jendela code:
Public Class Latihan_39_46110038
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim DT As New DataTable
Private Sub tot()
Dim
total As Integer
For Each hasil As DataRow
In DT.Rows
total += hasil("Jumlah")
Next
total46110038.Text = total
End Sub
Private Sub Latihan39_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'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
Data46110038.DataSource = DT
'perintah
primarykey
Dim
key(2) As DataColumn
key(0) = DT.Columns("Kodebarang")
DT.PrimaryKey = key
End Sub
Private Sub Showme_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("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
Dim
search As New
ByIskandar.CariKeDataBaseByIskandar
search.AturPencarianDataBase("mastertransaksi", "notrans", nomor46110038.Text, 1, Jalan)
If
search.JumlanBaris > 0 Then
MsgBox("the
code has been exist")
Exit
Sub
End If
'Proses
Penyimpanan ke tabel master transaksi
Dim
kawan As New
OleDb.OleDbCommand
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()
'menutup form
Me.Close()
End Sub
End Class
Untuk
menjalankan Latihan_39_46110038, klik start debugging.
Tidak ada komentar:
Posting Komentar