Menubar

            Menubar adalah balok yang berisi menu yang akan digunakan untuk mengeksekusi perintah dalam suatu sistem informasi.

MenuStrip

digunakan untuk akses fitur-fitur dari aplikasi yang kita buat dan ditempatkan pada form utama suatu program. Bayangkan jika fitur yang kita buat dalam sebuah program begitu banyak dan kompleks, maka tidak mungkin bagi kita menggunakan control berupa Button atau sejenisnya kedalam tubuh Form karena akan memperjelek tampilan dari Form utama itu sendiri. 

Menambahkan MenuStrip

            Untuk menambahkan sebuah MenuStrip ke dalam form yang akan kita inginkan, maka kita dapat memilih objek tersebut dari ToolBox yang dikelompokkan pada Menus&Toolbar

Mengatur Item MenuStrip

Untuk menambah dan mengatur item menu pada kontrol MenuStrip dalam form, kita dapat melakukan klik pada bagian paling kiri dari MenuStrip yang akan kita tambahkan sebuah item. Klik pada bagian putih yang memiliki teks tooltips ‘Type Here” lalu ketikan nama menu yang kita inginkan (misalnya “File”)

Untuk menambahkan menu di bawah level menu yang baru kita tambahkan (menu “File”) kita ketikan pada item dari anak menu tersebut (misalnya “Open”).

Menambahkan Sparator

            Pilih objek Separator lalu menuju item selanjutnya yang masih satu level dengan item sebelumnya, kita ketikan “Exit”.

Setelah kita mengatur item-item pada control MenuStrip sebagai menu utama pada aplikasi, sekarang kita akan coba memasukan menuliskan kode jika menu tersebut di pilih oleh user. Caranya sama seperti saat kita menambahkan kode pada objek kontrol lainya. Cukup klik ganda pada item pada MenuStrip yang akan kita tambahkan kodenya.

Untuk mengujinya kita jalankan projek yang baru kita buat tersebut, lalu pilih menu “Exit” yang merupakan anak menu “File”.

Properti penting pada item MenuStirp beserta fungsinya.

ü  Name                    : Mengatur nama objek.

ü  Image                   : Menambahkan sebuah gamar pada objek.

Ø  Checked               : Mengatur atribut cek pada objek.

Ø  ShortcutKeys       : Mengatur tombol shortcut (tombol pintas) pada objek tersebut

Ø  ShowShortcutKeys          : Menampilkan atau tidak tombol pintas untuk menu tersebut.

Ø  Visible                              : Jika bernilai True maa\ka objek akan nampak, jika bernilai False maka objek tidak akan nampak.

ToolStrip

            Unutk membuat sederet atau sekumpulan item yang dapat kita letakan dibagian atas, kiri, kanan, tengah, atau bahkan atau bagian kiri Form aplikasi yang kita buat, kita dapat menggunakan kontrol ToolStrip. Seperti namanya sendiri yaitu ToolStrip dapat menampung item-item berupa objek lainya seperti Button, Label, TextBox, ComboBox, ProgressBar, 

Menambahkan ToolStrip

            Untuk dapat menambahkan ToolStrip pada Form, maka kita pilkih objek ToolStrip pada ToolBox lalu gambarkan pada Form maka secara defaul kontrol tersebut akn berada pada bagian atas Form anda.

Properti penting pada item ToolStrip beserta fungsinya.

ü  Name                    : Mengatur nama objek.

ü  BackColor            : Mengatur warna belakang objek.

Ø  Dock                    : Mengatur posisi objek pada form.

Ø  Items                    : Mengatur item-item pada objek.

Visible             : Jika bernilai True maka objek akan nampak, jika bernilaiFalse maka objek tidak akan nampak

Menambahkan Item

 Menambah Item Pada ToolStrip

            Pilih jenis yang akan kita tambahkan, misalnya kita akan menambahkan item berupa Button maka pilih “Button” pada menu yang muncul.

            Untuk menambahkan item lainnya pada ToolStrip maka kita dapat melakukan hal yang sama sebelumnya lalu pilih jenis item yang kita inginkan. Sehinggan sekumpulan item telah kita tambahkan pada sebuah ToolStrip, berikut adalah ilustrasi dari ToolStrip yang telah ditambahkan berbagai item.

 ToolStrip Dengan Berbagai Jenis Item

Mengatur Item

            Setelah kita dapat menambahkan berbagai item pada ToolStrip maka kita harus mengatur item-item yang kita tambahkan tersebut agar tampilan lebih sesuai yang kita inginkan. Sevelum sampai bab ini tentunya kita telah mempelajari berbagai macam atau jenis item (objek)  yang telah kita tambahkan pada ToolStrip ( Label, Button, ComboBox, TextBox, ProgressBar) sehingga kegunaan dari masing-masing properti untuk mengatur setiap item yang kita tambahkan  sudah Anda  kuasai. Untuk mengatur item pada ToolStrip caranya sama seprti pengaturan item pada kontrol lainya, yaitu dengan memilih objek (item) yang ada pada ToolStrip (yang akan kita atur) lalu kita rubah nilai-nilai pada jendela tersebut.

 Mengatur Salah Satu Item

