Code Program Menu Utama Sisfo Administrasi Toko

Pada postingan kali ini admin akan melakukan posting tentang pembuatan Sisfo Administrasi Toko, form pertama yang akan dibuat yaitu Form Menu Utama. Aplikasi dibuat menggunakan Visual Basic 6 dengan Database Ms.Access.

Untuk Tampilannya sebagai berikut :

Listing Code Program untuk form diatas sebagai berikut :

Private Sub Form_Activate()
Label4.Caption = gnmpemakai
Label5.Caption = glevel
Label12.Caption = gnamains
Label13.Caption = galins
Label14.Caption = gtelpins
End Sub
Private Sub Form_Load()
hr = Weekday(Date)
If hr = 1 Then
 Label6.Caption = "Minggu"
ElseIf hr = 2 Then
 Label6.Caption = "Senin"
ElseIf hr = 3 Then
 Label6.Caption = "Selasa"
ElseIf hr = 4 Then
 Label6.Caption = "Rabu"
ElseIf hr = 5 Then
 Label6.Caption = "Kamis"
ElseIf hr = 6 Then
 Label6.Caption = "Juamat"
ElseIf hr = 7 Then
 Label6.Caption = "Sabtu"
End If
tgl = Day(Date)
bl = Month(Date)
If bl = 1 Then
bln = "Januari"
ElseIf bl = 2 Then
bln = "Februari"
ElseIf bl = 3 Then
bln = "Maret"
ElseIf bl = 4 Then
bln = "April"
ElseIf bl = 5 Then
bln = "Mei"
ElseIf bl = 6 Then
bln = "Juni"
ElseIf bl = 7 Then
bln = "Juli"
ElseIf bl = 8 Then
bln = "Agustus"
ElseIf bl = 9 Then
bln = "September"
ElseIf bl = 10 Then
bln = "Oktober"
ElseIf bl = 11 Then
bln = "Nopember"
ElseIf bl = 12 Then
bln = "Desember"
End If
th = Year(Date)
Label7.Caption = Str(tgl) + " " + bln + " " + Str(th)
End Sub
Private Sub sm10_Click()
fsatuan.Show 1
End Sub
Private Sub sm11_Click()
fbarang.Show 1
End Sub
Private Sub sm12_Click()
fpemasok.Show 1
End Sub
Private Sub sm14_Click()
fpemakai.Show 1
End Sub
Private Sub sm21_Click()
fjual.Show 1
End Sub
Private Sub sm23_Click()
fbeli.Show 1
End Sub
Private Sub sm31_Click()
 If sumberdata.rsdbarang.State = adStateOpen Then sumberdata.rsdbarang.Close
  sumberdata.rsdbarang.Open
  If sumberdata.rsdbarang.RecordCount = 0 Then
   MsgBox "Data belum ada atau tabel masih kosong!"
  Else
   rbarang.Show 1
  End If
End Sub
Private Sub sm310_Click()
laprekbeli.Show 1
End Sub
Private Sub sm312_Click()
lapanalisa.Show 1
End Sub
Private Sub sm33_Click()
 If sumberdata.rsdpemasok.State = adStateOpen Then sumberdata.rsdpemasok.Close
  sumberdata.rsdpemasok.Open
  If sumberdata.rsdpemasok.RecordCount = 0 Then
   MsgBox "Data belum ada atau tabel masih kosong!"
  Else
   rpemasok.Show 1
  End If
End Sub
Private Sub sm35_Click()
lapjual.Show 1
End Sub
Private Sub sm36_Click()
laprekjual.Show 1
End Sub
Private Sub sm37_Click()
lapgrafjual.Show 1
End Sub
Private Sub sm39_Click()
lapbeli.Show 1
End Sub
Private Sub sm41_Click()
finfo.Show 1
End Sub
Private Sub sm43_Click()
fbackup.Show 1
End Sub
Private Sub sm44_Click()
fhapus.Show 1
End Sub
Private Sub sm46_Click()
finstansi.Show 1
End Sub
Private Sub sm47_Click()
flogoff.Show 1
End Sub
Private Sub sm49_Click()
Dim tanya
tanya = MsgBox("Yakin mau keluar program ini?", 4 + 32, "Konfirmasi")
If tanya = 6 Then
 Unload Me
End If
End Sub
Private Sub Timer1_Timer()
 If Label3.Caption <> Time Then
  Label3.Caption = Time()
 End If
End Sub

Tweet