//
you're reading...
L. Pemrograman

Membuat Login Menu Pada VB 6.0

Membuat tampilan untuk form Login Menu sangat membantu untuk mengakses Form rancangan tampilan pada sub-sub menu sebuah aplikasi. Disini penulis mencoba untuk mengambil contoh dari aplikasi penjualan obat pada suatu apotek. Untuk itu penulis mencoba untuk mendesign menu serta bagaimana syntax-nya, coba perhatikan dibawah ini:

1. Langkah pertama anda desain form tampilan dahulu

2. Langkah berikutnya tuliskan syntax sebagai berikut :

Option Explicit
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub
Private Sub XPButton1_Click()
If XPOption1.Value = True Then
With B: .Visible = True: .Enabled = True: End With
Else
If XPOption2.Value = True Then
With C: .Visible = True: .Enabled = True: End With
Else
If XPOption3.Value = True Then
With D: .Visible = True: .Enabled = True: End With
Else
If XPOption4.Value = True Then
With E: .Visible = True: .Enabled = True: End With
Else
If XPOption5.Value = True Then
With F: .Visible = True: .Enabled = True: End With
Else
If XPOption6.Value = True Then
With G: .Visible = True: .Enabled = True: End With
Else
If XPOption1.Value = False And XPOption2.Value = False And XPOption3.Value = False _
And XPOption4.Value = False And XPOption5.Value = False And XPOption6.Value = False Then
MsgBox “Pilih salah satu menu untuk melanjutkan!”, vbInformation, “System Message by Sito”
End If: End If: End If: End If: End If: End If: End If
End Sub
Private Sub XPButton2_Click()
End
End Sub

Nah gampang kan…. Selamat Mencoba

Diskusi

One thought on “Membuat Login Menu Pada VB 6.0

  1. lha trus cara mengkoneksikan ke MS Access gaimana Bro. ??? Maklum Pemula. Hehe

    Posted by jemy | Februari 4, 2012, 6:18 am

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Arsip

Blog Stats

  • 105,046 Pengunjung
free counters

Subscribe in Bloglines

Masukkan alamat Email Anda.

Bergabunglah dengan 10 pengikut lainnya

Pesan Moral

Forum Ngapak

Polling dulu sebelum ditutup

My Twitter

Error: Twitter did not respond. Please wait a few minutes and refresh this page.

RSS Kompas Tekno

  • Sebuah galat telah terjadi; umpan tersebut kemungkinan sedang anjlok. Coba lagi nanti.

RSS Detik News

%d blogger menyukai ini: