form1.frm

企业管理系统,用ACESS2000的数据库系统和ADO连接接口

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4185
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   10455
   FillStyle       =   4  'Upward Diagonal
   LinkTopic       =   "Form1"
   ScaleHeight     =   4185
   ScaleWidth      =   10455
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      FillStyle       =   0  'Solid
      ForeColor       =   &H80000008&
      Height          =   615
      Left            =   1320
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   585
      ScaleWidth      =   7065
      TabIndex        =   0
      Top             =   1440
      Width           =   7095
   End
   Begin VB.Menu zymc 
      Caption         =   "职员名册管理"
      Begin VB.Menu ob 
         Caption         =   "一部门"
      End
      Begin VB.Menu tb 
         Caption         =   "二部门"
      End
      Begin VB.Menu thb 
         Caption         =   "三部门"
      End
   End
   Begin VB.Menu gzbz 
      Caption         =   "职员工资标准管理"
      Begin VB.Menu gj 
         Caption         =   "高级职称"
      End
      Begin VB.Menu zj 
         Caption         =   "中级职称"
      End
      Begin VB.Menu cj 
         Caption         =   "初级职称"
      End
      Begin VB.Menu pt 
         Caption         =   "普通职员"
      End
      Begin VB.Menu qt 
         Caption         =   "其他员工"
      End
   End
   Begin VB.Menu gzxx 
      Caption         =   "职员工资信息管理"
      Begin VB.Menu yib 
         Caption         =   "一部门"
      End
      Begin VB.Menu erb 
         Caption         =   "二部门"
      End
      Begin VB.Menu sanb 
         Caption         =   "三部门"
      End
   End
   Begin VB.Menu sys 
      Caption         =   "系统管理"
      Begin VB.Menu user 
         Caption         =   "用户管理"
      End
      Begin VB.Menu about 
         Caption         =   "系统说明"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ob_Click()
mcob.Show
Me.Hide
End Sub



Private Sub tb_Click()
mctb.Show
Me.Hide
End Sub

Private Sub thb_Click()

mcthb.Show
Me.Hide

End Sub

Private Sub gj_Click()

zcgj.Show
Me.Hide

End Sub
Private Sub zj_Click()

zczj.Show
Me.Hide

End Sub
Private Sub cj_Click()

zccj.Show
Me.Hide

End Sub
Private Sub pt_Click()

zcpt.Show
Me.Hide

End Sub
Private Sub qt_Click()

zcqt.Show
Me.Hide

End Sub

Private Sub about_Click()

aboutc.Show
Me.Hide

End Sub

Private Sub user_Click()

userc.Show
Me.Hide

End Sub

Private Sub yib_Click()

cbyi.Show
Me.Hide

End Sub
Private Sub erb_Click()

cber.Show
Me.Hide

End Sub
Private Sub sanb_Click()

cbsan.Show
Me.Hide

End Sub

Private Sub exit_Click()
End
End Sub