Deskripsi Form Latihan_36_46110023
Form Latihan_36_46110023 terdapat Lima object yaitu Label, Textbox, Button, data time picker, dan Data Grid View.
Object Label
Terdapat Enam object label yang bertuliskan “no. transaksi”, “tanggal”, “jenis transaksi”, “kode barang”, “unit”, dan “harga”.
Object TextBox
Terdapat Lima object textbox yang semuanya berstatus input.
Object Button
Terdapat Dua object button yaitu Button "insert" yang digunakan untuk menginput data textbox ke tabel yang ada pada data grid view. Sedangkan button "save" digunakan untuk menyimpan data yang diinput ke database.
Object Date Time Picker
Dalam latihan ini terdapat sebuah date time picker yeng terdapat pada "Tanggal"
Object DataGridView
Terdapat sebuah object data grid view yang berguna untuk menampilkan detail data yang telah diinput
LANGKAH-LANGKAH MEMBUAT FORM LATIHAN 35
1. Buka file tugas visualbasic yang pernah dibuat sebelumnya.
2. buat form baru dengan cara pilih menu project yang ada pada menubar, lalu pilih add windows form seperti gambar berikut:
3. setelah itu akan muncul kotak dialog seperti gambar dibawah dan ganti nama form pada kolom name sesuai dengan nama latihannya lalu pilih add
4. setelah muncul form baru, buatlah desaign form seperti gambar ini:
5. beri nama pada tiap object kacuali object label dengan memilih properties windows pada toolbar options:
6. setelah itu, klik kanan pada form lalu pilih view code untuk dibuatkan script:
7. maka akan muncul tampilan seperti ini:
8. kemudian input script seperti ini:
Public Class LATIHAN_36_46110023
Dim DIAN As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim AYU As New DataTable
Private Sub Latihan_36_46110023_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim CINTA As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
CINTA = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & NT_46110023.Text & "'", DIAN)
'bersihkan data
AYU.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
CINTA.Fill(AYU)
'untuk menampilkan isi datatable ke data grid view
CINTA.Dispose()
DGV_46110023.DataSource = AYU
'perintah primarykey
Dim kabotcibay(2) As DataColumn
kabotcibay(0) = AYU.Columns("Kodebarang")
AYU.PrimaryKey = kabotcibay
End Sub
Private Sub INSERT_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_46110023.Click
'Memeriksa isi textbox
If KB_46110023.Text.Length = 0 Then
MsgBox("Please, insert the code of goods")
Exit Sub
End If
If UN_46110023.Text.Length = 0 Then
MsgBox("Please, insert the unit of goods")
Exit Sub
End If
If HR_46110023.Text.Length = 0 Then
MsgBox("Please, insert the cost of goods")
Exit Sub
End If
'perintah pencarian data
Dim SAYANG As DataRow
SAYANG = AYU.Rows.Find(KB_46110023.Text)
If Not SAYANG Is Nothing Then
MsgBox("Sorry, the data has been exist!!! Please insert new data")
Exit Sub
End If
'penyimpanan data ke datatable
AYU.Rows.Add(KB_46110023.Text, Val(UN_46110023.Text), Val(HR_46110023.Text))
'mengosongkan textbox
KB_46110023.Text = ""
UN_46110023.Text = ""
HR_46110023.Text = ""
End Sub
Private Sub SIMPAN_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110023.Click
'Memeriksa isi textbox
If NT_46110023.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If JT_46110023.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If AYU.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_46110023.Text, 1, DIAN)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim RINDU As New OleDb.OleDbCommand
RINDU = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110023.Text & "',#" & DTP_46110023.Value.Month & "/" & DTP_46110023.Value.Day & "/" & DTP_46110023.Value.Year & "#,'" & JT_46110023.Text & "')", DIAN)
DIAN.Open()
RINDU.ExecuteNonQuery()
DIAN.Close()
'penyimpanan isi datatable ke detail transaksi
For Each AKU As DataRow In AYU.Rows
RINDU = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110023.Text & "','" & AKU("kodebarang") & "'," & AKU("unit") & "," & AKU("harga") & ")", DIAN)
DIAN.Open()
RINDU.ExecuteNonQuery()
DIAN.Close()
Next
RINDU.Dispose()
'Mengosongkan isi text box
NT_46110023.Text = ""
JT_46110023.Text = ""
'Mengosongkan baris datatable
AYU.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
9. selesai
LANGKAH-LANGKAH MENJALANKAN LATIHAN 35
1. Setelah scriptnya jadi, jalankan program dengan mengklik start debugging yang ada pada menubar:
2. Input data yang ingin dimasukkan, secara otomatis program akan bekerja sesuai dengan apa yang diperintahkan.
3. Apabila ada kesalahan, maka program secara otomatis akan memperlihatkan letak kesalahannya.
4. Selamat mencoba.
Script Unique
pada lathan ini tidak trdapat script unique, karena scriptnya sma dengan latihan sebelumnya.
even
click
load
Tidak ada komentar:
Posting Komentar