RIDHAYANTI SALEH
361 09 015
3A-D3
- TUGAS 27
Public Class Form27_36109015
Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
Dim risa As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
ridha.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If ridha.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
risa = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
ahmad.Open()
risa.ExecuteNonQuery()
ahmad.Close()
risa.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
End Sub
End Class
- TUGAS 28A
Public Class Form28A_36109015
Dim ridha As New DataTable
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub risa()
Dim ak As New OleDb.OleDbDataAdapter
ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
ridha.Rows.Clear()
ak.Fill(ridha)
ak.Dispose()
End Sub
Private Sub Form28A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
risa()
DGV_36109015.DataSource = ridha
End Sub
Private Sub INPUT_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_36109015.Click
If Form28B_36109015vb.Visible = False Then
Form28B_36109015vb.Show()
Else
Form28B_36109015vb.Activate()
End If
End Sub
End Class
- TUGAS 28B
Public Class Form28B_36109015vb
Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
Dim risa As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
ridha.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If ridha.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
risa = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
ahmad.Open()
risa.ExecuteNonQuery()
ahmad.Close()
risa.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
Form28A_36109015.risa()
End Sub
End Class
- TUGAS 29
Public Class Form29_36109015
Dim risa As New ByIskandar.CariKeDataBaseByIskandar
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub S_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S_36109015.Click
If KB2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nb_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(hj_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jb_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If KB_36109015.Text <> KB2_36109015.Text Then
risa.AturPencarianDataBase("Barang", "KodeBarang", KB2_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & KB2_36109015.Text & "', namabarang = '" & nb_36109015.Text & "', hargajual = " & Val(hj_36109015.Text) & ", jumlahbarang = " & Val(jb_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
KB_36109015.Text = ""
KB2_36109015.Text = ""
nb_36109015.Text = ""
hj_36109015.Text = ""
jb_36109015.Text = ""
End Sub
End Class
- TUGAS 30A
Public Class Form30A_36109015
Dim ridha As New DataTable
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub risa()
Dim fm As New OleDb.OleDbDataAdapter
fm = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
ridha.Rows.Clear()
fm.Fill(ridha)
fm.Dispose()
End Sub
Private Sub Form30A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
risa()
dgv_36109015.DataSource = ridha
End Sub
Private Sub edit_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109015.Click
If Form30B_36109015.Visible = False Then
Form30B_36109015.Show()
Else
Form30B_36109015.Activate()
End If
Form30B_36109015.KB_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form30B_36109015.KB2_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form30B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
Form30B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
Form30B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("jumlahbarang").Value
Form30B_36109015.Show()
End Sub
End Class
- TUGAS 30B
Public Class Form30B_36109015
Dim risa As New ByIskandar.CariKeDataBaseByIskandar
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub S_36109015_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S_36109015.Click
If KB2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nb_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(hj_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jb_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If KB_36109015.Text <> KB2_36109015.Text Then
risa.AturPencarianDataBase("Barang", "KodeBarang", KB2_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & KB2_36109015.Text & "', namabarang = '" & nb_36109015.Text & "', hargajual = " & Val(hj_36109015.Text) & ", jumlahbarang = " & Val(jb_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
KB_36109015.Text = ""
KB2_36109015.Text = ""
nb_36109015.Text = ""
hj_36109015.Text = ""
jb_36109015.Text = ""
Form30A_36109015.risa()
End Sub
End Class
- TUGAS 31A
Public Class Form31A_36109015
Dim ridha As New DataTable
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub risa()
Dim ak As New OleDb.OleDbDataAdapter
ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
ridha.Rows.Clear()
ak.Fill(ridha)
ak.Dispose()
End Sub
Private Sub Form31A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
risa()
dgv_36109015.DataSource = ridha
End Sub
Private Sub edit_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109015.Click
If Form31B_36109015.Visible = False Then
Form31B_36109015.Show()
Else
Form31B_36109015.Activate()
End If
Form31B_36109015.t1_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form31B_36109015.t2_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
Form31B_36109015.t3_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
Form31B_36109015.t4_36109015.Text = dgv_36109015.CurrentRow.Cells("jumlahbarang").Value
Form31B_36109015.KB_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form31B_36109015.Show()
End Sub
End Class
- TUGAS 31B
Public Class Form31B_36109015
Dim risa As New ByIskandar.CariKeDataBaseByIskandar
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub Button1_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36109015.Click
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t1_36109015.Text <> t2_36109015.Text Then
risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109015.Text & "', namabarang = '" & t2_36109015.Text & "', hargajual = " & Val(t3_36109015.Text) & ", jumlahbarang = " & Val(t4_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
KB_36109015.Text = "-"
Form31A_36109015.risa()
End Sub
End Class
- TUGAS 32A
Public Class Form32A_36109015
Dim risa As New DataTable
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub ridha()
Dim ak As New OleDb.OleDbDataAdapter
ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
risa.Rows.Clear()
ak.Fill(risa)
ak.Dispose()
End Sub
Private Sub Form32A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ridha()
DGV_36109015.DataSource = risa
End Sub
Private Sub TMBH_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMBH_36109015.Click
If Form32B_36109015.Visible = False Then
Form32B_36109015.Show()
Else
Form32B_36109015.Activate()
End If
End Sub
Private Sub EDIT_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_36109015.Click
If Form32C_36109015.Visible = False Then
Form32C_36109015.Show()
Else
Form32C_36109015.Activate()
End If
Form32C_36109015.t1_36109015.Text = DGV_36109015.CurrentRow.Cells("kodebarang").Value
Form32C_36109015.t2_36109015.Text = DGV_36109015.CurrentRow.Cells("namabarang").Value
Form32C_36109015.t3_36109015.Text = DGV_36109015.CurrentRow.Cells("hargajual").Value
Form32C_36109015.t4_36109015.Text = DGV_36109015.CurrentRow.Cells("jumlahbarang").Value
Form32C_36109015.KB_36109015.Text = DGV_36109015.CurrentRow.Cells("kodebarang").Value
Form32C_36109015.Show()
End Sub
End Class
- TUGAS 32B
Public Class Form32B_36109015
Dim risa As New ByIskandar.CariKeDataBaseByIskandar
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
ridha = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
Form32A_36109015.ridha()
End Sub
End Class
- TUGAS 32C
Public Class Form32C_36109015
Dim risa As New ByIskandar.CariKeDataBaseByIskandar
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t1_36109015.Text <> KB_36109015.Text Then
risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109015.Text & "', namabarang = '" & t2_36109015.Text & "', hargajual = " & Val(t3_36109015.Text) & ", jumlahbarang = " & Val(t4_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
KB_36109015.Text = ""
Form32A_36109015.ridha()
End Sub
End Class
- TUGAS 33A
Public Class Form33A_36109015
Dim risa As New DataTable
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub eku()
Dim ak As New OleDb.OleDbDataAdapter
ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
risa.Rows.Clear()
ak.Fill(risa)
ak.Dispose()
End Sub
Private Sub Form33A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
eku()
dgv_36109015.DataSource = risa
End Sub
Private Sub hps_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_36109015.Click
ridha = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_36109015.CurrentRow.Cells("kodebarang").Value & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
eku()
End Sub
Private Sub edit_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109015.Click
If Form33B_36109015.Visible = False Then
Form33B_36109015.Show()
Else
Form33B_36109015.Activate()
End If
Form33B_36109015.t1_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form33B_36109015.t2_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
Form33B_36109015.t3_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
Form33B_36109015.t4_36109015.Text = dgv_36109015.CurrentRow.Cells("jumlahbarang").Value
Form33B_36109015.t5_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form33B_36109015.Show()
End Sub
Private Sub tambah_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109015.Click
If Form33B_36109015.Visible = False Then
Form33B_36109015.Show()
Else
Form33B_36109015.Activate()
End If
Form33B_36109015.t1_36109015.Text = ""
Form33B_36109015.t2_36109015.Text = ""
Form33B_36109015.t3_36109015.Text = ""
Form33B_36109015.t4_36109015.Text = ""
Form33B_36109015.t5_36109015.Text = "-"
End Sub
- TUGAS 33B
Public Class Form33B_36109015
Dim risa As New ByIskandar.CariKeDataBaseByIskandar
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
If t5_36109015.Text = "-" Then
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
ridha = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
Else
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t1_36109015.Text <> t5_36109015.Text Then
risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109015.Text & "', namabarang = '" & t2_36109015.Text & "', hargajual = " & Val(t3_36109015.Text) & ", jumlahbarang = " & Val(t4_36109015.Text) & " where kodebarang = '" & t5_36109015.Text & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
t5_36109015.Text = "-"
End If
End Sub
End Class
- TUGAS 34A
ublic Class Form34A_36109015
Private Sub DAFTARBARANGToolStripMenuItem_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem_36109015.Click
If Form34B_36109015.Visible = False Then
Form34B_36109015.MdiParent = Me
Form34B_36109015.Show()
Else
Form34B_36109015.Activate()
End If
End Sub
Private Sub INPUTBARANGToolStripMenuItem_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem_36109015.Click
If Form34C_36109015.Visible = False Then
Form34C_36109015.MdiParent = Me
Form34C_36109015.Show()
Else
Form34C_36109015.Activate()
End If
End Sub
Private Sub ToolStripButton1_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1_36109015.Click
If Form34B_36109015.Visible = False Then
Form34B_36109015.MdiParent = Me
Form34C_36109015.Show()
Else
Form34B_36109015.Activate()
End If
End Sub
Private Sub ToolStripButton2_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2_36109015.Click
If Form34C_36109015.Visible = False Then
Form34C_36109015.MdiParent = Me
Form34C_36109015.Show()
Else
Form34C_36109015.Activate()
End If
End Sub
End Class
- TUGAS 34B
Public Class Form34B_36109015
Dim risa As New DataTable
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub aku()
Dim ak As New OleDb.OleDbDataAdapter
ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
risa.Rows.Clear()
ak.Fill(risa)
ak.Dispose()
End Sub
Private Sub Form34B_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
aku()
dgv_36109015.DataSource = risa
End Sub
Private Sub hapus_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36109015.Click
ridha = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_36109015.CurrentRow.Cells("kodebarang").Value & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
aku()
End Sub
Private Sub tambah_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109015.Click
If Form34C_36109015.Visible = False Then
Form34C_36109015.MdiParent = Me.MdiParent
Form34C_36109015.Show()
Else
Form34C_36109015.Activate()
End If
Form34C_36109015.Show()
End Sub
Private Sub edit_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109015.Click
If Form34C_36109015.Visible = False Then
Form34C_36109015.MdiParent = Me.MdiParent
Form34C_36109015.Show()
Else
Form34C_36109015.Activate()
End If
Form34C_36109015.t1_36109015.Text = ""
Form34C_36109015.t2_36109015.Text = ""
Form34C_36109015.t3_36109015.Text = ""
Form34C_36109015.t4_36109015.Text = ""
Form34C_36109015.KB_36109015.Text = "-"
End Sub
End Class
- TUGAS 34C
Public Class Form34C_36109015
Dim risa As New ByIskandar.CariKeDataBaseByIskandar
Dim ridha As New OleDb.OleDbCommand
Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
If KB_36109015.Text = "-" Then
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
ridha = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
Else
If t1_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t2_36109015.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t3_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(t4_36109015.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If t1_36109015.Text <> KB_36109015.Text Then
risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
If risa.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109015.Text & "', namabarang = '" & t2_36109015.Text & "', hargajual = " & Val(t3_36109015.Text) & ", jumlahbarang = " & Val(t4_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)
ahmad.Open()
ridha.ExecuteNonQuery()
ahmad.Close()
ridha.Dispose()
t1_36109015.Text = ""
t2_36109015.Text = ""
t3_36109015.Text = ""
t4_36109015.Text = ""
KB_36109015.Text = "-"
End If
End Sub
End Class
Jumat, 18 November 2011
TUGAS 15-26
RIDHAYANTI SALEH
36109015
3A-D3
TUGAS 15-19
- TUGAS 15
Public Class Form15_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 16
Public Class Form16_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_36109015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 17
Public Class Form17_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_36109015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 18
Public Class Form18_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from query1", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 19
Public Class Form19_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from query2", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
MAAF PAK,TIDAK CUKUP KARAKTERNYA. JD SAYA PISAH BAPAK.
- TUGAS 20
Public Class Form20_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from query3", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 21
Public Class Form21
Dim ridha_dt1 As New DataTable
Dim ridha_dt2 As New DataTable
Dim ridha_ds As New DataSet
Dim ridha_bs1 As New BindingSource
Dim ridha_bs2 As New BindingSource
Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs1 As New OleDb.OleDbDataAdapter
Dim rs2 As New OleDb.OleDbDataAdapter
rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
rs1.Fill(ridha_dt1)
rs1.Dispose()
dgv1_36109015.DataSource = ridha_bs1
rs2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", risa)
rs2.Fill(ridha_dt2)
rs2.Dispose()
dgv2_36109015.DataSource = ridha_bs2
ridha_ds.Tables.Add(ridha_dt1)
ridha_ds.Tables.Add(ridha_dt2)
ridha_dt1.TableName = "pilihan1"
ridha_dt2.TableName = "pilihan2"
ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))
ridha_bs1.DataSource = ridha_ds
ridha_bs1.DataMember = "pilihan1"
ridha_bs2.DataSource = ridha_bs1
ridha_bs2.DataMember = "ak"
End Sub
End Class
- TUGAS 22
Public Class Form22_36109015
Dim ridha_dt1 As New DataTable
Dim ridha_dt2 As New DataTable
Dim ridha_ds As New DataSet
Dim ridha_bs1 As New BindingSource
Dim ridha_bs2 As New BindingSource
Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs1 As New OleDb.OleDbDataAdapter
Dim rs2 As New OleDb.OleDbDataAdapter
rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
rs1.Fill(ridha_dt1)
rs1.Dispose()
dgv1_36109015.DataSource = ridha_bs1
rs2 = New OleDb.OleDbDataAdapter("select * from query4", risa)
rs2.Fill(ridha_dt2)
rs2.Dispose()
dgv2_36109015.DataSource = ridha_bs2
ridha_ds.Tables.Add(ridha_dt1)
ridha_ds.Tables.Add(ridha_dt2)
ridha_dt1.TableName = "pilihan1"
ridha_dt2.TableName = "pilihan2"
ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))
ridha_bs1.DataSource = ridha_ds
ridha_bs1.DataMember = "pilihan1"
ridha_bs2.DataSource = ridha_bs1
ridha_bs2.DataMember = "ak"
End Sub
End Class
- TUGAS 23A
Public Class Form23A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub Form23A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
DGV_36109015.DataSource = ak
risa.Dispose()
End Sub
Private Sub BTN_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_36109015.Click
If Form23B_36109015.Visible = False Then
Form23B_36109015.Show()
Else
Form23B_36109015.Activate()
End If
Form23B_36109015.no_36109015.Text = DGV_36109015.CurrentRow.Cells("notrans").Value
Form23B_36109015.tgl_36109015.Value = DGV_36109015.CurrentRow.Cells("tanggaltransaksi").Value
Form23B_36109015.jns_36109015.Text = DGV_36109015.CurrentRow.Cells("jenistransaksi").Value
Form23B_36109015.uly(Form23B_36109015.no_36109015.Text)
End Sub
End Class
- TUGAS 23B
Public Class Form23B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select id, kodebarang, unit, harga from DETAILTRANSAKSI where NOTRANS='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
dgv_36109015.DataSource = ridha
End Sub
End Class
- TUGAS 24A
Public Class Form24A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub Form23A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
risa.Fill(ak)
risa.Dispose()
dgv_36109015.DataSource = ak
End Sub
Private Sub dt_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt_36109015.Click
If Form24B_36109015.Visible = False Then
Form24B_36109015.Show()
Else
Form24B_36109015.Activate()
End If
Form24B_36109015.kb_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form24B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
Form24B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("persediaanawal").Value
Form24B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
Form24B_36109015.uly(Form24B_36109015.kb_36109015.Text)
End Sub
End Class
- TUGAS 24B
Public Class Form24B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
dgv_36109015.DataSource = ridha
End Sub
End Class
- TUGAS 25A
Public Class Form25A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub btn_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109015.Click
If Form25B_36109015.Visible = False Then
Form25B_36109015.Show()
Else
Form25B_36109015.Activate()
End If
Form25B_36109015.kb_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form25B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
Form25B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("persediaanawal").Value
Form25B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
Form25B_36109015.uly(Form25B_36109015.kb_36109015.Text)
End Sub
Private Sub Form25A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
risa.Fill(ak)
risa.Dispose()
dgv_36109015.DataSource = ak
End Sub
End Class
- TUGAS 25B
Public Class Form25B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
dgv2_36109015.DataSource = ridha
End Sub
Private Sub Form25B_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
- TUGAS 26A
Public Class Form26A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub Form26A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
risa.Fill(ak)
risa.Dispose()
dgv1_36109015.DataSource = ak
End Sub
Private Sub btn_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109015.Click
If Form26B_36109015.Visible = False Then
Form26B_36109015.Show()
Else
Form26B_36109015.Activate()
End If
Form26B_36109015.kb_36109015.Text = dgv1_36109015.CurrentRow.Cells("kodebarang").Value
Form26B_36109015.nb_36109015.Text = dgv1_36109015.CurrentRow.Cells("namabarang").Value
Form26B_36109015.jb_36109015.Text = dgv1_36109015.CurrentRow.Cells("persediaanawal").Value
Form26B_36109015.hj_36109015.Text = dgv1_36109015.CurrentRow.Cells("hargajual").Value
Form26B_36109015.uly(Form26B_36109015.kb_36109015.Text)
End Sub
End Class
- TUGAS 26B
Public Class Form26B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS jumlah FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS where KODEBARANG ='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
adapter.Dispose()
dgv2_36109015.DataSource = ridha
Dim tu, total As Integer
For Each x As DataRow In ridha.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tu_36109015.Text = tu
tj_36109015.Text = total
End Sub
End Class
36109015
3A-D3
TUGAS 15-19
- TUGAS 15
Public Class Form15_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 16
Public Class Form16_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_36109015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 17
Public Class Form17_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_36109015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 18
Public Class Form18_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from query1", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 19
Public Class Form19_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from query2", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
MAAF PAK,TIDAK CUKUP KARAKTERNYA. JD SAYA PISAH BAPAK.
- TUGAS 20
Public Class Form20_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub LATIHAN_015_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from query3", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
dgv_015.DataSource = ak
risa.Dispose()
End Sub
End Class
- TUGAS 21
Public Class Form21
Dim ridha_dt1 As New DataTable
Dim ridha_dt2 As New DataTable
Dim ridha_ds As New DataSet
Dim ridha_bs1 As New BindingSource
Dim ridha_bs2 As New BindingSource
Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs1 As New OleDb.OleDbDataAdapter
Dim rs2 As New OleDb.OleDbDataAdapter
rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
rs1.Fill(ridha_dt1)
rs1.Dispose()
dgv1_36109015.DataSource = ridha_bs1
rs2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", risa)
rs2.Fill(ridha_dt2)
rs2.Dispose()
dgv2_36109015.DataSource = ridha_bs2
ridha_ds.Tables.Add(ridha_dt1)
ridha_ds.Tables.Add(ridha_dt2)
ridha_dt1.TableName = "pilihan1"
ridha_dt2.TableName = "pilihan2"
ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))
ridha_bs1.DataSource = ridha_ds
ridha_bs1.DataMember = "pilihan1"
ridha_bs2.DataSource = ridha_bs1
ridha_bs2.DataMember = "ak"
End Sub
End Class
- TUGAS 22
Public Class Form22_36109015
Dim ridha_dt1 As New DataTable
Dim ridha_dt2 As New DataTable
Dim ridha_ds As New DataSet
Dim ridha_bs1 As New BindingSource
Dim ridha_bs2 As New BindingSource
Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs1 As New OleDb.OleDbDataAdapter
Dim rs2 As New OleDb.OleDbDataAdapter
rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
rs1.Fill(ridha_dt1)
rs1.Dispose()
dgv1_36109015.DataSource = ridha_bs1
rs2 = New OleDb.OleDbDataAdapter("select * from query4", risa)
rs2.Fill(ridha_dt2)
rs2.Dispose()
dgv2_36109015.DataSource = ridha_bs2
ridha_ds.Tables.Add(ridha_dt1)
ridha_ds.Tables.Add(ridha_dt2)
ridha_dt1.TableName = "pilihan1"
ridha_dt2.TableName = "pilihan2"
ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))
ridha_bs1.DataSource = ridha_ds
ridha_bs1.DataMember = "pilihan1"
ridha_bs2.DataSource = ridha_bs1
ridha_bs2.DataMember = "ak"
End Sub
End Class
- TUGAS 23A
Public Class Form23A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub Form23A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
ak.Rows.Clear()
risa.Fill(ak)
DGV_36109015.DataSource = ak
risa.Dispose()
End Sub
Private Sub BTN_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_36109015.Click
If Form23B_36109015.Visible = False Then
Form23B_36109015.Show()
Else
Form23B_36109015.Activate()
End If
Form23B_36109015.no_36109015.Text = DGV_36109015.CurrentRow.Cells("notrans").Value
Form23B_36109015.tgl_36109015.Value = DGV_36109015.CurrentRow.Cells("tanggaltransaksi").Value
Form23B_36109015.jns_36109015.Text = DGV_36109015.CurrentRow.Cells("jenistransaksi").Value
Form23B_36109015.uly(Form23B_36109015.no_36109015.Text)
End Sub
End Class
- TUGAS 23B
Public Class Form23B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select id, kodebarang, unit, harga from DETAILTRANSAKSI where NOTRANS='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
dgv_36109015.DataSource = ridha
End Sub
End Class
- TUGAS 24A
Public Class Form24A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub Form23A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
risa.Fill(ak)
risa.Dispose()
dgv_36109015.DataSource = ak
End Sub
Private Sub dt_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt_36109015.Click
If Form24B_36109015.Visible = False Then
Form24B_36109015.Show()
Else
Form24B_36109015.Activate()
End If
Form24B_36109015.kb_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form24B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
Form24B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("persediaanawal").Value
Form24B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
Form24B_36109015.uly(Form24B_36109015.kb_36109015.Text)
End Sub
End Class
- TUGAS 24B
Public Class Form24B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
dgv_36109015.DataSource = ridha
End Sub
End Class
- TUGAS 25A
Public Class Form25A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub btn_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109015.Click
If Form25B_36109015.Visible = False Then
Form25B_36109015.Show()
Else
Form25B_36109015.Activate()
End If
Form25B_36109015.kb_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
Form25B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
Form25B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("persediaanawal").Value
Form25B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
Form25B_36109015.uly(Form25B_36109015.kb_36109015.Text)
End Sub
Private Sub Form25A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
risa.Fill(ak)
risa.Dispose()
dgv_36109015.DataSource = ak
End Sub
End Class
- TUGAS 25B
Public Class Form25B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
dgv2_36109015.DataSource = ridha
End Sub
Private Sub Form25B_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
- TUGAS 26A
Public Class Form26A_36109015
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim ak As New DataTable
Private Sub Form26A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim risa As New OleDb.OleDbDataAdapter
risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
risa.Fill(ak)
risa.Dispose()
dgv1_36109015.DataSource = ak
End Sub
Private Sub btn_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109015.Click
If Form26B_36109015.Visible = False Then
Form26B_36109015.Show()
Else
Form26B_36109015.Activate()
End If
Form26B_36109015.kb_36109015.Text = dgv1_36109015.CurrentRow.Cells("kodebarang").Value
Form26B_36109015.nb_36109015.Text = dgv1_36109015.CurrentRow.Cells("namabarang").Value
Form26B_36109015.jb_36109015.Text = dgv1_36109015.CurrentRow.Cells("persediaanawal").Value
Form26B_36109015.hj_36109015.Text = dgv1_36109015.CurrentRow.Cells("hargajual").Value
Form26B_36109015.uly(Form26B_36109015.kb_36109015.Text)
End Sub
End Class
- TUGAS 26B
Public Class Form26B_36109015
Dim ridha As New DataTable
Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub uly(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS jumlah FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS where KODEBARANG ='" & A & "'", risa)
ridha.Rows.Clear()
adapter.Fill(ridha)
adapter.Dispose()
dgv2_36109015.DataSource = ridha
Dim tu, total As Integer
For Each x As DataRow In ridha.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tu_36109015.Text = tu
tj_36109015.Text = total
End Sub
End Class
Langganan:
Postingan (Atom)