Selasa, 11 Juni 2013

Tutorial Cara Membuat Menu Utama Di Visual Basic

Tutorial Cara Membuat Menu Utama Di Visual Basic:

Pada Kategori Visual Basic  Sebelumnya Sampul Ilmu Menjelaskan Tentang  Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0. Artikel Kali ini adalah lanjutan dari artikel sebelumya dimana kita telah membuat koneksi antara VB dengan Database Ms Accsess
Untuk Artikel Kali ini Sampul Ilmu memberikan sedikit pengetahuan tentang Cara Membuat Menu Utama Di Visual Basic
Langkah Yang Harus Anda Lakukan Adalah :
  1. Buka Project ( Yang dimaksud Disini adalah Project Yang Telah Anda Buat Pada artikel Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0)
  2. Setelah Project Anda Telah terbuka Selanjutnya Aktifkan Form Home Kemudian Pada Properties Ubah Name Menjadi MenuUtama Dan Ubah Caption Menjadi MenuUtama
  3. Selanjutnya Membuat Menu Utama Caranya Clik Kanan Pada Form MenuUtama ( Yang Dimaksud Disini Adalah Form Yang Telah anda ubah namenya menjadi MenuUtama) Kemudian Pilih Menu Editor
  4. Pada Halaman Menu Editor Buatlah Menu File Caranya Pada Caption Ketik &File kemudian Pada Name Ketik file setelah itu Clik Next
  5.  LangkahSelanjutnya Adalah  membuat Sub Menu Caranya Pada Halaman Menu Editor Clik Tanda Panah Kekanan Maka Akan Muncul Tanda ….. Tepat Dibawah menu &File Kemudian Pada Caption Ketik  &Input Data dan Pada Name ketik inpData kemudian clik Next
  6. Selanjutnya membuat garis tepat dibawah Sub menu  &Input Data Caranya Pada Caption Ketik “-“ Tanpa Tanda Petik Dan Pada Name Ketik grs Kemudian Clik Next
  7. Untuk Membuat Sub Menu Keluar Caranya Sama Seperti Langkah Diatas Pada Caption ketik &Keluar Dan Pada Name Ketik Keluar Kemudian Clik OK
  8. Sebelum Anda Menjalakan Programnya Terlebih dahulu clik module1 ubah source code Home.show Menjadi MenuUtama. Show  Seperti Contoh Dibawah ini
Global db As New ADODB.Connection
Public dbdata As ADODB.Recordset

Sub Connect()
    Set dbdata = New ADODB.Recordset
    Set db = New ADODB.Connection
        db.CursorLocation = adUseClient
        db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\coba.mdb"
End Sub

Sub Main()
Connect
Home.Show --------> Ubah Menjadi MenuUtama. Show
End Sub

Menu utama yang Anda buat telah selesai untuk melihat hasilnya clik Start.

Download Tutorialnya Disini

Mudah-Mudahan Bermanfaat…….

0 komentar:

Poskan Komentar

Translate

Isikan Komentar Anda

Nama

Email *

Pesan *