企业生产管理信息系统主界面.frm

vb manange system 看看就行

End Sub

Private Sub Label1_Click()
Me.Hide
Form5.Show
Form5.Text1 = ""
Form5.Text2 = ""
Form5.Text3 = ""
Form5.Text4 = ""
Form5.Text5 = ""
Form5.Text1.SetFocus
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HC00000
End Sub

Private Sub Label10_Click()
Form14.Show
Me.Hide
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label10.ForeColor = &HC00000
End Sub

Private Sub Label11_Click()
Form15.Show
Me.Hide
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label11.ForeColor = &HC00000
End Sub

Private Sub Label12_Click()
Form16.Show
Me.Hide
End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label12.ForeColor = &HC00000
End Sub

Private Sub Label13_Click()
Form17.Show
Me.Hide
End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label13.ForeColor = &HC00000
End Sub

Private Sub Label14_Click()
Form18.Show
End Sub

Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label14.ForeColor = &HC00000
End Sub

Private Sub Label15_Click()
Form19.Show
End Sub

Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label15.ForeColor = &HC00000
End Sub

Private Sub Label16_Click()
Form20.Show
End Sub

Private Sub Label16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label16.ForeColor = &HC00000
End Sub

Private Sub Label17_Click()
Unload Me
Form21.Show
End Sub

Private Sub Label17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label17.ForeColor = &HC00000
End Sub

Private Sub Label18_Click()
Form22.Show
Me.Hide
End Sub

Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label18.ForeColor = &HC00000
End Sub

Private Sub Label19_Click()
Unload Me
frmAbout.Show
End Sub

Private Sub Label19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label19.ForeColor = &HC00000
End Sub

Private Sub Label2_Click()
Form6.Show
Me.Hide
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HC00000
End Sub

Private Sub Label20_Click()
frmAbout.Show
Me.Hide
End Sub

Private Sub Label20_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label20.ForeColor = &HC00000
End Sub

Private Sub Label22_Click()
Me.Hide
Form23.Show
Form23.Text1(0).Text = ""
Form23.Text1(1).Text = ""
Form23.Text1(2).Text = ""
Form23.Text1(3).Text = ""
Form23.Text1(4).Text = ""
Form23.Text1(0).SetFocus
End Sub

Private Sub Label22_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label22.ForeColor = &HC00000
End Sub

Private Sub Label23_Click()
Me.Hide
Form24.Show
End Sub

Private Sub Label23_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label23.ForeColor = &HC00000
End Sub

Private Sub Label24_Click()
Form25.Show
Form25.Text1 = ""
Form25.Text2 = ""
Form25.Text3 = ""
Form25.Text4 = ""
Form25.Text5 = ""
Form25.Text6 = ""
Form25.Text1.SetFocus
Me.Hide
End Sub

Private Sub Label24_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label24.ForeColor = &HC00000
End Sub

Private Sub Label25_Click()
Form26.Show
Me.Hide
End Sub

Private Sub Label25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label25.ForeColor = &HC00000
End Sub

Private Sub Label26_Click()
Me.Hide
Form10.Show
End Sub

Private Sub Label26_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label26.ForeColor = &HC00000
End Sub

Private Sub Label27_Click()
Form28.Show
Me.Hide
End Sub

Private Sub Label27_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label27.ForeColor = &HC00000
End Sub

Private Sub Label28_Click()
Form29.Show
Form29.Text1(0).Text = ""
Form29.Text1(1).Text = ""
Form29.Text1(2).Text = ""
Form29.Text1(3).Text = ""
Form29.Text1(4).Text = ""
Form29.Text1(5).Text = ""
Form29.Text1(6).Text = ""
Form29.Text1(7).Text = ""
Form29.Text1(0).SetFocus
Me.Hide
End Sub

Private Sub Label28_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label28.ForeColor = &HC00000
End Sub

Private Sub Label29_Click()
Form30.Show
Me.Hide
End Sub

Private Sub Label29_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label29.ForeColor = &HC00000
End Sub

Private Sub Label3_Click()
Form7.Show
Form7.Text1 = ""
Form7.Text2 = ""
Form7.Text3 = ""
Form7.Text4 = ""
Form7.Text5 = ""
Form7.Text6 = ""
Form7.Text1.SetFocus
Me.Hide
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HC00000
End Sub

Private Sub Label30_Click()
Me.Hide
Form4.Show
If frmLogin.Combo1.Text = "一般用户" Then
Me.Hide
Form4.Show
Form4.Combo1.Text = "一般用户"
Form4.Combo1.ListIndex = 0
Form4.Combo1.Enabled = False
End If
End Sub

Private Sub Label30_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label30.ForeColor = &HC00000
End Sub

Private Sub Label4_Click()
Me.Hide
Form8.Show
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = &HC00000
End Sub

Private Sub Label5_Click()
Me.Hide
Form9.Show
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HC00000
End Sub

