operasi database .net

Private Sub tambahData()

        If ButtonInput.Text = "Input" Then

            ButtonInput.Text = "Simpan"

            Call gunaText(True)

            Call bersih()

            ButtonCari.Enabled = False

            ButtonEdit.Enabled = False

            ButtonHapus.Enabled = False

            ButtonExit.Enabled = False

            ButtonBatal.Enabled = True

        Else

            If TextBoxKodePetugas.Text = "" Or TextBoxNamaPetugas.Text = "" _

            Or TextBoxAlamat.Text = "" Then

                MsgBox("Data Tidak Boleh Kosong")

                Exit Sub

            End If

            Call cekrecord()

            Try

                If hasilcek = "False" Then

                    Call Konek()

                    Tampil.Connection = Database

                    Tampil.CommandType = CommandType.Text

                    Tampil.CommandText = "insert into petugas values('" & TextBoxKodePetugas.Text & "','" & TextBoxNamaPetugas.Text & "','" & TextBoxAlamat.Text & "')"

                    Tampil.ExecuteNonQuery()

                    Call bersih()

                    Call tutupKoneksi()

                    MsgBox("penambahan sukses")

                Else

                    MsgBox("Data sudah ada, silahkan cek data yang diinput", MsgBoxStyle.Critical, "Input Data")

                    Call bersih()

                    TextBoxKodePetugas.Focus()

                End If

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------------

    Sub cekrecord()

        Call Konek()

        Tampil.Connection = Database

        Tampil.CommandType = CommandType.Text

        Tampil.CommandText = "select * from petugas where kdpetugas='" & Trim(TextBoxKodePetugas.Text) & "'"

        Tampilkan = Tampil.ExecuteReader

        If Tampilkan.HasRows = True Then

            hasilcek = True

        Else

            hasilcek = False

        End If

        Call tutupKoneksi()

    End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------------

    Sub penghapusan()

        If ButtonHapus.Text = "Hapus" Then

            ButtonHapus.Enabled = False

            ButtonInput.Enabled = False

            ButtonEdit.Enabled = False

            ButtonExit.Enabled = False

            ButtonBatal.Enabled = True

            MsgBox("Lakukan pencarian data yang ingin dihapus terlebih dahulu")

            TextBoxKodePetugas.Enabled = True

            Call bersih()

        Else

            If TextBoxKodePetugas.Text = "" Or TextBoxNamaPetugas.Text = "" _

            Or TextBoxAlamat.Text = "" Then

                MsgBox("Data Tidak Boleh Kosong")

                Exit Sub

            End If

            Try

                Call Konek()

                Tampil.Connection = Database

                Tampil.CommandType = CommandType.Text

                Tampil.CommandText = "delete from petugas where kdpetugas='" & Trim(TextBoxKodePetugas.Text) & "'"

                Tampil.ExecuteNonQuery()

                Call bersih()

                MsgBox("Data Telah Dihapus")

                MsgBox("jika masih ingin melakukan penghapusan lakukan kembali pencarian")

                ButtonHapus.Enabled = False

                Call gunaText(False)

                TextBoxKodePetugas.Enabled = True

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------------

Sub pencarian()

        Call Konek()

        Tampil.Connection = Database

        Tampil.CommandType = CommandType.Text

        Tampil.CommandText = "select * from petugas where kdpetugas='" & Trim(TextBoxKodePetugas.Text) & "'"

        Tampilkan = Tampil.ExecuteReader

        If Tampilkan.HasRows = True Then

            While Tampilkan.Read()

                If IsDBNull(Tampilkan("kdpetugas")) Then

                    TextBoxKodePetugas.Focus()

                Else

                    TextBoxNamaPetugas.Text = Tampilkan("nama")

                    TextBoxAlamat.Text = Tampilkan("alamat")

                End If

            End While

        Else

            MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Peringatan")

        End If

    End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------------

    Sub perubahan()

        If ButtonEdit.Text = "Edit" Then

            ButtonHapus.Enabled = False

            ButtonInput.Enabled = False

            ButtonEdit.Enabled = False

            ButtonExit.Enabled = False

            MsgBox("Lakukan pencarian data yang ingin diubah terlebih dahulu")

            TextBoxKodePetugas.Enabled = True

            ButtonBatal.Enabled = True

            Call bersih()

        Else

            If TextBoxKodePetugas.Text = "" Or TextBoxNamaPetugas.Text = "" _

            Or TextBoxAlamat.Text = "" Then

                MsgBox("Data Tidak Boleh Kosong")

                Call gunaText(False)

                ButtonHapus.Enabled = False

                ButtonInput.Enabled = False

                ButtonEdit.Enabled = False

                ButtonExit.Enabled = False

                MsgBox("Lakukan pencarian data yang ingin diubah terlebih dahulu")

                TextBoxKodePetugas.Enabled = True

                Exit Sub

            End If

            Try

                Call Konek()

                Tampil.Connection = Database

                Tampil.CommandType = CommandType.Text

                Tampil.CommandText = "update petugas set nama ='" & Trim(TextBoxNamaPetugas.Text) & "',alamat = '" & Trim(TextBoxAlamat.Text) & "' where kdpetugas='" & Trim(TextBoxKodePetugas.Text) & "'"

                Tampil.ExecuteNonQuery()

                Call bersih()

                ButtonEdit.Enabled = False

                MsgBox("jika masih ingin melakukan perubahan lakukan kembali pencarian")

                Call gunaText(False)

                TextBoxKodePetugas.Enabled = True

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------------

