mdiform1.frm

一个简单完整的工资管理系统 毕业论文里的代码

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00E0E0E0&
   Caption         =   "财务工资管理系统"
   ClientHeight    =   5745
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9225
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   0
      ScaleHeight     =   465
      ScaleWidth      =   9195
      TabIndex        =   0
      Top             =   0
      Width           =   9225
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "欢迎您："
         Height          =   255
         Left            =   360
         TabIndex        =   1
         Top             =   120
         Width           =   2175
      End
   End
   Begin VB.Menu z 
      Caption         =   "系统设置"
      Begin VB.Menu g 
         Caption         =   "用户管理"
      End
      Begin VB.Menu z1 
         Caption         =   "企业信息"
      End
      Begin VB.Menu z2 
         Caption         =   "考勤"
      End
      Begin VB.Menu b1 
         Caption         =   "部门"
      End
      Begin VB.Menu z4 
         Caption         =   "学历"
      End
      Begin VB.Menu z3 
         Caption         =   "职位"
      End
      Begin VB.Menu z8 
         Caption         =   "管理员设密码"
      End
      Begin VB.Menu h 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu a 
      Caption         =   "人事档案信息"
      Begin VB.Menu a1 
         Caption         =   "添加信息"
      End
      Begin VB.Menu a2 
         Caption         =   "修改信息"
      End
   End
   Begin VB.Menu c 
      Caption         =   "工资信息"
      Begin VB.Menu c1 
         Caption         =   "添加信息"
      End
      Begin VB.Menu c3 
         Caption         =   "考勤汇总"
      End
      Begin VB.Menu c4 
         Caption         =   "奖惩汇总"
      End
      Begin VB.Menu c2 
         Caption         =   "工资汇总"
      End
   End
   Begin VB.Menu x 
      Caption         =   "财务管理"
      Begin VB.Menu x1 
         Caption         =   "考勤加班出差管理"
      End
      Begin VB.Menu x2 
         Caption         =   "考核奖惩"
      End
   End
   Begin VB.Menu e 
      Caption         =   "查询"
      Begin VB.Menu b2 
         Caption         =   "按部门查询"
      End
      Begin VB.Menu e1 
         Caption         =   "组合查询人事信息"
      End
      Begin VB.Menu e2 
         Caption         =   "查询工资 "
      End
      Begin VB.Menu y1 
         Caption         =   "统计工资"
      End
   End
   Begin VB.Menu f 
      Caption         =   "打印"
      Begin VB.Menu f1 
         Caption         =   "打印人事档案信息"
      End
      Begin VB.Menu f2 
         Caption         =   "打印工资信息"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub a1_Click()
Form9.Show
End Sub

Private Sub a2_Click()
Form4.Show
End Sub

Private Sub a3_Click()
frmTreeview.Show
End Sub

Private Sub b1_Click()
Form10.Show
End Sub

Private Sub b2_Click()
Form5.Show
End Sub

Private Sub c1_Click()
Form6.Show
End Sub

Private Sub c2_Click()
Form11.Show
End Sub

Private Sub c3_Click()
Form23.Show
End Sub

Private Sub c4_Click()
Form17.Show
End Sub

Private Sub d1_Click()
Form12.Show
End Sub

Private Sub d2_Click()
Form7.Show
End Sub

Private Sub e1_Click()
Form8.Show
End Sub

Private Sub e2_Click()
Form13.Show
End Sub

Private Sub f1_Click()
DataReport1.Show
End Sub

Private Sub f2_Click()
DataReport2.Show
End Sub

Private Sub f3_Click()
Form26.Show
End Sub

Private Sub g_Click()
If jb <> "管理员" Then
MsgBox "您不是管理员"
Else
Form3.Show
End If
End Sub

Private Sub h_Click()
End
End Sub

Private Sub MDIForm_Load()



Label1.Caption = "欢迎您：" & mname
End Sub

Private Sub u1_Click()
Form16.Show
End Sub

Private Sub u2_Click()
Form18.Show
End Sub

Private Sub u3_Click()
Form25.Show
End Sub

Private Sub x1_Click()
Form2.Show
End Sub

Private Sub x2_Click()
Form15.Show
End Sub

Private Sub x3_Click()
Form16.Show
End Sub

Private Sub y1_Click()
Form14.Show
End Sub

Private Sub z1_Click()
Form19.Show
End Sub

Private Sub z2_Click()
Form20.Show
End Sub

Private Sub z3_Click()
Form21.Show
End Sub

Private Sub z4_Click()
Form22.Show
End Sub

Private Sub z8_Click()
If jb <> "管理员" Then
MsgBox "您不是管理员"
Else
Form24.Show
End If
End Sub