navigator.frm

一个管理系统系统,进销存等,功能比较完善,界面还可以

         Width           =   870
      End
      Begin VB.Image Image2 
         Height          =   1080
         Left            =   2880
         Picture         =   "navigator.frx":AF8E
         Stretch         =   -1  'True
         Top             =   480
         Width           =   1485
      End
      Begin VB.Image Image1 
         Height          =   1095
         Left            =   1680
         Picture         =   "navigator.frx":B0A1
         Stretch         =   -1  'True
         Top             =   480
         Width           =   975
      End
   End
   Begin VB.CommandButton Command4 
      Height          =   580
      Left            =   120
      Picture         =   "navigator.frx":B877
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   3860
      Width           =   1800
   End
   Begin VB.CommandButton Command3 
      Height          =   580
      Left            =   120
      Picture         =   "navigator.frx":BD00
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3270
      Width           =   1800
   End
   Begin VB.CommandButton Command2 
      Height          =   580
      Left            =   120
      Picture         =   "navigator.frx":C1AB
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2130
      Width           =   1800
   End
   Begin VB.CommandButton Command1 
      Height          =   580
      Left            =   120
      Picture         =   "navigator.frx":C637
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   1560
      Width           =   1800
   End
   Begin VB.Image Image38 
      Height          =   555
      Left            =   5160
      Picture         =   "navigator.frx":C78A
      Top             =   5775
      Width           =   675
   End
   Begin VB.Image Image37 
      Height          =   480
      Left            =   3240
      Picture         =   "navigator.frx":CD91
      Top             =   5835
      Width           =   480
   End
   Begin VB.Image Image36 
      Height          =   855
      Left            =   30
      Picture         =   "navigator.frx":D09B
      Top             =   5640
      Width           =   9150
   End
End
Attribute VB_Name = "Form21"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()
Command1.Picture = LoadPicture(App.Path & "\image\button1_1.gif")
Command2.Picture = LoadPicture(App.Path & "\image\button2.gif")
Command3.Picture = LoadPicture(App.Path & "\image\main_button3.gif")
Command4.Picture = LoadPicture(App.Path & "\image\button4.gif")
command5.Picture = LoadPicture(App.Path & "\image\button5.gif")
Frame1.Visible = True
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
End Sub





Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture(App.Path & "\image\button1_1.gif")
End Sub


Private Sub Command2_Click()
Command1.Picture = LoadPicture(App.Path & "\image\button1.gif")
Command2.Picture = LoadPicture(App.Path & "\image\button2_2.gif")
Command3.Picture = LoadPicture(App.Path & "\image\main_button3.gif")
Command4.Picture = LoadPicture(App.Path & "\image\button4.gif")
command5.Picture = LoadPicture(App.Path & "\image\button5.gif")
Frame1.Visible = False
Frame3.Visible = True
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
End Sub



Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.Picture = LoadPicture(App.Path & "\image\button2_2.gif")
End Sub

Private Sub Command3_Click()
Command1.Picture = LoadPicture(App.Path & "\image\button1.gif")
Command2.Picture = LoadPicture(App.Path & "\image\button2.gif")
Command3.Picture = LoadPicture(App.Path & "\image\main_button3_3.gif")
Command4.Picture = LoadPicture(App.Path & "\image\button4.gif")
command5.Picture = LoadPicture(App.Path & "\image\button5.gif")
Frame6.Visible = True
Frame5.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
End Sub



Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.Picture = LoadPicture(App.Path & "\image\main_button3_3.gif")
End Sub

Private Sub Command4_Click()
Command1.Picture = LoadPicture(App.Path & "\image\button1.gif")
Command2.Picture = LoadPicture(App.Path & "\image\button2.gif")
Command3.Picture = LoadPicture(App.Path & "\image\main_button3.gif")
Command4.Picture = LoadPicture(App.Path & "\image\button4_4.gif")
command5.Picture = LoadPicture(App.Path & "\image\button5.gif")
Frame5.Visible = True
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame6.Visible = False
End Sub



Private Sub Command5_Click()
Command1.Picture = LoadPicture(App.Path & "\image\button1.gif")
Command2.Picture = LoadPicture(App.Path & "\image\button2.gif")
Command3.Picture = LoadPicture(App.Path & "\image\main_button3.gif")
Command4.Picture = LoadPicture(App.Path & "\image\button4.gif")
command5.Picture = LoadPicture(App.Path & "\image\button5_5.gif")
Frame4.Visible = True
Frame5.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Frame6.Visible = False
End Sub



Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
command5.Picture = LoadPicture(App.Path & "\image\button5_5.gif")
End Sub

Private Sub Form_Load()
Frame1.Visible = True
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False

