VB.Net

UAS - WindowsForm

Buat Database di SQL Server

create database buku

use buku

CREATE TABLE buku (NoBuku  varchar(10) PRIMARY KEY not null, Judul varchar(200), Pengarang varchar(50), Penerbit varchar(50), ISBN varchar(50), CetakanKe varchar(5), Ringkasan text )

insert into buku values

('00001', 'Pengantar Ilmu Statistik I', 'Drs. Ilham Rasyad', 'Gita Madya', '1234567', '1', 'Statistik Dasar, Probabilitas, dll'),

('00002', 'Pengantar Kalkulus I', 'Drs. Hidayat', 'Madya Daya', '42523', '1', 'Perhitungan')

Di VB.Net:

Create New Project dengan nama sesukanya pilih Windows Form Application.

Buat Form seperti di bawah ini:

Isi View Code-nya dengan :

Imports System.Data.SqlClient

Public Class Form1

    Sub Kosongkan()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        TextBox9.Clear()

        TextBox10.Clear()

    End Sub

    Sub DataBaru()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        TextBox9.Clear()

        TextBox10.Clear()

        TextBox2.Focus()

    End Sub

    Sub Ketemu()

        On Error Resume Next

        TextBox2.Text = DR.Item("Judul")

        TextBox3.Text = DR.Item("Pengarang")

        TextBox4.Text = DR.Item("Penerbit")

        TextBox2.Focus()

    End Sub

    Sub KondisiAwal()

        BtnTambah.Enabled = True

        BtnCari.Enabled = True

        BtnKeluar.Enabled = True

        BTNSimpan.Enabled = False

        BTNEdit.Enabled = False

        BTNHapus.Enabled = False

        BTNBatal.Enabled = False

        BTNTambah.Focus()

        TextBox1.Enabled = False

        TextBox2.Enabled = False

        TextBox3.Enabled = False

        TextBox4.Enabled = False

        TextBox5.Enabled = False

        TextBox6.Enabled = False

        TextBox7.Enabled = False

        TextBox8.Enabled = True

        TextBox9.Enabled = True

        TextBox10.Enabled = True

    End Sub

    Sub KondisiSimpan()

        BTNTambah.Enabled = False

        BtnCari.Enabled = False

        BtnSimpan.Enabled = True

        BTNEdit.Enabled = False

        BTNHapus.Enabled = False

        BTNBatal.Enabled = True

        BtnKeluar.Enabled = False

        TextBox2.Enabled = True

        TextBox3.Enabled = True

        TextBox4.Enabled = True

        TextBox5.Enabled = True

        TextBox6.Enabled = True

        TextBox7.Enabled = True

        TextBox2.Focus()

    End Sub

    Sub KondisiEdiHapus()

        BTNTambah.Enabled = False

        BtnCari.Enabled = False

        BtnSimpan.Enabled = False

        BTNEdit.Enabled = True

        BTNHapus.Enabled = True

        BTNBatal.Enabled = True

        BtnKeluar.Enabled = False

        TextBox1.Enabled = False

        TextBox2.Enabled = True

        TextBox3.Enabled = True

        TextBox4.Enabled = True

        TextBox5.Enabled = True

        TextBox6.Enabled = True

        TextBox7.Enabled = True

        TextBox8.Enabled = False

        TextBox9.Enabled = False

        TextBox10.Enabled = False

        TextBox2.Focus()

    End Sub

    Sub TampilGrid()

        Call Koneksi()

        DA = New SqlDataAdapter("SELECT * FROM Buku", CONN)

        DS = New DataSet

        DA.Fill(DS)

        DGV.DataSource = DS.Tables(0)

        DGV.ReadOnly = True

    End Sub

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

        Call Koneksi()

        Call Kosongkan()

        Call TampilGrid()

        Call KondisiAwal()

        BtnTambah.Focus()

    End Sub

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

        TextBox1.MaxLength = 10

        If e.KeyChar = Chr(13) Then

            Call Koneksi()

            CMD = New SqlCommand("SELECT * FROM Buku WHERE NoBuku='" & TextBox1.Text & "'", CONN)

            DR = CMD.ExecuteReader

            DR.Read()

            If Not DR.HasRows Then

                Call DataBaru()

                Call KondisiSimpan()

            Else

                Call Ketemu()

                Call KondisiEdiHapus()

            End If

        End If

    End Sub

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

        If e.KeyChar = Chr(13) Then TextBox3.Focus()

    End Sub

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

        If e.KeyChar = Chr(13) Then TextBox4.Focus()

    End Sub

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

        If e.KeyChar = Chr(13) Then TextBox5.Focus()

    End Sub

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

        If e.KeyChar = Chr(13) Then TextBox6.Focus()

    End Sub

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

        If e.KeyChar = Chr(13) Then TextBox7.Focus()

    End Sub

    Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click

        BtnTambah.Enabled = False

        BtnCari.Enabled = False

        BtnBatal.Enabled = True

        TextBox8.Enabled = False

        TextBox9.Enabled = False

        TextBox10.Enabled = False

        TextBox1.Enabled = True

        TextBox1.Focus()

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox4.Text = "" Or TextBox7.Text = "" Then

            MsgBox("Data Belum lengkap")

            Exit Sub

        Else

            Call Koneksi()

            CMD = New SqlCommand("INSERT INTO Buku VALUES ('"& TextBox1.Text & "','"& TextBox2.Text & "','"& TextBox3.Text & "','"& TextBox4.Text & "','"& TextBox5.Text & "','"& TextBox6.Text & "','"& TextBox7.Text & "')", CONN)

            CMD.ExecuteNonQuery()

            Call Kosongkan()

            Call TampilGrid()

            Call KondisiAwal()

        End If

    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then

            MsgBox("Data Belum lengkap")

            Exit Sub

        Else

            Call Koneksi()

            CMD = New SqlCommand("UPDATE Buku SET Judul='"& TextBox2.Text & "',Pengarang='"& TextBox3.Text & "',Penerbit='"& TextBox4.Text & "',ISBN='"& TextBox5.Text & "',CetakanKe='"& TextBox6.Text & "',Ringkasan='"& TextBox7.Text & "' WHERE NoBuku='" & TextBox1.Text & "'", CONN)

            CMD.ExecuteNonQuery()

            Call Kosongkan()

            Call TampilGrid()

            Call KondisiAwal()

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        If MessageBox.Show("Yakin akan dihapus...", "Peratian", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

            Call Koneksi()

            CMD = New SqlCommand("DELETE FROM Buku WHERE NoBuku='" & TextBox1.Text & "'", CONN)

            CMD.ExecuteNonQuery()

            Call Kosongkan()

            Call TampilGrid()

            Call KondisiAwal()

        Else

            Call Kosongkan()

            Call KondisiAwal()

        End If

    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click

        Call Kosongkan()

        Call KondisiAwal()

    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 DGV_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGV.CellMouseClick

        On Error Resume Next

        TextBox1.Text = DGV.Rows(e.RowIndex).Cells(0).Value

        TextBox2.Text = DGV.Rows(e.RowIndex).Cells(1).Value

        TextBox3.Text = DGV.Rows(e.RowIndex).Cells(2).Value

        TextBox4.Text = DGV.Rows(e.RowIndex).Cells(3).Value

        TextBox5.Text = DGV.Rows(e.RowIndex).Cells(4).Value

        TextBox6.Text = DGV.Rows(e.RowIndex).Cells(5).Value

        TextBox7.Text = DGV.Rows(e.RowIndex).Cells(6).Value

        Call KondisiEdiHapus()

    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click

        If TextBox8.Text = "" And TextBox9.Text = "" And TextBox10.Text = "" Then

            MsgBox("Data Belum lengkap")

            Exit Sub

        Else

            Call Koneksi()

            DA = New SqlDataAdapter("SELECT * FROM Buku WHERE Judul like '%" & TextBox8.Text & "%' AND Pengarang like '%" & TextBox9.Text & "%' AND Penerbit like '%" &TextBox10.Text & "%'", CONN)

            DS = New DataSet

            DA.Fill(DS)

            DGV.DataSource = DS.Tables(0)

        End If

    End Sub

End Class

Add Module seperti di bawah ini untuk mengambil database yang sudah kita buat di SQL-Server :

Imports System.Data.SqlClient

Module Module1

    Public CONN As SqlConnection

    Public DA As SqlDataAdapter

    Public DS As New DataSet

    Public CMD As SqlCommand

    Public DR As SqlDataReader

    Public STR As String

    Sub Koneksi()

        STR = "data source=YourSQLServer;initial catalog=buku;integrated security =true"

        CONN = New SqlConnection(STR)

        If CONN.State = ConnectionState.Closed Then

            CONN.Open()

        End If

    End Sub

End Module