Hujan pergi, kabut asap kembali tutupi Riau

Misdalisa@blogger.comSatelit Terra dan Aqua BMKG mencatat secara keseluruhan ada 90 titik panas di Sumatera, yang terbanyak ada di Sumatera Selatan dengan 65 titik panas

ASAP. Presiden Joko Widodo menginspeksi kanal air yang digunakan untuk mencegah kebakaran di Rimbo Panjang, Kampar, Riau, 9 Oktober 2015. Foto oleh Rony Muharrman/EPA 

PEKANBARU, Indonesia — Kabut asap di Riau sempat menghilang setelah hujan turun pada Jumat, 9 Oktober. Namun Senin, 12 Oktober, provinsi ini kembali dikepung kabut asap.

Menurut Kepala Badan Meteorologi, Klimatologi dan Geofisika (BMKG) Stasiun Pekanbaru Sugarin, kabut asap menutupi Riau sehingga membatasi jarak pandang antara 500 meter sampai satu kilometer. Ketika hujan turun tiga hari lalu, jarak pandang sempat membaik sampai dengan tujuh kilometer.

"Di Riau ada delapan titik panas yang tersebar di Kepulauan Meranti dan Pelalawan masing-masing tiga titik, dan Bengkalis dua titik," kata Sugarin.

Satelit Terra dan Aqua BMKG mencatat secara keseluruhan ada 90 titik panas di Sumatera, yang terbanyak ada di Sumatera Selatan dengan 65 titik panas.

Berdasarkan data Satgas Darurat Asap Riau, ada kebakaran cukup besar di daerah Koto Gasib, Siak.

“Tim juga terus berkoordinasi dengan tim Satgas Darat yang berada di masing-masing wilayah untuk melaksanakan pengecekan secara langsung ke lokasi untuk memverifikasi keberadaan titik api tersebut,” kata Komandan Satgas Udara Riau Marsma Henri Alfiandi.

Menurutnya ada tim yang masih bekerja melakukan water bombing terus menerus menggunakan tiga helikopter sewaan. Selain helikopter juga ada pesawat Cassa-212 yang melakukan modifikasi cuaca untuk memancing hujan.

Persiapkan Masa Depanmu Mulai Dari Sekarang

Ini hanya sekedar pencerahan buat anda yang menyandang predikat sebagai pemuda dan pemudi bangsa Indonesia.

Melihat generasi muda saat ini begitu miris rasanya, hanya mementingkan pergaulan, pacaran semata namun tidak mendahulukan yang namanya Belajar.

Sepertinya anda harus mencontoh generasi pemuda jaman nya tahun 1928. Disaat apakah itu? "Sumpah Pemuda" yang terjadi pada tahun 1928. Mengapa?

Disaat tahun 1928, sewaktu itu belum merdeka namun para generasi muda dari seluruh pulau Indonesia mendeklarasikan dirinya untuk berbahasa satu yaitu Bahasa Indonesia.

Wahh bisa anda pikirkan pada saat ini begitu banyak suku suku yang berkumpul dan ikut serta menyepakati sumpah pemuda, padahal mereka dari jawa, batak, china, sunda, manado, bali, maluku, irian dan banyak lagi dari kepulauan Indonesia. Padahal anda tahu tahun 1928 itu Indonesia belum merdeka.

Apa artinya?

Pemuda pemuda tersebut mempersiapkan diri mereka untuk menyambut kemerdekaan Indonesia malalui satu bahasa, padahal 1945 lho merdekanya, kelang 17 tahun kemudian, namun persiapan masa depan mereka sudah di mulai di tahun 1928.

Melalui satu bahasa yaitu Indonesia pemuda Indonesia bisa menyatukan tekatnya dan mulai mempersiapkan diri mereka untuk masa depannya,yaitu kemerdekaan Indonesia.

Nah ambil kesimpulan dari carita ini. Kapankah kalian harus persiapkan masa depanmu? Apakah di pintu WISUDA? atau Setelah menerima IJAZAH? ataukah saat ini?

Silahkan anda jawab sendiri. :)

Salam sukses

Mesran.net

Tag : persiapkan masa depanmu, persiapan masa depan

Cara Untuk Meningkatkan Pengunjung Websit

Siapa sih yang tidak mau melihat pengunjung website/blog yang dia miliki dikunjungi oleh ribuan pengunjung setiap harinya.

Tentu saja banyak yang mau kan. Nah di sini saya memberikan cara untuk meningkatkan pengunjung website yang mungkin dikatakan tips agar website/blog yang anda punya di kunjungi oleh ribuan pengunjung.

