⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmacmain.frm

📁 自动回传考勤数据程序,小程序!大作用!可供大家参考一下!
💻 FRM
📖 第 1 页 / 共 5 页
字号:
            Width           =   1005
         End
         Begin VB.CommandButton btnRegMagEmMoveRight 
            Caption         =   ">"
            Height          =   330
            Left            =   2970
            TabIndex        =   266
            ToolTipText     =   "移至右边"
            Top             =   1215
            Width           =   465
         End
         Begin VB.CommandButton btnRegMagEmMoveLeft 
            Caption         =   "<"
            Height          =   330
            Left            =   2970
            TabIndex        =   265
            ToolTipText     =   "移至左边"
            Top             =   1800
            Width           =   465
         End
         Begin VB.CommandButton btnRegMagAllEmMoveLeft 
            Caption         =   "<<"
            Height          =   330
            Left            =   2970
            TabIndex        =   264
            ToolTipText     =   "全部移至左边"
            Top             =   3060
            Width           =   465
         End
         Begin MSComctlLib.ListView LvRegMagSelectEm 
            Height          =   4200
            Left            =   3465
            TabIndex        =   267
            Top             =   675
            Width           =   2805
            _ExtentX        =   4948
            _ExtentY        =   7408
            View            =   3
            LabelEdit       =   1
            MultiSelect     =   -1  'True
            LabelWrap       =   -1  'True
            HideSelection   =   0   'False
            FullRowSelect   =   -1  'True
            _Version        =   393217
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            BorderStyle     =   1
            Appearance      =   1
            NumItems        =   3
            BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               Text            =   "工号"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   1
               Text            =   "姓名"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   2
               Text            =   "卡号"
               Object.Width           =   2117
            EndProperty
         End
         Begin MSComctlLib.ListView LvRegMagAllEm 
            Height          =   4200
            Left            =   135
            TabIndex        =   268
            Top             =   675
            Width           =   2805
            _ExtentX        =   4948
            _ExtentY        =   7408
            View            =   3
            LabelEdit       =   1
            LabelWrap       =   -1  'True
            HideSelection   =   0   'False
            FullRowSelect   =   -1  'True
            _Version        =   393217
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            BorderStyle     =   1
            Appearance      =   1
            NumItems        =   3
            BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               Text            =   "工号"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   1
               Text            =   "姓名"
               Object.Width           =   1411
            EndProperty
            BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               SubItemIndex    =   2
               Text            =   "卡号"
               Object.Width           =   2117
            EndProperty
         End
         Begin VB.CommandButton btnRegMagStop 
            Caption         =   "停止注册"
            Height          =   330
            Left            =   6570
            TabIndex        =   277
            Top             =   2490
            Visible         =   0   'False
            Width           =   1005
         End
         Begin VB.CommandButton btnRegMagRegEm 
            Caption         =   "注册"
            Height          =   330
            Left            =   6570
            TabIndex        =   278
            Top             =   3735
            Width           =   1005
         End
         Begin VB.Frame Frame9 
            Caption         =   "注册类型"
            Height          =   1005
            Left            =   3735
            TabIndex        =   272
            Top             =   765
            Visible         =   0   'False
            Width           =   1455
            Begin VB.OptionButton OptRegMagType 
               Caption         =   "份饭"
               Enabled         =   0   'False
               Height          =   330
               Index           =   3
               Left            =   1710
               TabIndex        =   276
               Top             =   225
               Width           =   735
            End
            Begin VB.OptionButton OptRegMagType 
               Caption         =   "考勤 + 门禁"
               Enabled         =   0   'False
               Height          =   330
               Index           =   2
               Left            =   45
               TabIndex        =   275
               Top             =   90
               Width           =   1320
            End
            Begin VB.OptionButton OptRegMagType 
               Caption         =   "门禁"
               Enabled         =   0   'False
               Height          =   330
               Index           =   1
               Left            =   990
               TabIndex        =   274
               Top             =   225
               Width           =   690
            End
            Begin VB.OptionButton OptRegMagType 
               Caption         =   "考勤 "
               Height          =   330
               Index           =   0
               Left            =   225
               TabIndex        =   273
               Top             =   225
               Value           =   -1  'True
               Width           =   690
            End
         End
         Begin VB.Label LabRegMagAllEm 
            Caption         =   "所有员工"
            Height          =   285
            Left            =   135
            TabIndex        =   270
            Top             =   360
            Width           =   2040
         End
         Begin VB.Label LabRegMagRegEm 
            Caption         =   "注册员工"
            Height          =   285
            Left            =   3465
            TabIndex        =   269
            Top             =   360
            Width           =   2040
         End
      End
   End
   Begin VB.PictureBox PicTab 
      Height          =   5550
      Index           =   6
      Left            =   1215
      ScaleHeight     =   5490
      ScaleWidth      =   8055
      TabIndex        =   43
      Top             =   330
      Width           =   8115
      Begin VB.Frame FramFood 
         Caption         =   "设置份饭时间段"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   4980
         Left            =   90
         TabIndex        =   102
         Top             =   270
         Width           =   7875
         Begin VB.TextBox txtFoodPrice 
            Height          =   285
            Index           =   3
            Left            =   6480
            TabIndex        =   313
            Top             =   2835
            Width           =   735
         End
         Begin VB.TextBox txtFoodPrice 
            Height          =   285
            Index           =   2
            Left            =   6480
            TabIndex        =   312
            Top             =   2130
            Width           =   735
         End
         Begin VB.TextBox txtFoodPrice 
            Height          =   285
            Index           =   1
            Left            =   6480
            TabIndex        =   311
            Top             =   1380
            Width           =   735
         End
         Begin VB.TextBox txtFoodPrice 
            Height          =   285
            Index           =   0
            Left            =   6480
            TabIndex        =   310
            Top             =   675
            Width           =   735
         End
         Begin VB.CommandButton btnRegMealTime 
            Caption         =   "设置"
            Height          =   330
            Left            =   6315
            TabIndex        =   103
            Top             =   3735
            Width           =   1185
         End
         Begin MSMask.MaskEdBox MskMealTimeTo 
            Height          =   285
            Index           =   0
            Left            =   4380
            TabIndex        =   104
            Top             =   675
            Width           =   1380
            _ExtentX        =   2434
            _ExtentY        =   503
            _Version        =   393216
            MaxLength       =   4
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Format          =   "hh:mm"
            Mask            =   "##:##"
            PromptChar      =   " "
         End
         Begin MSMask.MaskEdBox MskMealTimeFrom 
            Height          =   285
            Index           =   0
            Left            =   1935
            TabIndex        =   105
            Top             =   675
            Width           =   1380
            _ExtentX        =   2434
            _ExtentY        =   503
            _Version        =   393216
            MaxLength       =   4
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Format          =   "hh:mm"
            Mask            =   "##:##"
            PromptChar      =   " "
         End
         Begin MSMask.MaskEdBox MskMealTimeTo 
            Height          =   285
            Index           =   1
            Left            =   4380
            TabIndex        =   106
            Top             =   1380
            Width           =   1380
            _ExtentX        =   2434
            _ExtentY        =   503
            _Version        =   393216
            MaxLength       =   4
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Format          =   "hh:mm"
            Mask            =   "##:##"
            PromptChar      =   " "
         End
         Begin MSMask.MaskEdBox MskMealTimeFrom 
            Height          =   285
            Index           =   1
            Left            =   1935
            TabIndex        =   107
            Top             =   1380
            Width           =   1380
            _ExtentX        =   2434
            _ExtentY        =   503
            _Version        =   393216
            MaxLength       =   4
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Format          =   "hh:mm"

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -