WAZZUB.. Program Ladang Uang Gratisan

WAZZUB PENTING….!!!! SEKEDAR INFO… WAZZUB ITU APA SIH....???? 6 Langkah Memahami WAZZUB I - Kamu pasti tahu perusahaan seperti Google atau Yahoo! Namun Kamu pasti tidak tahu berapa banyak pendapatan yang mereka peroleh. Berikut adalah jawabannya: Mereka mendapatkan miliaran dollar setiap tahunnya (Google mendapat $ 29.000.000.000 HANYA pada tahun 2010) itu berkat KITA yang menggunakan layanan mereka. Google menawarkan banyak layanan. Tapi 95% dari pendapatannya ($ 27.550.000.000) berasal dari hanya SATU layanan saja: mesin pencari milik mereka yang terkenal, Google Search. Setiap user yang menggunakan Google Search membuat Google mendapatkan sekitar 1$/hari. Bayangkan jika Kamu bisa mendapatkan hanya 0.001% dari penghasilan Google Search: $275.000/Tahun (sekitar $23.000/bulan). Masalahnya adalah: Kamu tidak akan mendapatkannya karena Google menyimpan SEMUA penghasilannya untuk dirinya sendiri. II - Wazzub, "Revolusi Pengguna" Pada tahun 2007, seseorang berpikir: "Kami, para pengguna membuat mereka mendapatkan miliaran dan kami tidak mendapatkan satu sen-pun". Maka Lahirlah WAZZUB. Wazzub adalah mesin pencari, seperti Google, yang akan memberikan Kamu uang untuk merujuk orang ikut bergabung menjadi Membernya. Kamu akan mendapatkan $ 1/bulan, SEUMUR HIDUP, untuk setiap user yang bergabung dengan Wazzub menggunakan link referral Kamu. Dan Kamu juga mendapatkan $ 1/bulan, SEUMUR HIDUP, setiap kali seseorang bergabung dengan kelompok Kamu (misalnya: Kamu akan mendapatkan $ 1 jika teman Kamu mengundang seseorang untuk bergabung, tetapi Kamu juga akan mendapatkan $1 jika teman dari teman Kamu itu mengajak seseorang untuk ikut bergabung juga, dst ..). Kamu dapat mencoba kalkulator mereka untuk melihat bagaimana hal itu dapat dengan mudah untuk mendapatkan $4000/bulan tanpa usaha apapun. Kamu hanya perlu mengajak 5orang untuk melakukan hal yang sama dalam 5 tingkatan. Hal ini dapat dilakukan dengan cepat & mudah hanya dengan memberitahu teman-teman Kamu dan dengan mem-posting di forum di Internet seperti yang saya lakukan saat ini. $4000/bulan, SEUMUR HIDUP, hanya untuk memberitahu teman Kamu untuk bergabung sebuah website. Kedengarannya luar biasa, bukan? Dan itu kenyataan.