Terdapat beberapa cara untuk meningkatkan pengunjung website yang saya temukan di beberapa sumber, yang secara tidak langsung juga sering saya lakukan, yaitu :

1. Sering melakukan update berita berkala.

Nah cara ini sangat baik untuk memperbanyak isi dari website kita. Dengan ini maka website kita tidak selalu monoton itu itu saja.

2. Disaat menulis berita/postingan, cobalah belajar untuk membuat isi artikel dengan kata kata kunci yang biasa di buru pada index searching google, misalnya anda menulis tentang foto artis bugil, tentunya kata kunci ini merupakan yang diminati oleh pencari di index google, walaupun sebenarnya artikel anda tidak ada gambar bugilnya

3. Masukkan website/blog anda ke index google bisa di google.co.id/addurl karna dengan fasilitas ini website/blog anda akan berada di perbendaharaan google.com

4. Selalu melakukan promosi tentang blog anda bisa melalui chatingan, bergabung di forum forum, media sosial seperti facebook, google+, twitter dan lain lain.

5. Lakukan pertukaran link saat anda berkunjung ke suatu blog.

6. Rajin rajin say hello atau memberikan komentar di blog/forum

7. Berkerja sama dengan SEO walaupun bisa mengeluarkan biaya. :) hehehe

Mungkin ini saja cara meningkatkan kunjungan website yang saya berikan agar blog/website yang anda miliki bisa di padati oleh pengunjung. Mudah mudahan artikel cara untuk meningkatkan pengunjung website ini bisa bermanfaat buat pembaca.

Terima kasih atas waktunya.

Anda berada di halaman Cara Untuk Meningkatkan Pengunjung Website, dan telah membaca artikel Cara Untuk Meningkatkan Pengunjung Website. Artikel Cara Untuk Meningkatkan Pengunjung Website bisa anda peroleh pada halaman http://www.mesran.net/berita-306-cara-untuk-meningkatkan-pengunjung-website.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Cara Untuk Meningkatkan Pengunjung Website sebagai sumbernya 

Tips Belajar Bahasa Pemrograman Web

Pemrograman web merupakan salah satu bahasa yang digemari oleh beberapa pemula yang baru belajar bahasa pemrograman web. Digemari pemula dikarenakan pengaksesannya bisa dilakukan oleh orang banyak, menggunakan internet, sehingga membuat para pemula yang ingin mengekspresikan dirinya agar dikenal oleh orang banyak.

Dan lagi sebagai tempat berbagi. Namun banyak para pemula saat belajar bahasa pemrograman web, merasa sangat sulit dalam mengimplementasikan perintah perintah, baik  yang sudah berbau php, padahal seperti kita ketahui perintah php berguna untuk membuat suatu website yang dinamis.

Nah berikut akan saya berikan tips belajar bahasa pemrograman web agar lebih cepat bisa dan mahir.

1. Gunakan salah satu software yang biasa digunakan dalam mendesain web, yaitu dreamweaver

2. Belajarlah CSS yang sederhana dahulu yang mendesain warna, tulisan ataupun backgroundnya, sehingga mudah untuk diterapkan.

3. Belajar Database yang sederhana, misalnya pembuatan buku tamu

4. Cari hosting/domain yang gratis, untuk menguji bagaimana hasil dari website yang dirancang, karna hal ini juga untuk belajar menggunakan cpanel.

5. Jangan pernah letih untuk mencintainya, artinya lakukan secara terus menerus untuk melihat hasil perubahan website yang dibuat, jika bisa setiap hari selalu saja ada perubahan dari website tersebut(inilah kunci sukses belajar bahasa pemrograman ).

6. Belajarlah CSS untuk memanipulasi gambar, sehingga tampilan website menjadi lebih ok.

7. Mahirkan perintah perintah php untuk mengakses database, karna 80 persen akan menggunakan perintah tersebut.

Demikianlah tips tips belajar bahasa pemrograman web, yakinlah bahwa belajar bahasa pemrograman web ini hanya membutuhkan waktu 8 bulan saja, jika anda meluangkan waktu anda secara periodik, minimal 2 jam saja di setiap hari, saya yakin anda akan mendapatkan sesuatu yang berbeda dari web yang anda rancang.

  http://www.mesran.net/berita-590-tips-belajar-bahasa-pemrograman-web.html .

6 Tips Membeli Komputer Baru

Saat ini komputer sudah menjadi suatu kebutuhan utama, sehingga kita selalu tertarik untuk mengganti komputer ataupun laptop yang kita miliki dengan yang baru.

