Code Program Pembuatan Menu Utama (Sistem Penjualan dan Pembelian Alat Optik)

Pada postingan kali ini admin akan menjelaskan tentang pembuatan form Menu Utama menggunakan Visual Basic 6. 

Form Menu Utama ini merupakan bagian dari aplikasi Sistem Penjualan dan Pembelian Alat Optik.
Lebih lengkapnya berikut tampilan formnya.

Listing code program sebagai berikut :

Private Sub Form_Activate()
If memhak = "Admin" Then
pendataan1.Enabled = True
pendataan3.Enabled = True
pendataan4.Enabled = True
pendataan6.Enabled = True
transaksi1.Enabled = True
transaksi2.Enabled = True
laporan1.Enabled = True
laporan3.Enabled = True
laporan4.Enabled = True
laporan6.Enabled = True
laporan8.Enabled = True
laporan9.Enabled = True
laporan11.Enabled = True
laporan12.Enabled = True
laporan13.Enabled = True
serba1.Enabled = True
serba4.Enabled = True
serba6.Enabled = True
ElseIf memhak = "User" Then
pendataan1.Enabled = False
pendataan3.Enabled = True
pendataan4.Enabled = True
pendataan6.Enabled = True
transaksi1.Enabled = True
transaksi2.Enabled = True
laporan1.Enabled = True
laporan3.Enabled = True
laporan4.Enabled = True
laporan6.Enabled = True
laporan8.Enabled = True
laporan9.Enabled = False
laporan11.Enabled = False
laporan12.Enabled = False
laporan13.Enabled = False
serba1.Enabled = True
serba4.Enabled = True
serba6.Enabled = True
ElseIf memhak = "Umum" Then
pendataan1.Enabled = False
pendataan3.Enabled = False
pendataan4.Enabled = False
pendataan6.Enabled = False
transaksi1.Enabled = False
transaksi2.Enabled = False
laporan1.Enabled = True
laporan3.Enabled = True
laporan4.Enabled = True
laporan6.Enabled = True
laporan8.Enabled = True
laporan9.Enabled = False
laporan11.Enabled = False
laporan12.Enabled = False
laporan13.Enabled = False
serba1.Enabled = True
serba4.Enabled = True
serba6.Enabled = True
End If
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub laporan1_Click()
 If sumberdata.rssqlkaryawan.State = adStateOpen Then sumberdata.rssqlkaryawan.Close
  sumberdata.rssqlkaryawan.Open
  If sumberdata.rssqlkaryawan.RecordCount = 0 Then
   MsgBox "Data belum ada atau tabel masih kosong!"
  Else
   lapkaryawan.Show
  End If
End Sub
Private Sub laporan11_Click()
fcdafjual.Show
End Sub
Private Sub laporan12_Click()
fcrekjual.Show
End Sub
Private Sub laporan13_Click()
fcgrapjual.Show
End Sub
Private Sub laporan3_Click()
 If sumberdata.rssqlpelanggan.State = adStateOpen Then sumberdata.rssqlpelanggan.Close
  sumberdata.rssqlpelanggan.Open
  If sumberdata.rssqlpelanggan.RecordCount = 0 Then
   MsgBox "Data belum ada atau tabel masih kosong!"
  Else
   lappelanggan.Show
  End If
End Sub
Private Sub laporan4_Click()
 If sumberdata.rssqlsuplier.State = adStateOpen Then sumberdata.rssqlsuplier.Close
  sumberdata.rssqlsuplier.Open
  If sumberdata.rssqlsuplier.RecordCount = 0 Then
   MsgBox "Data belum ada atau tabel masih kosong!"
  Else
   lapsuplier.Show
  End If
End Sub
Private Sub laporan6_Click()
 If sumberdata.rssqlbarang.State = adStateOpen Then sumberdata.rssqlbarang.Close
  sumberdata.rssqlbarang.Open
  If sumberdata.rssqlbarang.RecordCount = 0 Then
   MsgBox "Data belum ada atau tabel masih kosong!"
  Else
   lapbarang.Show
  End If
End Sub
Private Sub laporan8_Click()
fcdafbeli.Show
End Sub
Private Sub laporan9_Click()
fcrekbeli.Show
End Sub
Private Sub pendataan1_Click()
fkaryawan.Show
End Sub
Private Sub pendataan3_Click()
fpelanggan.Show
End Sub
Private Sub pendataan4_Click()
fsuplier.Show
End Sub
Private Sub pendataan6_Click()
fbarang.Show
End Sub
Private Sub serba1_Click()
finfo.Show
End Sub
Private Sub serba2_Click()
fbackup.Show
End Sub
Private Sub serba4_Click()
fgantipas.Show
End Sub
Private Sub serba6_Click()
Dim jw
jw = MsgBox("Yakin mau keluar aplikasi ini?", 4 + 32, "Konfirmasi")
 If jw = 6 Then
 Unload Me
End If
End Sub
Private Sub transaksi1_Click()
fbeli.Show
End Sub
Private Sub transaksi3_Click()
fjual.Show
End Sub

Tweet