III- Mengapa Wazzub membayar begitu banyak untuk penggunanya? Kamu mungkin bertanya-tanya mengapa Wazzub membayar Kamu untuk mengajak orang untuk bergabung. Sebenarnya, jawabannya cukup sederhana: semakin banyak pengunjung yang mereka dapatkan, semakin banyak mereka dibayar. Ingat, Google mendapat $1 per pengguna PER HARI. Wazzub akan membayar Kamu $1 per pengguna PER BULAN. Jadi masih menguntungkan untuk Wazzub. IV - Ambil keputusan Kamu. Kamu harus mengambil keputusan dengan sangat cepat: bergabung sekarang, mulai memberitahu teman-teman Kamu dan dapatkan $50, $1000, $4000 atau bahkan lebih per bulan selama seluruh hidup Kamu. Atau menunggu dan melihat apakah WAZZUB itu benar-benar legit. Tapi hati-hati: Wazzub tidak akan membagi hasil pendapatannya untuk anggota yang bergabung setelah April, 9, 2012. Sebenarnya, mereka menganggap bahwa setelah 3 bulan ini mereka akan memiliki cukup anggota dan mereka tidak harus membayar untuk mendapatkan lagi anggotanya secara lebih dan lebih. Jadi bergabung SEKARANG, GRATIS, dan ajaklah orang-orang yang lebih banyak sebelum April, 9 2012. Setelah itu, akan terlambat. Kamu memiliki 3 bulan untuk mengubah hidup Kamu. V - Tidak ada lagi yang perlu dikatakan, saatnya untuk mendaftar dan Kamu tidak akan membayar apa-apa untuk mendaftar. Benar-benar GRATIS. Hanya perlu klik di sini http://signup.wazzub.info/?lrRef=9d0ff masukkan email & data-data Kamu, klik tombol "Join" dan …. hanya Itu saja. Kemudian, Kamu akan segera menerima email dengan informasi penting dan link referral Kamu. VI - Beritahu semua orang tentang Wazzub dan hal penting untuk diingat adalah: semakin cepat Kamu untuk mem-posting di forum, memberitahu teman-teman Kamu, dll .. orang-orang akan mendaftar dengan link referral KAMU.

NB: 1. Batas pendaftaran sampai 9 April 2012. 2. Untuk lebih mempermudah, copy aja informasi ini, ganti link referal (warna biru) dengan link referal yang Kamu peroleh setelah sign up/join. 3. Ga rugi koq sekedar mencoba, hidup kan serba tidak pasti. http://signup.wazzub.info/?lrRef=9d0ff atau daftar langsung disini SELAMAT MENCOBA..... .

Read More

CARA MEMBUAT BLOG

Untuk share za Gan, bagi yang belum punya Blog dan minat menjadi seorang Blogger... Walaupun ane jaga masih Newbe n belajar..hihihi mudah-mudahan bisa membantu...

Apa itu Blog ? Kita ulas dulu sedikit Gan …

Blog merupakan singkatan dari "web log" adalah bentuk aplikasi web yang menyerupai tulisan-tulisan (yang dimuat sebagai posting) pada sebuah halaman web umum. Tulisan-tulisan ini seringkali dimuat dalam urut terbalik (isi terbaru dahulu baru kemudian diikuti isi yang lebih lama), meskipun tidak selamanya demikian. Situs web seperti ini biasanya dapat diakses oleh semua pengguna Internet sesuai dengan topik dan tujuan dari si pengguna blog tersebut.

Sejarah Media blog pertama kali dipopulerkan oleh Blogger.com, yang dimiliki oleh PyraLab sebelum akhirnya PyraLab diakuisi oleh Google.Com pada akhir tahun 2002 yang lalu. Semenjak itu, banyak terdapat aplikasi-aplikasi yang bersifat sumber terbuka yang diperuntukkan kepada perkembangan para penulis blog tersebut. Blog mempunyai fungsi yang sangat beragam,dari sebuah catatan harian, media publikasi dalam sebuah kampanye politik, sampai dengan program-program media dan perusahaan-perusahaan. Sebagian blog dipelihara oleh seorang penulis tunggal, sementara sebagian lainnya oleh beberapa penulis, . Banyak juga weblog yang memiliki fasilitas interaksi dengan para pengunjungnya, seperti menggunakan buku tamu dan kolom komentar yang dapat memperkenankan para pengunjungnya untuk meninggalkan komentar atas isi dari tulisan yang dipublikasikan, namun demikian ada juga yang yang sebaliknya atau yang bersifat non-interaktif.

