coreform.frm

来自「一个很不错的工资管理系统,功能全且代码简单易懂」· FRM 代码 · 共 93 行

VERSION 5.00
Begin VB.Form CoreForm 
   Caption         =   "核心窗体"
   ClientHeight    =   6615
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9435
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6615
   ScaleWidth      =   9435
   WindowState     =   2  'Maximized
   Begin VB.CommandButton cmdAnalysis 
      Caption         =   "统计报表"
      Height          =   735
      Left            =   3000
      TabIndex        =   4
      Top             =   4920
      Width           =   2655
   End
   Begin VB.CommandButton cmdPayOff 
      Caption         =   "工资发放"
      Height          =   735
      Left            =   3000
      TabIndex        =   3
      Top             =   3840
      Width           =   2655
   End
   Begin VB.CommandButton cmdSpecial 
      Caption         =   "特殊项管理"
      Height          =   735
      Left            =   3000
      TabIndex        =   2
      Top             =   2760
      Width           =   2655
   End
   Begin VB.CommandButton cmdPosition 
      Caption         =   "职位管理"
      Height          =   735
      Left            =   3000
      TabIndex        =   1
      Top             =   1680
      Width           =   2655
   End
   Begin VB.CommandButton cmdHR 
      Caption         =   "人员管理"
      Height          =   495
      Left            =   3000
      TabIndex        =   0
      Top             =   600
      Width           =   2655
   End
End
Attribute VB_Name = "CoreForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdAnalysis_Click()
    AnaForm.Show
End Sub

   '
   '调用人员管理窗体
   '
Private Sub cmdHR_Click()
    HRForm.Show
End Sub

   '
   '调用发放工资窗体
   '
Private Sub cmdPayOff_Click()
    PayForm.Show
End Sub

   '
   '调用职位管理窗体
   '
Private Sub cmdPosition_Click()
    PosForm.Show
End Sub

   '
   '调用特殊项窗体
   '
Private Sub cmdSpecial_Click()
    SpecialForm.Show
End Sub