Membuat Navigasi Mengontrol Database lewat VB2010

Membuat Navigasi Next, Previous, Move Last, Move First

New, Delete, Update, Save, Filter, dan Find

Pada VB2010 dengan Database dari Microsoft SQL Server 2005

                Kali ini “Blogger” akan membahas mengenai Koneksi Database Microsoft SQL Server ke dalam VB2010, dan juga membuat Navigasi – Navigasi yang bisa merubah data Pada Database SQL Server 2005. Pertama-tama, Kita membuat dahulu Database menggunakan Microsoft SQL Server 2005 (Penulis tidak menjelaskan cara penginstallan SQL Server dan membuat Database SQL Server, jika ingin ditanyakan tolong beri komentar...).

Buat project baru, beri nama project sesuai keinginan. Lalu buatlah connection VB dengan SQL Server dengan cara sebagai berikut::

Pertama, pilih Menu “Data” >> “Add New Data Source”. Lalu akan muncul “Tab Wizard” seperti beikut::

Pilih “Database” >> Next, lalu Pilih “Dataset” >> Next. Lalu pilih “New Connection”

 

Lalu Pilih dengan ketentuan sebagai berikut ::

Setelah itu, buatlah form seperti berikut ::

 

Untuk Cara memberi NIM, Nama, dll, dan Table, pertama caranya hanya tinggal drag & Drop, seperti berikut::

Lalu, untuk Coding Navigasi seperti berikut ::

1. Melihat awal Record

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

        Me.TbmhsBindingSource.MoveFirst()

    End Sub

2. Melihat Sebelum Record

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sebelumnya.Click

        Me.TbmhsBindingSource.MovePrevious()

    End Sub

3. Melihat Sesudah Record

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

        Me.TbmhsBindingSource.MoveNext()

    End Sub

4. Melihat Akhir Record

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Akhir.Click

        Me.TbmhsBindingSource.MoveLast()

    End Sub

5. Menambah Record

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click

        Me.TbmhsBindingSource.AddNew()

    End Sub

6. Menghapus Record

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Me.TbmhsBindingSource.RemoveCurrent()

    End Sub

7. Menyimpan Record

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        Me.Validate()

        Me.TbmhsBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmhsDataSet)

    End Sub

8. Mencari Record

Dim str As String = "Data Source=.;uid=sa;pwd=123;database=master"

        Dim con As New SqlConnection(str)

        Dim cmd As New SqlCommand("select * from logn where username like '%" + TextBox1.Text + "%'", con)

        Dim Adpt As New SqlDataAdapter(cmd)

        Dim ds As New DataSet()

        If (Adpt.Fill(ds, "logn")) Then

            DataGridView1.DataSource = ds.Tables(0)

            MessageBox.Show("match found")

        Else

            MessageBox.Show("match not found")

        End If

    End Sub

Sekian, umumnya coding coneksi sudah otomatis terbentuk oleh VB2010. Jadi tidak usah khawatir.

TUGAS PEMPROGRAMAN VISUAL 8

TUGAS PEMPROGRAMAN VISUAL 8
1.Tugas Pertama
-Buat program dengan tampilan ini.

-Masukan kode berikut.

Public Class Form1
    Private Function fstat(ByVal ParamArray args() As Object) As Single()
        Dim hasil(3) As Single
        Dim i As Integer
        For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)
            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
            End If
            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)
        Next i
        Return hasil
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub
End Class

-Setelah program berjalan.

Penjelasan : 

Ketentuannya, jika kita mengklik tombol button1 akan muncul total, terbesar dan terkecil. Nilai-nilai tersebut mengambil dari array fstat.
Private Function fstat(ByVal ParamArray args() As Object) As Single()

Disitu ada fungsi fstat dengan menggunakan paramater ByVal ParramArray, yang artinya dia melewatkan secara nilai dan berupa array yang bisa menampung banyak elemen.  Nama parameternya yaitu args() dan bertipe data object sedang fstat nya single.
Dim hasil(3) As Single
Dim i As Integer

       Diatas adalah pendeklarasian variabel secara lokal, variabel hasil(3) artinya dia menampung 3 elemen yaitu hasil(0), hasil(1) dan hasil(2).

For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)

Fungsi for diatas yaitu untuk melakukan perulangan sebanyak Ubonds(args), artinya sebanyak batas atas array args yang tidak lain array args sama dengan array fstat dan melakukan perintah seperti diatas

            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
            End If

dia akan melakukan perintah tersebut jika i = 0, dan perintah tersebut hanya dilakukan satu kali saja yaitu pada saat pertama.

            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)
        Next
        Return hasil