Situs-situs web yang saling berkaitan berkat weblog, atau secara total merupakan kumpulan weblog sering disebut sebagai blogosphere. Bilamana sebuah kumpulan gelombang aktivitas, informasi dan opini yang sangat besar berulang kali muncul untuk beberapa subyek atau sangat kontroversial terjadi dalam blogosphere, maka hal itu sering disebut sebagai blogstorm atau badai blog. Komunitas Blogger Komunitas blogger adalah sebuah ikatan yang terbentuk dari [para blogger] berdasarkan kesamaan-kesamaan tertentu, seperti kesamaan asal daerah, kesamaan kampus, kesamaan hobi, dan sebagainya. Para blogger yang tergabung dalam komunitas-komunitas blogger tersebut biasanya sering mengadakan kegiatan-kegiatan bersama-sama seperti kopi darat. Untuk bisa bergabung di komunitas blogger, biasanya ada semacam syarat atau aturan yang harus dipenuhi untuk bisa masuk di komunitas tersebut, misalkan berasal dari daerah tertentu. Jenis-jenis blog • Blog politik: Tentang berita, politik, aktivis, dan semua persoalan berbasis blog (Seperti kampanye). • Blog pribadi: Disebut juga buku harian online yang berisikan tentang pengalaman keseharian seseorang, keluhan, puisi atau syair, gagasan jahat, dan perbincangan teman. • Blog bertopik: Blog yang membahas tentang sesuatu, dan fokus pada bahasan tertentu. • Blog kesehatan: Lebih spesifik tentang kesehatan. Blog kesehatan kebanyakan berisi tentang keluhan pasien, berita kesehatan terbaru, keterangan-ketarangan tentang kesehatan, dll. • Blog sastra: Lebih dikenal sebagai litblog (Literary blog). • Blog perjalanan: Fokus pada bahasan cerita perjalanan yang menceritakan keterangan-keterangan tentang perjalanan/traveling. • Blog riset: Persoalan tentang akademis seperti berita riset terbaru. • Blog hukum: Persoalan tentang hukum atau urusan hukum; disebut juga dengan blawgs (Blog Laws). • Blog media: Berfokus pada bahasan kebohongan atau ketidakkonsistensi media massa; biasanya hanya untuk koran atau jaringan televisi • Blog agama: Membahas tentang agama • Blog pendidikan: Biasanya ditulis oleh pelajar atau guru. • Blog kebersamaan: Topik lebih spesifik ditulis oleh kelompok tertentu. • Blog petunjuk (directory): Berisi ratusan link halaman website. • Blog bisnis: Digunakan oleh pegawai atau wirausahawan untuk kegiatan promosi bisnis mereka • Blog pengejawantahan: Fokus tentang objek diluar manusia; seperti anjing • Blog pengganggu (spam): Digunakan untuk promosi bisnis affiliate; juga dikenal sebagai splogs (Spam Blog) Budaya populer Ngeblog (istilah bahasa Indonesia untuk blogging) harus dilakukan hampir setiap waktu untuk mengetahui eksistensi dari pemilik blog. Juga untuk mengetahui sejauh mana blog dirawat (mengganti template) atau menambah artikel. Sekarang ada lebih 10 juta blog yang bisa ditemukan di Internet.[rujukan?] Dan masih bisa berkembang lagi, karena saat ini ada banyak sekali software, tool, dan aplikasi Internet lain yang mempermudah para blogger (sebutan pemilik blog) untuk merawat blognya.selain merawat dan terus melakukan pembaharuan di blognya, para blogger yang tergolong baru pun masih sering melakukan blogwalking, yaitu aktivitas dimana para blogger meninggalkan link di blog atau situs orang lain seraya memberikan komentar. Beberapa blogger kini bahkan telah menjadikan blognya sebagai sumber pemasukan utama melalui program periklanan AdSense, posting berbayar, jualan link, afiliasi dan lain-lain. Sehingga kemudian muncullah istilah profesional blogger, atau problogger, orang yang menggantungkan hidupnya hanya dari aktivitas ngeblog.[rujukan?] karena memang faktanya banyak chanel-chanel pendapatan dana baik berupa dolar maupun rupiah dari aktivitas ngeblog ini. Resiko kejahatan Karena blog sering digunakan untuk menulis aktivitas sehari-hari yang terjadi pada penulisnya, ataupun merefleksikan pandangan-pandangan penulisnya tentang berbagai macam topik yang terjadi dan untuk berbagi informasi - blog menjadi sumber informasi bagi para hacker, pencuri identitas, mata-mata, dan lain sebagainya. Banyak berkas-berkas rahasia dan penulisan isu sensitif ditemukan dalam blog-blog. Hal ini berakibat dipecatnya seseorang dari pekerjaannya, diblokir aksesnya, didenda, dan bahkan ditangkap. Cukup dulu Basa - Basinya... Sekarang saatnya membuat Blognya Gan..!?! CheckidoZzz… Langsung ke Tekape Gan… KLIK DISINI Mari kita mulai...