Berikut 6 tips beli komputer baru (Willy Handrajudo-Marketing Organization Lead Microsoft Indonesia), yaitu :
http://mesran.net/berita-646-6-tips-membeli-komputer-baru.html

Jawaban Quis

Menu Utama
 

   

Public Class Menu

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

    End Sub

    Private Sub KaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    End Sub

    Private Sub BagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BagianToolStripMenuItem.Click

        Formproduk.MdiParent = Me

        Formproduk.Show()

    End Sub

    Private Sub JabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JabatanToolStripMenuItem.Click

        Formsiswa.MdiParent = Me

        Formsiswa.Show()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        End

    End Sub

End Class

        Listening program Form Kendaraan

Imports System.Data.OleDb

Public Class Form1

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        nobk.Text = ""

        pemilik.Text = ""

        alamat.Text = ""

        tahun.Text = ""

        warna.Text = ""

        norangkamesin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM kendaraan", DB)

        DS = New DataSet

        ADP.Fill(DS, "kendaraan")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO kendaraan(nobk, pemilik, alamat, tahun, warna, norangkamesin)" & _

                        " VALUES ('" & nobk.Text & "','" & _

                                       pemilik.Text & "','" & _

                                       alamat.Text & "','" & _

                                       tahun.Text & "','" & _

                                       warna.Text & "','" & _

                                        norangkamesin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM kendaraan Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub nobk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nobk.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from kendaraan where nobk='" & nobk.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                pemilik.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                tahun.Text = DR.Item(3)

                warna.Text = DR.Item(4)

                norangkamesin.Text = DR.Item(5)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = nobk.Text

                Call HapusText()

                nobk.Text = xkode

                Call ButtonSimpan()

            End If

            pemilik.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE kendaraan SET pemilik='" & pemilik.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",tahun='" & tahun.Text & "' " & _

                                ",warna='" & warna.Text & "' " & _

                                ",norangkamesin='" & norangkamesin.Text & "' " & _

                                "Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

     Listening program Form Produk

Imports System.Data.OleDb

Public Class Formproduk

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        kode.Text = ""

        nama.Text = ""

        satuan.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM produk", DB)

        DS = New DataSet

        ADP.Fill(DS, "produk")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO produk(kodeproduk, namaproduk, satuan, harga, jumlah)" & _

                        " VALUES ('" & kode.Text & "','" & _

                                       nama.Text & "','" & _

                                       satuan.Text & "','" & _

                                       harga.Text & "','" & _

                                        jumlah.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where kodeproduk='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from produk where kodeproduk='" & kode.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                nama.Text = DR.Item(1)

                satuan.Text = DR.Item(2)

                harga.Text = DR.Item(3)

                jumlah.Text = DR.Item(4)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = kode.Text

                Call HapusText()

                kode.Text = xkode

                Call ButtonSimpan()

            End If

            nama.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE produk SET nama='" & nama.Text & "' " & _

                                ",satuan='" & satuan.Text & "' " & _

                                ",harga='" & harga.Text & "' " & _

                                ",jumlah='" & jumlah.Text & "' " & _

                                "Where kode='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

   Listening program Form Siswa

Imports System.Data.OleDb

Public Class Formsiswa

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        NIS.Text = ""

        namasiswa.Text = ""

        alamat.Text = ""

        namawali.Text = ""

        tanggallahir.Text = ""

        agama.Text = ""

        jeniskelamin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM siswa", DB)

        DS = New DataSet

        ADP.Fill(DS, "siswa")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO siswa(NIS, namasiswa, alamat, namawali, tanggallahir, agama, jeniskelamin)" & _

                        " VALUES ('" & NIS.Text & "','" & _

                                       namasiswa.Text & "','" & _

                                       alamat.Text & "','" & _

                                       namawali.Text & "','" & _

                                       tanggallahir.Text & "','" & _

                                       agama.Text & "','" & _

                                        jeniskelamin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub NIS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NIS.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from siswa where NIS='" & NIS.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                namasiswa.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                namawali.Text = DR.Item(3)

                tanggallahir.Text = DR.Item(4)

                agama.Text = DR.Item(5)

                jeniskelamin.Text = DR.Item(6)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = NIS.Text

                Call HapusText()

                NIS.Text = xkode

                Call ButtonSimpan()

            End If

            namasiswa.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE siswa SET namasiswa='" & namasiswa.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",namawali='" & namawali.Text & "' " & _

                                ",tanggallahir='" & tanggallahir.Text & "' " & _

                                ",agama='" & agama.Text & "' " & _

                                ",jeniskelamin='" & jeniskelamin.Text & "' " & _

                                "Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class