tjzgzs.frm

来自「职工工资管理系统」· FRM 代码 · 共 65 行

VERSION 5.00
Object = "{1FB3F7AD-7B17-4DC8-AC0E-35123A4CF9C5}#1.0#0"; "WinXPC Engine.ocx"
Begin VB.Form frm统计人数 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "统计职工总人数"
   ClientHeight    =   1755
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3720
   ControlBox      =   0   'False
   Icon            =   "tjzgzs.frx":0000
   LinkTopic       =   "Form8"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "tjzgzs.frx":27A2
   ScaleHeight     =   1755
   ScaleWidth      =   3720
   StartUpPosition =   2  '屏幕中心
   Begin WinXPC_Engine.WindowsXPC WindowsXPC1 
      Left            =   0
      Top             =   1560
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
   End
   Begin VB.CommandButton cmdconfirm 
      Caption         =   "确  定(&Q)"
      Height          =   315
      Left            =   1320
      MouseIcon       =   "tjzgzs.frx":346C
      TabIndex        =   1
      Top             =   1200
      Width           =   1095
   End
   Begin VB.Label lblzgzs 
      Alignment       =   2  'Center
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   2895
   End
End
Attribute VB_Name = "frm统计人数"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Set db = OpenDatabase(App.Path + "\DATA\职工工资管理.mdb")
                     '定义将打开的数据库和表
    Set rt = db.OpenRecordset("职工表")
   WindowsXPC1.InitSubClassing
    lblzgzs.Caption = "职工总数为：" + Str(rt.RecordCount) + "人"
                                  '计算并显示职工总人数

End Sub
Private Sub cmdconfirm_click()      '单击“确定”按钮
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
rt.Close
End Sub