into the new world
Selasa, 03 Januari 2012
LATIHAN040B_46109017
Dim ayu As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=putri")
Dim DATA As New DataTable
Public Sub MANIS()
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
DATA.Rows.Clear()
X.Fill(DATA)
End Sub
Private Sub Latihan040B_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = DATA.Columns("NOTRANS")
DATA.PrimaryKey = dataPrimary
DG_46109017.DataSource = DATA
TOTALJUMLAH()
End Sub
Public Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In DATA.Rows
TOT = TOT + x("JUMLAH")
Next
TOT_46109017.Text = TOT
End Sub
Private Sub dg_46109017_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG_46109017.CellContentClick
If DG_46109017.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = ""
DG_46109017.CurrentRow.Cells("UNIT").Value = 0
DG_46109017.CurrentRow.Cells("HARGA").Value = 0
DG_46109017.CurrentRow.Cells("JUMLAH").Value = 0
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DG_46109017.CurrentRow.Cells("KODEBARANG").Value, 1, ayu)
If Pencari.JumlanBaris > 0 Then
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DG_46109017.CurrentRow.Cells("KODEBARANG").Value = ""
If Latihan383940_46109017.ShowDialog = Windows.Forms.DialogResult.OK Then
DG_46109017.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("KODEBARANG").Value
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DG_46109017.Columns(e.ColumnIndex).Name = "UNIT" Or DG_46109017.Columns(e.ColumnIndex).Name = "HARGA" Then
DG_46109017.CurrentRow.Cells("JUMLAH").Value = DG_46109017.CurrentRow.Cells("UNIT").Value * DG_46109017.CurrentRow.Cells("HARGA").Value
End If
TOTALJUMLAH()
End Sub
Private Sub Button1_Button2()
If NT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu")
Exit Sub
End If
If JT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Jenis transaksi harus diisi dulu")
Exit Sub
End If
If DATA.Rows.Count() = 0 Then
MsgBox("Maaf, Proses tidak dapat dilanjutkan")
Exit Sub
End If
If StatusStrip1.Text <> NT_46109017.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109017.Text, 1, ayu)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109017.Text & "', #" & DT_46109017.Value.Month & "/" & DT_46109017.Value.Day & "/" & DT_46109017.Value.Year & "#, '" & JT_46109017.Text & "')", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
For Each X As DataRow In DATA.Rows
T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109017.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
Next
StatusStrip1.Text = "-"
NT_46109017.Text = ""
JT_46109017.Text = ""
DATA.Rows.Clear()
TOTALJUMLAH()
LATIHAN040A_46109017.ayuaa()
End Sub
Private Sub edit_46109017()
If NT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu nah !!!")
Exit Sub
End If
If JT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Jenis transaksi harus diisi dulu nah !!!")
Exit Sub
End If
If DATA.Rows.Count() = 0 Then
MsgBox("Maaf, Proses tidak dapat dilanjutkan gang....")
Exit Sub
End If
If StatusStrip1.Text <> NT_46109017.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109017.Text, 1, ayu)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109017.Text & "', #" & DT_46109017.Value.Month & "/" & DT_46109017.Value.Day & "/" & DT_46109017.Value.Year & "#, '" & JT_46109017.Text & "')", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
For Each XX As DataRow In DATA.Rows
T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109017.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
Next
StatusStrip1.Text = "-"
NT_46109017.Text = ""
JT_46109017.Text = ""
DATA.Rows.Clear()
TOTALJUMLAH()
LATIHAN040A_46109017.ayuaa()
End Sub
Private Sub save_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46109017.Click
If StatusStrip1.Text = "-" Then
Button1_Button2()
Else
edit_46109017()
End If
End Sub
End Class
LATIHAN040A_46109017
Dim ayu As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=putri")
Dim wandika As New DataTable
Dim wandika1 As New DataTable
Dim dset As New DataSet
Dim MMM1 As New BindingSource
Dim MMM2 As New BindingSource
Public Sub ayuaa()
wandika1.Rows.Clear()
wandika.Rows.Clear()
Dim B1 As New OleDb.OleDbDataAdapter
B1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", ayu)
B1.Fill(wandika)
B1 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", ayu)
B1.Fill(wandika1)
B1.Dispose()
End Sub
Private Sub LATIHAN040A_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ayuaa()
dset.Tables.Add(wandika)
dset.Tables.Add(wandika1)
wandika.TableName = "T01"
wandika1.TableName = "T02"
dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))
MMM1.DataSource = dset
MMM1.DataMember = "T01"
MMM2.DataSource = MMM1
MMM2.DataMember = "X"
DG1_46109017.DataSource = MMM1
DG2_46109017.DataSource = MMM2
End Sub
Private Sub EDIT_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46109017.Click
If LATIHAN040B_46109017.Visible = False Then
LATIHAN040B_46109017.Show()
Else
LATIHAN040B_46109017.Activate()
End If
LATIHAN040B_46109017.StatusStrip1.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.NT_46109017.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.JT_46109017.Text = DG1_46109017.CurrentRow.Cells("JENISTRANSAKSI").Value
LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()
End Sub
Private Sub TAMBAH_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46109017.Click
If LATIHAN040B_46109017.Visible = False Then
LATIHAN040B_46109017.Show()
Else
LATIHAN040B_46109017.Activate()
End If
LATIHAN040B_46109017.StatusStrip1.Text = "-"
LATIHAN040B_46109017.NT_46109017.Text = ""
LATIHAN040B_46109017.JT_46109017.Text = ""
LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()
End Sub
Private Sub HAPUS_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46109017.Click
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
ayuaa()
End Sub
End Class
LATIHAN039_46109017
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_039_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG WHERE NOTRANS = '" & NT46109017.Text & "'", conect)
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub DATA46109017_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DATA46109017.CellEndEdit
If DATA46109017.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
DATA46109017.CurrentRow.Cells("UNIT").Value = 0
DATA46109017.CurrentRow.Cells("HARGA").Value = 0
DATA46109017.CurrentRow.Cells("JUMLAH").Value = 0
utami.AturPencarianDataBase("barang", "kodebarang", DATA46109017.CurrentRow.Cells("KODEBARANG").Value, 1, conect)
If utami.JumlanBaris > 0 Then
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
If Latihan383940_46109017.ShowDialog = Windows.Forms.DialogResult.OK Then
DATA46109017.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("KODEBARANG").Value
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DATA46109017.Columns(e.ColumnIndex).Name = "UNIT" Or DATA46109017.Columns(e.ColumnIndex).Name = "HARGA" Then
DATA46109017.CurrentRow.Cells("JUMLAH").Value = DATA46109017.CurrentRow.Cells("UNIT").Value * DATA46109017.CurrentRow.Cells("HARGA").Value
mama()
End If
End Sub
Private Sub mama()
Dim mama1 As Integer = 0
For Each mama2 As DataRow In ayu.Rows
mama1 += mama2("JUMLAH")
Next
TOT46109017.Text = mama1
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksinya")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("Isi Jenis Transaksinya")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("notrans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
TOT46109017.Text = ""
ayu.Rows.Clear()
mama()
End Sub
End Class
Latihan038_46109017
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_38_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & NT46109017.Text & "'", conect)
ayu.Rows.Clear()
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub mama()
Dim mama1 As Integer = 0
For Each mama2 As DataRow In ayu.Rows
mama1 += mama2("JUMLAH")
Next
TOT46109017.Text = mama1
End Sub
Private Sub UN46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109017.TextChanged, HR46109017.TextChanged
JM46109017.Text = Val(UN46109017.Text) * Val(HR46109017.Text)
End Sub
Private Sub KB46109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB46109017.Leave
If KB46109017.Text.Length = 0 Then
Exit Sub
End If
utami.AturPencarianDataBase("barang", "kodebarang", KB46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
KB46109017.Text = utami.DataTablenya.Rows(0).Item("KODEBARANG")
NB46109017.Text = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang itu tidak ada..")
Exit Sub
End If
End Sub
Private Sub KB46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109017.TextChanged
NB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
End Sub
Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
If KB46109017.Text.Length = 0 Then
MsgBox("Isi Kode Barang")
Exit Sub
End If
If Val(UN46109017.Text) = 0 Then
MsgBox("Isi Unit Barang")
Exit Sub
End If
If Val(HR46109017.Text) = 0 Then
MsgBox("Isi Harga Barang")
Exit Sub
End If
Dim snsd As DataRow
snsd = ayu.Rows.Find(KB46109017.Text)
If snsd Is Nothing Then
snsd = ayu.NewRow
snsd("KODEBARANG") = KB46109017.Text
snsd("NAMABARANG") = NB46109017.Text
snsd("UNIT") = Val(UN46109017.Text)
snsd("HARGA") = Val(HR46109017.Text)
snsd("JUMLAH") = Val(JM46109017.Text)
ayu.Rows.Add(snsd)
KB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
mama()
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksi")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("isi Jenis Transaksi")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("No Trans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
ayu.Rows.Clear()
mama()
End Sub
End Class
Latihan37_46109017
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_37_017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & NT46109017.Text & "'", conect)
ayu.Rows.Clear()
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub ardin()
Dim ardin1 As Integer = 0
For Each ardin2 As DataRow In ayu.Rows
ardin1 += ardin2("JUMLAH")
Next
TOT46109017.Text = ardin1
End Sub
Private Sub UN46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109017.TextChanged, HR46109017.TextChanged
JM46109017.Text = Val(UN46109017.Text) * Val(HR46109017.Text)
End Sub
Private Sub KB46109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB46109017.Leave
If KB46109017.Text.Length = 0 Then
Exit Sub
End If
utami.AturPencarianDataBase("barang", "kodebarang", KB46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
KB46109017.Text = utami.DataTablenya.Rows(0).Item("KODEBARANG")
NB46109017.Text = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang itu tidak ada..")
Exit Sub
End If
End Sub
Private Sub KB46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109017.TextChanged
NB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
End Sub
Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
If KB46109017.Text.Length = 0 Then
MsgBox("Isi Kode Barang")
Exit Sub
End If
If Val(UN46109017.Text) = 0 Then
MsgBox("Isi Unit Barang")
Exit Sub
End If
If Val(HR46109017.Text) = 0 Then
MsgBox("Isi Harga Barang")
Exit Sub
End If
Dim mama As DataRow
mama = ayu.Rows.Find(KB46109017.Text)
If mama Is Nothing Then
mama = ayu.NewRow
mama("KODEBARANG") = KB46109017.Text
mama("NAMABARANG") = NB46109017.Text
mama("UNIT") = Val(UN46109017.Text)
mama("HARGA") = Val(HR46109017.Text)
mama("JUMLAH") = Val(JM46109017.Text)
ayu.Rows.Add(mama)
KB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
ardin()
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksi")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("isi Jenis Transaksi")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("No Trans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
ayu.Rows.Clear()
ardin()
End Sub
Private Sub NT46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT46109017.TextChanged
End Sub
End Class
Minggu, 20 November 2011
latihan 34C
Public Class LATIHAN034C46109017
'dekklarasi connection
Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=putri")
Dim browse As New ByIskandar.CariKeDataBaseByIskandar
Private Sub TAMBAH()
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If t146109017.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If t246109017.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
MsgBox("nama barang belum terisi")
Exit Sub
End If
If Val(t346109017.Text) = 0 Then 'untuk pencarian yg bersifat angka
MsgBox("harga jual belum diisi")
Exit Sub
End If
If Val(t446109017.Text) = 0 Then
MsgBox("JUMLAH BELUM TERISI")
Exit Sub
End If
browse.AturPencarianDataBase("barang", "kode barang", t146109017.Text, 1, CONECT)
If browse.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("update barang set kodebarang ='" & t146109017.Text & "',namabarang='" & t246109017.Text & "',hargajual=" & Val(t346109017.Text) & ", jumlahbarang=" & Val(t446109017.Text) & "where kodebarang='" & KB.Text & "'", CONECT)
CONECT.Open() 'jembatannya dibuka
com.ExecuteNonQuery() 'jalankan perintahnya
CONECT.Close() 'tutup jembatan
com.Dispose() 'hancurkan comand
t146109017.Text = ""
t246109017.Text = ""
t346109017.Text = ""
t446109017.Text = ""
LATIHAN033A46109017.wandika()
End Sub
Private Sub EDIT()
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If t146109017.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If t246109017.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
MsgBox("nama barang belum terisi")
Exit Sub
End If
If Val(t346109017.Text) = 0 Then 'untuk pencarian yg bersifat angka
MsgBox("harga jual belum diisi")
Exit Sub
End If
If Val(t446109017.Text) = 0 Then
MsgBox("JUMLAH BELUM TERISI")
Exit Sub
End If
If KB.Text <> t146109017.Text Then 'jika kode barang yg akan diganti dengan kode penggantinya tidak sama
browse.AturPencarianDataBase("barang", "kode barang", t146109017.Text, 1, CONECT)
If browse.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("update barang set kodebarang ='" & t146109017.Text & "',namabarang='" & t246109017.Text & "',hargajual=" & Val(t346109017.Text) & ", jumlahbarang=" & Val(t446109017.Text) & "where kodebarang='" & KB.Text & "'", CONECT)
CONECT.Open() 'jembatannya dibuka
com.ExecuteNonQuery() 'jalankan perintahnya
CONECT.Close() 'tutup jembatan
com.Dispose() 'hancurkan comand
t146109017.Text = ""
t246109017.Text = ""
t346109017.Text = ""
t446109017.Text = ""
KB.Text = "-"
LATIHAN033A46109017.wandika()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If KB.Text = "-" Then
TAMBAH()
Else
EDIT()
End If
End Sub
End Class
Jumat, 15 April 2011
lirik/lyric SNSD - MR.TAXI
Tokyo, Seoul, London, New York
気ままに世界を Drive tonight
各地で披露する New Style
見たことないモノだけ見せてあげる
ほら こちを見て少し警戒セヨ!
あの左ハンドルより何倍も I’m so fast
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
追いつけないスピードで
ねぇ、ついてこれるの?
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
ヒカリ輝く けど触れられないの
まさに Supersonic n’ Hypertonic
奪って欲しいの You take me 今すぐ
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
けど簡単にはいかないのよ
街の灯がまるで Shooting Star
次の目的地まで Non‐stop
エンジン音だけ残して
다시 보자 後ろ手で Say Good‐bye
ほら よそ見しないで冒険セヨ!
あの右ハンドルよりも確かよ I’m so sure
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
追いつけないスピードで
ねぇ、ついてこれるの?
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
ヒカリ輝く けど触れられないの
まさに Supersonic n’ Hypertonic
奪って欲しいの You take me 今すぐ
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
けど簡単にはいかないのよ
One, Two, Three, Here we go
どこへでも (anywhere) 自由自在よ (anywhere)
そう宇宙の (anywhere) 果てでさえも(anywhere)
願いどおりなのよ どうして不安なの?
And I don’t know why, and I don’t know why (don't know why)
ついてきてよね
I don’t wanna say good-bye (Good-bye) Good-bye (I don’t wanna say good-bye)
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
追いつけないスピードで
ねぇ、ついてこれるの?
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
ヒカリ輝く けど触れられないの
まさに Supersonic n’ Hypertonic
奪って欲しいの You take me 今すぐ
Mr. Taxi, Taxi, Taxi 相当 즉시 즉시 즉시
けど簡単にはいかないのよ
Translations
Tokyo, Seoul, London, New York
I drive freely through the world tonight.
I will reveal a new style everywhere,
I will show you things you have never seen before.
Hey, look over here and watch out!
Faster than those left-hand drive cars, I’m so fast.
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
I’m going at a speed that can’t be caught,
Hey, can you even follow me?
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
The light is shining, but I can't touch it,
It’s just supersonic n’ hypertonic.
I want you to take me away You take me right now,
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
But it’s not gonna happen easily.
The city lights are like shooting stars,
Non-stop until the next destination,
Leaving only the sound of the engine.
See you again, I say good-bye from behind.
Hey, don’t look away and take the risk!
More certain than those right-hand drive cars, I’m so sure.
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
I’m going at a speed that can’t be caught,
Hey, can you even follow me?
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
The light is shining, but I can't touch it,
It’s just supersonic n’ hypertonic.
I want you to take me away You take me right now,
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
But it’s not gonna happen easily.
One, Two, Three, Here we go
To go anywhere freely,
That’s right, even to the end of the universe.
It’s just as I wished, why am I so anxious?
And I don’t know why, and I don’t know why (don't know why)
You’ll follow me, right?
I don’t wanna say good-bye (Good-bye) Good-bye (I don’t wanna say good-bye)
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
I’m going at a speed that can’t be caught,
Hey, can you even follow me?
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
The light is shining, but I can't touch it,
It’s just supersonic n’ hypertonic.
I want you to take me away You take me right now,
Mr. Taxi Taxi Taxi Go very quickly quickly quickly,
But it’s not gonna happen easily.
Romanizations
Tokyo, Seoul, London, New York
kimama ni sekai wo Drive Tonight
kakuchi de hirou suru New Style
mita koto nai mono dake miseteageru
hora kochi wo mite sukoshi keikai seyo!
ano hidari handoru yori nanbai mo I’m so fast
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
oitsukenai supiido de
nee, tsuitekoreruno?
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
hikari kagayaku kedo furerarenai no
masa ni Supersonic n’ Hypertonic
ubatte hoshii no You take me ima sugu
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
kedo kantan ni wa ikanai no yo
machi no hi ga maru de Shooting Star
tsugi no mokutekichi made Non-stop
enjin on dake nokoshite
dashi boja ushirode de Say Good-bye
hora yosomi shinai de bouken seyo!
ano migi handoru yori mo tashika yo I’m so sure
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
oitsukenai supiido de
nee, tsuitekoreruno?
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
hikari kagayaku kedo furerarenai no
masa ni Supersonic n’ Hypertonic
ubatte hoshii no You take me ima sugu
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
kedo kantan ni wa ikanai no yo
One, Two, Three, Here we go
doko he de mo (anywhere) jiyuujizai yo (anywhere)
sou uchuu no (anywhere) hate de sae mo (anywhere)
negai doori na no yo doushite fuan na no?
And I don’t know why, and I don’t know why (don't know why)
tsuikite yo ne
I don’t wanna say good-bye (Good-bye) Good-bye (I don’t wanna say good-bye)
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
oitsukenai supiido de
nee, tsuitekoreruno?
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
hikari kagayaku kedo furerarenai no
masa ni Supersonic n’ Hypertonic
ubatte hoshii no You take me ima sugu
Mr Taxi, Taxi, Taxi, soutou jeuksi jeuksi jeuksi
kedo kantan ni wa ikanai no yo
CREDITS
Lyrics: STY
Translations: arghninja & kkabbekky@soshified.com/forums
Romanizations arghninja & kkabbekky@soshified.com/forums