Public Class LATIHAN_036_36109056 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=2422") Dim DT As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim biya As New OleDb.OleDbDataAdapter biya = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109056.Text & "'", CONECT) DT.Rows.Clear() biya.Fill(DT) DataGridView1.DataSource = DT
biya.Dispose()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If kb_36109056.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(un_36109056.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(hr_36109056.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1_36109056.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox2_36109056.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109056.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109056.Text) & ")", CONECT)
Public Class LATIHAN03636109033 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=tahir") Dim Data As New DataTable Dim browse As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109033_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tiwi As New OleDb.OleDbDataAdapter tiwi = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109033.Text & "'", CONECT) Data.Rows.Clear() tiwi.Fill(Data) DataGridView1.DataSource = Data
tiwi.Dispose()
End Sub
Private Sub Button136109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109033.Click If kb36109033.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(un36109033.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(hr36109033.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Private Sub Button236109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109033.Click If TextBox136109033.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox236109033.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
If browse.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If Data.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109033.Text & "',#" & DateTimePicker136109033.Value.Date & "#," & Val(TextBox236109033.Text) & ")", CONECT)
Public Class Latihan_036_36109045 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet OLEDB:database password=florista") 'deklarasi data tabel Dim DT As New DataTable Dim kolom(3) As DataColumn Dim cari As New ByIskandar.CariKeDataBaseByIskandar Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109045.Click kolom(0) = DT.Columns("kodebarang") DT.PrimaryKey = kolom Dim drzany As DataRow drzany = DT.Rows.Find(kb_36109045.Text) If drzany Is Nothing Then drzany = DT.NewRow ' menambah baris drzany("KODEBARANG") = kb_36109045.Text drzany("UNIT") = un_36109045.Text drzany("HARGA") = hr_36109045.Text
Else MsgBox("baris sudah ada") kb_36109045.Text = "" End If If kb_36109045.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("kode barang belum terisi") Exit Sub End If If Val(kb_36109045.Text) = 0 Then 'untuk pencarian yang bersifat angka MsgBox("UNIT belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If Val(hr_36109045.Text) = 0 Then 'untuk pencarian yang bersifat angka MsgBox("HARGA belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If kb_36109045.Text = "" un_36109045.Text = "" hr_36109045.Text = "" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109045.Click If TextBox1_36109045.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If TextBox2_36109045.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("jenis transaksi belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109045.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
'untuk memasukkan data dari visual basc ke dlm acces Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109045.Text & "',#" & DateTimePicker136109045.Value.Date & "#,'" & TextBox2_36109045.Text & "')", CONECT) CONECT.Open() com.ExecuteNonQuery() CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109045.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
End Sub Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim syasa As New OleDb.OleDbDataAdapter syasa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109045.Text & "'", CONECT) DT.Rows.Clear() 'membersihkan data table syasa.Fill(DT) 'mengisi database ke dlm data table DataGridView1.DataSource = DT syasa.Dispose()
Public Class LATIHAN36035 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 LATIHAN36035_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='" & TextBox1035.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() DataGridView1035.DataSource = gitik
'perintah primarykey Dim kabotcibay(2) As DataColumn kabotcibay(0) = gitik.Columns("Kodebarang") gitik.PrimaryKey = kabotcibay
End Sub
Private Sub Button1035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1035.Click 'Memeriksa isi textbox If kb035.Text.Length = 0 Then MsgBox("Please, insert the code of goods") Exit Sub End If
If un035.Text.Length = 0 Then MsgBox("Please, insert the unit of goods") Exit Sub End If
If hr035.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(kb035.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(kb035.Text, Val(un035.Text), Val(hr035.Text))
'mengosongkan textbox kb035.Text = "" un035.Text = "" hr035.Text = "" End Sub
Public Class Form3636109040 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=150991") Dim DT As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim biya As New OleDb.OleDbDataAdapter biya = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109040.Text & "'", CONECT) DT.Rows.Clear() mita.Fill(DT) DataGridView1.DataSource = DT
mita.Dispose()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If kb_36109040.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(un_36109040.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(hr_36109040.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1_36109040.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox2_36109040.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109040.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109040.Text) & ")", CONECT)
Private Sub Button2035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2035.Click 'Memeriksa isi textbox If TextBox1035.Text.Length = 0 Then MsgBox("Please, insert the Number of the transaction") Exit Sub End If
If TextBox2035.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", TextBox1035.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 ('" & TextBox1035.Text & "',#" & DateTimePicker1035.Value.Month & "/" & DateTimePicker1035.Value.Day & "/" & DateTimePicker1035.Value.Year & "#,'" & TextBox2035.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 ('" & TextBox1035.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", Jalan) Jalan.Open() kacci.ExecuteNonQuery() Jalan.Close()
Next kacci.Dispose()
'Mengosongkan isi text box TextBox1035.Text = "" TextBox2035.Text = ""
Public Class LATIHAN036_36109049 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=wirda") Dim DT As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN036_36109049_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wirda As New OleDb.OleDbDataAdapter wirda = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & Kb_36109049.Text & "'", CONECT) DT.Rows.Clear() wirda.Fill(DT) DataGridView1.DataSource = DT
wirda.Dispose()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Kb_36109049.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(UN_36109049.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(HR_36109049.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1_36109049.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109049.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109049.Text) & ")", CONECT)
Public Class LATIHAN03636109038 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=icha") Dim DT As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109038_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim Azizah As New OleDb.OleDbDataAdapter Azizah = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB36109038.Text & "'", CONECT) DT.Rows.Clear() Azizah.Fill(DT)
Azizah.Dispose()
Dim dcp(1) As DataColumn dcp(0) = DT.Columns("kodebarang") DT.PrimaryKey = dcp
DataGridView136109038.DataSource = DT End Sub
Private Sub Button136109038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button136109038.Click If KB36109038.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(UN36109038.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(HR36109038.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Dim Reza As DataRow Reza = DT.Rows.Find(KB36109038.Text) If Reza Is Nothing Then
Reza = DT.NewRow ' menambah baris Reza("kodebarang") = KB36109038.Text Reza("unit") = UN36109038.Text Reza("harga") = HR36109038.Text DT.Rows.Add(Reza) Else MsgBox("KODE BARANG sudah ada") End If
KB36109038.Text = "" UN36109038.Text = "" HR36109038.Text = "" End Sub
Private Sub Button236109038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button236109038.Click If TextBox136109038.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox236109038.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109038.Text & "',#" & DateTimePicker136109038.Value.Date & "#," & Val(TextBox236109038.Text) & ")", CONECT)
For Each r As DataRow In DT.Rows com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox136109038.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
Dim sambung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=jayapura") Dim toshiba As New DataTable Dim nokia As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109032_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim laptop As New OleDb.OleDbDataAdapter laptop = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB.Text & "'", sambung) toshiba.Rows.Clear() laptop.Fill(toshiba) DataGridView1.DataSource = toshiba
laptop.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If KB.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(UN.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(HR.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox2.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
If nokia.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If toshiba.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", sambung)
Public Class LATIHAN036041 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb; Jet OLEDB:Database Password=12")
Dim DT As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nisa As New OleDb.OleDbDataAdapter nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB36109041.Text & "'", CONECT)
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109041.Text & "',#" & DateTimePicker1.Value.Date & "#,'" & TextBox236109041.Text & "')", CONECT)
Public Class LATIHAN_3636109055 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=2312") Dim DT As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN_3636109055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim falah As New OleDb.OleDbDataAdapter falah = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109055.Text & "'", CONECT) DT.Rows.Clear() falah.Fill(DT) DataGridView136109055.DataSource = DT
falah.Dispose()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If kb36109055.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(un36109055.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(hr36109055.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox136109055.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox236109055.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109055.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox236109055.Text) & ")", CONECT)
'DEKLARASI CONECTION Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\berbagi\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb;Jet OLEDB:Database Password=salam") 'deklarasi data tabel Dim DT As New DataTable Dim kolom(3) As DataColumn Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'deklarasi adapter Dim wawan As New OleDb.OleDbDataAdapter wawan = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109054.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces DT.Rows.Clear() 'membersihkan data table wawan.Fill(DT) 'mengisi database ke dlm data table DGV136109054.DataSource = DT 'memunculkan dlm datagridview
wawan.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109054.Click kolom(0) = DT.Columns("kodebarang") DT.PrimaryKey = kolom Dim drzany As DataRow drzany = DT.Rows.Find(kb36109054.Text) If drzany Is Nothing Then drzany = DT.NewRow ' menambah baris drzany("KODEBARANG") = kb36109054.Text drzany("UNIT") = un36109054.Text drzany("HARGA") = hr36109054.Text
DT.Rows.Add(drzany)
Else MsgBox("baris sudah ada") kb36109054.Text = "" End If If kb36109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("kode barang belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If Val(un36109054.Text) = 0 Then 'untuk pencarian yang bersifat angka MsgBox("UNIT belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If Val(hr36109054.Text) = 0 Then 'untuk pencarian yang bersifat angka MsgBox("HARGA belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If kb36109054.Text = "" un36109054.Text = "" hr36109054.Text = "" End Sub
part 2 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109054.Click 'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap If TextBox136109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("no.transaksi belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If TextBox236109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("jenis transaksi belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109054.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
'untuk memasukkan data dari visual basc ke dlm acces Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109054.Text & "',#" & DateTimePicker136109054.Value.Date & "#,'" & TextBox236109054.Text & "')", CONECT)
Public Class Form3636109050 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=nideria") Dim data As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub Form3636109050_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adapt As New OleDb.OleDbDataAdapter adapt = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces data.Rows.Clear() adapt.Fill(data) adapt.Dispose() Dim dcp(1) As DataColumn dcp(0) = data.Columns("kodebarang") data.PrimaryKey = dcp DataGridView1.DataSource = data End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If kb.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(un.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(hr.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Dim simpan As DataRow simpan = data.Rows.Find(kb.Text) If simpan Is Nothing Then simpan = data.NewRow simpan("kodebarang") = kb.Text simpan("unit") = un.Text simpan("harga") = hr.Text data.Rows.Add(simpan) Else MsgBox("KODE BARANG sudah ada") End If
lanjutan Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox2.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT) If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If data.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", CONECT)
For Each r As DataRow In data.Rows com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT) CONECT.Open() com.ExecuteNonQuery() CONECT.Close() com.Dispose() Next
TextBox1.Text = "" TextBox2.Text = "" data.Rows.Clear() End Sub End Class
Public Class LATIHAN03636109029 'DEKLARASI CONECTION Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet oledb:database password = hapsari") 'deklarasi data tabel Dim DT As New DataTable Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109029_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'deklarasi adapter Dim CUTE As New OleDb.OleDbDataAdapter CUTE = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109029.Text & "'", CONNECT) 'memunculkan semua data dari tabel barang dlm acces DT.Rows.Clear() 'membersihkan data table CUTE.Fill(DT) 'mengisi database ke dlm data table
CUTE.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake
'rumus dibwh ini untuk membuat primary key dimana dcp adalah nama sembarangji Dim dcp(1) As DataColumn dcp(0) = DT.Columns("kodebarang") DT.PrimaryKey = dcp
Private Sub Button136109029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109029.Click 'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap If kb36109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("kode barang belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If Val(un36109029.Text) = 0 Then 'untuk pencarian yang bersifat angka MsgBox("UNIT belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If Val(hr36109029.Text) = 0 Then 'untuk pencarian yang bersifat angka MsgBox("HARGA belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW Dim INDAH As DataRow INDAH = DT.Rows.Find(kb36109029.Text) 'untuk mencari apakah ada no.pembelian sdh ada agar tdak double If INDAH Is Nothing Then 'jika tidak ad ji maka lanjutkan penyimpanan
INDAH = DT.NewRow ' menambah baris INDAH("kodebarang") = kb36109029.Text INDAH("unit") = un36109029.Text INDAH("harga") = hr36109029.Text DT.Rows.Add(INDAH) Else MsgBox("KODE BARANG sudah ada") End If
kb36109029.Text = "" un36109029.Text = "" hr36109029.Text = "" End Sub
Private Sub Button236109029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109029.Click 'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap If TextBox136109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("no.transaksi belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
If TextBox236109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka MsgBox("jenis transaksi belum terisi") Exit Sub 'jgn lanjut ke proses berikutnya End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109029.Text, 1, CONNECT)
If cari.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If DT.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
'untuk memasukkan data dari visual basc ke dlm acces Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109029.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox236109029.Text) & ")", CONNECT)
For Each r As DataRow In DT.Rows com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox136109029.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONNECT)
Public Class LATIHAN03636109036 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=100191") Dim Data As New DataTable Dim browse As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109036_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ibnu As New OleDb.OleDbDataAdapter ibnu = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109036.Text & "'", CONECT) Data.Rows.Clear() ibnu.Fill(Data) DataGridView1.DataSource = Data
ibnu.Dispose()
End Sub
Private Sub Button136109036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109036.Click If kb36109036.Text.Length = 0 Then MsgBox("kode barang belum terisi") Exit Sub End If
If Val(un36109036.Text) = 0 Then MsgBox("UNIT belum terisi") Exit Sub End If
If Val(hr36109036.Text) = 0 Then MsgBox("HARGA belum terisi") Exit Sub End If
Private Sub Button236109036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109036.Click If TextBox136109036.Text.Length = 0 Then MsgBox("no.transaksi belum terisi") Exit Sub End If
If TextBox236109036.Text.Length = 0 Then MsgBox("jenis transaksi belum terisi") Exit Sub End If
If browse.JumlanBaris > 0 Then MsgBox("NO.TRANS sudah ada") Exit Sub End If
If Data.Rows.Count = 0 Then MsgBox("data tidak tersedia") End If
Dim com As New OleDb.OleDbCommand com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109036.Text & "',#" & DateTimePicker136109036.Value.Date & "#," & Val(TextBox236109036.Text) & ")", CONECT)
Public Class Form3636108001 Dim INCE As New OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataMajemuk.accdb;Jet OLEDB:Database Password=36108001") Dim LOVE As New DataTable Private Sub AI() Dim YNK As New OleDb.OleDbDataAdapter YNK = New OleDb.OleDbDataAdapter("Select Kodebarang, unit, harga FROM detailtransaksi where notrans='" & T136108001.Text & "' ", INCE) LOVE.Rows.Clear() YNK.Fill(LOVE) YNK.Dispose()
DGV36108001.DataSource = LOVE End Sub Private Sub Form3636108001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AI() Dim PK(1) As DataColumn PK(0) = LOVE.Columns("KODEBARANG") LOVE.PrimaryKey = PK End Sub Private Sub B136108001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B136108001.Click If T336108001.Text.Length = 0 Then MsgBox("Kode Barang Belum Terisi") Exit Sub End If
If Val(T436108001.Text) = 0 Then MsgBox("Unit Belum Terisi") Exit Sub End If
If Val(T536108001.Text) = 0 Then MsgBox("Harga Belum Terisi") Exit Sub End If
If LOVE.Rows.Find(T336108001.Text) Is Nothing Then LOVE.Rows.Add(T336108001.Text, Val(T436108001.Text), Val(T536108001.Text)) Else MsgBox("Kode Barang Sudah Ada") End If
T336108001.Text = "" T436108001.Text = "" T536108001.Text = "" End Sub Private Sub B236108001_Click(ByVal sender As System.Object, ByVal AULIA As System.EventArgs) Handles B236108001.Click If T136108001.Text.Length = 0 Then MsgBox("Nomor transaksi belum terisi") Exit Sub End If
If T236108001.Text.Length = 0 Then MsgBox("Jenis transaksi belum terisi") Exit Sub End If
If LOVE.Rows.Count = 0 Then MsgBox("Data tidak terisi") Exit Sub End If
Dim AYI As New ByIskandar.CariKeDataBaseByIskandar AYI.AturPencarianDataBase("mastertransaksi", "NOTRANS", T136108001.Text, 1, INCE)
If AYI.JumlanBaris > 0 Then MsgBox("Nomor transaksi tersebut sudah ada") Exit Sub End If
Dim ANHYE As New OleDb.OleDbCommand Dim VENUS As String VENUS = "INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & T136108001.Text & "', #" & DTP36108001.Value.Date & "#, '" & T236108001.Text & "');" ANHYE = New OleDb.OleDbCommand(VENUS, INCE) INCE.Open() ANHYE.ExecuteNonQuery() INCE.Close()
For Each ARHY As DataRow In LOVE.Rows Dim EGIET As String EGIET = "INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & T136108001.Text & "', '" & ARHY("KODEBARANG") & "', '" & ARHY("UNIT") & "', '" & ARHY("HARGA") & "');" ANHYE = New OleDb.OleDbCommand(EGIET, INCE) INCE.Open() ANHYE.ExecuteNonQuery() INCE.Close() Next ANHYE.Dispose()
T136108001.Text = "" T236108001.Text = "" AI() End Sub End Class
Public Class LATIHAN_036_36109056
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=2422")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim biya As New OleDb.OleDbDataAdapter
biya = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109056.Text & "'", CONECT)
DT.Rows.Clear()
biya.Fill(DT)
DataGridView1.DataSource = DT
biya.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If kb_36109056.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(un_36109056.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(hr_36109056.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim bie As DataRow
bie = DT.NewRow
bie("KODEBARANG") = kb_36109056.Text
bie("UNIT") = un_36109056.Text
bie("HARGA") = hr_36109056.Text
DT.Rows.Add(bie)
kb_36109056.Text = ""
un_36109056.Text = ""
hr_36109056.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1_36109056.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox2_36109056.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109056.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109056.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109056.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109056.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox1_36109056.Text = ""
TextBox2_36109056.Text = ""
End Sub
End Class
Public Class LATIHAN03636109033
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=tahir")
Dim Data As New DataTable
Dim browse As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109033_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tiwi As New OleDb.OleDbDataAdapter
tiwi = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109033.Text & "'", CONECT)
Data.Rows.Clear()
tiwi.Fill(Data)
DataGridView1.DataSource = Data
tiwi.Dispose()
End Sub
Private Sub Button136109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109033.Click
If kb36109033.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(un36109033.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(hr36109033.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim pratiwi As DataRow
pratiwi = Data.NewRow
pratiwi("KODEBARANG") = kb36109033.Text
pratiwi("UNIT") = un36109033.Text
pratiwi("HARGA") = hr36109033.Text
Data.Rows.Add(pratiwi)
kb36109033.Text = ""
un36109033.Text = ""
hr36109033.Text = ""
End Sub
Private Sub Button236109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109033.Click
If TextBox136109033.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox236109033.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
browse.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109033.Text, 1, CONECT)
If browse.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If Data.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109033.Text & "',#" & DateTimePicker136109033.Value.Date & "#," & Val(TextBox236109033.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each t As DataRow In Data.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109033.Text & "','" & t("kodebarang") & "'," & t("unit") & "," & t("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
Data.Rows.Clear()
TextBox136109033.Text = ""
TextBox236109033.Text = ""
End Sub
End Class
Public Class Latihan_036_36109045
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet OLEDB:database password=florista")
'deklarasi data tabel
Dim DT As New DataTable
Dim kolom(3) As DataColumn
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109045.Click
kolom(0) = DT.Columns("kodebarang")
DT.PrimaryKey = kolom
Dim drzany As DataRow
drzany = DT.Rows.Find(kb_36109045.Text)
If drzany Is Nothing Then
drzany = DT.NewRow ' menambah baris
drzany("KODEBARANG") = kb_36109045.Text
drzany("UNIT") = un_36109045.Text
drzany("HARGA") = hr_36109045.Text
DT.Rows.Add(drzany)
Else
BalasHapusMsgBox("baris sudah ada")
kb_36109045.Text = ""
End If
If kb_36109045.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(kb_36109045.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("UNIT belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(hr_36109045.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("HARGA belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
kb_36109045.Text = ""
un_36109045.Text = ""
hr_36109045.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109045.Click
If TextBox1_36109045.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If TextBox2_36109045.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109045.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109045.Text & "',#" & DateTimePicker136109045.Value.Date & "#,'" & TextBox2_36109045.Text & "')", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109045.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox1_36109045.Text = ""
TextBox2_36109045.Text = ""
End Sub
Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim syasa As New OleDb.OleDbDataAdapter
syasa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109045.Text & "'", CONECT)
DT.Rows.Clear() 'membersihkan data table
syasa.Fill(DT) 'mengisi database ke dlm data table
DataGridView1.DataSource = DT
syasa.Dispose()
End Sub
End Class
Public Class LATIHAN36035
BalasHapusDim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Private Sub LATIHAN36035_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='" & TextBox1035.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()
DataGridView1035.DataSource = gitik
'perintah primarykey
Dim kabotcibay(2) As DataColumn
kabotcibay(0) = gitik.Columns("Kodebarang")
gitik.PrimaryKey = kabotcibay
End Sub
Private Sub Button1035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1035.Click
'Memeriksa isi textbox
If kb035.Text.Length = 0 Then
MsgBox("Please, insert the code of goods")
Exit Sub
End If
If un035.Text.Length = 0 Then
MsgBox("Please, insert the unit of goods")
Exit Sub
End If
If hr035.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(kb035.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(kb035.Text, Val(un035.Text), Val(hr035.Text))
'mengosongkan textbox
kb035.Text = ""
un035.Text = ""
hr035.Text = ""
End Sub
Public Class Form3636109040
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=150991")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim biya As New OleDb.OleDbDataAdapter
biya = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109040.Text & "'", CONECT)
DT.Rows.Clear()
mita.Fill(DT)
DataGridView1.DataSource = DT
mita.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If kb_36109040.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(un_36109040.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(hr_36109040.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim mieta As DataRow
mieta = DT.NewRow
mieta("KODEBARANG") = kb_36109040.Text
mieta("UNIT") = un_36109040.Text
mieta("HARGA") = hr_36109040.Text
DT.Rows.Add(mieta)
kb_36109040.Text = ""
un_36109040.Text = ""
hr_36109040.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1_36109040.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox2_36109040.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109040.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109040.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109040.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109040.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox1_36109040.Text = ""
TextBox2_36109040.Text = ""
End Sub
End Class
Private Sub Button2035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2035.Click
BalasHapus'Memeriksa isi textbox
If TextBox1035.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If TextBox2035.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", TextBox1035.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 ('" & TextBox1035.Text & "',#" & DateTimePicker1035.Value.Month & "/" & DateTimePicker1035.Value.Day & "/" & DateTimePicker1035.Value.Year & "#,'" & TextBox2035.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 ('" & TextBox1035.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
Next
kacci.Dispose()
'Mengosongkan isi text box
TextBox1035.Text = ""
TextBox2035.Text = ""
'Mengosongkan baris datatable
gitik.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
Public Class LATIHAN036_36109049
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=wirda")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN036_36109049_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim wirda As New OleDb.OleDbDataAdapter
wirda = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & Kb_36109049.Text & "'", CONECT)
DT.Rows.Clear()
wirda.Fill(DT)
DataGridView1.DataSource = DT
wirda.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Kb_36109049.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(UN_36109049.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(HR_36109049.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim bie As DataRow
bie = DT.NewRow
bie("KODEBARANG") = Kb_36109049.Text
bie("UNIT") = UN_36109049.Text
bie("HARGA") = HR_36109049.Text
DT.Rows.Add(bie)
Kb_36109049.Text = ""
UN_36109049.Text = ""
HR_36109049.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1_36109049.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
Lanjutan 36
BalasHapusIf TextBox2_36109049.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109049.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109049.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109049.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109049.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox1_36109049.Text = ""
TextBox2_36109049.Text = ""
End Sub
End Class
Public Class LATIHAN03636109038
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=icha")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109038_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Azizah As New OleDb.OleDbDataAdapter
Azizah = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB36109038.Text & "'", CONECT)
DT.Rows.Clear()
Azizah.Fill(DT)
Azizah.Dispose()
Dim dcp(1) As DataColumn
dcp(0) = DT.Columns("kodebarang")
DT.PrimaryKey = dcp
DataGridView136109038.DataSource = DT
End Sub
Private Sub Button136109038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button136109038.Click
If KB36109038.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(UN36109038.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(HR36109038.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim Reza As DataRow
Reza = DT.Rows.Find(KB36109038.Text)
If Reza Is Nothing Then
Reza = DT.NewRow ' menambah baris
Reza("kodebarang") = KB36109038.Text
Reza("unit") = UN36109038.Text
Reza("harga") = HR36109038.Text
DT.Rows.Add(Reza)
Else
MsgBox("KODE BARANG sudah ada")
End If
KB36109038.Text = ""
UN36109038.Text = ""
HR36109038.Text = ""
End Sub
Private Sub Button236109038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button236109038.Click
If TextBox136109038.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox236109038.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109038.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109038.Text & "',#" & DateTimePicker136109038.Value.Date & "#," & Val(TextBox236109038.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox136109038.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
TextBox136109038.Text = ""
TextBox236109038.Text = ""
DT.Rows.Clear()
End Sub
End Class
Public Class LATIHAN03636109032
BalasHapusDim sambung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=jayapura")
Dim toshiba As New DataTable
Dim nokia As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109032_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim laptop As New OleDb.OleDbDataAdapter
laptop = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB.Text & "'", sambung)
toshiba.Rows.Clear()
laptop.Fill(toshiba)
DataGridView1.DataSource = toshiba
laptop.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If KB.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(UN.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(HR.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim key As DataRow
key = toshiba.NewRow
key("KODEBARANG") = KB.Text
key("UNIT") = UN.Text
key("HARGA") = HR.Text
toshiba.Rows.Add(key)
KB.Text = ""
UN.Text = ""
HR.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox2.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
nokia.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, sambung)
If nokia.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If toshiba.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", sambung)
sambung.Open()
com.ExecuteNonQuery()
sambung.Close()
For Each r As DataRow In toshiba.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", sambung)
sambung.Open()
com.ExecuteNonQuery()
sambung.Close()
com.Dispose()
Next
toshiba.Rows.Clear()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
End Class
Public Class LATIHAN036041
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb; Jet OLEDB:Database Password=12")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nisa As New OleDb.OleDbDataAdapter
nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB36109041.Text & "'", CONECT)
DT.Rows.Clear()
nisa.Fill(DT)
DataGridView136109041.DataSource = DT
nisa.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109041.Click
If KB36109041.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(UN36109041.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(HR36109041.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim kolom(1) As DataColumn
kolom(0) = DT.Columns("kodebarang")
DT.PrimaryKey = kolom
Dim drzany As DataRow
drzany = DT.Rows.Find(kb36109041.Text)
If drzany Is Nothing Then
drzany = DT.NewRow
drzany("KODEBARANG") = kb36109041.Text
drzany("UNIT") = un36109041.Text
drzany("HARGA") = hr36109041.Text
DT.Rows.Add(drzany)
kb36109041.Text = ""
un36109041.Text = ""
hr36109041.Text = ""
Else : MsgBox("baris sudah ada")
kb36109041.Text = ""
End If
KB36109041.Text = ""
UN36109041.Text = ""
HR36109041.Text = ""
End Sub
lanjutan 36
BalasHapusPrivate Sub Button236109041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109041.Click
If TextBox136109041.Text.Length = 0 Then MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox236109041.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109041.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109041.Text & "',#" & DateTimePicker1.Value.Date & "#,'" & TextBox236109041.Text & "')", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109041.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox136109041.Text = ""
TextBox236109041.Text = ""
End Sub
End Class
Public Class LATIHAN_3636109055
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=2312")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN_3636109055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim falah As New OleDb.OleDbDataAdapter
falah = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109055.Text & "'", CONECT)
DT.Rows.Clear()
falah.Fill(DT)
DataGridView136109055.DataSource = DT
falah.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If kb36109055.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(un36109055.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(hr36109055.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
lanjutan
BalasHapusDim dr As DataRow
dr = DT.NewRow
dr("KODEBARANG") = kb36109055.Text
dr("UNIT") = un36109055.Text
dr("HARGA") = hr36109055.Text
DT.Rows.Add(dr)
kb36109055.Text = ""
un36109055.Text = ""
hr36109055.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox136109055.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox236109055.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109055.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109055.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox236109055.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109055.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox136109055.Text = ""
TextBox236109055.Text = ""
End Sub
End Class
part 1
BalasHapusPublic Class LATIHAN036036109054
'DEKLARASI CONECTION
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\berbagi\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb;Jet OLEDB:Database Password=salam")
'deklarasi data tabel
Dim DT As New DataTable
Dim kolom(3) As DataColumn
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'deklarasi adapter
Dim wawan As New OleDb.OleDbDataAdapter
wawan = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109054.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
DT.Rows.Clear() 'membersihkan data table
wawan.Fill(DT) 'mengisi database ke dlm data table
DGV136109054.DataSource = DT 'memunculkan dlm datagridview
wawan.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109054.Click
kolom(0) = DT.Columns("kodebarang")
DT.PrimaryKey = kolom
Dim drzany As DataRow
drzany = DT.Rows.Find(kb36109054.Text)
If drzany Is Nothing Then
drzany = DT.NewRow ' menambah baris
drzany("KODEBARANG") = kb36109054.Text
drzany("UNIT") = un36109054.Text
drzany("HARGA") = hr36109054.Text
DT.Rows.Add(drzany)
Else
MsgBox("baris sudah ada")
kb36109054.Text = ""
End If
If kb36109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(un36109054.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("UNIT belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(hr36109054.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("HARGA belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
kb36109054.Text = ""
un36109054.Text = ""
hr36109054.Text = ""
End Sub
part 2
BalasHapusPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109054.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox136109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no.transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If TextBox236109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109054.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109054.Text & "',#" & DateTimePicker136109054.Value.Date & "#,'" & TextBox236109054.Text & "')", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109054.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox136109054.Text = ""
TextBox236109054.Text = ""
End Sub
End Class
Public Class Form3636109050
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=nideria")
Dim data As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub Form3636109050_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapt As New OleDb.OleDbDataAdapter
adapt = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
data.Rows.Clear()
adapt.Fill(data)
adapt.Dispose()
Dim dcp(1) As DataColumn
dcp(0) = data.Columns("kodebarang")
data.PrimaryKey = dcp
DataGridView1.DataSource = data
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If kb.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(un.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(hr.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim simpan As DataRow
simpan = data.Rows.Find(kb.Text)
If simpan Is Nothing Then
simpan = data.NewRow
simpan("kodebarang") = kb.Text
simpan("unit") = un.Text
simpan("harga") = hr.Text
data.Rows.Add(simpan)
Else
MsgBox("KODE BARANG sudah ada")
End If
kb.Text = ""
un.Text = ""
hr.Text = ""
End Sub
lanjutan
BalasHapusPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox2.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If data.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In data.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
TextBox1.Text = ""
TextBox2.Text = ""
data.Rows.Clear()
End Sub
End Class
Public Class LATIHAN03636109029
BalasHapus'DEKLARASI CONECTION
Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet oledb:database password = hapsari")
'deklarasi data tabel
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109029_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'deklarasi adapter
Dim CUTE As New OleDb.OleDbDataAdapter
CUTE = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109029.Text & "'", CONNECT) 'memunculkan semua data dari tabel barang dlm acces
DT.Rows.Clear() 'membersihkan data table
CUTE.Fill(DT) 'mengisi database ke dlm data table
CUTE.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake
'rumus dibwh ini untuk membuat primary key dimana dcp adalah nama sembarangji
Dim dcp(1) As DataColumn
dcp(0) = DT.Columns("kodebarang")
DT.PrimaryKey = dcp
DataGridView1.DataSource = DT 'memunculkan dlm datagridview
End Sub
Private Sub Button136109029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109029.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If kb36109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(un36109029.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("UNIT belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(hr36109029.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("HARGA belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW
Dim INDAH As DataRow
INDAH = DT.Rows.Find(kb36109029.Text) 'untuk mencari apakah ada no.pembelian sdh ada agar tdak double
If INDAH Is Nothing Then 'jika tidak ad ji maka lanjutkan penyimpanan
INDAH = DT.NewRow ' menambah baris
INDAH("kodebarang") = kb36109029.Text
INDAH("unit") = un36109029.Text
INDAH("harga") = hr36109029.Text
DT.Rows.Add(INDAH)
Else
MsgBox("KODE BARANG sudah ada")
End If
kb36109029.Text = ""
un36109029.Text = ""
hr36109029.Text = ""
End Sub
Private Sub Button236109029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109029.Click
BalasHapus'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox136109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no.transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If TextBox236109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109029.Text, 1, CONNECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109029.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox236109029.Text) & ")", CONNECT)
CONNECT.Open()
com.ExecuteNonQuery()
CONNECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox136109029.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONNECT)
CONNECT.Open()
com.ExecuteNonQuery()
CONNECT.Close()
com.Dispose()
Next
TextBox136109029.Text = ""
TextBox236109029.Text = ""
DT.Rows.Clear()
End Sub
End Class
Public Class LATIHAN03636109036
BalasHapusDim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=100191")
Dim Data As New DataTable
Dim browse As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN03636109036_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ibnu As New OleDb.OleDbDataAdapter
ibnu = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109036.Text & "'", CONECT)
Data.Rows.Clear()
ibnu.Fill(Data)
DataGridView1.DataSource = Data
ibnu.Dispose()
End Sub
Private Sub Button136109036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109036.Click
If kb36109036.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(un36109036.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(hr36109036.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim praibnu As DataRow
praibnu = Data.NewRow
praibnu("KODEBARANG") = kb36109036.Text
praibnu("UNIT") = un36109036.Text
praibnu("HARGA") = hr36109036.Text
Data.Rows.Add(praibnu)
kb36109036.Text = ""
un36109036.Text = ""
hr36109036.Text = ""
End Sub
Private Sub Button236109036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109036.Click
If TextBox136109036.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If TextBox236109036.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
browse.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109036.Text, 1, CONECT)
If browse.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If Data.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109036.Text & "',#" & DateTimePicker136109036.Value.Date & "#," & Val(TextBox236109036.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each t As DataRow In Data.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109036.Text & "','" & t("kodebarang") & "'," & t("unit") & "," & t("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
Data.Rows.Clear()
TextBox136109036.Text = ""
TextBox236109036.Text = ""
End Sub
End Class
pembaharuan..
BalasHapusPublic Class Form3636108001
Dim INCE As New OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataMajemuk.accdb;Jet OLEDB:Database Password=36108001")
Dim LOVE As New DataTable
Private Sub AI()
Dim YNK As New OleDb.OleDbDataAdapter
YNK = New OleDb.OleDbDataAdapter("Select Kodebarang, unit, harga FROM detailtransaksi where notrans='" & T136108001.Text & "' ", INCE)
LOVE.Rows.Clear()
YNK.Fill(LOVE)
YNK.Dispose()
DGV36108001.DataSource = LOVE
End Sub
Private Sub Form3636108001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AI()
Dim PK(1) As DataColumn
PK(0) = LOVE.Columns("KODEBARANG")
LOVE.PrimaryKey = PK
End Sub
Private Sub B136108001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B136108001.Click
If T336108001.Text.Length = 0 Then
MsgBox("Kode Barang Belum Terisi")
Exit Sub
End If
If Val(T436108001.Text) = 0 Then
MsgBox("Unit Belum Terisi")
Exit Sub
End If
If Val(T536108001.Text) = 0 Then
MsgBox("Harga Belum Terisi")
Exit Sub
End If
If LOVE.Rows.Find(T336108001.Text) Is Nothing Then
LOVE.Rows.Add(T336108001.Text, Val(T436108001.Text), Val(T536108001.Text))
Else
MsgBox("Kode Barang Sudah Ada")
End If
T336108001.Text = ""
T436108001.Text = ""
T536108001.Text = ""
End Sub
Private Sub B236108001_Click(ByVal sender As System.Object, ByVal AULIA As System.EventArgs) Handles B236108001.Click
If T136108001.Text.Length = 0 Then
MsgBox("Nomor transaksi belum terisi")
Exit Sub
End If
If T236108001.Text.Length = 0 Then
MsgBox("Jenis transaksi belum terisi")
Exit Sub
End If
If LOVE.Rows.Count = 0 Then
MsgBox("Data tidak terisi")
Exit Sub
End If
Dim AYI As New ByIskandar.CariKeDataBaseByIskandar
AYI.AturPencarianDataBase("mastertransaksi", "NOTRANS", T136108001.Text, 1, INCE)
If AYI.JumlanBaris > 0 Then
MsgBox("Nomor transaksi tersebut sudah ada")
Exit Sub
End If
Dim ANHYE As New OleDb.OleDbCommand
Dim VENUS As String
VENUS = "INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & T136108001.Text & "', #" & DTP36108001.Value.Date & "#, '" & T236108001.Text & "');"
ANHYE = New OleDb.OleDbCommand(VENUS, INCE)
INCE.Open()
ANHYE.ExecuteNonQuery()
INCE.Close()
For Each ARHY As DataRow In LOVE.Rows
Dim EGIET As String
EGIET = "INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & T136108001.Text & "', '" & ARHY("KODEBARANG") & "', '" & ARHY("UNIT") & "', '" & ARHY("HARGA") & "');"
ANHYE = New OleDb.OleDbCommand(EGIET, INCE)
INCE.Open()
ANHYE.ExecuteNonQuery()
INCE.Close()
Next
ANHYE.Dispose()
T136108001.Text = ""
T236108001.Text = ""
AI()
End Sub
End Class
http://hilariusmariotonapa.blogspot.com/2012/10/prosedur-penyelesaian-latihan3636110048.html
BalasHapushttp://hilariusmariotonapa.blogspot.com/2012/10/deskripsi-latihan3636110048.html
http://tiya-sri.blogspot.com/2012/10/latihan3636110044-aplikasi-komputer-4.html
BalasHapushttp://eminaomi.blogspot.com/2012/10/latihan3636110049.html
BalasHapushttp://nurrahmahrasyid2.blogspot.com/2012/10/latihan3636110042.html
BalasHapushttp://03melisa.blogspot.com/2012/10/latihan-36-36110051-apkom-4-d3b.html
BalasHapushttp://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan3636110037.html
BalasHapushttp://benhilll.blogspot.com/2012/10/deskripsi-dan-prosedur-latihan3636110039.html
BalasHapushttp://rosyanausman.blogspot.com/2012/10/latihan3636110036.html
BalasHapushttp://hasfiahzain.blogspot.com/2012/10/latihan3636110052.html
BalasHapushttp://ilhaazzahra.blogspot.com/2012/10/latihan3636110033.html
BalasHapushttp://sriayu-36110030.blogspot.com/2012/10/diskripsi-prosedur-latihan-36.html
BalasHapushttp://ias-anakbola.blogspot.com/2012/10/latihan3636110056.html
BalasHapushttp://rainaagrippinaa.blogspot.com/2012/10/latihan3636110032.html
BalasHapushttp://rahmisuryatama05.blogspot.com/2012/10/latihan3636110040.html
BalasHapushttp://sukadriady.blogspot.com/2012/10/latihan3636110043.html
BalasHapushttp://dewiwahyuni91.blogspot.com/2012/10/latihan3636110038.html
BalasHapushttp://audryasharii.blogspot.com/2012/10/latihan3636110031.html
BalasHapushttp://andiniwarakusuma.blogspot.com/2012/10/latihan3636110034.html
BalasHapushttp://zulkiflitryputra.blogspot.com/2012/10/latihan3636110046.html
BalasHapushttp://nurhanalott.blogspot.com/2012/10/latihan3636110029.html
BalasHapushttp://www.masnurselayar.blogspot.com/2012/10/latihan-3636110055.html
BalasHapushttp://ruslancullank1.blogspot.com/2012/10/deskripsilatihan3636110054.html
BalasHapushttp://burhankhang58.blogspot.com/2012/10/latihan3636110047.html
BalasHapushttp://rizka-azisah.blogspot.com/2012/11/deskripsi-penyelesaian-latihan3636110041.html
BalasHapus