u_web_dyqzrq.dfm

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

object F_WEB_DYQZRQ: TF_WEB_DYQZRQ
  Left = 354
  Top = 197
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #36755#20837#26694
  ClientHeight = 121
  ClientWidth = 225
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseWheel = FormMouseWheel
  PixelsPerInch = 96
  TextHeight = 14
  object PN_DATE: TPanel
    Left = 0
    Top = 0
    Width = 225
    Height = 73
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 0
    object LB_ADATE: TLabel
      Left = 17
      Top = 17
      Width = 52
      Height = 15
      Alignment = taRightJustify
      Caption = #36215#22987#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object LB_DDATE: TLabel
      Left = 17
      Top = 41
      Width = 52
      Height = 15
      Alignment = taRightJustify
      Caption = #25130#27490#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ED_BEG: TFlatEdit
      Left = 81
      Top = 14
      Width = 127
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      TabOrder = 0
      Text = 'ED_BEG'
      OnExit = ED_BEGExit
      OnKeyPress = ED_BEGKeyPress
    end
    object ED_END: TFlatEdit
      Left = 81
      Top = 38
      Width = 127
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      TabOrder = 1
      Text = 'ED_END'
      OnExit = ED_BEGExit
      OnKeyPress = ED_BEGKeyPress
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 73
    Width = 225
    Height = 48
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 1
    object BN_QD: TFlatButton
      Left = 32
      Top = 11
      Width = 73
      Height = 25
      Caption = #30830#23450'[F2]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 0
      OnClick = BN_QDClick
    end
    object BN_QX: TFlatButton
      Left = 120
      Top = 11
      Width = 75
      Height = 25
      Caption = #21462#28040'[Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 1
      OnClick = BN_QXClick
    end
  end
end