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

📄 frm_readstat.frm

📁 电能表抄表软件,基本符合国家颁布的DL645通讯规约,去除了一些不必要的功能
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm_readstat 
   BackColor       =   &H00FFC0C0&
   Caption         =   "读状态"
   ClientHeight    =   7185
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   11475
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   11.25
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   Icon            =   "Frm_readstat.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7185
   ScaleWidth      =   11475
   WindowState     =   2  'Maximized
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Index           =   82
      Left            =   7200
      Locked          =   -1  'True
      TabIndex        =   62
      Top             =   5520
      Width           =   1905
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Index           =   81
      Left            =   7200
      Locked          =   -1  'True
      TabIndex        =   61
      Top             =   5040
      Width           =   1905
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "最近反向起始时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   228
      Index           =   16
      Left            =   960
      TabIndex        =   60
      Top             =   2520
      Width           =   180
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "最近反向起始时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   228
      Index           =   15
      Left            =   960
      TabIndex        =   59
      Top             =   1920
      Width           =   180
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "电表运行状态字"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   204
      Index           =   27
      Left            =   4920
      TabIndex        =   57
      Top             =   3720
      Width           =   204
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "电表运行状态字"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   204
      Index           =   26
      Left            =   4920
      TabIndex        =   55
      Top             =   3240
      Width           =   204
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "电表运行状态字"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   204
      Index           =   25
      Left            =   4920
      TabIndex        =   54
      Top             =   2760
      Width           =   204
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   192
      Index           =   21
      Left            =   960
      TabIndex        =   49
      Top             =   5040
      Width           =   225
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "日期和星期"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Index           =   22
      Left            =   960
      TabIndex        =   48
      Top             =   5520
      Width           =   225
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "最近编程次数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   204
      Index           =   20
      Left            =   960
      TabIndex        =   47
      Top             =   4440
      Width           =   180
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "最近编程时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   204
      Index           =   19
      Left            =   960
      TabIndex        =   46
      Top             =   3960
      Width           =   168
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "最近反向起始时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   228
      Index           =   17
      Left            =   960
      TabIndex        =   45
      Top             =   3000
      Width           =   180
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "反向累计总时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   204
      Index           =   18
      Left            =   960
      TabIndex        =   44
      Top             =   3480
      Width           =   192
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "电表常数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   204
      Index           =   24
      Left            =   4920
      TabIndex        =   43
      Top             =   2280
      Width           =   192
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "自动抄表日"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Index           =   23
      Left            =   4920
      TabIndex        =   42
      Top             =   1800
      Width           =   204
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   7200
      Top             =   6960
   End
   Begin VB.Timer Timer4 
      Enabled         =   0   'False
      Interval        =   12
      Left            =   7440
      Top             =   6960
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   6390
      Top             =   6945
   End
   Begin VB.CommandButton clr_select 
      BackColor       =   &H00E0E0E0&
      Caption         =   "取消选择"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   840
      Left            =   8130
      Picture         =   "Frm_readstat.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   41
      Top             =   435
      Width           =   945
   End
   Begin VB.CommandButton all_select 
      BackColor       =   &H00E0E0E0&
      Caption         =   "全部选择"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   840
      Left            =   9210
      Picture         =   "Frm_readstat.frx":0884
      Style           =   1  'Graphical
      TabIndex        =   40
      Top             =   435
      Width           =   945
   End
   Begin VB.CommandButton Com_cancel 
      BackColor       =   &H00C0C0C0&
      Caption         =   "停止发送"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   840
      Left            =   10290
      MaskColor       =   &H00E0E0E0&
      Picture         =   "Frm_readstat.frx":0CC6
      Style           =   1  'Graphical
      TabIndex        =   39
      Top             =   435
      Visible         =   0   'False
      Width           =   915
   End
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      Height          =   330
      Index           =   74
      Left            =   3435
      Locked          =   -1  'True
      MaxLength       =   2
      TabIndex        =   38
      Top             =   4950
      Width           =   570
   End
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   12
      Left            =   5625
      Top             =   7020
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Index           =   71
      Left            =   6000
      Locked          =   -1  'True
      MaxLength       =   2
      TabIndex        =   25
      Top             =   1800
      Width           =   1845
   End
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      Height          =   330
      Index           =   73
      Left            =   2685

⌨️ 快捷键说明

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