FORM LATIHAN
Name : Latihan_35_46110021
Text :
Object
|
Properti
|
6
label
|
Text
: - No. Transaksi
-
Tanggal
-
Jenis Transaksi
-
Kode Barang
-
Unit
-
Harga
|
5
text box
|
Name:
- notrans_46110021
-
Jenis_46110021
-
Kode_46110021
-
Unit_46110021
-
Harga_46110021
|
1
datetimepicker
|
Name:
Datetimepicker1
|
2
button
|
Name:
- Tambah_46110021
-
Simpan_46110021
Text : -
Tambah
- Simpan
|
1
Datagridview
|
Name:
DataGridView1_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_35_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 Latihan35_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
kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" &
notrans_46110021.Text & "'",
Jalan)
'bersihkan
data
gitik.Rows.Clear()
'untuk
memasukkan data yg telah di angkut ke dalam datatable
bojel.Fill(gitik)
'untuk menampilkan isi datatable ke data grid view
bojel.Dispose()
DataGridView1_46110021.DataSource =
gitik
End Sub
Private Sub Tambah_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tambah_46110021.Click
'Memeriksa
isi textbox
If
kode_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the code of goods")
Exit
Sub
End If
If
unit_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the unit of goods")
Exit
Sub
End If
If
harga_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the cost of goods")
Exit
Sub
End If
'penyimpanan
data ke datatable
gitik.Rows.Add((kode_46110021.Text),
Val(unit_46110021.Text), Val(harga_46110021.Text))
'mengosongkan
textbox
kode_46110021.Text = ""
unit_46110021.Text = ""
harga_46110021.Text = ""
End Sub
Private Sub Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan_46110021.Click
'Memeriksa
isi textbox
If
notrans_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the Number of the transaction")
Exit Sub
End If
If
jenis_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the type of the transaction")
Exit
Sub
End If
Dim
kacci As New
OleDb.OleDbCommand
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", notrans_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
kacci = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('"
& notrans_46110021.Text & "',#"
& DateTimePicker1.Value.Month & "/"
& DateTimePicker1.Value.Day & "/"
& DateTimePicker1.Value.Year & "#,'"
& jenis_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 ('" &
notrans_46110021.Text & "','"
& nhana("kodebarang") & "'," & nhana("unit") & ","
& nhana("harga") & ")", Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
Next
kacci.Dispose()
'Mengosongkan
isi text box
notrans_46110021.Text = ""
jenis_46110021.Text = ""
'Mengosongkan
baris datatable
gitik.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih tombol start debugging lalu pilih form Latihan_35_46110021, maka jendela Latihan_35_46110021 akan muncul
B. Isi sesuai dengan keinginan anda. lalu tekan tambah atau simpan