A. General Definition of Solvency Analysis
Solvency analysis was used for analysis measure the company's ability to pay off all of its liabilities.
B. Definition of Short - Term Debt on Debt Analysis
Ratio of short - term debt on debt analysis is an analysis to calculate the total of short - term debt in the company by compare the short - term debt with debt.
C. The Kinds of Debt
1. Long - term debt
2. Short - term debt
D. Definition of Short Term Debt
An account shown in the current liabilities portion of a company's balance sheet. This account is comprised of any debt incurred by a company that's due within one year.
E. Formula of Short - Term Debt on Debt Analysis
total short - term debt
total debt
1.064.198 + 4.430.424 + 13.263.856
21.344.391
18.758.478
21.344.391
= 0,88
F. Conclusion
This ratiois commonly used to determine how much the proportion of short - term debt on debt.
hello! assalamualaikum :)
Kamis, 27 Juni 2013
Minggu, 27 Januari 2013
Latihan_35_46110045
Pada form latihan 35 ada 5 object
yang digunakan yaitu Label, Text Box, Button, Date Time
Picker dan Data Grid View.
Object Label
Pada form ini
label yang digunakan ada 6 (no. transaksi, tanggal, jenis transaksi, kode
barang, unit dan harga).
Object TextBox
Pada form ini
ada 5 textbox yang digunakan (status input). Status input digunakan untuk
memasukkan data. Data yang dimasukkan yaitu “no. transaksi, jenis transaksi,
kode barang, unit dan harga”.
Object DateTimePicker
Pada latihan 35
terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa
tahun, bulan dan tanggal.
Object Button
Terdapat 2 object button (tambah
dan simpan). Tombol “tambah” digunakan untuk menambah data dan tombol “simpan”
untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel “Data Majemuk”.
Script Unique
Lebih lengkap dapat dilihat pada
script yang ada pada langkah-langkah
membuat form pada poin ke 5 dibawah ini
Even
Load
ButtonClick
1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form
2. Ketik nama Latihan_35 yang akan dibuat pada kotak “NAME” lalu pilih “add”
3. Buatlah desain seperti berikut menggunakan toolbox
Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label
4. Pilih menu “view” klik “code”
5. Masukkan rumus berikut:
Public Class Latihan_35_46110045
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Private Sub Latihan_35_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim robot As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
robot = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & nt_46110045.Text & "'", dina)
'bersihkan data
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
robot.Fill(dyna)
'untuk menampilkan isi datatable ke data grid view
robot.Dispose()
dgv_46110045.DataSource = dyna
End Sub
Private Sub TAMBAH_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110045.Click
'Memeriksa isi textbox
If kb_46110045.Text.Length = 0 Then
MsgBox("Please, insert the code of goods")
Exit Sub
End If
If unit_46110045.Text.Length = 0 Then
MsgBox("Please, insert the unit of goods")
Exit Sub
End If
If harga_46110045.Text.Length = 0 Then
MsgBox("Please, insert the cost of goods")
Exit Sub
End If
'penyimpanan data ke datatable
dyna.Rows.Add((kb_46110045.Text), Val(unit_46110045.Text), Val(harga_46110045.Text))
'mengosongkan textbox
kb_46110045.Text = ""
unit_46110045.Text = ""
harga_46110045.Text = ""
End Sub
Private Sub SIMPAN_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110045.Click
'Memeriksa isi textbox
If nt_46110045.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If jt_46110045.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If dyna.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_46110045.Text, 1, dina)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim kabot As New OleDb.OleDbCommand
kabot = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & nt_46110045.Text & "',#" & dtp_46110045.Value.Month & "/" & dtp_46110045.Value.Day & "/" & dtp_46110045.Value.Year & "#,'" & jt_46110045.Text & "')", dina)
dina.Open()
kabot.ExecuteNonQuery()
dina.Close()
'penyimpanan isi datatable ke detail transaksi
For Each AKU As DataRow In dyna.Rows
kabot = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & nt_46110045.Text & "','" & AKU("kodebarang") & "'," & AKU("unit") & "," & AKU("harga") & ")", dina)
dina.Open()
kabot.ExecuteNonQuery()
dina.Close()
Next
kabot.Dispose()
'Mengosongkan isi text box
nt_46110045.Text = ""
jt_46110045.Text = ""
'Mengosongkan baris datatable
dyna.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Private Sub Latihan_35_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim robot As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
robot = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & nt_46110045.Text & "'", dina)
'bersihkan data
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
robot.Fill(dyna)
'untuk menampilkan isi datatable ke data grid view
robot.Dispose()
dgv_46110045.DataSource = dyna
End Sub
Private Sub TAMBAH_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110045.Click
'Memeriksa isi textbox
If kb_46110045.Text.Length = 0 Then
MsgBox("Please, insert the code of goods")
Exit Sub
End If
If unit_46110045.Text.Length = 0 Then
MsgBox("Please, insert the unit of goods")
Exit Sub
End If
If harga_46110045.Text.Length = 0 Then
MsgBox("Please, insert the cost of goods")
Exit Sub
End If
'penyimpanan data ke datatable
dyna.Rows.Add((kb_46110045.Text), Val(unit_46110045.Text), Val(harga_46110045.Text))
'mengosongkan textbox
kb_46110045.Text = ""
unit_46110045.Text = ""
harga_46110045.Text = ""
End Sub
Private Sub SIMPAN_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110045.Click
'Memeriksa isi textbox
If nt_46110045.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If jt_46110045.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If dyna.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_46110045.Text, 1, dina)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim kabot As New OleDb.OleDbCommand
kabot = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & nt_46110045.Text & "',#" & dtp_46110045.Value.Month & "/" & dtp_46110045.Value.Day & "/" & dtp_46110045.Value.Year & "#,'" & jt_46110045.Text & "')", dina)
dina.Open()
kabot.ExecuteNonQuery()
dina.Close()
'penyimpanan isi datatable ke detail transaksi
For Each AKU As DataRow In dyna.Rows
kabot = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & nt_46110045.Text & "','" & AKU("kodebarang") & "'," & AKU("unit") & "," & AKU("harga") & ")", dina)
dina.Open()
kabot.ExecuteNonQuery()
dina.Close()
Next
kabot.Dispose()
'Mengosongkan isi text box
nt_46110045.Text = ""
jt_46110045.Text = ""
'Mengosongkan baris datatable
dyna.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Latihan 38B_46110045
Pada form latihan 38b hanya
ada satu object yaitu Data Grid View.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel “Data Majemuk”.
Even
Load
Lebih lengkap dapat dilihat pada script yang ada pada langkah-langkah membuat form pada poin ke 5 dibawah ini
1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form
2. Ketik nama Latihan_3383940 yang akan dibuat pada kotak “NAME” lalu pilih “add”
3. Buatlah desain seperti berikut menggunakan toolbox
Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label
4. Pilih menu “view” klik “code”
5. Masukkan rumus berikut:
Public Class Latihan_38B_46110045
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Public Sub BATU()
'mendeklarasikan kendaraan
Dim fadli As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
fadli = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", dina)
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
fadli.Fill(dyna)
fadli.Dispose()
End Sub
Private Sub Latihan_38B_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BATU()
DGV_46110045.DataSource = dyna
End Sub
End Class
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Public Sub BATU()
'mendeklarasikan kendaraan
Dim fadli As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
fadli = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", dina)
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
fadli.Fill(dyna)
fadli.Dispose()
End Sub
Private Sub Latihan_38B_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BATU()
DGV_46110045.DataSource = dyna
End Sub
End Class
Latihan_38A_46110045
Pada form latihan 38 ada 5 object
yang digunakan yaitu Label, Text Box, Button, Date Time
Picker dan Data Grid View.
Object Label
Pada form ini
label yang digunakan ada 6 (no. transaksi, tanggal, jenis transaksi, kode
barang, nama barang, unit, harga, jumlah dan total).
Object TextBox
Pada form ini
ada 8 textbox yang digunakan (6 status input dan 3 status readonly). Status
input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no.
transaksi, tanggal, jenis transaksi, kode barang, unit dan harga”.
Object DateTimePicker
Pada latihan 38
terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa
tahun, bulan dan tanggal.
Object Button
Terdapat 2 object button (insert
dan save). Tombol “insert” digunakan untuk menambah data dan tombol “save”
untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel “Data Majemuk”.
Lebih lengkap dapat dilihat pada script yang ada pada langkah-langkah membuat form pada poin ke 5 dibawah ini
Even
Load
ButtonClick
1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form
2. Ketik nama Latihan_38 yang akan dibuat pada kotak “NAME” lalu pilih “add”
3. Buatlah desain seperti berikut menggunakan toolbox
Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label
4. Pilih menu “view” klik “code”
5. Masukkan rumus berikut:
Public Class Latihan_38A_46110045
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Private Sub BATU()
Dim TTOTAL As Integer
For Each hasil As DataRow In dyna.Rows
TTOTAL += hasil("Jumlah")
Next
Total_46110045.Text = TTOTAL
End Sub
Private Sub Latihan_38_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim robot As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
robot = 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_46110045.Text & "'", dina)
'bersihkan data
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
robot.Fill(dyna)
'untuk menampilkan isi datatable ke data grid view
robot.Dispose()
DGV_46110045.DataSource = dyna
'perintah primarykey
Dim diana(2) As DataColumn
diana(0) = dyna.Columns("Kodebarang")
dyna.PrimaryKey = diana
End Sub
Private Sub KB_46110045Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110045.Leave
If KB_46110045.Text.Length = 0 Then
Exit Sub
End If
'mencari data yang ada di tabel
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110045.Text, 1, dina)
If Pencari.JumlanBaris > 0 Then
NB_46110045.Text = Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the data is not exist, please choose from the this list")
If Latihan_38B_46110045.ShowDialog = Windows.Forms.DialogResult.OK Then
KB_46110045.Text = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("KodeBarang").Value
NB_46110045.Text = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("namabarang").Value
Harga_46110045.Text = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("hargajual").Value
Else
KB_46110045.Text = ""
NB_46110045.Text = ""
End If
End If
End Sub
Private Sub INSERT_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_46110045.Click
'Memeriksa isi textbox
If KB_46110045.Text.Length = 0 Then
MsgBox("Please, insert the code of goods")
Exit Sub
End If
If Unit_46110045.Text.Length = 0 Then
MsgBox("Please, insert the unit of goods")
Exit Sub
End If
If Harga_46110045.Text.Length = 0 Then
MsgBox("Please, insert the cost of goods")
Exit Sub
End If
'perintah pencarian data
Dim kabot As DataRow
kabot = dyna.Rows.Find(KB_46110045.Text)
If Not kabot Is Nothing Then
MsgBox("Sorry, the data has been exist!!! Please insert new data")
Exit Sub
End If
'penyimpanan data ke datatable
dyna.Rows.Add(KB_46110045.Text, NB_46110045.Text, Val(Unit_46110045.Text), Val(Harga_46110045.Text), Jumlah_46110045.Text)
BATU()
'mengosongkan textbox
KB_46110045.Text = ""
NB_46110045.Text = ""
Unit_46110045.Text = ""
Harga_46110045.Text = ""
Jumlah_46110045.Text = ""
End Sub
Private Sub Unit_46110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110045.TextChanged
Jumlah_46110045.Text = Val(Unit_46110045.Text) * Val(Harga_46110045.Text)
End Sub
Private Sub Simpan_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110045.Click
'Memeriksa isi textbox
If NT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If JT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If dyna.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_46110045.Text, 1, dina)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim SABAR As New OleDb.OleDbCommand
SABAR = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110045.Text & "',#" & DTP_46110045.Value.Month & "/" & DTP_46110045.Value.Day & "/" & DTP_46110045.Value.Year & "#,'" & JT_46110045.Text & "')", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
'penyimpanan isi datatable ke detail transaksi
For Each fadli As DataRow In dyna.Rows
SABAR = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110045.Text & "','" & fadli("kodebarang") & "'," & fadli("unit") & "," & fadli("harga") & ")", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
Next
SABAR.Dispose()
'Mengosongkan isi text box
NT_46110045.Text = ""
JT_46110045.Text = ""
'Mengosongkan baris datatable
dyna.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Private Sub BATU()
Dim TTOTAL As Integer
For Each hasil As DataRow In dyna.Rows
TTOTAL += hasil("Jumlah")
Next
Total_46110045.Text = TTOTAL
End Sub
Private Sub Latihan_38_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim robot As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
robot = 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_46110045.Text & "'", dina)
'bersihkan data
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
robot.Fill(dyna)
'untuk menampilkan isi datatable ke data grid view
robot.Dispose()
DGV_46110045.DataSource = dyna
'perintah primarykey
Dim diana(2) As DataColumn
diana(0) = dyna.Columns("Kodebarang")
dyna.PrimaryKey = diana
End Sub
Private Sub KB_46110045Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110045.Leave
If KB_46110045.Text.Length = 0 Then
Exit Sub
End If
'mencari data yang ada di tabel
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110045.Text, 1, dina)
If Pencari.JumlanBaris > 0 Then
NB_46110045.Text = Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the data is not exist, please choose from the this list")
If Latihan_38B_46110045.ShowDialog = Windows.Forms.DialogResult.OK Then
KB_46110045.Text = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("KodeBarang").Value
NB_46110045.Text = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("namabarang").Value
Harga_46110045.Text = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("hargajual").Value
Else
KB_46110045.Text = ""
NB_46110045.Text = ""
End If
End If
End Sub
Private Sub INSERT_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_46110045.Click
'Memeriksa isi textbox
If KB_46110045.Text.Length = 0 Then
MsgBox("Please, insert the code of goods")
Exit Sub
End If
If Unit_46110045.Text.Length = 0 Then
MsgBox("Please, insert the unit of goods")
Exit Sub
End If
If Harga_46110045.Text.Length = 0 Then
MsgBox("Please, insert the cost of goods")
Exit Sub
End If
'perintah pencarian data
Dim kabot As DataRow
kabot = dyna.Rows.Find(KB_46110045.Text)
If Not kabot Is Nothing Then
MsgBox("Sorry, the data has been exist!!! Please insert new data")
Exit Sub
End If
'penyimpanan data ke datatable
dyna.Rows.Add(KB_46110045.Text, NB_46110045.Text, Val(Unit_46110045.Text), Val(Harga_46110045.Text), Jumlah_46110045.Text)
BATU()
'mengosongkan textbox
KB_46110045.Text = ""
NB_46110045.Text = ""
Unit_46110045.Text = ""
Harga_46110045.Text = ""
Jumlah_46110045.Text = ""
End Sub
Private Sub Unit_46110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110045.TextChanged
Jumlah_46110045.Text = Val(Unit_46110045.Text) * Val(Harga_46110045.Text)
End Sub
Private Sub Simpan_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110045.Click
'Memeriksa isi textbox
If NT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If JT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If dyna.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_46110045.Text, 1, dina)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim SABAR As New OleDb.OleDbCommand
SABAR = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110045.Text & "',#" & DTP_46110045.Value.Month & "/" & DTP_46110045.Value.Day & "/" & DTP_46110045.Value.Year & "#,'" & JT_46110045.Text & "')", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
'penyimpanan isi datatable ke detail transaksi
For Each fadli As DataRow In dyna.Rows
SABAR = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110045.Text & "','" & fadli("kodebarang") & "'," & fadli("unit") & "," & fadli("harga") & ")", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
Next
SABAR.Dispose()
'Mengosongkan isi text box
NT_46110045.Text = ""
JT_46110045.Text = ""
'Mengosongkan baris datatable
dyna.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Latihan_39_46110045
Pada form latihan 39 ada 5 object
yang digunakan yaitu Label, Text Box, Button, Date Time
Picker dan Data Grid View.
Object Label
Pada form ini
label yang digunakan ada 4 (no. transaksi, tanggal, jenis transaksi dan total).
Object TextBox
Pada form ini
ada 3 textbox yang digunakan (2 status input dan 1 status readonly). Status
input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no.
transaksi dan jenis transaksi”.
Object DateTimePicker
Pada latihan 39
terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa
tahun, bulan dan tanggal.
Object Button
Terdapat 1 object button (save).
Tombol “save” digunakan untuk menyimpan data yang telah ditambahkan ke “Data
Majemuk”.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel “Data Majemuk”.
Script Unique
Lebih lengkap dapat dilihat pada script yang ada pada langkah-langkah membuat form pada poin ke 5 dibawah ini
Even
Load
ButtonClick
1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form
2. Ketik nama Latihan_39 yang akan dibuat pada kotak “NAME” lalu pilih “add”
3. Buatlah desain seperti berikut menggunakan toolbox
Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label
4. Pilih menu “view” klik “code”
5. Masukkan rumus berikut:
Public Class Latihan_39_46110045
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Private Sub BATU()
Dim TTOTAL As Integer
For Each hasil As DataRow In dyna.Rows
TTOTAL += hasil("Jumlah")
Next
Total_46110045.Text = TTOTAL
End Sub
Private Sub Latihan_39_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim robot As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
robot = 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_46110045.Text & "'", dina)
'bersihkan data
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
robot.Fill(dyna)
robot.Dispose()
'untuk menampilkan isi datatable ke data grid view
dyna.Columns("Kodebarang").DefaultValue = ""
dyna.Columns("NamaBarang").DefaultValue = ""
dyna.Columns("unit").DefaultValue = 0
dyna.Columns("harga").DefaultValue = 0
dyna.Columns("jumlah").DefaultValue = 0
dyna.Columns("NamaBarang").ReadOnly = True
DGV_46110045.DataSource = dyna
'perintah primarykey
Dim diana(2) As DataColumn
diana(0) = dyna.Columns("Kodebarang")
dyna.PrimaryKey = diana
End Sub
Private Sub DGV_46110045_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_46110045.CellContentClick
'mengosongkan data
If e.ColumnIndex = 0 Then
DGV_46110045.CurrentRow.Cells("NamaBarang").Value = ""
DGV_46110045.CurrentRow.Cells("Unit").Value = 0
DGV_46110045.CurrentRow.Cells("harga").Value = 0
DGV_46110045.CurrentRow.Cells("Jumlah").Value = 0
'mencari data yang ada di tabel
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang", DGV_46110045.CurrentRow.Cells("kodebarang").Value, 1, dina)
If Pencari.JumlanBaris > 0 Then
DGV_46110045.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)
DGV_46110045.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the data is not found")
If Latihan_38B_46110045.ShowDialog = Windows.Forms.DialogResult.OK Then
DGV_46110045.CurrentRow.Cells("kodebarang").Value = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("KodeBarang").Value
DGV_46110045.CurrentRow.Cells("Namabarang").Value = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("namabarang").Value
End If
End If
'mengitung jumlah dan total
ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
DGV_46110045.CurrentRow.Cells("jumlah").Value = DGV_46110045.CurrentRow.Cells("unit").Value * DGV_46110045.CurrentRow.Cells("harga").Value
BATU()
End If
End Sub
Private Sub Simpan_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110045.Click
'Memeriksa isi textbox
If NT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If JT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If dyna.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_46110045.Text, 1, dina)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim SABAR As New OleDb.OleDbCommand
SABAR = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110045.Text & "',#" & DTP_46110045.Value.Month & "/" & DTP_46110045.Value.Day & "/" & DTP_46110045.Value.Year & "#,'" & JT_46110045.Text & "')", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
'penyimpanan isi datatable ke detail transaksi
For Each fadli As DataRow In dyna.Rows
SABAR = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110045.Text & "','" & fadli("kodebarang") & "'," & fadli("unit") & "," & fadli("harga") & ")", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
Next
SABAR.Dispose()
'Mengosongkan isi text box
NT_46110045.Text = ""
JT_46110045.Text = ""
'Mengosongkan baris datatable
dyna.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Dim dina As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dyna As New DataTable
Private Sub BATU()
Dim TTOTAL As Integer
For Each hasil As DataRow In dyna.Rows
TTOTAL += hasil("Jumlah")
Next
Total_46110045.Text = TTOTAL
End Sub
Private Sub Latihan_39_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim robot As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
robot = 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_46110045.Text & "'", dina)
'bersihkan data
dyna.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
robot.Fill(dyna)
robot.Dispose()
'untuk menampilkan isi datatable ke data grid view
dyna.Columns("Kodebarang").DefaultValue = ""
dyna.Columns("NamaBarang").DefaultValue = ""
dyna.Columns("unit").DefaultValue = 0
dyna.Columns("harga").DefaultValue = 0
dyna.Columns("jumlah").DefaultValue = 0
dyna.Columns("NamaBarang").ReadOnly = True
DGV_46110045.DataSource = dyna
'perintah primarykey
Dim diana(2) As DataColumn
diana(0) = dyna.Columns("Kodebarang")
dyna.PrimaryKey = diana
End Sub
Private Sub DGV_46110045_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_46110045.CellContentClick
'mengosongkan data
If e.ColumnIndex = 0 Then
DGV_46110045.CurrentRow.Cells("NamaBarang").Value = ""
DGV_46110045.CurrentRow.Cells("Unit").Value = 0
DGV_46110045.CurrentRow.Cells("harga").Value = 0
DGV_46110045.CurrentRow.Cells("Jumlah").Value = 0
'mencari data yang ada di tabel
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang", DGV_46110045.CurrentRow.Cells("kodebarang").Value, 1, dina)
If Pencari.JumlanBaris > 0 Then
DGV_46110045.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)
DGV_46110045.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the data is not found")
If Latihan_38B_46110045.ShowDialog = Windows.Forms.DialogResult.OK Then
DGV_46110045.CurrentRow.Cells("kodebarang").Value = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("KodeBarang").Value
DGV_46110045.CurrentRow.Cells("Namabarang").Value = Latihan_38B_46110045.DGV_46110045.CurrentRow.Cells("namabarang").Value
End If
End If
'mengitung jumlah dan total
ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
DGV_46110045.CurrentRow.Cells("jumlah").Value = DGV_46110045.CurrentRow.Cells("unit").Value * DGV_46110045.CurrentRow.Cells("harga").Value
BATU()
End If
End Sub
Private Sub Simpan_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110045.Click
'Memeriksa isi textbox
If NT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If JT_46110045.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If dyna.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_46110045.Text, 1, dina)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim SABAR As New OleDb.OleDbCommand
SABAR = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110045.Text & "',#" & DTP_46110045.Value.Month & "/" & DTP_46110045.Value.Day & "/" & DTP_46110045.Value.Year & "#,'" & JT_46110045.Text & "')", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
'penyimpanan isi datatable ke detail transaksi
For Each fadli As DataRow In dyna.Rows
SABAR = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110045.Text & "','" & fadli("kodebarang") & "'," & fadli("unit") & "," & fadli("harga") & ")", dina)
dina.Open()
SABAR.ExecuteNonQuery()
dina.Close()
Next
SABAR.Dispose()
'Mengosongkan isi text box
NT_46110045.Text = ""
JT_46110045.Text = ""
'Mengosongkan baris datatable
dyna.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Langganan:
Postingan (Atom)