form2.frm

自己做的简单的工资查询系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form2 
   BackColor       =   &H00C0FFC0&
   Caption         =   "工资管理系统"
   ClientHeight    =   8040
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11040
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":0000
   ScaleHeight     =   8040
   ScaleWidth      =   11040
   StartUpPosition =   3  'Windows Default
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   7545
      Width           =   11040
      _ExtentX        =   19473
      _ExtentY        =   873
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   7
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Text            =   "管理员"
            TextSave        =   "管理员"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "15:35"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   "工资管理系统"
            TextSave        =   "工资管理系统"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2007-12-27"
         EndProperty
         BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            TextSave        =   "NUM"
         EndProperty
      EndProperty
   End
   Begin VB.Menu 职工信息 
      Caption         =   "职工信息"
      Begin VB.Menu 基本情况 
         Caption         =   "基本情况"
      End
   End
   Begin VB.Menu 工资管理 
      Caption         =   "工资管理"
      Begin VB.Menu 发放 
         Caption         =   "工资发放"
      End
      Begin VB.Menu 查询 
         Caption         =   "工资查询"
      End
   End
   Begin VB.Menu 职工管理 
      Caption         =   "职工管理"
      Begin VB.Menu 出勤 
         Caption         =   "出勤"
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助"
      Begin VB.Menu 说明 
         Caption         =   "运行说明"
      End
   End
   Begin VB.Menu tuichu 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub exit_Click()
End
End Sub

Private Sub tuichu_Click()
a = MsgBox("是否退出?", vbOKCancel + vbExclamation, "注意")
If a = 1 Then
End
End If
End Sub

Private Sub 查询_Click()
Form查询.Show
End Sub

Private Sub 出勤_Click()
Form出勤.Show
End Sub

Private Sub 发放_Click()
Form发放.Show
End Sub

Private Sub 基本情况_Click()
Form信息.Show
End Sub

Private Sub 说明_Click()
Form帮助.Show
End Sub

Private Sub 退出_Click()
End
End Sub