Langkah1. Silahkan langsung Click sesuai Gambar diatas Gan… Akan muncul Gambar seperti berikut :

Lengkapi Pendaftaran Agan2 Setelah Agan klik tanda panah besar yang bertuliskan CIPTAKAN BLOG AGAN, maka akan muncul formulir seperti yang ada pada gambar dibawah ini. Proses ini akan menciptakan account Google yang dapat Agan gunakan pada layanan Google lainnya. Jika Agan sudah memiliki sebuah account Google mungkin dari Gmail, Google Groups, atau Orkut. Satu account Google bisa digunakan untuk mengakses semua fasilitas yang disediakan oleh Google. Jika Agan sudah memiliki accout google, Agan bisa langsung login (masuk). Untuk login ke Google, Agan harus login dengan menggunakan alamat email. Silahkan lengkapi. 1. Alamat email yang Agan masukan harus sudah ada sebelumnya. Agan akan dikirim konfirmasi ke email tersebut. Jika Agan menggunakan email palsu atau email yang baru rencana akan dibuat, maka pendaftaran bisa gagal. Agan tidak perlu menggunakan email gmail.com. Email apa saja bisa. 2. Lengkapi data yang lainnya. 3. Tandai “Saya menerima Persyaratan dan Layanan” sebagai bukti bahwa Agan setuju. BTW Agan sudah membacanya? Setelah lengkap, klik tanda panah yang bertuliskan lanjutkan.

Langkah 3: Membuat Blog Memilih Nama Blog dan URL Blog Jika Agan berhasil, Agan akan dibawa ke halaman seperti pada gambar dibawah. Jika gagal? Gagal biasanya karena verifikasi kata Agan salah. Itu wajar karena sering kali verifikasi kata sulit dibaca. Yang sabar saja, ulangi sampai benar. Saya sendiri sampai mengulang 3X. Setelah Agan berhasil mendaftar, Agan akan dibawa ke halaman seperti yang ada pada gambar dibawah. Sekarang Agan mulai membuat blog dengan mengisi nama dan alamat blog Agan. Sebagai contoh, saya menamakan blog tersebut dengan nama Hasna Zahidah. Sssst, jangan curiga, Hasna adalah putri saya. Saya memilih alamat blog dengan alamat http://www.gcoz.blogspot.com sebagai alaternatif, bisa juga http://indrayusuf.blogspot.com. Jika Agan membuat lensa dengan tujuan mempromosikan produk Agan atau produk afiliasi, maka dalam memilih nama, harus berisi nama produk atau jasa yang akan Agan tawarkan. Misalnya jika Agan ingin menjual ebook saya, Agan bisa memilih kata kunci seperti motivasi, sukses, berpikir positif, dan kata-kata kunci lainnya yang sesuai. Agan juga bisa meneliti kata kunci yang paling banyak dicari orang (tentu harus berhubungan dengan produk yang Agan jual) di https://adwords.google.com/select/KeywordToolExternal Agan bisa mengecek ketersediaan alamat blog yang Agan pilih. Jika tersedia bisa Agan lanjutkan. Jika tidak tersedia, maka Agan harus kreatif mencari nama lain atau memodifikasi alamat yang sudah ada, misalnya ditambahkan abc, xzy, 101, dan bisa juga dengan menyisipkan nama Agan. Lanjutkan dengan klik tanda panah bertuliskan LANJUTKAN.

