Public Class latihan3536109061
Dim L As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim DT As New DataTable
Private Sub Latihan3536109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & notra.Text & "'", L)
X.Fill(DT)
X.Dispose()
data061.DataSource = DT
End Sub
Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
'a'
If kobar.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If Val(unit.Text) = 0 Then
MsgBox("Masukkan Harga barang")
Exit Sub
End If
If Val(habar.Text) = 0 Then
MsgBox("Masukkan jumlah barang")
Exit Sub
End If
'b'
Dim dr As DataRow
dr = DT.NewRow
dr("KODEBARANG") = kobar.Text
dr("UNIT") = unit.Text
dr("HARGA") = habar.Text
DT.Rows.Add(dr)
'c'
kobar.Text = ""
unit.Text = ""
habar.Text = ""
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
'a'
If notra.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jetra.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If DT.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NO.Text, 1, L)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim LM As New OleDb.OleDbCommand
LM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & notra.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jetra.Text & "')", L)
L.Open()
LM.ExecuteNonQuery()
L.Close()
'e'
For Each X As DataRow In DT.Rows
LM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & notra.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", L)
L.Open()
LM.ExecuteNonQuery()
L.Close()
LM.Dispose()
Next
'f'
notra.Text = ""
jetra.Text = ""
'g'
DT.Rows.Clear()
End Sub
Kamis, 01 Desember 2011
Selasa, 15 November 2011
1. Cowok Jaim:
“Plz dunk jangan bikin malu gue, masa nangis sih!”
2. Cowok Gak Sabaran:
“Hari gene masih nangis, plzzz dech!!?”
3. Cowok Sensitif:
“Ikutan nangis ah… hiks..hiks…”
4. Cowok Ahli Hipnotis:
“Saya hitung 1,2,3… dihitungan ketiga anda melupakan semuanya… lupakan semuanya… lupakan… OK!
5. Cowok Kritis:
“Ada apaan sih? siapa? kenapa? dimana? kemana? Kok bisa sih? ya udah… ambil positifnya ajalah”
6. Cowok Pasrah:
“Terserah Lo deh!!!”
7. Cowok Cuek:
“Biarin aja, paling ntar diam sendiri”
8. Cowok Naif:
“Aku beliin gulali sama balon warna-warni ya?”
9. Cowok Gomse:
dipeluk dan dikecup seluruh muka (pelan2 gitu deh), Sambil berkata “if I could share ur pain .. I would”
10. Cowok Analis:
“kenapa kamu menangis?
Apakah kamu menangis bahagia atau sedih?
Jika bahagia, apa yang menyebabkan kamu bahagia?
Jika sedih, apa yang menyebabkan kamu sedih? Sejak kapan kamu menangis?
Kalo kita proyeksikan ke depan, apakah kamu akan terus menangis?”
11. Cowok Idaman:
“Menangislah sepuasnya dipundakku (sambil tangannya melingkar melindungi si cewe, kadang meraba juga)”
12. Cowok Tajir :
“Gue beliin Mobil, Handphone…ya”
13. Cowok Romantis:
“Bacain Puisi mau?, dinyanyiin lagu NINA BOBO ya?”
14. Cowok Horny:
“Dibaringin ditempat tidur de el el”
15. Cowok Bete:
“Dipeluk sambil dibisikin `kita putus aja ya` abisnya kamu cengeng banget sih, say…
16. Cowok Narsis:
“Sibuk ngambil foto diri sendiri pake HP terbaru”
17. Cowok Dermawan:
“Ngeluarin recehan sembari bilang May God Bless You…”
18. Cowok Kere:
“Sory nih yang, aku ga bisa beliin tissue.”
19. Cowok Santri:
“Astagfirullah…. tabahkan hatimu….”
20. Cowok Tulalit:
“Kamu nangis dapet bonus apa ditinggal mati sih? Hiiii… kamu bisa juga nangis yah?”
21. Cowok Matre:
“Cewe kere Lo… nangis mulu nyusahin gue doank!”
22. Cowok Kejam:
“Hehehehe… ini belum seberapa sayang… nanti aku bisa bikin kamu tambah sengsara sampe meraung-raung… lebih parah lagi… mau nangis lagi?!!!”
23. Cowok Ilmiah :
“Wah… hebat ya, ternyata honey tau juga bahwa menangis itu sehat buat bersihin mata ”
24. Cowok Kebapakan:
“sini sama oom… cupcup jangan nangis lagi yah.. (sambil ngusap2 rambut) ”
25. Cowok Puitis:
” ur tears are my tears… aer matamu bagaikan sungaii bengawannn swolooooo…”
26. Cowok Ilmuwan :
” Sayang, air matanya kumpulin pake tissu sebanyak mungkin trus di timbang volumenya untuk mengukur berapa kemampuan manusia mengeluarkan air mata dalam 1X menangis”
27. Cowok Bego :
“sayang kok mata mu kluar aer??”
28. Cowok Autis :
(malah nggak notice kalo cewenya nangis!!)
Langganan:
Postingan (Atom)