Rabu, 31 Oktober 2012
Latihan_36_36110029
v
Deskripsi Latihan_36_36110029
Object
Label
Terdapat
enam label (yang bertuliskan no transaksi, tanggal, jenis transaksi, kode
barang, unit, dan harga).
Object
Textbox
Terdapat
lima textbox (semuanya status input) yang digunakan untuk memasukkan nilai: no
transaksi, jenis transaksi, kode barang, unit, dan harga.
Object
Button
Terdapat
dua object button (Tambah dan Simpan). Tombol tambah digunakan untuk menyimpan
data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada
datagridview). Tombol simpan digunakan untuk menyimpan data yang telah diinput
ke dalam database (DATA MAJEMUK). Pada latihan ini, data yang memiliki nomor
transaksi yang sama tidak dapat ditambah atau disimpan ke dalam database.
Object
DateTimePicker
Terdapat
satu object datetimepicker yang digunakan untuk menentukan tanggal transaksi.
Object
DataGridView
Terdapat satu object datagridview yang digunakan untuk menampilkan data yang
telah diinput pada textbox.
Script
Unique
Untuk
script, silahkan lihat selengkapnya pada Prosedur Penyelesaian
Latihan_36_36110029.
Even
TAMBAH_36110029_Click
Latihan_36_36110029_Load
SIMPAN_36110029_Click
v
Prosedur Latihan_36_36110029
1. Buka project yang telah dibuat.
2.
pilih
Add New Item pada Microsoft Visual Studio 2005/ 2008
3. Setelah add new item terbuka,
pilih windows form, lalu ketik nama form dan add.
4. Kemudian buat form seperti di
bawah ini:
5. Setelah format untuk
Latihan_36_36110029 sudah dibuat maka selanjutnya kita membuat
listing program pada jendela code:
Public Class Latihan_36_36110029
'Mendeklarasikan object connection
Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
'Mendeklarasikan datatable
Dim Table As New DataTable
Private Sub Latihan_36_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Mendeklarasikan adapter
Dim Angkut As New OleDb.OleDbDataAdapter
'Proses mengambil data dari table
Angkut = New OleDb.OleDbDataAdapter("select KodeBarang, Unit, Harga from Detailtransaksi where Notrans = '" & Notrans_36110029.Text & "'", A)
'Perintah membersihkan datatable
Table.Rows.Clear()
'Perintah mengisi datatable
Angkut.Fill(Table)
'Perintah menghapus adapter
Angkut.Dispose()
'Perintah membuat primary key
Dim KolomPrimary(1) As DataColumn
KolomPrimary(0) = Table.Columns("KodeBarang")
Table.PrimaryKey = KolomPrimary
'Perintah menampilkan datatable ke datagridview
Data_36110029.DataSource = Table
End Sub
Private Sub Tambah_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Kode_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Kode Barangnya")
Exit Sub
End If
If Val(Unit_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Unit Barangnya")
Exit Sub
End If
If Val(Harga_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Harga Barangnya")
Exit Sub
End If
'Perintah memeriksa keberadaan primary key
If Table.Rows.Find(Kode_36110029.Text) Is Nothing Then
'Perintah menambahkan data baris pada table
Table.Rows.Add(Kode_36110029.Text, Val(Unit_36110029.Text), Val(Harga_36110029.Text))
Else
'Perintah ketika primary key sudah ada
MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain!")
Exit Sub
End If
'Mengosongkan kembali isi textbox
Kode_36110029.Text = ""
Unit_36110029.Text = ""
Harga_36110029.Text = ""
End Sub
Private Sub Simpan_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Notrans_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan No Transaksinya")
Exit Sub
End If
If Jenis_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Jenis Transaksinya")
Exit Sub
End If
'Proses memeriksa datagridview yang masih kosong
If Table.Rows.Count = 0 Then
MsgBox("Datanya Belum Ada, Masukkan Kode Barang, Unit dan harganya")
Exit Sub
End If
'Perintah memeriksa no. transaksi yang sama dengan table sumber
Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar
Periksa.AturPencarianDataBase("MasterTransaksi", "Notrans", Notrans_36110029.Text, 1, A)
If Periksa.JumlanBaris > 0 Then
MsgBox("No Transaksi Sudah Ada, Masukkan No Transaksi yang Lain")
Exit Sub
End If
'Proses penyimpanan nomor, tanggal, dan jenis transaksi ke table sumber
Dim Ambil As New OleDb.OleDbCommand
Ambil = New OleDb.OleDbCommand("Insert Into MasterTransaksi (NoTrans, TanggalTransaksi, JenisTransaksi) " & _
"Values ('" & Notrans_36110029.Text & "', #" & tanggal_36110029.Value.Month & "/" & tanggal_36110029.Value.Day & "/" & tanggal_36110029.Value.Year & "#, '" & Jenis_36110029.Text & "')", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
'Proses penyimpanan isi datatable ke Detail Transaksi
For Each BarisX As DataRow In Table.Rows
Ambil = New OleDb.OleDbCommand("Insert Into DetailTransaksi (NoTrans, Kodebarang, Unit, Harga) " & _
"Values ('" & Notrans_36110029.Text & "', '" & BarisX("Kodebarang") & "', " & BarisX("Unit") & ", " & BarisX("Harga") & ")", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
Next
Ambil.Dispose()
'Mengosongkan kembali isi textbox
Notrans_36110029.Text = ""
Jenis_36110029.Text = ""
'Mengosongkan kembali isi data table
Table.Rows.Clear()
End Sub
End Class
'Mendeklarasikan object connection
Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
'Mendeklarasikan datatable
Dim Table As New DataTable
Private Sub Latihan_36_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Mendeklarasikan adapter
Dim Angkut As New OleDb.OleDbDataAdapter
'Proses mengambil data dari table
Angkut = New OleDb.OleDbDataAdapter("select KodeBarang, Unit, Harga from Detailtransaksi where Notrans = '" & Notrans_36110029.Text & "'", A)
'Perintah membersihkan datatable
Table.Rows.Clear()
'Perintah mengisi datatable
Angkut.Fill(Table)
'Perintah menghapus adapter
Angkut.Dispose()
'Perintah membuat primary key
Dim KolomPrimary(1) As DataColumn
KolomPrimary(0) = Table.Columns("KodeBarang")
Table.PrimaryKey = KolomPrimary
'Perintah menampilkan datatable ke datagridview
Data_36110029.DataSource = Table
End Sub
Private Sub Tambah_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Kode_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Kode Barangnya")
Exit Sub
End If
If Val(Unit_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Unit Barangnya")
Exit Sub
End If
If Val(Harga_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Harga Barangnya")
Exit Sub
End If
'Perintah memeriksa keberadaan primary key
If Table.Rows.Find(Kode_36110029.Text) Is Nothing Then
'Perintah menambahkan data baris pada table
Table.Rows.Add(Kode_36110029.Text, Val(Unit_36110029.Text), Val(Harga_36110029.Text))
Else
'Perintah ketika primary key sudah ada
MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain!")
Exit Sub
End If
'Mengosongkan kembali isi textbox
Kode_36110029.Text = ""
Unit_36110029.Text = ""
Harga_36110029.Text = ""
End Sub
Private Sub Simpan_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Notrans_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan No Transaksinya")
Exit Sub
End If
If Jenis_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Jenis Transaksinya")
Exit Sub
End If
'Proses memeriksa datagridview yang masih kosong
If Table.Rows.Count = 0 Then
MsgBox("Datanya Belum Ada, Masukkan Kode Barang, Unit dan harganya")
Exit Sub
End If
'Perintah memeriksa no. transaksi yang sama dengan table sumber
Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar
Periksa.AturPencarianDataBase("MasterTransaksi", "Notrans", Notrans_36110029.Text, 1, A)
If Periksa.JumlanBaris > 0 Then
MsgBox("No Transaksi Sudah Ada, Masukkan No Transaksi yang Lain")
Exit Sub
End If
'Proses penyimpanan nomor, tanggal, dan jenis transaksi ke table sumber
Dim Ambil As New OleDb.OleDbCommand
Ambil = New OleDb.OleDbCommand("Insert Into MasterTransaksi (NoTrans, TanggalTransaksi, JenisTransaksi) " & _
"Values ('" & Notrans_36110029.Text & "', #" & tanggal_36110029.Value.Month & "/" & tanggal_36110029.Value.Day & "/" & tanggal_36110029.Value.Year & "#, '" & Jenis_36110029.Text & "')", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
'Proses penyimpanan isi datatable ke Detail Transaksi
For Each BarisX As DataRow In Table.Rows
Ambil = New OleDb.OleDbCommand("Insert Into DetailTransaksi (NoTrans, Kodebarang, Unit, Harga) " & _
"Values ('" & Notrans_36110029.Text & "', '" & BarisX("Kodebarang") & "', " & BarisX("Unit") & ", " & BarisX("Harga") & ")", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
Next
Ambil.Dispose()
'Mengosongkan kembali isi textbox
Notrans_36110029.Text = ""
Jenis_36110029.Text = ""
'Mengosongkan kembali isi data table
Table.Rows.Clear()
End Sub
End Class
6. Tekan F5 pada keyboard
untuk menjalankan form, kemudian ketik angka
pada kolom dan perhatikan hasilnya.
Latihan_35_36110029
v Deskripsi Latihan_35_36110029
Object
Label
Terdapat
enam label (yang bertuliskan no transaksi, tanggal, jenis transaksi, kode
barang, unit, dan harga).
Object
Textbox
Terdapat
lima textbox (semuanya status input) yang digunakan untuk memasukkan nilai: no
transaksi, jenis transaksi, kode barang, unit, dan harga.
Object
Button
Terdapat
dua object button (Tambah dan Simpan). Tombol tambah digunakan untuk menyimpan
data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada
datagridview). Tombol simpan digunakan untuk menyimpan data yang telah diinput
ke dalam database (DATA MAJEMUK).
Object
DateTimePicker
Terdapat
satu object datetimepicker yang digunakan untuk menentukan tanggal transaksi.
Object
DataGridView
Terdapat satu object datagridview yang digunakan
untuk menampilkan data yang sudah diinput pada textbox.
Script
Unique
Untuk
script, silahkan lihat selengkapnya pada Prosedur Penyelesaian
Latihan_35_36110029.
Even
TAMBAH_36110029_Click
Latihan_35_36110029_Load
SIMPAN_36110029_Click
v
Prosedur Latihan_35_36110029
1. Buka project yang telah dibuat.
2.
pilih
Add New Item pada Microsoft Visual Studio 2005/ 2008
3. Setelah add new item terbuka,
pilih windows form, lalu ketik nama form dan add.
4. Kemudian buat form seperti di
bawah ini:
5. Setelah format untuk
Latihan_35_36110029 sudah dibuat maka selanjutnya kita membuat
listing program pada jendela code:
Public Class Latihan_35_36110029
'Mendeklarasikan object connection
Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
'Mendeklarasikan object datatable
Dim Table As New DataTable
Private Sub Latihan_35_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Mendeklarasikan object adapter
Dim Angkut As New OleDb.OleDbDataAdapter
'Proses mengambil data dari table
Angkut = New OleDb.OleDbDataAdapter("select KodeBarang, Unit, Harga from Detailtransaksi where Notrans = '" & Notrans_36110029.Text & "'", A)
'Perintah membersihkan datatable
Table.Rows.Clear()
'Perintah mengisi datatable
Angkut.Fill(Table)
'Perintah menghapus adapter
Angkut.Dispose()
'Perintah menampilkan datatable ke datagridview
data_36110029.DataSource = Table
End Sub
Private Sub Tambah_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Kode_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Kode Barangnya")
Exit Sub
End If
If Val(Unit_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Unit Barangnya")
Exit Sub
End If
If Val(Harga_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Harga Barangnya")
Exit Sub
End If
'Perintah menambahkan data baris pada table
Dim Data As DataRow
Data = Table.NewRow
Data("KodeBarang") = Kode_36110029.Text
Data("Unit") = Unit_36110029.Text
Data("Harga") = Harga_36110029.Text
Table.Rows.Add(Data)
'Mengosongkan kembali isi textbox
Kode_36110029.Text = ""
Unit_36110029.Text = ""
Harga_36110029.Text = ""
End Sub
Private Sub Simpan_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Notrans_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan No Transaksinya")
Exit Sub
End If
If Jenis_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Jenis Transaksinya")
Exit Sub
End If
'Proses memeriksa datagridview yang masih kosong
If Table.Rows.Count = 0 Then
MsgBox("Datanya Belum Ada, Masukkan Kode Barang, Unit dan harganya")
Exit Sub
End If
'Perintah memeriksa no. transaksi yang sama dengan table sumber
Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar
Periksa.AturPencarianDataBase("MasterTransaksi", "Notrans", Notrans_36110029.Text, 1, A)
If Periksa.JumlanBaris > 0 Then
MsgBox("No Transaksi Sudah Ada, Masukkan No Transaksi yang Lain")
Exit Sub
End If
'Proses penyimpanan nomor, tanggal, dan jenis transaksi ke Master Transaksi
Dim Ambil As New OleDb.OleDbCommand
Ambil = New OleDb.OleDbCommand("Insert Into MasterTransaksi (NoTrans, TanggalTransaksi, JenisTransaksi) " & _
"Values ('" & Notrans_36110029.Text & "', #" & tanggal_36110029.Value.Month & "/" & tanggal_36110029.Value.Day & "/" & tanggal_36110029.Value.Year & "#, '" & Jenis_36110029.Text & "')", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
'Proses penyimpanan isi datatable ke Detail Transaksi
For Each BarisX As DataRow In Table.Rows
Ambil = New OleDb.OleDbCommand("Insert Into DetailTransaksi (NoTrans, Kodebarang, Unit, Harga) " & _
"Values ('" & Notrans_36110029.Text & "', ' " & BarisX("Kodebarang") & "', " & BarisX("Unit") & ", " & BarisX("Harga") & ")", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
Next
Ambil.Dispose()
'Mengosongkan kembali isi textbox
Notrans_36110029.Text = ""
Jenis_36110029.Text = ""
'Mengosongkan kembali isi data table
Table.Rows.Clear()
End Sub
End Class
'Mendeklarasikan object connection
Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
'Mendeklarasikan object datatable
Dim Table As New DataTable
Private Sub Latihan_35_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Mendeklarasikan object adapter
Dim Angkut As New OleDb.OleDbDataAdapter
'Proses mengambil data dari table
Angkut = New OleDb.OleDbDataAdapter("select KodeBarang, Unit, Harga from Detailtransaksi where Notrans = '" & Notrans_36110029.Text & "'", A)
'Perintah membersihkan datatable
Table.Rows.Clear()
'Perintah mengisi datatable
Angkut.Fill(Table)
'Perintah menghapus adapter
Angkut.Dispose()
'Perintah menampilkan datatable ke datagridview
data_36110029.DataSource = Table
End Sub
Private Sub Tambah_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Kode_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Kode Barangnya")
Exit Sub
End If
If Val(Unit_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Unit Barangnya")
Exit Sub
End If
If Val(Harga_36110029.Text) = 0 Then
MsgBox("Anda Harus Masukkan Harga Barangnya")
Exit Sub
End If
'Perintah menambahkan data baris pada table
Dim Data As DataRow
Data = Table.NewRow
Data("KodeBarang") = Kode_36110029.Text
Data("Unit") = Unit_36110029.Text
Data("Harga") = Harga_36110029.Text
Table.Rows.Add(Data)
'Mengosongkan kembali isi textbox
Kode_36110029.Text = ""
Unit_36110029.Text = ""
Harga_36110029.Text = ""
End Sub
Private Sub Simpan_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan_36110029.Click
'Proses memeriksa textbox yang masih kosong
If Notrans_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan No Transaksinya")
Exit Sub
End If
If Jenis_36110029.Text.Length = 0 Then
MsgBox("Anda Harus Masukkan Jenis Transaksinya")
Exit Sub
End If
'Proses memeriksa datagridview yang masih kosong
If Table.Rows.Count = 0 Then
MsgBox("Datanya Belum Ada, Masukkan Kode Barang, Unit dan harganya")
Exit Sub
End If
'Perintah memeriksa no. transaksi yang sama dengan table sumber
Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar
Periksa.AturPencarianDataBase("MasterTransaksi", "Notrans", Notrans_36110029.Text, 1, A)
If Periksa.JumlanBaris > 0 Then
MsgBox("No Transaksi Sudah Ada, Masukkan No Transaksi yang Lain")
Exit Sub
End If
'Proses penyimpanan nomor, tanggal, dan jenis transaksi ke Master Transaksi
Dim Ambil As New OleDb.OleDbCommand
Ambil = New OleDb.OleDbCommand("Insert Into MasterTransaksi (NoTrans, TanggalTransaksi, JenisTransaksi) " & _
"Values ('" & Notrans_36110029.Text & "', #" & tanggal_36110029.Value.Month & "/" & tanggal_36110029.Value.Day & "/" & tanggal_36110029.Value.Year & "#, '" & Jenis_36110029.Text & "')", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
'Proses penyimpanan isi datatable ke Detail Transaksi
For Each BarisX As DataRow In Table.Rows
Ambil = New OleDb.OleDbCommand("Insert Into DetailTransaksi (NoTrans, Kodebarang, Unit, Harga) " & _
"Values ('" & Notrans_36110029.Text & "', ' " & BarisX("Kodebarang") & "', " & BarisX("Unit") & ", " & BarisX("Harga") & ")", A)
A.Open()
Ambil.ExecuteNonQuery()
A.Close()
Next
Ambil.Dispose()
'Mengosongkan kembali isi textbox
Notrans_36110029.Text = ""
Jenis_36110029.Text = ""
'Mengosongkan kembali isi data table
Table.Rows.Clear()
End Sub
End Class
6. Tekan F5 pada keyboard
untuk menjalankan form, kemudian ketik angka
pada kolom dan perhatikan hasilnya.
Langganan:
Postingan (Atom)