FORM LATIHAN
Name : Latihan_36_46110021
Text :
|
Object
|
Properti
|
|
6
label
|
Text
: - No. Transaksi
-
Tanggal
-
Jenis Transaksi
-
Kode Barang
-
Unit
-
Harga
|
|
5
text box
|
Name:
- notrans_46110021
-
JT_46110021
-
KB_46110021
-
Unit_46110021
-
Harga_46110021
|
|
1
datetimepicker
|
Name:
DTP_46110021
|
|
2
button
|
Name:
- Tambah_46110021
-
Simpan_46110021
Text : -
Tambah
- Simpan
|
|
1
Datagridview
|
Name:
Showme_46110021
|
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_36_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 idham()
'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)
bojel.Dispose()
End Sub
Private Sub Latihan36_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
idham()
Showme_46110021.DataSource = gitik
'perintah
primarykey
Dim
kabotcibay(2) As DataColumn
kabotcibay(0) = gitik.Columns("Kodebarang")
gitik.PrimaryKey = kabotcibay
End Sub
Private Sub Tambah_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Tambah_46110021.Click
'Memeriksa
isi textbox
If
KB_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_46110021 of goods")
Exit
Sub
End If
If
Harga_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the cost of goods")
Exit
Sub
End If
'perintah
pencarian data
Dim
drlebay As DataRow
drlebay =
gitik.Rows.Find(KB_46110021.Text)
If Not drlebay Is Nothing Then
MsgBox("Sorry,
the data has been exist!!! Please insert new data")
Exit
Sub
End If
'penyimpanan
data ke datatable
gitik.Rows.Add(KB_46110021.Text,
Val(Unit_46110021.Text), Val(Harga_46110021.Text))
'mengosongkan
textbox
KB_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
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", 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
Dim
kacci As New
OleDb.OleDbCommand
kacci = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& Notrans_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 ('" &
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 = ""
JT_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_36_46110021, maka jendela Latihan_36_46110021 akan muncul
B. Isi sesuai dengan keinginan anda. lalu tekan tambah atau simpan