navigator.frm

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

Form4.Show
Form4.Top = 1000
Form4.Left = 3800
End Sub

Private Sub Image19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image19.Picture = LoadPicture(App.Path & "\image\shtuihuo_1.gif")

End Sub

Private Sub Image2_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 Image20_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 Image21_Click()
Form5.Show
Form5.Top = 1000
Form5.Left = 3200
End Sub

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

Private Sub Image22_Click()
Form17.Show
Form20.Top = 1000
Form20.Left = 3850
End Sub

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

Private Sub Image23_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")
End Sub

Private Sub Image24_Click()
Form24.Show
Form24.Top = 1030
Form24.Left = 3940
End Sub

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

Private Sub Image25_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")
End Sub

Private Sub Image26_Click()
Form27.Top = 0
Form27.Left = 0
Form27.Show
End Sub

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

Private Sub Image27_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")
End Sub

Private Sub Image28_Click()
Form28.Show
Form28.Top = 0
Form28.Left = 0
End Sub

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

Private Sub Image29_Click()
Form7.Show
Form7.Top = 2000
Form7.Left = 4000
End Sub

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

Private Sub Image3_Click()
Form18.Show
Form18.Top = 1000
Form18.Left = 2800
End Sub

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

Private Sub Image30_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 Image31_Click()
Form8.Show
Form8.Top = 2000
Form8.Left = 4000
End Sub

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



Private Sub Image32_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 Image33_Click()
regform.Show
regform.Top = 1030
regform.Left = 6820
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 Image33_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image33.Picture = LoadPicture(App.Path & "\image\sysreg_1.gif")
End Sub

Private Sub Image34_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 Image35_Click()
Form31.Show
Form31.Top = 1000
Form31.Left = 5000
Image35.BorderStyle = 0
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 Image35_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image35.BorderStyle = 1
End Sub

Private Sub Image36_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image37.BorderStyle = 0
Image38.BorderStyle = 0
Image5.BorderStyle = 0
Image6.BorderStyle = 0
Image7.BorderStyle = 0
Image8.BorderStyle = 0
Image35.BorderStyle = 0
End Sub

Private Sub Image37_Click()
Form2.Show

End Sub

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

Private Sub Image38_Click()
Form17.Show
Image38.BorderStyle = 0
End Sub

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

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
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 Image40_Click()
Form5.Show
Form5.Top = 1000
Form5.Left = 3200
End Sub

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

Private Sub Image41_Click()
Image41.BorderStyle = 0
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
Form33.Show
Form33.Top = 2000
Form33.Left = 3600
End Sub

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

Private Sub Image5_Click()
Form13.Show
Image5.BorderStyle = 0
Form13.Top = 1000
Form13.Left = 5000
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 Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5.BorderStyle = 1
End Sub

Private Sub Image6_Click()
Form9.Show
Form9.Top = 1000
Form9.Left = 3100
Image6.BorderStyle = 0
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 Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image6.BorderStyle = 1
End Sub

Private Sub Image7_Click()
Form20.Show
Form20.Top = 1000
Form20.Left = 1290
Image7.BorderStyle = 0
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 Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image7.BorderStyle = 1
End Sub

Private Sub Image8_Click()
Form15.Show
Form15.Top = 1000
Form15.Left = 5000
Image15.BorderStyle = 0
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 Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image8.BorderStyle = 1
End Sub

Private Sub Image9_Click()
Form14.Show
Form14.Top = 1000
Form14.Left = 3800
End Sub

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