u_web_gridprn.dfm

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

      Top = 190
      Width = 90
      Height = 17
      Caption = 'CHB_3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 36
      OnClick = CHB_1Click
    end
    object CheckBox8: TCheckBox
      Left = 293
      Top = 190
      Width = 90
      Height = 17
      Caption = 'CHB_4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 37
      OnClick = CHB_1Click
    end
    object CheckBox9: TCheckBox
      Left = 424
      Top = 190
      Width = 90
      Height = 17
      Caption = 'CHB_1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 38
      OnClick = CHB_1Click
    end
    object CheckBox10: TCheckBox
      Left = 558
      Top = 191
      Width = 90
      Height = 17
      Caption = 'CHB_2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 39
      OnClick = CHB_1Click
    end
    object CheckBox11: TCheckBox
      Left = 30
      Top = 215
      Width = 90
      Height = 17
      Caption = 'CHB_3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 40
      OnClick = CHB_1Click
    end
    object CheckBox12: TCheckBox
      Left = 161
      Top = 215
      Width = 90
      Height = 17
      Caption = 'CHB_4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 41
      OnClick = CHB_1Click
    end
    object CheckBox13: TCheckBox
      Left = 293
      Top = 215
      Width = 90
      Height = 17
      Caption = 'CHB_1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 42
      OnClick = CHB_1Click
    end
    object CheckBox14: TCheckBox
      Left = 424
      Top = 215
      Width = 90
      Height = 17
      Caption = 'CHB_2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 43
      OnClick = CHB_1Click
    end
    object CheckBox15: TCheckBox
      Left = 558
      Top = 216
      Width = 90
      Height = 17
      Caption = 'CHB_3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 44
      OnClick = CHB_1Click
    end
    object CheckBox16: TCheckBox
      Left = 30
      Top = 241
      Width = 90
      Height = 17
      Caption = 'CHB_4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 45
      OnClick = CHB_1Click
    end
    object CheckBox17: TCheckBox
      Left = 161
      Top = 241
      Width = 90
      Height = 17
      Caption = 'CHB_1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 46
      OnClick = CHB_1Click
    end
    object CheckBox18: TCheckBox
      Left = 293
      Top = 241
      Width = 90
      Height = 17
      Caption = 'CHB_2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 47
      OnClick = CHB_1Click
    end
    object CheckBox19: TCheckBox
      Left = 424
      Top = 241
      Width = 90
      Height = 17
      Caption = 'CHB_3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 48
      OnClick = CHB_1Click
    end
    object CheckBox20: TCheckBox
      Left = 558
      Top = 241
      Width = 90
      Height = 17
      Caption = 'CHB_4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 49
      OnClick = CHB_1Click
    end
    object CheckBox21: TCheckBox
      Left = 30
      Top = 266
      Width = 90
      Height = 17
      Caption = 'CHB_1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 50
      OnClick = CHB_1Click
    end
    object CheckBox22: TCheckBox
      Left = 161
      Top = 266
      Width = 90
      Height = 17
      Caption = 'CHB_2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 51
      OnClick = CHB_1Click
    end
    object CheckBox23: TCheckBox
      Left = 293
      Top = 266
      Width = 90
      Height = 17
      Caption = 'CHB_3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 52
      OnClick = CHB_1Click
    end
    object CheckBox24: TCheckBox
      Left = 424
      Top = 266
      Width = 90
      Height = 17
      Caption = 'CHB_4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 53
      OnClick = CHB_1Click
    end
    object CheckBox25: TCheckBox
      Left = 558
      Top = 266
      Width = 90
      Height = 17
      Caption = 'CHB_1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 54
      OnClick = CHB_1Click
    end
    object CheckBox26: TCheckBox
      Left = 30
      Top = 291
      Width = 90
      Height = 17
      Caption = 'CHB_2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 55
      OnClick = CHB_1Click
    end
    object CheckBox27: TCheckBox
      Left = 161
      Top = 291
      Width = 90
      Height = 17
      Caption = 'CHB_3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 56
      OnClick = CHB_1Click
    end
    object CheckBox28: TCheckBox
      Left = 293
      Top = 291
      Width = 90
      Height = 17
      Caption = 'CHB_4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 57
      OnClick = CHB_1Click
    end
    object CheckBox29: TCheckBox
      Left = 424
      Top = 291
      Width = 90
      Height = 17
      Caption = 'CHB_1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 58
      OnClick = CHB_1Click
    end
    object CheckBox30: TCheckBox
      Left = 558
      Top = 291
      Width = 90
      Height = 17
      Caption = 'CHB_2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 59
      OnClick = CHB_1Click
    end
    object SG_JL: TStringGrid
      Left = 319
      Top = 343
      Width = 320
      Height = 120
      TabOrder = 60
      Visible = False
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 319
    Width = 678
    Height = 48
    Hint = #31532#19968#20010#26410#36873#20013#39033#24460#20840#21542
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 1
    object LB_ARRANGE: TLabel
      Left = 119
      Top = 18
      Width = 48
      Height = 14
      Caption = #25171#21360#33539#22260
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 216
      Top = 18
      Width = 25
      Height = 14
      Caption = #34892' ->'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 291
      Top = 18
      Width = 12
      Height = 14
      Caption = #34892
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Image1: TImage
      Left = 306
      Top = 19
      Width = 11
      Height = 11
      Picture.Data = {
        07544269746D617076010000424D760100000000000036000000280000000A00
        00000A000000010018000000000040010000C01E0000C01E0000000000000000
        0000FFFFFFFFFFFFE8E8FF8F8FFF5656FF5858FF9797FFEEEEFFFFFFFFFFFFFF
        0000FFFFFFC7C7FF1F1FFF1818FF5252FF4D4DFF1414FF2D2DFFD1D1FFFFFFFF
        0000EAEAFF1919FF5252FFEBEBFFFFFFFFFFFFFF5858FF0000FF2D2DFFF2F2FF
        00009191FF1616FFF3F3FFFFFFFFFFFFFF6B6BFF0000FF6F6FFF0808FFA5A5FF
        00005757FF5B5BFFFFFFFFFFFFFF6A6AFF0000FF9292FFFFFFFF2E2EFF6C6CFF
        00005A5AFF5959FFFFFFFF6B6BFF0000FF8F8FFFFFFFFFFFFFFF2828FF7070FF
        00009D9DFF1616FF6060FF0000FF9292FFFFFFFFFFFFFFC9C9FF0000FFADADFF
        0000F3F3FF2D2DFF0000FF7474FFFFFFFFFFFFFFC8C8FF2020FF3737FFF7F7FF
        0000FFFFFFD8D8FF3939FF1515FF3737FF3030FF0404FF3B3BFFE0E0FFFFFFFF
        0000FFFFFFFFFFFFF7F7FFAAAAFF6E6EFF7272FFB0B0FFFAFAFFFFFFFFFFFFFF
        0000}
      Transparent = True
    end
    object CHB_LOCA: TCheckBox
      Left = 16
      Top = 16
      Width = 97
      Height = 17
      Caption = #21482#25171#21360#23450#20301#34892
      Checked = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      State = cbChecked
      TabOrder = 0
      OnClick = CHB_LOCAClick
    end
    object BN_PRN: TFlatButton
      Left = 320
      Top = 12
      Width = 63
      Height = 25
      Caption = #25171#21360'[F3]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Layout = blGlyphLeft
      ParentFont = False
      TabStop = True
      TabOrder = 3
      OnClick = BN_PRNClick
    end
    object BN_ALL: TFlatButton
      Left = 382
      Top = 12
      Width = 64
      Height = 25
      Caption = #20840#36873'[F4]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 4
      OnClick = BN_ALLClick
    end
    object BN_NOR: TFlatButton
      Left = 445
      Top = 12
      Width = 64
      Height = 25
      Caption = #24460#21542'[F5]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 5
      OnClick = BN_NORClick
    end
    object BN_BACK: TFlatButton
      Left = 593
      Top = 12
      Width = 66
      Height = 25
      Caption = #36820#22238'[Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 6
      OnClick = BN_BACKClick
    end
    object ED_BEG: TFlatEdit
      Left = 176
      Top = 14
      Width = 34
      Height = 21
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      Text = 'ED_BEG'
      OnKeyPress = ED_ENDKeyPress
    end
    object ED_END: TFlatEdit
      Left = 251
      Top = 14
      Width = 34
      Height = 21
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      Text = 'ED_END'
      OnKeyPress = ED_ENDKeyPress
    end
    object BN_CUST: TFlatButton
      Left = 508
      Top = 12
      Width = 86
      Height = 25
      Caption = 'EXCEL[F6]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 7
      OnClick = BN_CUSTClick
    end
  end
end