form utama

Private Sub b_Click()
frmBackup.Show

End Sub

Private Sub b_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
b.BackColor = vbBlue
label15.ForeColor = vbWhite

End Sub



Private Sub e_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
e.BackColor = vbBlue
label16.ForeColor = vbWhite
e1.Visible = True
e2.Visible = True
End Sub

Private Sub e1_Click()
Unload Me
frmlogin.Show

End Sub

Private Sub e1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
e1.BackColor = vbInactiveTitleBarText
label17.ForeColor = vbBlack
e2.BackColor = vbHighlight
label18.ForeColor = vbWhite
End Sub

Private Sub e2_Click()
If MsgBox("apakah anda yakin ingin keluar", vbExclamation + vbYesNo, "keluar") = vbYes Then
Unload Me
End If

End Sub

Private Sub e2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
e2.BackColor = vbInactiveTitleBarText
label18.ForeColor = vbWhite
e1.BackColor = vbHighlight
label17.ForeColor = vbBlack

End Sub

Private Sub Form_Activate()
Text1.Text = Format(Now, "dd-mm-yyyy")
Text2.Text = Time
End Sub

Private Sub Form_Load()
loadskin
Skin1.loadskin skinpath
Skin1.ApplySkin Me.hWnd

m1.Visible = False
m2.Visible = False
m3.Visible = False

t1.Visible = False
t2.Visible = False
t3.Visible = False

l1.Visible = False
l2.Visible = False
l3.Visible = False

e1.Visible = False
e2.Visible = False

u1.Visible = False


End Sub



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
m1.Visible = False
m2.Visible = False
m3.Visible = False

t1.Visible = False
t2.Visible = False
t3.Visible = False

u1.Visible = False

l1.Visible = False
l2.Visible = False
l3.Visible = False


End Sub









Private Sub l_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
l.BackColor = vbBlue
Label1.ForeColor = vbWhite
l1.Visible = True
l2.Visible = True
l3.Visible = True
End Sub

Private Sub l1_Click()
rptpermintaan.Show

End Sub

Private Sub l1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
l1.BackColor = vbInactiveTitleBarText
label12.ForeColor = vbBlack
l2.BackColor = vbHighlight
label13.ForeColor = vbWhite
l3.BackColor = vbHighlight
label14.ForeColor = vbWhite
End Sub

Private Sub l2_Click()
rptpenerimaan.Show

End Sub

Private Sub l2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
l2.BackColor = vbInactiveTitleBarText
label13.ForeColor = vbWhite
l1.BackColor = vbHighlight
label12.ForeColor = vbBlack
l3.BackColor = vbHighlight
label14.ForeColor = vbWhite
End Sub

Private Sub l3_Click()
rptpengeluaran.Show

End Sub

Private Sub l3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
l3.BackColor = vbInactiveTitleBarText
label14.ForeColor = vbWhite
l2.BackColor = vbHighlight
label13.ForeColor = vbWhite
l1.BackColor = vbHighlight
label12.ForeColor = vbBlack

End Sub









Private Sub m_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
m.BackColor = vbBlue
Label1.ForeColor = vbWhite
m1.Visible = True
m2.Visible = True
m3.Visible = True


End Sub

Private Sub m1_Click()
'm1.Visible = False
'm2.Visible = False
'm3.Visible = False
frmbarang.Show



End Sub

Private Sub m1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
m1.BackColor = vbInactiveTitleBarText
Label2.ForeColor = vbBlack
m2.BackColor = vbHighlight
Label3.ForeColor = vbWhite
m3.BackColor = vbHighlight
Label4.ForeColor = vbWhite
End Sub

Private Sub m2_Click()
'm1.Visible = False
'm2.Visible = False
'm3.Visible = False
frmpelanggan.Show
'Me.Enabled = False

End Sub

Private Sub m2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
m2.BackColor = vbInactiveTitleBarText
Label3.ForeColor = vbBlack
m1.BackColor = vbHighlight
Label1.ForeColor = vbWhite
m3.BackColor = vbHighlight
Label4.ForeColor = vbWhite

End Sub

Private Sub m3_Click()
frmsupplier.Show


End Sub

Private Sub m3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
m3.BackColor = vbInactiveTitleBarText
Label4.ForeColor = vbBlack
m1.BackColor = vbHighlight
Label1.ForeColor = vbWhite
m2.BackColor = vbHighlight
Label3.ForeColor = vbWhite

End Sub










Private Sub t_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
t.BackColor = vbBlue
label5.ForeColor = vbWhite
t1.Visible = True
t2.Visible = True
t3.Visible = True

End Sub

Private Sub t1_Click()
frmpermintaan.Show

End Sub

Private Sub t1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
t1.BackColor = vbInactiveTitleBarText
label6.ForeColor = vbBlack
t2.BackColor = vbHighlight
label7.ForeColor = vbWhite
t3.BackColor = vbHighlight
label8.ForeColor = vbWhite

End Sub

Private Sub t2_Click()
frmpenerimaan.Show


End Sub

Private Sub t2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
t2.BackColor = vbHighlight
label7.ForeColor = vbWhite
t1.BackColor = vbInactiveTitleBarText
label6.ForeColor = vbBlack
t3.BackColor = vbHighlight
label8.ForeColor = vbWhite

End Sub

Private Sub t3_Click()
frmpengeluaran.Show

End Sub

Private Sub t3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

t3.BackColor = vbHighlight
label8.ForeColor = vbWhite
t2.BackColor = vbHighlight
label7.ForeColor = vbWhite
t1.BackColor = vbInactiveTitleBarText
label6.ForeColor = vbBlack
End Sub



Private Sub u_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
u.BackColor = vbBlue
label9.ForeColor = vbWhite
u1.Visible = True

End Sub

Private Sub u1_Click()
frmabout.Show

End Sub

Private Sub u1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
u1.BackColor = vbHighlight
label10.ForeColor = vbWhite

End Sub