FORM LATIHAN
untuk lihat form Latihan_393840_46110021, klik ini Latihan_383940_46110021
Name : Latihan_39_46110021
Text :
Object
|
Properti
|
4label
|
Text
: - No. Transaksi
-
Tanggal
-
Jenis Transaksi
-
Total
|
3
text box
|
Name:
- NT_46110021
-
JT_46110021
-
Total_46110021(Readonly)
|
1
datetimepicker
|
Name:
DTP_46110021
|
1
button
|
Name:
Simpan_46110021
Text : Simpan
|
1
Datagridview
|
Name:
Showme_46110021
|
CARA MEMBUAT FORM
A. Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…
C. Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.
D. Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_39_46110021
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Private Sub botto()
Dim
ttotal_46110021 As Integer
For Each hasil As DataRow
In gitik.Rows
ttotal_46110021 += hasil("Jumlah")
Next
Total_46110021.Text = ttotal_46110021
End Sub
Private Sub Latihan39_083_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
'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_46110021.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
Showme_46110021.DataSource = gitik
'perintah
primarykey
Dim
kabotcibay(2) As DataColumn
kabotcibay(0) = gitik.Columns("Kodebarang")
gitik.PrimaryKey = kabotcibay
End Sub
Private Sub showme_46110021_CellEndEdit(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
Showme_46110021.CellEndEdit
'mengosongkan
data
If
e.ColumnIndex = 0 Then
Showme_46110021.CurrentRow.Cells("NamaBarang").Value = ""
Showme_46110021.CurrentRow.Cells("Unit").Value = 0
Showme_46110021.CurrentRow.Cells("harga").Value = 0
Showme_46110021.CurrentRow.Cells("Jumlah").Value = 0
'mencari
data yang ada di tabel
Dim
Pencari As New
ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang",
Showme_46110021.CurrentRow.Cells("kodebarang").Value,
1, Jalan)
If
Pencari.JumlanBaris > 0 Then
Showme_46110021.CurrentRow.Cells("kodebarang").Value
= Pencari.DataTablenya.Rows(0).Item(0)
Showme_46110021.CurrentRow.Cells("namabarang").Value
= Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the
data is not found")
If
Latihan_383940_46110021.ShowDialog = Windows.Forms.DialogResult.OK Then
Showme_46110021.CurrentRow.Cells("kodebarang").Value
= Latihan_383940_46110021.view_46110021.CurrentRow.Cells("KodeBarang").Value
Showme_46110021.CurrentRow.Cells("Namabarang").Value
= Latihan_383940_46110021.view_46110021.CurrentRow.Cells("namabarang").Value
End
If
End
If
'mengitung
jumlah dan total_46110021
ElseIf
e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
Showme_46110021.CurrentRow.Cells("jumlah").Value =
Showme_46110021.CurrentRow.Cells("unit").Value
* Showme_46110021.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_46110021.Click
'Memeriksa
isi textbox
If
NT_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the Number of the transaction")
Exit
Sub
End If
If
JT_46110021.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
Dim
search As New
ByIskandar.CariKeDataBaseByIskandar
search.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110021.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
kacci As New
OleDb.OleDbCommand
kacci = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& NT_46110021.Text & "',#"
& DTP_46110021.Value.Month & "/"
& DTP_46110021.Value.Day & "/"
& DTP_46110021.Value.Year & "#,'"
& JT_46110021.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_46110021.Text & "','" &
nhana("kodebarang") & "'," & nhana("unit") & ","
& nhana("harga") & ")", Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
Next
kacci.Dispose()
'Mengosongkan
isi text box
NT_46110021.Text = ""
JT_46110021.Text = ""
'Mengosongkan
baris datatable
gitik.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Script unik
'mengitung jumlah dan total_46110021
ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
Showme_46110021.CurrentRow.Cells("jumlah").Value = Showme_46110021.CurrentRow.Cells("unit").Value * Showme_46110021.CurrentRow.Cells("harga").Value
Even
CellEndEdit
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih tombol start debugging lalu pilih form Latihan_39_46110021, maka jendela Latihan_39_46110021 akan muncul
B. Isi sesuai dengan keinginan anda. lalu tekan tambah atau simpan