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

📄 main.dfm

📁 实现RS232数据采集处理,设置RS23传输参数,显示控制终端的数据.
💻 DFM
📖 第 1 页 / 共 5 页
字号:
              Caption = '卸载设备'
              TabOrder = 1
              OnClick = BitBtn2Click
            end
            object BitBtn3: TBitBtn
              Left = 224
              Top = 16
              Width = 75
              Height = 25
              Hint = '针对当前指针所指设备操作'
              Caption = '编辑属性'
              ParentShowHint = False
              ShowHint = True
              TabOrder = 2
              OnClick = BitBtn3Click
            end
            object BitBtn4: TBitBtn
              Left = 396
              Top = 16
              Width = 75
              Height = 25
              Caption = '确定'
              Enabled = False
              TabOrder = 3
              OnClick = BitBtn4Click
            end
            object BitBtn5: TBitBtn
              Left = 496
              Top = 16
              Width = 75
              Height = 25
              Caption = '设备台数'
              TabOrder = 4
              OnClick = BitBtn5Click
            end
            object BitBtn19: TBitBtn
              Left = 584
              Top = 16
              Width = 113
              Height = 25
              Hint = '注意:在未掌握详细运行情况时,请勿随便操作,以造成管理混乱!'
              Caption = '定时开关机设置'
              ParentShowHint = False
              ShowHint = True
              TabOrder = 5
              Visible = False
            end
            object BitBtn35: TBitBtn
              Left = 320
              Top = 16
              Width = 75
              Height = 25
              Caption = '修改备注'
              TabOrder = 6
              OnClick = BitBtn35Click
            end
          end
          object Memo4: TMemo
            Left = 136
            Top = 392
            Width = 185
            Height = 89
            ScrollBars = ssBoth
            TabOrder = 3
            Visible = False
          end
        end
        object TabSheet4: TTabSheet
          Caption = '控制台'
          ImageIndex = 5
          object ScrollBox5: TScrollBox
            Left = 0
            Top = 0
            Width = 761
            Height = 492
            Align = alClient
            TabOrder = 0
            object GroupBox9: TGroupBox
              Left = 232
              Top = 352
              Width = 297
              Height = 105
              Hint = '注意:使用该功能只能接一台设备,否则得不到正确结果!'
              Caption = '单机地址获取'
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
              object Edit5: TEdit
                Left = 128
                Top = 32
                Width = 113
                Height = 28
                ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
                ReadOnly = True
                TabOrder = 0
              end
              object StaticText10: TStaticText
                Left = 8
                Top = 32
                Width = 116
                Height = 24
                Caption = '获取到的地址:'
                ParentShowHint = False
                ShowHint = False
                TabOrder = 1
              end
              object BitBtn20: TBitBtn
                Left = 32
                Top = 72
                Width = 75
                Height = 25
                Caption = '获取'
                TabOrder = 2
                OnClick = BitBtn20Click
              end
              object BitBtn21: TBitBtn
                Left = 144
                Top = 72
                Width = 75
                Height = 25
                Caption = '清空'
                TabOrder = 3
                OnClick = BitBtn21Click
              end
            end
            object BitBtn22: TBitBtn
              Left = 80
              Top = 448
              Width = 75
              Height = 25
              Caption = '清除'
              TabOrder = 1
              OnClick = BitBtn22Click
            end
            object BitBtn23: TBitBtn
              Left = 600
              Top = 448
              Width = 75
              Height = 25
              Caption = '清除'
              TabOrder = 2
              OnClick = BitBtn23Click
            end
            object GroupBox10: TGroupBox
              Left = 232
              Top = 144
              Width = 297
              Height = 201
              Caption = '自动监控参数设置'
              TabOrder = 3
              object Edit6: TEdit
                Left = 96
                Top = 32
                Width = 49
                Height = 28
                Hint = '输入或选择1~3600之间的数'
                TabStop = False
                BiDiMode = bdLeftToRight
                ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
                MaxLength = 4
                ParentBiDiMode = False
                ParentShowHint = False
                ShowHint = True
                TabOrder = 0
                Text = '1'
                OnKeyUp = Edit6KeyUp
              end
              object UpDown1: TUpDown
                Left = 145
                Top = 32
                Width = 15
                Height = 28
                Associate = Edit6
                Min = 1
                Max = 3600
                Position = 1
                TabOrder = 1
                Wrap = False
              end
              object StaticText11: TStaticText
                Left = 168
                Top = 40
                Width = 20
                Height = 24
                Caption = '秒'
                TabOrder = 2
              end
              object StaticText26: TStaticText
                Left = 8
                Top = 32
                Width = 84
                Height = 24
                Caption = '间隔时间:'
                TabOrder = 3
              end
              object StaticText28: TStaticText
                Left = 176
                Top = 80
                Width = 20
                Height = 24
                Caption = '次'
                TabOrder = 4
              end
              object RadioButton1: TRadioButton
                Left = 8
                Top = 80
                Width = 113
                Height = 17
                Caption = '运行次数:'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 5
              end
              object RadioButton2: TRadioButton
                Left = 8
                Top = 112
                Width = 113
                Height = 17
                Caption = '运行时间:'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 6
              end
              object RadioButton3: TRadioButton
                Left = 8
                Top = 144
                Width = 169
                Height = 17
                Caption = '不限时间和次数'
                Checked = True
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 7
                TabStop = True
              end
              object UpDown5: TUpDown
                Left = 145
                Top = 112
                Width = 15
                Height = 28
                Associate = Edit23
                Min = 0
                Max = 17
                Position = 0
                TabOrder = 8
                Wrap = False
              end
              object Edit23: TEdit
                Left = 120
                Top = 112
                Width = 25
                Height = 28
                Hint = '输入或选择0~17之间的小时数'
                TabStop = False
                ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
                MaxLength = 2
                ParentShowHint = False
                ShowHint = True
                TabOrder = 9
                Text = '0'
                OnKeyUp = Edit23KeyUp
              end
              object Edit24: TEdit
                Left = 176
                Top = 112
                Width = 25
                Height = 28
                Hint = '输入或选择0~59之间的分钟数'
                TabStop = False
                ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
                MaxLength = 2
                ParentShowHint = False
                ShowHint = True
                TabOrder = 10
                Text = '0'
                OnKeyUp = Edit24KeyUp
              end
              object Edit25: TEdit
                Left = 232
                Top = 112
                Width = 25
                Height = 28
                Hint = '输入或选择0~59之间的秒数'
                TabStop = False
                ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
                MaxLength = 2
                ParentShowHint = False
                ShowHint = True
                TabOrder = 11
                Text = '0'
                OnKeyUp = Edit25KeyUp
              end
              object UpDown6: TUpDown
                Left = 201
                Top = 112
                Width = 15
                Height = 28
                Associate = Edit24
                Min = 0
                Max = 59
                Position = 0
                TabOrder = 12
                Wrap = False
              end
              object UpDown7: TUpDown
                Left = 257
                Top = 112
                Width = 15
                Height = 28
                Associate = Edit25
                Min = 0
                Max = 59
                Position = 0
                TabOrder = 13
                Wrap = False
              end
              object Edit26: TEdit
                Left = 120
                Top = 76
                Width = 52
                Height = 28
                Hint = '输入或选择1~65535之间的数'
                TabStop = False
                ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
                MaxLength = 5
                ParentShowHint = False
                ShowHint = True
                TabOrder = 14
                Text = '1'
                OnKeyUp = Edit26KeyUp
              end
            end
            object CheckBox1: TCheckBox
              Left = 264
              Top = 112
              Width = 153
              Height = 25
              Caption = '运行同时保存数据'
              Checked = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              State = cbChecked
              TabOrder = 4
            end
          end
          object BitBtn16: TBitBtn
            Left = 272
            Top = 24
            Width = 145
            Height = 25
            Caption = '手动监控'
            TabOrder = 1
            OnClick = BitBtn16Click
          end
          object BitBtn17: TBitBtn
            Left = 272
            Top = 48
            Width = 145
            Height = 25
            Action = ActionRun
            Caption = '自动监控(&R)'
            TabOrder = 2
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF000000
              00000000000000008000FF00FF00000000000000000000000000000000000000
              0000FF00FF00000080000000000000000000FF00FF00FF00FF00FF00FF00FF00
              FF00000080000000000000000000000000000000FF00000000000000FF000000
              0000000000000000000000008000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF0000000000000000000000FF00BFBFBF00FFFFFF0000000000FFFFFF00BFBF
              BF000000FF000000000000000000FF00FF00FF00FF00FF00FF00FF00FF007F7F
              7F00000000000000FF00BFBFBF0000000000FFFFFF00FFFFFF00FFFFFF000000
              0000BFBFBF000000FF00000000007F7F7F00FF00FF00FF00FF00FF00FF000000
              00000000FF000000FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
              FF00FFFFFF000000FF000000FF0000000000FF00FF00FF00FF00FF00FF000000

⌨️ 快捷键说明

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