Button Simpan

Koneksi.Close()
Try
Koneksi.Open()
SQLCommand.Connection = Koneksi
SQLCommand.CommandType = CommandType.Text
SQLCommand.CommandText = "INSERT INTO TUAS Values ('" & TextBox1.Text & "', " & _
" '" & TextBox2.Text & "', " & _
" '" & TextBox3.Text & "', " & _
" '" & TextBox4.Text & "')"
SQLCommand.ExecuteNonQuery()
MsgBox("Sukses Tersimpan", MsgBoxStyle.OkOnly, "Sukses")
Catch ex As Exception
MsgBox("Npm Yang telah anda masukan telah ada")
End Try
Koneksi.Close()
tampilList()

Button Hapus

Koneksi.Open()
Try
Cari = InputBox("Masukkan NPM yang mau dihapus")
SQLCommand.Connection = Koneksi
SQLCommand.CommandType = CommandType.Text
SQLCommand.CommandText = "DELETE * From TUAS WHERE Kd_Matkul='" & Cari & "'"
SQLCommand.ExecuteNonQuery()
MsgBox("Sukses Terhapus", MsgBoxStyle.OkOnly, "Hapus")

Catch ex As Exception
MsgBox("NPM yang anda masukkan tidak terdaftar", MsgBoxStyle.OkOnly, "Hapus")
End Try
Koneksi.Close()
tampilList()
End Sub
Sub tampilList()
Try
No = 1
ListView1.Items.Clear()
Koneksi.Close()
Koneksi.Open()
SQLCommand.Connection = Koneksi
SQLCommand.CommandType = CommandType.Text
SQLCommand.CommandText = "SELECT * From TUAS Order By Kd_Matkul "
SBaca = SQLCommand.ExecuteReader
While SBaca.Read
Dim IsiGrid As ListViewItem
IsiGrid = ListView1.Items.Add(No)
IsiGrid.SubItems.Add(SBaca("Kd_Matkul")).ToString()
IsiGrid.SubItems.Add(SBaca("Nm_Matkul")).ToString()
IsiGrid.SubItems.Add(SBaca("Smstr")).ToString()
IsiGrid.SubItems.Add(SBaca("SKS")).ToString()
No += 1
End While
Koneksi.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

Button Cari

button cari
Cari = InputBox("Masukkan NPM ")
Koneksi.Close()
Koneksi.Open()
SQLCommand.Connection = Koneksi
SQLCommand.CommandType = CommandType.Text
SQLCommand.CommandText = "SELECT * FROM TUAS where NPM ='" & Cari & "'"
SBaca = SQLCommand.ExecuteReader
SBaca.Read()
If SBaca.HasRows = True Then
MessageBox.Show("Data Ada ")
TextBox1.Text = Cari
TextBox2.Text = SBaca("Nm_Matkul")
TextBox3.Text = SBaca("Smstr")
TextBox4.Text = SBaca("SKS")
Else
MessageBox.Show("Data Tidak Ada ")
End If

Koneksi.Close()

Buat Artha: Circling Cursor Trail

Kalo kamu pengen bikin kursor dengan teks berputar kayak gini,
silahkan download file di bawah ini.
Copy script yang ada dalam file Script.txt, dan paste di konten gadget kamu.


http://www.4shared.com/file/mxITcwVy/Script-Circling-Cursor.html

Rebecca Black: Friday

So, this morning I watched a youtube video.
Rebecca Black Video