Langkah ke 4 Blog Template Pilih desain yang sesuai dengan selera Agan. Berhasil? Tentu saja berhasil, memang mudah koq. Jika berhasil, Agan akan diarahkan ke halaman seperti yang ada pada gambar dibawah. Pilihlah tema yang sesuai dengan selera Agan. Jika tidak ada yang sesui dengan selera Agan, jangan khawatir, nanti masih banyak pilihan tema yang bisa Agan install sendiri. Sekarang pilih saja tema agar proses pembuatan blog bisa diselesaikan. Agan bisa preview tema dengan klik gambarnya. Untuk Memilih tema Anda klik (tandai) bulatannya o seperti pada gambar dibawah. Lihat yang saya tunjuk dengan panah merah buatan saya. Setelah itu Agan klik tanda panah yang bertuliskan LANJUTKAN

Setelah itu akan tampil gbr berikut :

Finish Gan... Hasilnya akan Seperti ini :

Belajar Membuat Blog Selesai Sekarang tinggal posting, pengaturan, dan tata letak Selamat, sekarang Agan2 sudah memiliki sebuah blog. Sekarang Agan sudah mulai bisa memposting pemikiran Agan di blog dan berbagi ke seluruh dunia. Sample Blog Berandanya Gan :

gimana? mudah bukan cara membuatnya.. Selamat Mencoba... Mari kita Budayakan Blogger..haha.... siapa tau jadi Jutawan nanti,lewat adSense gara2 Blog Gan.. Amiien .

Read More

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Read More

Form Login VB.Net

MEMBUAT LOGIN VB.Net
Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form

• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "indrayusuf" And PasswordTextBox.Text = "dicoba" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “indrayusuf” dan password “dicoba”

• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……


.

Read More

TAMPILAN MENU (MDI Farent Form)

MEMBUAT MDI PARENT FORM ( TAMPILAN MENU ) VB.NET
• Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini

• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.

• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut

• Jika sudah tampil seperti diatas maka form MDI Parent Form telah selesai
• Selamat mencoba……


.

Read More

CRISTAL REPORT DALAM VB.NET

LANGKAH DALAM MEMBUAT CRISTAL REPORT DALAM VB.NET

Untuk membuat cristal report langkah2nya sebagai berikut :

• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut :

• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

• Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next

• Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish

• Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next

• Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next

• Kemudian next

• Klik next lagi

• Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish

• Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”

• Maka hasil akan tampil seperti ini :

• Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”

• Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :

Terima kasih…
Selamat Mencoba……………..


.

Read More

Program5. Vb.Net (Latihan Materi)

Dalam membuat program kita biasa menggunakan database.
Sebagai koneksi kita menggunakan module yang dibuat untuk mengkoneksikan dengan database

Sintaxnya sebagai berikut :

Imports System.Data
Imports System.Data.Sql
Module koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End
End Try
End Sub
End Module

Tampilan formnya sebagai berikut :

Kemudian membuat sintaxnya sebagai berikut :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call bukakoneksi()

End Sub
Sub Jurusan()
Call bukakoneksi()
Tampil2.Connection = database
Tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil2.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Jurusan()

End Sub
End Class

Kemudian buat tampilan form ke-2 sebagai berikut :

dan sintaxnya sebagai berikut :

Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
If Button2.Text = "Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set nmjur='" & TextBox2.Text & "'where kdjur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where kdjur='" & Trim(TextBox1.Text)&"'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapuskelompok()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kdjur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

End Class

jangan lupa dibuat database terlebih dahulu dengan menggunakan SQL Server 2000.
untuk data yang kita ambil nantinya..

demikian program yang kita buat kali ini...
dilanjutkan nanti ke program cristal report di pertemuan selanjutnya
untuk pembuatan laporannya...

selamat mencoba...


.

Read More