u_web_plan.dfm

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

object F_WEB_PLAN: TF_WEB_PLAN
  Left = 296
  Top = 155
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #20107#21153#22788#29702
  ClientHeight = 424
  ClientWidth = 794
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseWheel = FormMouseWheel
  PixelsPerInch = 96
  TextHeight = 14
  object Label2: TLabel
    Left = 186
    Top = 37
    Width = 42
    Height = 14
    Caption = #20851' '#38190' '#35789
  end
  object PN_VIP: TPanel
    Left = 0
    Top = 0
    Width = 794
    Height = 205
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 2
    object LB_PLAN: TLabel
      Left = 12
      Top = 13
      Width = 48
      Height = 14
      Caption = #20107#21153#26631#39064
    end
    object LB_ADATE: TLabel
      Left = 591
      Top = 61
      Width = 72
      Height = 14
      Caption = #24076#26395#24320#24037#26102#38388
    end
    object LB_DDATE: TLabel
      Left = 591
      Top = 37
      Width = 72
      Height = 14
      Caption = #24076#26395#23436#25104#26102#38388
    end
    object LB_OPNO: TLabel
      Left = 12
      Top = 61
      Width = 48
      Height = 14
      Caption = #30456#20851#20154#21592
    end
    object Bevel1: TBevel
      Left = 58
      Top = 89
      Width = 281
      Height = 9
      Shape = bsBottomLine
    end
    object LB_MEMO: TLabel
      Left = 370
      Top = 87
      Width = 4
      Height = 16
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 459
      Top = 89
      Width = 281
      Height = 9
      Shape = bsBottomLine
    end
    object Label1: TLabel
      Left = 364
      Top = 88
      Width = 68
      Height = 16
      Caption = #20107#21153#20869#23481
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 12
      Top = 37
      Width = 48
      Height = 14
      Caption = #20107#21153#24615#36136
    end
    object Label4: TLabel
      Left = 204
      Top = 37
      Width = 48
      Height = 14
      Caption = #32039#24613#31243#24230
    end
    object Label5: TLabel
      Left = 401
      Top = 37
      Width = 42
      Height = 14
      Caption = #37325' '#35201' '#24615
    end
    object Label6: TLabel
      Left = 401
      Top = 13
      Width = 42
      Height = 14
      Caption = #20851' '#38190' '#35789
    end
    object MM_MEMO: TMemo
      Left = 11
      Top = 112
      Width = 770
      Height = 82
      Color = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      Lines.Strings = (
        'MM_MEMO')
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 10
    end
    object ED_ADATE: TFlatEdit
      Left = 669
      Top = 34
      Width = 70
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      TabOrder = 5
      Text = 'ED_ADATE'
      OnExit = ED_ADATEExit
      OnKeyPress = ED_ADATEKeyPress
    end
    object ED_DDATE: TFlatEdit
      Left = 669
      Top = 58
      Width = 70
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      TabOrder = 8
      Text = 'ED_DDATE'
      OnExit = ED_ADATEExit
      OnKeyPress = ED_ADATEKeyPress
    end
    object ED_OPNO: TFlatEdit
      Tag = 1
      Left = 65
      Top = 58
      Width = 520
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 7
      Text = 'ED_OPNO'
    end
    object ED_PLAN: TFlatEdit
      Left = 65
      Top = 10
      Width = 328
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 0
      Text = 'ED_PLAN'
      OnExit = ED_PLANExit
    end
    object BN_ROOM: TFlatButton
      Tag = 101
      Left = 568
      Top = 60
      Width = 15
      Height = 16
      Hint = #26174#31034#23458#25151#21015#34920
      Caption = '...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Comic Sans MS'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      OnClick = BN_ROOMClick
    end
    object ED_ATIME: TFlatEdit
      Left = 740
      Top = 34
      Width = 39
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      TabOrder = 6
      Text = 'ED_ATIME'
      OnExit = ED_ADATEExit
      OnKeyPress = ED_ADATEKeyPress
    end
    object ED_DTIME: TFlatEdit
      Left = 740
      Top = 58
      Width = 39
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      TabOrder = 9
      Text = 'ED_DTIME'
      OnExit = ED_ADATEExit
      OnKeyPress = ED_ADATEKeyPress
    end
    object CB_TYPE: TFlatComboBox
      Left = 65
      Top = 34
      Width = 132
      Height = 20
      Color = clWindow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Lucida Console'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 2
      Text = 'CB_TYPE'
      ItemIndex = -1
    end
    object CB_URGENT: TFlatComboBox
      Left = 258
      Top = 34
      Width = 135
      Height = 20
      Color = clWindow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Lucida Console'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 3
      Text = 'CB_URGENT'
      ItemIndex = -1
    end
    object CB_IMPT: TFlatComboBox
      Left = 450
      Top = 34
      Width = 135
      Height = 20
      Color = clWindow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12