And u know what?
She's right and logical! And she's a good student.
Y'know, not everbody knows that before friday is thursday, and after friday is saturday!
(And afterward is sunday!!!)
She's good .... at making me piss off!
Better u watch her video, (and btw, it's selled on iTunes! ??)

Idk why she has to do that partyin' stuff in friday?
And why does she so excited to have a ball?
And .. she's compared to Justin Bieber,
I don't lyke justin bieber, and I don't hate him even.
But, why is Justin bieber being compared to that crap-face-rebecca?
And I don't expect to see her wax face in Madame Tussauds'.

Finally, I have to say, get a life, girl.
You can be better than this.
Just leave it to Justin Bieber.

10 hal tentang gw

Kemaren gw ama adek2 gw bikin semacam permainan dgn tujuan bwat intropeksi diri.
Jadi gw minta sodara gw buat nulis "10 hal yang menunjukkan siapa diri gw."
Dan ternyata mengerikan!!! Ahahaha :D
Tapi cukup menyenangkan juga.
Nah inilah 10 hal tentang gw dalam versi para kodok (adek2 gw):

Versi Ai-Da
Ini adek gw yang pertama.
Dy anaknya cukup tergila2 ama Lee Min Ho.

1. Mulutnya asli tajam (week?? emangnya piso?)
2. Sok Cool, tp kadang2 emang cool (haha, kekerenan gw emang gak disangsikan lagi)
3. UNPREDICTABLE (asal tw jha, ini maksudnya tingkat kerajinannya yang gak bs diprediksi)
4. Orangnya EGP-an (no komen)
5. Jutek + Cuek (ya, gw mengakui hal itu)
6. Kurang Bersemangat (akhir2 ini gw stres, bnyak masalah gw emang)
7. Kadang baik (ya ya ya .. cuma kadang2)
8. Pinter lah (Ohohoho :P)
9. Ehm, kurang mengambil kesempatan *tehe dy, udah banyak bakat, disia-siain aja ... haez .. [iri.com] (sori sori ...)
10. yang terakhir, berseni tinggi. (horeee!)

Versi Ba-Gonk:
Kalo yang ini adek gw yang kedua,
tergila-gila ama D'Masiv, Moni (boneka teddynya) ama kura2.

1. Suka melawan orang tua
2. Kadang2 pelit kadang gak
3. kalo gw pake barang lo. lo marah tapi rupanya lo sering ngambil barang gw (hahaha kok agak menyimpang ya?)
4. suka menjadi penguasa internet (??)
5. kreatif tapi hanya bwat kepentingan diri sendiri aja
6. suka menghambur2kan uang
7. rada-rada pemalas (bukan rada2 lagi kali, tp emang pemalas)
8. terkadang mulutnya tajam, menusuk hati dan jiwa
9. sering bersikap tidak adil
10. TERIMA KASIH (wadd??? hahaha .. habis bahan dy :
    

Versi Ku-Rap
Satu2nya anak cowok di keluarga gw, masih kelas 4 SD.
Kalo yang ini emang udah gila beneran.
Sebenernya gw males mo ceritaan apa yang dy tulis,
tp karena ini anak adek gw juga, ya udahlah ...

1. Suka ***** (sensor ya, soalnya humiliation banget!)
2. suka menggambar
3. suka baca komik
4. kreatif
5. baik
6. suka main piano
7. sukak (dy tulis 'sukak' bukan suka) diketawain bapak (haaaa??? jgn tanya gw, gw aja gak ngerti)
8. suka baca novel
9. suka nonton tv
10. jutek (what the hell! bahkan anak umur 10 tahun bilang gw jutek???)

Nah, ternyata seperti inilah gw di mata mereka. =.='

H2O, Hwang Sook Ji

Awalnya ngebaca ne komik, asli boring banget. Kok kesannya malah kayak komik gak mutu, tapi ternyata ne komik asli lawak, simple tapi bisa lawak juga. Buat yang kepengen baca komik buat santai-santai dan sekedar ngisi waktu luang, memang komik korea yg paling bagus. Kalo komik Jepang cenderung complicated, baik alur maupun gambar.

H2O ini bercerita tentang cewek SMA namanya Myeong Ah yang sering dijadiin jongos temen sekelasnya. Dan akhirnya cewek geek ini nemuin dirinya yang sebenarnya saat dah ketemu ma Lee Hana, model asal jepang yang datang ke korea buat melarikan diri karena dihamili cowok di agency model yang sama, dan dia bersikeras untuk tetap melahirkan anaknya. Kemudian masalahnya jadi ribet, berkait-kait ke Myeong Ah, lalu Ie-Chan dan beberapa tokoh lainnya seperti cowok gila pecinta game: Hong Soo yang gak bisa percaya kalo idolanya Hanako(Lee hana) bisa jadi murid sekolahnya, karena selama ini dia hanya bisa melihat gambat hanako dalam pakaian renang di komputer di kamarnya. Lalu juga berkaitan ke guru perawat di sekolah mereka yang juga pecinta game dan gamer-pro freak.

Suka bener deh sama komik ini, apalagi ada Choi Tek Gang, preman sekolah yang gak lulus-lulus dan jarang masuk sekolah, suka sama Myeong Ah yang cupu. Dan usahanya untuk mendapatkan Myeong Ah yaitu dengan cara berpakaian selayaknya murid, datang sekolah, sampai memakai kacamata rampasan supaya kelihatan pintar. Hahaha. . . Ya udah deh baca aja sendiri.