anaform.frm

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

VERSION 5.00
Begin VB.Form AnaForm 
   Caption         =   "统计报表"
   ClientHeight    =   6960
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9420
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6960
   ScaleWidth      =   9420
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame4 
      Caption         =   "明细表"
      Height          =   2895
      Left            =   4680
      TabIndex        =   12
      Top             =   3480
      Width           =   4095
      Begin VB.CommandButton cmdYear 
         Caption         =   "年度明细表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   840
         TabIndex        =   15
         Top             =   1920
         Width           =   2535
      End
      Begin VB.CommandButton cmdQuater 
         Caption         =   "季度明细表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   840
         TabIndex        =   14
         Top             =   1200
         Width           =   2535
      End
      Begin VB.CommandButton cmdMonth 
         Caption         =   "月度明细表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   840
         TabIndex        =   13
         Top             =   480
         Width           =   2535
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "统计表"
      Height          =   2895
      Left            =   120
      TabIndex        =   8
      Top             =   3480
      Width           =   4215
      Begin VB.CommandButton cmdQuaters 
         Caption         =   "季度统计表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   360
         TabIndex        =   11
         Top             =   1200
         Width           =   3135
      End
      Begin VB.CommandButton cmdYears 
         Caption         =   "年度统计表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   360
         TabIndex        =   10
         Top             =   1920
         Width           =   3135
      End
      Begin VB.CommandButton cmdMonths 
         Caption         =   "月度统计表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   360
         TabIndex        =   9
         Top             =   480
         Width           =   3135
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "员工信息"
      Height          =   3015
      Left            =   4680
      TabIndex        =   4
      Top             =   120
      Width           =   4095
      Begin VB.CommandButton cmdPos 
         Caption         =   "职位总表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   720
         TabIndex        =   7
         Top             =   1920
         Width           =   2895
      End
      Begin VB.CommandButton cmdSalAll 
         Caption         =   "员工工资总表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   720
         TabIndex        =   6
         Top             =   1200
         Width           =   2895
      End
      Begin VB.CommandButton cmdWorker 
         Caption         =   "员工信息表"
         Enabled         =   0   'False
         Height          =   375
         Left            =   720
         TabIndex        =   5
         Top             =   480
         Width           =   2895
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "当月统计"
      Height          =   3015
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4215
      Begin VB.CommandButton cmdMonthSpecial 
         Caption         =   "当月特殊项表"
         Height          =   375
         Left            =   480
         TabIndex        =   3
         Top             =   1920
         Width           =   3015
      End
      Begin VB.CommandButton cmdMonthAll 
         Caption         =   "当月员工工资总表"
         Height          =   375
         Left            =   480
         TabIndex        =   2
         Top             =   1200
         Width           =   3015
      End
      Begin VB.CommandButton cmdThisMonthSalary 
         Caption         =   "当月工资细表"
         Height          =   375
         Left            =   480
         TabIndex        =   1
         Top             =   480
         Width           =   3015
      End
   End
End
Attribute VB_Name = "AnaForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdMonthAll_Click()
    ThisMonthSumForm.Show
End Sub

Private Sub cmdMonthSpecial_Click()
    ThisMonthSpecialForm.Show
End Sub

Private Sub cmdThisMonthSalary_Click()
    ThisMonthSalaryForm.Show
End Sub


Private Sub cmdYears_Click()

End Sub

Private Sub Form_Load()

End Sub