Membuat Shortcut Key Pada Menu

-           Pilih (klik) Menu yang akan diberikan shortcut key nya

-           Pada jendela Properties, pilih ShortcutKeys

-           Atur kombinasi shortcutkey nya.

Posisi ToolStrip

            Hal lain yang dapat kita lakukan dengan ToolStrip adalah merubah letak atau posisi nya pada Form,Berbagai posisi ToolStrip yang dapat terjadi ketika kita merubah nilai pada properti Dock

Mainform

Maninform merupakan sebuah form yang dijadikan form induk tempat untuk mengakses form-form lainnya

Jadikan Form1 menjadi Form utama dengan mengatur propertise sebagai berikut :

IsMdiContainer = True

WindowState = Maximized

buatlah form-form yang akan dibuka melaluai form utama, misalnya :

contoh program menu form

koding

Public Class FormLogin

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If tusername.Text = "era" And tpassword.Text = "1708" Then
        Else
            MsgBox("Username dan password Anda Salah")
            tusername.Text = ""
            tpassword.Text = ""
            tusername.Select()
        End If
        Form1.Show()
    End Sub

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

    End Sub

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

        Me.Close()

    End Sub

End Class
   FORM UTAMA

KODING

Public Class Form1

    Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click

        MsgBox("yakin ingin keluar dari form  ")

        Application.Exit()

    End Sub

    Private Sub DAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub DATAGAJIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAGAJIToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub LAPORANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub LAPORANGAJIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANGAJIToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

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

    End Sub

End Class

FORM2  DATA PENGAWAI

KODING

Public Class Form2

    Dim A As Integer

    Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

        ListView1.Items.Add(tnip.Text)

        ListView1.Items(A).SubItems.Add(tnama.Text)

        ListView1.Items(A).SubItems.Add(cmbjk.Text)

        ListView1.Items(A).SubItems.Add(talamat.Text)

        A = A + 1

    End Sub

    Private Sub bbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbersih.Click

        tnip.Clear()

        tnama.Clear()

        cmbjk.text = ""

        talamat.Clear()

    End Sub

    Private Sub bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click

        End

    End Sub

End Class

FORM3 DATA GAJI

KODING

Public Class Form3

    Dim A As Integer

    Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

        ListView1.Items.Add(tnama.Text)

        ListView1.Items(A).SubItems.Add(cmbjabatan.Text)

        ListView1.Items(A).SubItems.Add(ttotal.Text)

        A = A + 1

    End Sub

    Private Sub bbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbersih.Click

        tnama.Clear()

        cmbjabatan.Text = ""

        ttotal.Clear()

    End Sub

    Private Sub bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click

        End

    End Sub

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

    End Sub

    Private Sub cmbjabatan_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjabatan.SelectedIndexChanged

        If cmbjabatan.Text = "Direktur" Then

            ttotal.Text = 5000000

        ElseIf cmbjabatan.Text = "Karyawan" Then

            ttotal.Text = 3000000

        Else

            ttotal.Text = 1500000

        End If

    End Sub

End Class

HASIL PROGRAM FORM3 DATA GAJI

demikian yang bisa saya utarakan semoga bermanfaat.........

PERTEMUAN KE 13

Pertemuan ke 13 ini kita akan membahas tentang koneksi ke data basic dengan microsoft office access 2007

Database   adalah informasi yang tersimpan dan tersusun rapi di dalam suatu tempat, dan dapat dengan mudah dimanipulasi seperti menambah data, menghapus, mencari, mengatur informasi yang kita butuhkan

ADO.Net 3.5 merupakan hasil pengembangan dari ADO.Net 2.x sebelumnya, yang merupakan paket untuk mengakses dan mengelolah sumber data (database) atau sumber data lainnya. Berikut ini komponen .NET Data Provider dari ADO.Net.3.5 

Latihan Database Access dan Koneksi dengan ADO.Net 3.5

1.      Buat Database pada Microsoft Access, dengan struktur sebagai berikut :

1.      Buat project baru, dengan nama Prak8

2.      Klik Tab Data, lalu klik Show data source    Klik Add New Data Source ….

1.      Pilih Database, Klik Next

1.      Klik New Connection, Pilih Microsoft Access Data File

1.      Klik Continue, pada kotak dialog add connection, klik tombol Browse

1.      Pilih database access : dbMhs

2.      Klik tombol  test connection, kemudian klik OK

1.      Klik Next, pada kotak diaolog configuration wizard, klik next

c  

     Beri tanda cek pada table, klik finish

      Kemudian, klik dan drag ke area form Masing-masing field dari table Mhs Dan hasil drag dari masing-masing field dari table mhs seperti gambar berikut ini

Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging

contoh program terkoneksi ke database

Adapun tahapan atau cara yang dapat kita lakukan dalam membangun sebuah aplikasi database sederhana seperti pada gambar di atas adalah sebagai berikut :

a.       Buat database dengan Microsoft Access dengan format 2003 dengan nama database PEMBELIAN.MDB dengan struktur tabel berikut ini:

