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

📄 form1.frm

📁 读取数据库数据并显示在LED屏上。串口编程
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   BackColor       =   &H00FF8080&
   Caption         =   "LED显示系统"
   ClientHeight    =   8055
   ClientLeft      =   645
   ClientTop       =   1815
   ClientWidth     =   13230
   ForeColor       =   &H80000008&
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8055
   ScaleWidth      =   13230
   Begin VB.Frame Frame2 
      BackColor       =   &H00FF8080&
      Height          =   5655
      Left            =   6720
      TabIndex        =   58
      Top             =   960
      Width           =   6255
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   10
         Left            =   4680
         TabIndex        =   12
         Top             =   1380
         Width           =   1215
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   10
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   30
         Top             =   1410
         Width           =   975
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   9
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   29
         Top             =   870
         Width           =   975
      End
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   9
         Left            =   4680
         TabIndex        =   11
         Top             =   840
         Width           =   1215
      End
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   11
         Left            =   4680
         TabIndex        =   13
         Top             =   1920
         Width           =   1215
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   11
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   31
         Top             =   1950
         Width           =   975
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   12
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   32
         Top             =   2490
         Width           =   975
      End
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   12
         Left            =   4680
         TabIndex        =   14
         Top             =   2460
         Width           =   1215
      End
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   13
         Left            =   4680
         TabIndex        =   15
         Top             =   3015
         Width           =   1215
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   13
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   33
         Top             =   3045
         Width           =   975
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   14
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   34
         Top             =   3570
         Width           =   975
      End
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   14
         Left            =   4680
         TabIndex        =   16
         Top             =   3540
         Width           =   1215
      End
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   16
         Left            =   4680
         TabIndex        =   18
         Top             =   4635
         Width           =   1215
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   16
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   36
         Top             =   4650
         Width           =   975
      End
      Begin VB.TextBox Text 
         Alignment       =   2  'Center
         DataField       =   " "
         DataSource      =   " "
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   405
         Index           =   15
         Left            =   3480
         MaxLength       =   5
         TabIndex        =   35
         Top             =   4110
         Width           =   975
      End
      Begin VB.CommandButton Command 
         Caption         =   "手动置数"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Index           =   15
         Left            =   4680
         TabIndex        =   17
         Top             =   4095
         Width           =   1215
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFF00&
         Caption         =   "Label4"
         DataField       =   "Datatime"
         DataSource      =   "Adodc1"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1800
         TabIndex        =   59
         Top             =   5160
         Width           =   1170
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFF00&
         Caption         =   "数据时间:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   120
         TabIndex        =   75
         Top             =   5160
         Width           =   1875
      End
      Begin VB.Label Label9 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BackStyle       =   0  'Transparent
         Caption         =   "操作"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   300
         Left            =   4860
         TabIndex        =   74
         Top             =   240
         Width           =   855
      End
      Begin VB.Label Label10 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BackStyle       =   0  'Transparent
         Caption         =   "水位"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   300
         Left            =   3480
         TabIndex        =   73
         Top             =   240
         Width           =   855
      End
      Begin VB.Label Label14 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BackStyle       =   0  'Transparent
         Caption         =   "名称"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False

⌨️ 快捷键说明

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