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

📄 frmbuilding.frm

📁 智能门锁的程序,用于控制门锁发卡程序,是科布尔的
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form FrmOutBuilding 
   Caption         =   "发行楼号卡"
   ClientHeight    =   5640
   ClientLeft      =   870
   ClientTop       =   1530
   ClientWidth     =   8580
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5640
   ScaleWidth      =   8580
   Begin VB.TextBox TxtAccount 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   4200
      MaxLength       =   6
      TabIndex        =   42
      Top             =   1560
      Visible         =   0   'False
      Width           =   2655
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Enabled         =   0   'False
      Height          =   375
      Index           =   9
      Left            =   3360
      ScaleHeight     =   315
      ScaleWidth      =   1155
      TabIndex        =   34
      Top             =   2160
      Width           =   1215
      Begin VB.TextBox TxtSecond 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Index           =   6
         Left            =   1560
         MaxLength       =   2
         TabIndex        =   37
         Top             =   20
         Width           =   320
      End
      Begin VB.TextBox TxtHour 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   40
         MaxLength       =   2
         TabIndex        =   36
         Top             =   20
         Width           =   320
      End
      Begin VB.TextBox TxtMinute 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   600
         MaxLength       =   2
         TabIndex        =   35
         Top             =   20
         Width           =   320
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "分"
         Height          =   375
         Index           =   21
         Left            =   960
         TabIndex        =   39
         Top             =   40
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "时"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   20
         Left            =   360
         TabIndex        =   38
         Top             =   40
         Width           =   255
      End
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Index           =   8
      Left            =   3360
      ScaleHeight     =   315
      ScaleWidth      =   1155
      TabIndex        =   28
      Top             =   2760
      Width           =   1215
      Begin VB.TextBox TxtMinute1 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   600
         MaxLength       =   2
         TabIndex        =   31
         Top             =   20
         Width           =   320
      End
      Begin VB.TextBox TxtHour1 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   40
         MaxLength       =   2
         TabIndex        =   30
         Top             =   20
         Width           =   320
      End
      Begin VB.TextBox TxtSecond1 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   1320
         MaxLength       =   2
         TabIndex        =   29
         Top             =   120
         Width           =   320
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "时"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   19
         Left            =   360
         TabIndex        =   33
         Top             =   40
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "分"
         Height          =   375
         Index           =   10
         Left            =   960
         TabIndex        =   32
         Top             =   40
         Width           =   255
      End
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Enabled         =   0   'False
      Height          =   375
      Index           =   7
      Left            =   1200
      ScaleHeight     =   315
      ScaleWidth      =   1635
      TabIndex        =   21
      Top             =   2160
      Width           =   1695
      Begin VB.TextBox TxtDay 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Index           =   0
         Left            =   1200
         MaxLength       =   2
         TabIndex        =   24
         Top             =   20
         Width           =   255
      End
      Begin VB.TextBox TxtYear 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Index           =   0
         Left            =   40
         MaxLength       =   4
         TabIndex        =   23
         Top             =   0
         Width           =   435
      End
      Begin VB.TextBox TxtMonth 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Index           =   0
         Left            =   720
         MaxLength       =   2
         TabIndex        =   22
         Top             =   20
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "月"
         Height          =   375
         Index           =   18
         Left            =   960
         TabIndex        =   27
         Top             =   40
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "年"
         Height          =   375
         Index           =   17
         Left            =   480
         TabIndex        =   26
         Top             =   40
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "日"
         Height          =   375
         Index           =   16
         Left            =   1440
         TabIndex        =   25
         Top             =   40
         Width           =   255
      End
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Index           =   6
      Left            =   1200
      ScaleHeight     =   315
      ScaleWidth      =   1635
      TabIndex        =   14
      Top             =   2760
      Width           =   1695
      Begin VB.TextBox TxtMonth 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Index           =   1
         Left            =   720
         MaxLength       =   2
         TabIndex        =   17
         Top             =   20
         Width           =   255
      End
      Begin VB.TextBox TxtYear 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Index           =   1
         Left            =   40
         MaxLength       =   4
         TabIndex        =   16
         Top             =   20
         Width           =   435
      End
      Begin VB.TextBox TxtDay 
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   0  'None
         Height          =   255
         Index           =   1
         Left            =   1200
         MaxLength       =   2
         TabIndex        =   15
         Top             =   20
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "日"
         Height          =   375
         Index           =   15
         Left            =   1440
         TabIndex        =   20
         Top             =   40
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "年"
         Height          =   375
         Index           =   14
         Left            =   480
         TabIndex        =   19
         Top             =   40
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "月"
         Height          =   375
         Index           =   13
         Left            =   960
         TabIndex        =   18
         Top             =   40
         Width           =   255
      End
   End
   Begin VB.PictureBox PicMSG 
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   480
      ScaleHeight     =   375
      ScaleWidth      =   6135
      TabIndex        =   13
      Top             =   5160
      Width           =   6135
   End
   Begin VB.CommandButton CmdLoss 
      Caption         =   "挂失"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3360
      TabIndex        =   11
      Top             =   960
      Width           =   975
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   6600
      Top             =   840
   End
   Begin VB.ComboBox CboBuildingNumber 
      BackColor       =   &H00E0E0E0&
      Height          =   330
      Left            =   1200
      TabIndex        =   2
      Top             =   1560
      Width           =   1455
   End
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7200
      TabIndex        =   10
      Top             =   1920
      Width           =   1095
   End
   Begin VB.CommandButton CmdAccept 
      Caption         =   "发行"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7200
      TabIndex        =   6
      Top             =   1080
      Width           =   1095
   End
   Begin VB.TextBox TxtRemark 
      BackColor       =   &H00E0E0E0&
      Height          =   1095
      Left            =   1200
      MaxLength       =   255
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      Top             =   3960
      Width           =   5775
   End
   Begin VB.TextBox TxtIDCard 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   3480
      MaxLength       =   18
      TabIndex        =   4
      Top             =   3360
      Width           =   3495
   End
   Begin VB.TextBox TxtName 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   1200
      MaxLength       =   8
      TabIndex        =   3
      Top             =   3360
      Width           =   1575
   End
   Begin VB.TextBox TxtICNumber 
      BackColor       =   &H00E0E0E0&
      Enabled         =   0   'False
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   960
      Width           =   2055
   End
   Begin VB.Label LblHeader 
      Alignment       =   2  'Center
      Caption         =   "发行楼号卡"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1920
      TabIndex        =   44
      Top             =   120
      Width           =   4095

⌨️ 快捷键说明

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