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

📄 frmstatics.frm

📁 一个不错的数控源码是vb的
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form frmStatics 
   Caption         =   "统计"
   ClientHeight    =   4035
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6090
   LinkTopic       =   "Form1"
   ScaleHeight     =   4035
   ScaleWidth      =   6090
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   5640
      Top             =   2760
   End
   Begin VB.Frame FrameStatistic 
      BackColor       =   &H00808080&
      ForeColor       =   &H00004040&
      Height          =   2505
      Left            =   480
      TabIndex        =   0
      Top             =   840
      Width           =   5175
      Begin VB.CommandButton cmdOK 
         Caption         =   "确  定"
         Height          =   375
         Left            =   4560
         TabIndex        =   39
         Top             =   1920
         Width           =   1215
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "今天是:"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Left            =   480
         TabIndex        =   38
         Top             =   360
         Width           =   720
      End
      Begin VB.Label lblProcessDate 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         ForeColor       =   &H00E0E0E0&
         Height          =   180
         Left            =   1440
         TabIndex        =   37
         Top             =   360
         Width           =   90
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "已加工:"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Left            =   3480
         TabIndex        =   36
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "成品率:"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Left            =   480
         TabIndex        =   35
         Top             =   720
         Width           =   720
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "次品率:"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Left            =   3480
         TabIndex        =   34
         Top             =   720
         Width           =   720
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "总加工时间:"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Left            =   480
         TabIndex        =   33
         Top             =   1800
         Width           =   1080
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "平均加工时间:"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Left            =   480
         TabIndex        =   32
         Top             =   1440
         Width           =   1260
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "累积加工时间:"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Left            =   480
         TabIndex        =   31
         Top             =   1080
         Width           =   1260
      End
      Begin VB.Label lblProcessed 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "0"
         ForeColor       =   &H00E0E0E0&
         Height          =   180
         Left            =   4440
         TabIndex        =   30
         Top             =   360
         Width           =   90
      End
      Begin VB.Label lblFinishRate 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "0"
         ForeColor       =   &H00E0E0E0&
         Height          =   180
         Left            =   1440
         TabIndex        =   29
         Top             =   720
         Width           =   90
      End
      Begin VB.Label lblFailingRate 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "0"
         ForeColor       =   &H00E0E0E0&
         Height          =   180
         Left            =   4440
         TabIndex        =   28
         Top             =   720
         Width           =   90
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "小时"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   0
         Left            =   2880
         TabIndex        =   27
         Top             =   1800
         Width           =   360
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "小时"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   1
         Left            =   2880
         TabIndex        =   26
         Top             =   1080
         Width           =   360
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "小时"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   2
         Left            =   2880
         TabIndex        =   25
         Top             =   1440
         Width           =   360
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "分"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   0
         Left            =   3720
         TabIndex        =   24
         Top             =   1080
         Width           =   180
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "分"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   1
         Left            =   3720
         TabIndex        =   23
         Top             =   1440
         Width           =   180
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "分"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   2
         Left            =   3720
         TabIndex        =   22
         Top             =   1800
         Width           =   180
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "秒"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   0
         Left            =   4320
         TabIndex        =   21
         Top             =   1080
         Width           =   180
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "秒"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   1
         Left            =   4320
         TabIndex        =   20
         Top             =   1440
         Width           =   180
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         BackColor       =   &H8000000C&
         Caption         =   "秒"
         ForeColor       =   &H00C0C0C0&
         Height          =   180
         Index           =   2
         Left            =   4320
         TabIndex        =   19
         Top             =   1800
         Width           =   180
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True

⌨️ 快捷键说明

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