Imports System.Data

Imports System.Data.Sql

Module koneksi

    Public Database As New OleDb.OleDbConnection

    Public Tampil As New OleDb.OleDbCommand

    Public Tampilkan As OleDb.OleDbDataReader

    Public Grid As New OleDb.OleDbDataAdapter

    Public Ds As New DataSet

    Public Tabel, hasilcek As String

    Public record As New BindingSource

    Public noo As Integer

    Public DMLSql As New OleDb.OleDbCommand

    Public Sub Konek()

        Try

            Database.Close()

            Database.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tugas;Data Source=."

            Database.Open()

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

    Public Sub tutupKoneksi()

        Database.Close()

    End Sub

End Module

Rangkuman Pertemuan 5 (Belajar menggunakan module)

modul adalah suatu baris program yang dapat digunakan di semua bagian project. Jadi baris program yang ada di module dapat digunakan di semua bagian project. Modul juga dapat digunakan untuk mendeklarasikan variabel public.
contoh :
buat sebuah modul lalu ketikkan baris program berikut :

Setan atau Malaikat

sumber :

http://suaramalaikatmu.blogspot.com/2010/01/setan-atau-malaikat.html

Setan atau Malaikat?

Mahluk yang paling menakjubkan adalah manusia, karena dia bisa memilih untuk menjadi “setan atau malaikat”. –John Scheffer-

 

Dari pinggir kaca nako, di antara celah kain gorden, saya melihat lelaki itu mondar-mandir di depan rumah. Matanya berkali-kali melihat ke rumah saya. Tangannya yang dimasukkan ke saku celana, sesekali mengelap keringat di keningnya.

Dada saya berdebar menyaksikannya. Apa maksud remaja yang bisa jadi umurnya tak jauh dengan anak sulung saya yang baru kelas 2 SMU itu? Melihat tingkah lakunya yang gelisah, tidakkah dia punya maksud buruk dengan keluarga saya? Mau merampok? Bukankah sekarang ini orang merampok tidak lagi mengenal waktu? Siang hari saat orang-orang lalu-lalang pun penodong bisa beraksi, seperti yang banyak diberitakan koran. Atau dia punya masalah dengan Yudi, anak saya?

Perbedaan Persepsi

sumber :
http://styagreennotes.blogspot.com/2010/07/perbedaan-persepsi.html

Ada seorang ayah yang menjelang ajalnya di hadapan sang Istri berpesan DUA hal kepada 2 anak laki-lakinya :

Pertama : Jangan pernah menagih hutang kepada orang yg berhutang kepadamu.

Kedua : Jika pergi ke toko jangan sampai mukanya terkena sinar matahari.


Waktu berjalan terus. Dan kenyataan terjadi, bahwa beberapa tahun setelah ayahnya meninggal anak yang sulung bertambah kaya sedang yang bungsu menjadi semakin miskin.

Nasrudin Hoja Bersembunyi

Suatu malam seorang pencuri memasuki rumah Nasrudin. Kabetulan Nasrudin sedang melihatnya. Karena ia sedang sendirian aja, Nasrudin cepat-cepat bersembunyi di dalam peti. Sementara itu pencuri memulai aksi menggerayangi rumah. Sekian lama kemudian, pencuri belum menemukan sesuatu yang berharga. Akhirnya ia membuka peti besar, dan memergoki Nasrudin yang bersembunyi.

"Aha!" kata si pencuri, "Apa yang sedang kau lakukan di sini, ha?"

"Aku malu, karena aku tidak memiliki apa-apa yang bisa kau ambil. Itulah sebabnya aku bersembunyi di sini."

Einstein VS Mr.Bean

SUATU KALI EINSTEIN DAN MR.BEAN SECARA KEBETULAN DUDUK BERDAMPINGAN DI SEBUAH PENERBANGAN YANG PANJANG. Untuk mengusir jenuh selama penerbangan, Einstein

Tugas Puzzle VB.Net

Membuat puzzle menggunakan VB.Net

1.      Buat form seperti berikut :

 

Pertemuan 4

Pada pertemuan 4 kali ini adalah membuat form seperti berikut :

kode yang diberikan sebagai berikut :


Public Class Form2

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        For a = 1 To Val(TextBox1.Text)
            ListBox1.Items.Add("*" + a.ToString)
            ListBox1.Items.Add(a + 1)
            If a Mod 4 <> 0 Then
                ListBox2.Items.Add(a)
            End If
            If a Mod 3 = 2 Then
                ListBox3.Items.Add(a)
            End If
        Next
    End Sub
End Class

Rangkuman Pertemuan 3

Menambahkan item ke combo box dari text box
ada beberapa cara yang bisa dilakukan. namun cara yang umum adalah seperti berikut :

Public Class Form1

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

Tugas Pertemuan II VB.Net (Belajar Menggunakan Object)

-         Penggunaan Object

Object yang terdapat pada VB.Net hampir sama dengan object-object pada bahasa pemprograman yang lain. Seperti yang telah dibahas pada tugas yang lalu, ada banyak object yang dapat digunakan. Hal yang penting adalah guna dari object-object tersebut.

Pada Object Oriented Programming, penggunaan object berkisar pada properties dan event dari object tersebut. Jadi pemahaman user pada object menjadi penting dalam Object Oriented Programming. Karena untuk membuat suatu program yang bagus dalam OOP, selain butuh logika dan algoritma yang baik, user juga perlu memahami object-object yang ada.

-         Penggunaan Properties