Private Sub Label6_Click()
Form27.Show
Me.Hide
Form27.Text1(0).Text = ""
Form27.Text1(1).Text = ""
Form27.Text1(2).Text = ""
Form27.Text1(3).Text = ""
Form27.Text1(4).Text = ""
Form27.Text1(5).Text = ""
Form27.Text1(6).Text = ""
Form27.Text1(0).SetFocus
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HC00000
End Sub

Private Sub Label7_Click()
Form11.Show
Form11.Text1 = ""
Form11.Text2 = ""
Form11.Text3 = ""
Form11.Text4 = ""
Form11.Text5 = ""
Form11.Text1.SetFocus
Me.Hide
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &HC00000
End Sub

Private Sub Label8_Click()
Form12.Show
Me.Hide
End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8.ForeColor = &HC00000
End Sub

Private Sub Label9_Click()
Form13.Show
Form13.Text1 = ""
Form13.Text2 = ""
Form13.Text3 = ""
Form13.Text4 = ""
Form13.Text5 = ""
Form13.Text6 = ""
Form13.Text1.SetFocus
Me.Hide
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.ForeColor = &HC00000
End Sub

Private Sub menu10_Click(Index As Integer)
Form13.Show
Form13.Text1 = ""
Form13.Text2 = ""
Form13.Text3 = ""
Form13.Text4 = ""
Form13.Text5 = ""
Form13.Text6 = ""
Form13.Text1.SetFocus
Me.Hide
End Sub

Private Sub menu11_Click(Index As Integer)
Form14.Show
Me.Hide
End Sub

Private Sub menu12_Click(Index As Integer)
Form15.Show
Me.Hide
End Sub
Private Sub menu14_Click(Index As Integer)
Form23.Show
Me.Hide
End Sub

Private Sub menu15_Click(Index As Integer)
Form24.Show
Me.Hide
End Sub

Private Sub menu16_Click(Index As Integer)
Form25.Show
Form25.Text1 = ""
Form25.Text2 = ""
Form25.Text3 = ""
Form25.Text4 = ""
Form25.Text5 = ""
Form25.Text6 = ""
Form25.Text1.SetFocus
Me.Hide
End Sub

Private Sub menu17_Click(Index As Integer)
Form26.Show
Me.Hide
End Sub

Private Sub menu18_Click(Index As Integer)
Form10.Show
Me.Hide
End Sub
Private Sub menu2_Click(Index As Integer)
Form5.Show
Me.Hide
End Sub

Private Sub menu20_Click(Index As Integer)
Form27.Show
Me.Hide
End Sub

Private Sub menu21_Click(Index As Integer)
Form28.Show
Me.Hide
End Sub

Private Sub menu22_Click(Index As Integer)
Form29.Show
Form29.Text1(0).Text = ""
Form29.Text1(1).Text = ""
Form29.Text1(2).Text = ""
Form29.Text1(3).Text = ""
Form29.Text1(4).Text = ""
Form29.Text1(5).Text = ""
Form29.Text1(6).Text = ""
Form29.Text1(7).Text = ""
Form29.Text1(0).SetFocus
Me.Hide
End Sub

Private Sub menu23_Click(Index As Integer)
Form30.Show
Me.Hide
End Sub
Private Sub menu25_Click(Index As Integer)
Form16.Show
Me.Hide
End Sub

Private Sub menu26_Click(Index As Integer)
Form17.Show
Me.Hide
End Sub
Private Sub menu28_Click(Index As Integer)
Form18.Show
Me.Hide
End Sub

Private Sub menu29_Click(Index As Integer)
Form19.Show
Me.Hide
End Sub

Private Sub menu3_Click(Index As Integer)
Form6.Show
Me.Hide
End Sub

Private Sub menu30_Click(Index As Integer)
Form20.Show
Me.Hide
End Sub

Private Sub menu32_Click(Index As Integer)
Form21.Show
Me.Hide
End Sub

Private Sub menu33_Click(Index As Integer)
Form22.Show
Me.Hide
End Sub

Private Sub menu4_Click(Index As Integer)
Form7.Show
Form7.Text1 = ""
Form7.Text2 = ""
Form7.Text3 = ""
Form7.Text4 = ""
Form7.Text5 = ""
Form7.Text6 = ""
Form7.Text1.SetFocus
Me.Hide
End Sub

Private Sub menu5_Click(Index As Integer)
Form8.Show
Me.Hide
End Sub

Private Sub menu6_Click(Index As Integer)
Form9.Show
Me.Hide
End Sub
Private Sub quit_Click(Index As Integer)
Unload Me
End Sub


Private Sub menu8_Click(Index As Integer)
Form11.Show
Me.Hide
End Sub

Private Sub menu9_Click(Index As Integer)
Form12.Show
Me.Hide
End Sub

Private Sub quit35_Click(Index As Integer)
Unload Me
frmAbout.Show
End Sub