systemform.dfm

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

inherited frmSystem: TfrmSystem
  Left = 264
  Top = 164
  Width = 443
  Height = 255
  Caption = '系统'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 435
    Height = 185
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 433
      Height = 183
      ActivePage = TabSheet3
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = '系统'
        object Label8: TLabel
          Left = 18
          Top = 19
          Width = 72
          Height = 13
          Caption = '服务器地址：'
        end
        object Label9: TLabel
          Left = 18
          Top = 56
          Width = 60
          Height = 13
          Caption = '计算机名：'
        end
        object sdtIP1: TSpinEdit
          Left = 120
          Top = 16
          Width = 57
          Height = 22
          MaxValue = 255
          MinValue = 0
          TabOrder = 0
          Value = 0
          OnChange = sdtIP1Change
        end
        object sdtIP2: TSpinEdit
          Left = 192
          Top = 16
          Width = 57
          Height = 22
          MaxValue = 255
          MinValue = 0
          TabOrder = 1
          Value = 0
          OnChange = sdtIP1Change
        end
        object sdtIP3: TSpinEdit
          Left = 264
          Top = 16
          Width = 57
          Height = 22
          MaxValue = 255
          MinValue = 0
          TabOrder = 2
          Value = 0
          OnChange = sdtIP1Change
        end
        object sdtIP4: TSpinEdit
          Left = 336
          Top = 16
          Width = 57
          Height = 22
          MaxValue = 255
          MinValue = 0
          TabOrder = 3
          Value = 0
          OnChange = sdtIP1Change
        end
        object edtServerName: TEdit
          Left = 120
          Top = 51
          Width = 273
          Height = 21
          TabOrder = 4
          Text = 'edtServerName'
          OnChange = sdtIP1Change
        end
      end
      object TabSheet2: TTabSheet
        Caption = '端口地址'
        ImageIndex = 1
        object Label1: TLabel
          Left = 16
          Top = 24
          Width = 63
          Height = 13
          Caption = '控制器端口:'
        end
        object Label2: TLabel
          Left = 16
          Top = 56
          Width = 63
          Height = 13
          Caption = '客户显示屏:'
        end
        object Label7: TLabel
          Left = 200
          Top = 26
          Width = 72
          Height = 13
          Caption = '控制器地址：'
        end
        object Label10: TLabel
          Left = 200
          Top = 56
          Width = 72
          Height = 13
          Caption = '读卡器端口：'
        end
        object cbxControl: TComboBox
          Left = 104
          Top = 21
          Width = 89
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnChange = cbxScreenChange
          Items.Strings = (
            'COM1'
            'COM2'
            'COM3'
            'COM4')
        end
        object edtControl: TEdit
          Left = 288
          Top = 22
          Width = 105
          Height = 21
          TabOrder = 1
          OnChange = cbxScreenChange
        end
        object cbxCardReader: TComboBox
          Left = 288
          Top = 51
          Width = 105
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 2
          OnChange = cbxScreenChange
          Items.Strings = (
            'COM1'
            'COM2'
            'COM3'
            'COM4')
        end
        object cbxScreen: TComboBox
          Left = 104
          Top = 56
          Width = 89
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 3
          OnChange = cbxScreenChange
          Items.Strings = (
            'COM1'
            'COM2'
            'COM3'
            'COM4')
        end
      end
      object TabSheet3: TTabSheet
        Caption = '照明'
        ImageIndex = 2
        object Label3: TLabel
          Left = 144
          Top = 61
          Width = 12
          Height = 13
          Caption = '点'
        end
        object Label4: TLabel
          Left = 145
          Top = 93
          Width = 12
          Height = 13
          Caption = '点'
        end
        object Label5: TLabel
          Left = 328
          Top = 61
          Width = 24
          Height = 13
          Caption = '分到'
        end
        object Label6: TLabel
          Left = 328
          Top = 93
          Width = 12
          Height = 13
          Caption = '分'
        end
        object ckxAutoLight: TCheckBox
          Left = 16
          Top = 24
          Width = 97
          Height = 17
          Caption = '自动打开照明灯'
          TabOrder = 0
          OnClick = ckxAutoLightClick
        end
        object sdtHourOn: TSpinEdit
          Left = 16
          Top = 56
          Width = 121
          Height = 22
          MaxValue = 23
          MinValue = 0
          TabOrder = 1
          Value = 0
          OnChange = ckxAutoLightClick
        end
        object sdtMinOn: TSpinEdit
          Left = 192
          Top = 56
          Width = 121
          Height = 22
          MaxValue = 59
          MinValue = 0
          TabOrder = 2
          Value = 0
          OnChange = ckxAutoLightClick
        end
        object sdtHourOff: TSpinEdit
          Left = 16
          Top = 88
          Width = 121
          Height = 22
          MaxValue = 23
          MinValue = 0
          TabOrder = 3
          Value = 0
          OnChange = ckxAutoLightClick
        end
        object sdtMinOff: TSpinEdit
          Left = 192
          Top = 88
          Width = 121
          Height = 22
          MaxValue = 59
          MinValue = 0
          TabOrder = 4
          Value = 0
          OnChange = ckxAutoLightClick
        end
      end
    end
  end
  inherited bbnOk: TBitBtn
    Left = 272
    Top = 192
  end
  inherited bbnCancel: TBitBtn
    Left = 352
    Top = 192
  end
end