u_web_no.dfm

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

    URLEdit = False
    ScrollType = ssNormal
    ScrollColor = clNone
    ScrollWidth = 16
    ScrollSynch = False
    ScrollProportional = False
    ScrollHints = shNone
    OemConvert = False
    FixedFooters = 0
    FixedRightCols = 0
    FixedColWidth = 64
    FixedRowHeight = 20
    FixedFont.Charset = ANSI_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Arial'
    FixedFont.Style = []
    FixedAsButtons = False
    FloatFormat = '%.2f'
    IntegralHeight = False
    WordWrap = True
    Lookup = False
    LookupCaseSensitive = False
    LookupHistory = False
    BackGround.Top = 0
    BackGround.Left = 0
    BackGround.Display = bdTile
    BackGround.Cells = bcNormal
    Filter = <>
    Version = '2.8.7.2'
    ColWidths = (
      64
      64
      64
      64
      64)
    RowHeights = (
      20
      20
      20
      20
      20)
  end
  object PN_NO: TPanel
    Left = 0
    Top = 431
    Width = 782
    Height = 42
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object LB_SER: TLabel
      Left = 16
      Top = 15
      Width = 36
      Height = 14
      Caption = #24080'    '#21495
      Visible = False
    end
    object BN_OK: TFlatButton
      Left = 608
      Top = 9
      Width = 76
      Height = 24
      Caption = #30830#23450'[Ent]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 0
    end
    object BN_CANL: TFlatButton
      Left = 691
      Top = 9
      Width = 78
      Height = 24
      Caption = #21462#28040'[Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 1
      OnClick = BN_CANLClick
    end
    object ED_ZH: TFlatEdit
      Left = 76
      Top = 11
      Width = 65
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = 'ED_ZH'
      Visible = False
    end
    object BN_LOOK: TFlatButton
      Left = 16
      Top = 9
      Width = 94
      Height = 24
      Caption = #26597#30475'FOLIO[F2]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 3
    end
    object BN_SER: TFlatButton
      Left = 109
      Top = 9
      Width = 63
      Height = 24
      Caption = #23450#20301'[F3]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 4
    end
    object BN_CF: TFlatButton
      Left = 171
      Top = 9
      Width = 90
      Height = 24
      Caption = #20027#20184#20652#20184'[F4]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 5
    end
    object BN_PRN: TFlatButton
      Left = 260
      Top = 9
      Width = 66
      Height = 24
      Caption = #25171#21360'[F5]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabStop = True
      TabOrder = 6
    end
    object BN_EXCEL: TFlatButton
      Left = 325
      Top = 9
      Width = 132
      Height = 24
      Caption = #25171#21360#21040' Excel[F6]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000008000808080
        0080008080800080008080800080008080800080008080800080008080800080
        0080808000800080808080808000800080808000800080808000800080808000
        8000808080008000808080008000808080008000808080008000008000808080
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF008000808080808080008000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF808080008000808080008000808080808080008000008000808080
        FFFFFF008000808080008000808080008000808080008000FFFFFF0080008080
        80008000008000808080808080008000FFFFFF80808000800080808000800080
        8080008000FFFFFF008000808080008000FFFFFF808080008000008000808080
        FFFFFF008000808080008000808080008000FFFFFF0080008080800080008080
        80FFFFFF008000808080808080008000FFFFFFFFFFFF008000808080008000FF
        FFFF008000808080008000808080008000FFFFFF808080008000008000808080
        FFFFFFFFFFFFFFFFFF008000FFFFFF008000808080008000808080FFFFFFFFFF
        FFFFFFFF008000808080808080008000FFFFFFFFFFFF008000FFFFFF00800080
        8080008000808080008000808080FFFFFFFFFFFF808080008000008000808080
        FFFFFF008000FFFFFF0080008080800080008080800080008080800080008080
        80FFFFFF008000808080808080008000FFFFFF80808000800080808000800080
        8080FFFFFF808080008000808080008000FFFFFF808080008000008000808080
        FFFFFF008000808080008000808080FFFFFFFFFFFFFFFFFF8080800080008080
        80FFFFFF008000808080808080008000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080008000008000808080
        0080008080800080008080800080008080800080008080800080008080800080
        0080808000800080808080808000800080808000800080808000800080808000
        8000808080008000808080008000808080008000808080008000}
      Layout = blGlyphLeft
      ParentFont = False
      TabStop = True
      TabOrder = 7
    end
    object bn_dw: TFlatButton
      Left = 521
      Top = 9
      Width = 66
      Height = 24
      Caption = #23450#20301'[F8]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 8
      Visible = False
    end
    object BN_OTH: TFlatButton
      Left = 456
      Top = 9
      Width = 66
      Height = 24
      Caption = #25764#28040'[F7]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 9
      Visible = False
    end
  end
end