VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "主界面"
   ClientHeight    =   3270
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   6525
   LinkTopic       =   "Form3"
   ScaleHeight     =   3270
   ScaleWidth      =   6525
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   3255
      Left            =   0
      Picture         =   "主界面.frx":0000
      ScaleHeight     =   3195
      ScaleWidth      =   6435
      TabIndex        =   0
      Top             =   0
      Width           =   6495
   End
   Begin VB.Menu wzb 
      Caption         =   "物資表操作"
   End
   Begin VB.Menu glyb 
      Caption         =   "管理員表操作"
   End
   Begin VB.Menu gxb 
      Caption         =   "關系表操作"
   End
   Begin VB.Menu jcb 
      Caption         =   "進倉表操作"
   End
   Begin VB.Menu ccb 
      Caption         =   "出倉表操作"
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ccb_Click()
 If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "出倉表", mycon, adOpenStatic, adLockOptimistic
   Form6.Caption = "出倉表操作"
   Form6.Show
End Sub

Private Sub exit_Click()
 Unload Me
End Sub

Private Sub glyb_Click()
   If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "管理員表", mycon, adOpenStatic, adLockOptimistic
   Form4.Caption = "管理員表操作"
   Form4.Show
End Sub

Private Sub gxb_Click()
   If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "管理表", mycon, adOpenStatic, adLockOptimistic
   Form5.Caption = "管理表操作"
   Form5.Show
End Sub

Private Sub jcb_Click()
  If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "進倉表", mycon, adOpenStatic, adLockOptimistic
   Form7.Caption = "進倉表操作"
   Form7.Show
End Sub

Private Sub wzb_Click()
   If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "物資表", mycon, adOpenStatic, adLockOptimistic
   Form16.Caption = "物資表操作"
   Form16.Show
End Sub