主界面.frm

来自「仓库管理系统是一个关于货物出仓」· FRM 代码 · 共 94 行

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