Simpan Tabel di atas dengan nama: BARANG

b.      Keluar dari Microsoft Access, kemudian buka Visual Basic .Net 2008 

a.       Selanjutnya buat modul untuk koneksi database dengan cara klik menu Project>Add Modul, pada kotak dialog klik tombol Add.

b.      Ganti nama modul tersebut dengan nama KoneksiDB.vb, kemudian ketik modul berikut ini:

Imports System.Data

Module KoneksiDB

Public Dataku AsNew OleDb.OleDbConnection

Public Tampil AsNew OleDb.OleDbCommand

Public Tampilkan As OleDb.OleDbDataReader

Public Grid AsNew OleDb.OleDbDataAdapter

Public DS AsNew DataSet

Public Kata AsString

Public Baris AsNew BindingSource

Public Perintah AsNew OleDb.OleDbCommand

PublicSub Koneksi()

Try

                Dataku.Close()

                Dataku.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;"& _

"Data Source=D:\DotNet\Database\pembelian.mdb"

                Dataku.Open()

Catch ex As Exception

                MsgBox(ex.ToString())

EndTry

EndSub

EndModule

a.       Kemudian ketik program berkut ini pada Form1 sebagai berikut :

PublicClass Form1

PrivateSub TampilData()

Call Koneksi()

        DS = New DataSet

        Kata = "select * from barang"

        Grid = New OleDb.OleDbDataAdapter(Kata, Dataku)

        Grid.Fill(DS, "barang")

Dim Gridview AsNew DataView(DS.Tables("barang"))

        DataGridView1.DataSource = Gridview

EndSub

PrivateSub Bersih()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

EndSub

PrivateSub Mulai()

        TampilData()

        Bersih()

        TextBox1.Focus()

EndSub

PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Close()

EndSub

 PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically

        Mulai()

EndSub

PrivateSub DataGridView1_CellClick(ByVal sender AsObject, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

Try

            TextBox1.Text = DataGridView1.SelectedCells(0).Value

            TextBox2.Text = DataGridView1.SelectedCells(1).Value

            TextBox3.Text = DataGridView1.SelectedCells(2).Value

            TextBox4.Text = DataGridView1.SelectedCells(3).Value

Catch ex As Exception

EndTry

EndSub

PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Call Mulai()

EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim a AsInteger

        a = MsgBox("Yakin Data Barang dengan Nama = "& TextBox2.Text &" Ingin dihapus?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Pesan Penghapusan")

If a = vbYes Then

Try

Call Koneksi()

                Perintah.Connection = Dataku

                Perintah.CommandType = CommandType.Text

                Perintah.CommandText = "Delete * from barang where kodebrg='"& TextBox1.Text &"'"

                Perintah.ExecuteNonQuery()

Call Mulai()

Catch ex As Exception

                MsgBox(ex.ToString)

EndTry

EndIf

EndSub

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

Try

            Perintah.Connection = Dataku

            Perintah.CommandText = CommandType.Text

            Perintah.CommandText = "insert into barang values('"& TextBox1.Text &"','"& TextBox2.Text &"','"& TextBox3.Text &"',"& TextBox4.Text &")"

            Perintah.ExecuteNonQuery()

Call Mulai()

MsgBox("Data Berhasil disimpan", MsgBoxStyle.Information, "Penyimpanan Data(")")

Catch Ex As Exception

            MsgBox("Kode Barang Sudah Ada, Silahkan isi kode barang yang lain")

            TextBox1.Focus()

EndTry

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Try

            Perintah.Connection = Dataku

            Perintah.CommandText = CommandType.Text

            Perintah.CommandText = "update barang set namabrg='"& TextBox2.Text &"', satuan='"& _

            TextBox3.Text &"', harga="& TextBox4.Text &" where kodebrg='"& TextBox1.Text &"'"

            Perintah.ExecuteNonQuery()

Call Mulai()

MsgBox("Data Berhasil diedit", MsgBoxStyle.Information, "Pengeditan Data(")")

Catch ex As Exception

            MsgBox("Data Yang Akan Diedit Belum Tersimpan Dalam Database"& vbCr & _

"Data yang sudah tersimpan yang dapat diedit, simpan dahulu data anda")

            Button1.Focus()

EndTry

EndSub

PrivateSub TextBox1_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox2.Focus()

EndIf

EndSub

PrivateSub TextBox2_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox3.Focus()

EndIf

EndSub

PrivateSub TextBox3_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox4.Focus()

EndIf

EndSub

PrivateSub TextBox4_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown

If e.KeyCode = Keys.Return Then

            Button1.Focus()

EndIf

EndSub

PrivateSub DataGridView1_KeyUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp

Try

            TextBox1.Text = DataGridView1.SelectedCells(0).Value

            TextBox2.Text = DataGridView1.SelectedCells(1).Value

            TextBox3.Text = DataGridView1.SelectedCells(2).Value

            TextBox4.Text = DataGridView1.SelectedCells(3).Value

Catch ex As Exception

EndTry

EndSub

PrivateSub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

EndSub

EndClass