u_web_gstinfo.dfm

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

object F_WEB_GSTINFO: TF_WEB_GSTINFO
  Left = 163
  Top = 191
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #29305#27530' FOLIO '#35774#32622
  ClientHeight = 357
  ClientWidth = 795
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object PN_VIP: TPanel
    Left = 0
    Top = 25
    Width = 795
    Height = 184
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 0
    object LB_NAME: TLabel
      Left = 24
      Top = 13
      Width = 36
      Height = 14
      Alignment = taRightJustify
      Caption = #22995'    '#21517
    end
    object Label4: TLabel
      Left = 229
      Top = 61
      Width = 30
      Height = 14
      Alignment = taRightJustify
      Caption = 'V  I  P'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 24
      Top = 156
      Width = 36
      Height = 14
      Alignment = taRightJustify
      Caption = #22791'    '#27880
    end
    object LB_ADATE: TLabel
      Left = 8
      Top = 61
      Width = 52
      Height = 14
      Alignment = taRightJustify
      Caption = #20986#29983#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object LB_DDATE: TLabel
      Left = 331
      Top = 61
      Width = 42
      Height = 14
      Alignment = taRightJustify
      Caption = 'E M A I L'
    end
    object Label3: TLabel
      Left = 12
      Top = 85
      Width = 48
      Height = 14
      Alignment = taRightJustify
      Caption = #32852#31995#30005#35805
    end
    object Label7: TLabel
      Left = 12
      Top = 109
      Width = 48
      Height = 14
      Alignment = taRightJustify
      Caption = #31227#21160#30005#35805
    end
    object Label2: TLabel
      Left = 22
      Top = 133
      Width = 38
      Height = 14
      Alignment = taRightJustify
      Caption = #21980'    '#22909
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 331
      Top = 37
      Width = 42
      Height = 14
      Alignment = taRightJustify
      Caption = #22269'      '#31821
    end
    object Label11: TLabel
      Left = 228
      Top = 13
      Width = 33
      Height = 14
      Alignment = taRightJustify
      Caption = #32034'   '#24341
    end
    object Label12: TLabel
      Left = 331
      Top = 13
      Width = 42
      Height = 14
      Alignment = taRightJustify
      Caption = #33521' '#25991' '#21517
    end
    object Label13: TLabel
      Left = 228
      Top = 37
      Width = 32
      Height = 14
      Alignment = taRightJustify
      Caption = #24615'  '#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label15: TLabel
      Left = 22
      Top = 37
      Width = 38
      Height = 14
      Alignment = taRightJustify
      Caption = #32844'    '#20301
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ED_NAME: TFlatEdit
      Left = 68
      Top = 10
      Width = 150
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 0
      Text = 'ED_NAME'
      OnExit = ED_NAMEExit
    end
    object ED_VIP: TFlatEdit
      Tag = 2
      Left = 268
      Top = 58
      Width = 53
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      Text = 'ED_VIP'
      OnKeyPress = ED_VIPKeyPress
    end
    object ED_REMARK: TFlatEdit
      Left = 68
      Top = 154
      Width = 548
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 14
      Text = 'ED_REMARK'
      OnExit = ED_REMARKExit
    end
    object ED_BIRTH: TFlatEdit
      Left = 68
      Top = 58
      Width = 150
      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 = 6
      Text = 'ED_BIRTH'
      OnExit = ED_BIRTHExit
      OnKeyPress = ED_BIRTHKeyPress
    end
    object ED_EMAIL: TFlatEdit
      Left = 380
      Top = 58
      Width = 236
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      Text = 'ED_EMAIL'
    end
    object Panel3: TPanel
      Left = 628
      Top = 11
      Width = 154
      Height = 161
      BevelInner = bvRaised
      BevelOuter = bvNone
      Color = 15528178
      TabOrder = 15
      object ImageEn1: TImageEn
        Left = 1
        Top = 1
        Width = 152
        Height = 159
        Background = 15528178
        ParentCtl3D = False
        BorderStyle = bsNone
        SelectionOptions = []
        BackgroundStyle = iebsDiagonals
        Align = alClient
        TabOrder = 0
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clWindowText
        PreviewFont.Height = -11
        PreviewFont.Name = 'MS Sans Serif'
        PreviewFont.Style = []
      end
    end
    object ED_TELNO1: TFlatEdit
      Left = 68
      Top = 82
      Width = 150
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 20
      ParentFont = False
      TabOrder = 9
      Text = 'ED_TELNO1'
      OnKeyPress = ED_VIPKeyPress
    end
    object ED_TELNO2: TFlatEdit
      Left = 220
      Top = 82
      Width = 396
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 10
      Text = 'ED_TELNO2'
    end
    object ED_MTELNO1: TFlatEdit
      Left = 68
      Top = 106
      Width = 150
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 11
      ParentFont = False
      TabOrder = 11
      Text = 'ED_MTELNO1'
      OnKeyPress = ED_VIPKeyPress
    end
    object ED_MTELNO2: TFlatEdit
      Left = 220
      Top = 106
      Width = 396
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 12
      Text = 'ED_MTELNO2'
    end
    object ED_TSYQ: TFlatEdit
      Left = 68
      Top = 130
      Width = 548
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
      Text = 'ED_TSYQ'
    end
    object FlatButton2: TFlatButton
      Left = 314
      Top = 66
      Width = 5
      Height = 10
      Hint = #26174#31034#23458#25151#21015#34920
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
    end
    object CB_NATION: TFlatComboBox
      Tag = 20
      Left = 380
      Top = 34
      Width = 236
      Height = 20
      Color = clWindow
      DropDownCount = 16
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Lucida Console'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 5
      Text = 'CB_NATION'
      ItemIndex = -1
    end
    object ED_IDX: TFlatEdit
      Left = 268
      Top = 10
      Width = 53