End Sub




Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\image\input1.gif")
Image3.Picture = LoadPicture(App.Path & "\image\tuihuo1.gif")
Image14.Picture = LoadPicture(App.Path & "\image\inspect.gif")
Image40.Picture = LoadPicture(App.Path & "\image\buyreturn.gif")
End Sub



Private Sub Frame3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image9.Picture = LoadPicture(App.Path & "\image\sale1.gif")
Image16.Picture = LoadPicture(App.Path & "\image\shsale.gif")
Image10.Picture = LoadPicture(App.Path & "\image\saleth1.gif")
Image19.Picture = LoadPicture(App.Path & "\image\shtuihuo.gif")
End Sub

Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image12.Picture = LoadPicture(App.Path & "\image\goodsin.gif")
Image21.Picture = LoadPicture(App.Path & "\image\goodsout.gif")
End Sub

Private Sub Frame5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image29.Picture = LoadPicture(App.Path & "\image\userman.gif")
Image31.Picture = LoadPicture(App.Path & "\image\changepass.gif")
Image33.Picture = LoadPicture(App.Path & "\image\sysreg.gif")
End Sub

Private Sub Frame6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image22.Picture = LoadPicture(App.Path & "\image\total.gif")
Image24.Picture = LoadPicture(App.Path & "\image\definepro.gif")
Image26.Picture = LoadPicture(App.Path & "\image\datain.gif")
Image28.Picture = LoadPicture(App.Path & "\image\balance.gif")
Image5.BorderStyle = 0
Image6.BorderStyle = 0
Image7.BorderStyle = 0
Image8.BorderStyle = 0
Image41.BorderStyle = 0
Image35.BorderStyle = 0
Image37.BorderStyle = 0
Image38.BorderStyle = 0
End Sub

Private Sub Image1_Click()
Form11.Show
Form11.Top = 1000
Form11.Left = 2800
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\image\input1_1.gif")
End Sub


Private Sub Image10_Click()
Form19.Show
Form19.Top = 1000
Form19.Left = 3800
End Sub

Private Sub Image10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image10.Picture = LoadPicture(App.Path & "\image\saleth1_1.gif")

End Sub

Private Sub Image11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image9.Picture = LoadPicture(App.Path & "\image\sale1.gif")
Image16.Picture = LoadPicture(App.Path & "\image\shsale.gif")
Image10.Picture = LoadPicture(App.Path & "\image\saleth1.gif")
Image19.Picture = LoadPicture(App.Path & "\image\shtuihuo.gif")
End Sub

Private Sub Image12_Click()
Form4.Show
Form4.Top = 1000
Form4.Left = 3200
End Sub

Private Sub Image12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image12.Picture = LoadPicture(App.Path & "\image\goodsin_1.gif")
End Sub

Private Sub Image13_Click()
Form5.Show
form1.Adodc2.Recordset.AddNew
form1.Adodc2.Recordset.Fields(0) = form1.username
form1.Adodc2.Recordset.Fields(1) = form1.userpower
form1.Adodc2.Recordset.Fields(2) = Date$
form1.Adodc2.Recordset.Fields(3) = Time$
form1.Adodc2.Recordset.Fields(4) = "业务查找"
form1.Adodc2.Recordset.Update
End Sub

Private Sub Image13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image13.BorderStyle = 1
End Sub

Private Sub Image14_Click()
Form4.Show
Form4.Top = 1000
Form4.Left = 3200
End Sub

Private Sub Image14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image14.Picture = LoadPicture(App.Path & "\image\inspect_1.gif")
End Sub

Private Sub Image15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\image\input1.gif")
Image3.Picture = LoadPicture(App.Path & "\image\tuihuo1.gif")
Image14.Picture = LoadPicture(App.Path & "\image\inspect.gif")
End Sub

Private Sub Image16_Click()
Form5.Show
Form5.Top = 1000
Form5.Left = 3800
End Sub

Private Sub Image16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image16.Picture = LoadPicture(App.Path & "\image\shsale_1.gif")

End Sub

Private Sub Image17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image9.Picture = LoadPicture(App.Path & "\image\sale1.gif")
Image16.Picture = LoadPicture(App.Path & "\image\shsale.gif")
Image10.Picture = LoadPicture(App.Path & "\image\saleth1.gif")
Image19.Picture = LoadPicture(App.Path & "\image\shtuihuo.gif")
End Sub

Private Sub Image18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image9.Picture = LoadPicture(App.Path & "\image\sale1.gif")
Image16.Picture = LoadPicture(App.Path & "\image\shsale.gif")
Image10.Picture = LoadPicture(App.Path & "\image\saleth1.gif")
Image19.Picture = LoadPicture(App.Path & "\image\shtuihuo.gif")
End Sub

Private Sub Image19_Click()