Jika hasil(1) > args(i), args(i) elemen dari array fstat maka nilai hasil(1) diganti args(i), dan jika hasil(2) < args(i) maka nilai hasil(2) diganti dengan args(i) yang tadi. Sebagai contoh, hasil (1) sebelumnya nilainya 1, berarti dia memnuhi syarat yang pertama yaitu 1  < dari 6 (args(i)) lalu nilai 1 diganti 6, begitupun seterusnya, jadi melihat kondisinya. Dan hasil(2) yang nilainya 1 tidak memenuhi syarat yang kedua jadi hasil(2) nilainya tetap 1. Disitu ada fungsi return, yang artinya dia kan mengembalikan nilai. Jadi si pemanggil meminta ke fungsi tersebut dan langsung mengembalikan ke pemanggil yaitu hasil.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub
End Class

Perintah diatas yaitu memanggil fungsi fstat, dimana ia disamakan dengan variabel statistika. Dan sekaligus, elemen array pada fstat diisi.
Textbox1 yang tidak lain adalah total, dia akan menampilkan jumlah keseluruhan elemen array fstat, textbox1 akan menampilkan nilai terbesar dari elemen array fstat dan textbox2 akan menampilkan nilai terkecil dari elemen array fstat.
 
2. Tugas 2
 -buat tampilan seperti ini.

-Masukan kode ini. 

Public Class Form1
   
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
    End Sub
End Class

-Tampilan program setelah berjalan. 

Penjelasan : 

 Jadi ada 2 buah fungsi dengan nama yang sama yaitu hitung, tapi berbeda jumlah parameternya. Hitung yang pertama berjumlah 2 parameter sedang hitung ke2 ada 3 parameter
Contoh
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
    End Function

ByVal bil1 As Integer itu sama saja dengan bil1. Begitupun dengan bil2.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
    End Sub
End Class

Button1 memanggil fungsi hitung, dan dia memilih hitung yang ke2 karna jumlah elemennya tiga, dan bisa diibaratkan 1 sama dengan bil1 yang mana bil1 sama dengan ByVal bil1 As Integer, 2 sama dengan bil2 yang mana bil2 sama dengan ByVal bil2 As Integer, 3 sama dengan bil3 yang mana bil3 sama dengan ByVal bil2 As Integer. Jadi ia memmilih sub yang hampir mendekati si pemanggil.
Jadi hasil akhirnya yaitu 6, karna ia menjumlahkan 1+2+3.

3. Tugas 3

a.       MsgBox() Function
Untuk menampilkan suatu pesan baik itu dengan cara mengklik suatu tombol atau suatu perintah dari suatu ekspresi.
b.      The InputBox() Function
Untuk menampilkan pesan dimana user bisa memasukkan suatu teks atau nilai kedalam form.
c.       The Mid Function
Untuk mengambil teks dari suatu kata yang berada di tengah.
d.      The Right Function
Untuk mengambil teks dari suatu kata dari kanan.
e.      The Left Function
Untuk mengambil teks dari suatu kata dari kiri.
f.        The Trim Function
Untuk mengatur space kosong pada kedua sisi dari suatu kata.
g.       The Ltrim Function
Untuk menghapus space kosong pada bagian kiri suatu teks.
h.      The Rtrim Function
Untuk menghapus space kosong pada bagian kanan suatu teks.
i.         The lnStr Function
Untuk mengetahui panjang suatu string.
j.        The Ucase and The Lcase Function
The Ucase function berfungsi mengubah semua karakter menjadi huruf kapital semua, dan sebaliknya dengan Lcase, yaitu mengubah semua karakter menjadi huruf kecil semua.
k.       The Chr and The Asc Functions
The Chr berfungsi mengubah ASCII Code ke string dan sebaliknya dengan The Asc, yaitu mengubah  Karakter atau string atau simbol ke ASCII Code.
l.         The Abs Function
Mengembalikan nilai absolut dari suatu angka yang diberikan.
m.    The Exp Function
Eksponensi (pangkat) nilai.
n.      The Fix Function
Untuk membulatkan suatu bilangan desimal.
o.      The Int Function
Mengubah suatu angka ke integer atau sama saja dengan the fix function.
p.      The Log Function
Untuk mendapatkan nilai algoritma dari suatu angka.
q.      The Rnd() Function
Untuk mengacak suatu perintah.
r.        The Round Function
Untuk mengatur tempat nilai desimal yang kita inginkan.
s.       The Format Function
Untuk memformat fungsi dimana ia menampilkan nilai angka. Style argumentnya bermacam-macam yaitu general number, fixed, standard, currency, percent)
t.        Predefined Formats of date and time
Untuk mengatur tanggal dan waktu.
 

Tugas 5

Membuat Aplikasi MDI parent
1. Buat tampilan form seperti dibawah ini menggunakan MenuStrip.

 

2. Masukan Koding berikut kedalam program.
Public Class Form1

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

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub Form4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form4ToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub

    Private Sub Form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form1ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
    Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
        Me.Close()
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
End Class

3. Horizontal

4. Vertical

5. Cascade

Terimakasih.......