u_web_user.dfm

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

object F_WEB_USER: TF_WEB_USER
  Left = 192
  Top = 179
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'SYSTEM SETTING'
  ClientHeight = 398
  ClientWidth = 678
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object PN_FC: TPanel
    Left = 0
    Top = 0
    Width = 678
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 0
    object LB_CODE: TLabel
      Left = 20
      Top = 14
      Width = 30
      Height = 14
      Alignment = taRightJustify
      Caption = #32534'  '#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object LB_NAME: TLabel
      Left = 122
      Top = 14
      Width = 48
      Height = 14
      Alignment = taRightJustify
      Caption = #20013#25991#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object LB_NAMEE: TLabel
      Left = 274
      Top = 14
      Width = 36
      Height = 14
      Alignment = taRightJustify
      Caption = #33521#25991#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object LB_AREA: TLabel
      Left = 441
      Top = 14
      Width = 48
      Height = 14
      Alignment = taRightJustify
      Caption = #25152#23646#37096#38376
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object ED_CODE: TFlatEdit
      Left = 58
      Top = 11
      Width = 55
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 0
      Text = 'ED_CODE'
      OnExit = ED_CODEExit
      OnKeyPress = ED_CODEKeyPress
    end
    object ED_NAME: TFlatEdit
      Left = 177
      Top = 11
      Width = 88
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 1
      Text = 'ED_NAME'
      OnExit = ED_NAMEExit
    end
    object ED_NAMEE: TFlatEdit
      Left = 317
      Top = 11
      Width = 116
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      TabOrder = 2
      Text = 'ED_NAMEE'
      OnExit = ED_NAMEExit
    end
    object CB_AREA: TFlatComboBox
      Tag = 20
      Left = 496
      Top = 11
      Width = 169
      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 = 3
      Text = 'CB_AREA'
      ItemIndex = -1
      OnExit = CB_AREAExit
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 357
    Width = 678
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 1
    object BN_BC: TFlatButton
      Left = 21
      Top = 8
      Width = 70
      Height = 25
      Caption = #20445#23384'[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_BCClick
    end
    object BN_PRN: TFlatButton
      Left = 90
      Top = 8
      Width = 70
      Height = 25
      Caption = #25171#21360'[F3]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 1
      OnClick = BN_PRNClick
    end
    object BN_DEL: TFlatButton
      Left = 159
      Top = 8
      Width = 70
      Height = 25
      Caption = #21024#38500'[F4]'
      TabStop = True
      TabOrder = 2
      OnClick = BN_DELClick
    end
    object bn_dw: TFlatButton
      Left = 279
      Top = 8
      Width = 66
      Height = 25
      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 = 3
      OnClick = bn_dwClick
    end
    object BN_BACK: TFlatButton
      Left = 552
      Top = 8
      Width = 73
      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 = 4
      OnClick = BN_BACKClick
    end
  end
  object SG_JL: TAdvStringGrid
    Left = 0
    Top = 41
    Width = 678
    Height = 316
    Cursor = crDefault
    Align = alClient
    ColCount = 5
    DefaultRowHeight = 20
    DefaultDrawing = False
    FixedColor = 15528178
    FixedCols = 0
    RowCount = 5
    FixedRows = 1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    GridLineWidth = 1
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goRowSelect]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 2
    OnDblClick = SG_JLDblClick
    GridLineColor = clSilver
    ActiveCellShow = False
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'MS Sans Serif'
    ActiveCellFont.Style = [fsBold]
    ActiveCellColor = clGray
    ActiveCellColorTo = clNone
    Bands.PrimaryColor = clInfoBk
    Bands.PrimaryLength = 1
    Bands.SecondaryColor = clWindow
    Bands.SecondaryLength = 1
    Bands.Print = False
    AutoNumAlign = False
    AutoSize = False
    VAlignment = vtaTop
    EnhTextSize = False
    EnhRowColMove = False
    SizeWithForm = False
    Multilinecells = False
    OnGetCellColor = SG_JLGetCellColor
    OnGetAlignment = SG_JLGetAlignment
    DragDropSettings.OleAcceptFiles = True
    DragDropSettings.OleAcceptText = True
    SortSettings.AutoColumnMerge = False
    SortSettings.Column = 1
    SortSettings.Show = True
    SortSettings.IndexShow = False
    SortSettings.IndexColor = clYellow
    SortSettings.Full = True
    SortSettings.SingleColumn = False
    SortSettings.IgnoreBlanks = False
    SortSettings.BlankPos = blFirst
    SortSettings.AutoFormat = True
    SortSettings.Direction = sdAscending
    SortSettings.UpGlyph.Data = {
      9E010000424D9E010000000000003600000028000000080000000F0000000100
      1800000000006801000000000000000000000000000000000000FEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF7779A37376A070739EFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFF6D6F9B696C99FEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFF6165945E62925A5E8FFEFFFF54578BFEFFFFFEFFFFFEFFFFFEFFFF
      54568A5154884D5086494D84474A82FEFFFFFEFFFFFEFFFFFEFFFF4649814447
      7F40437D3E417BFEFFFFFEFFFFFEFFFF40447D3D417B3A3E79373B77343876FE
      FFFFFEFFFFFEFFFFFEFFFF3538753135732F33722C3170FEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFF}
    SortSettings.DownGlyph.Data = {
      9E010000424D9E010000000000003600000028000000080000000F0000000100
      18000000000068010000120B0000120B00000000000000000000FEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF2C31702F33723135733538
      75FEFFFFFEFFFFFEFFFFFEFFFF343876373B773A3E793D417B40447DFEFFFFFE
      FFFFFEFFFF3E417B40437D44477F464981FEFFFFFEFFFFFEFFFFFEFFFF474A82
      494D844D508651548854568AFEFFFFFEFFFFFEFFFFFEFFFF54578BFEFFFF5A5E
      8F5E6292616594FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF696C996D6F9BFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFF70739E7376A07779A3FEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFF}
    SortSettings.InitSortDirection = sdAscending
    SortSettings.FixedCols = False
    SortSettings.NormalCellsOnly = False
    SortSettings.Row = 0
    SortSettings.UndoSort = False
    FloatingFooter.Color = clBtnFace
    FloatingFooter.Column = 0
    FloatingFooter.FooterStyle = fsFixedLastRow
    FloatingFooter.Visible = False
    ControlLook.Color = clBlack
    ControlLook.CommentColor = clRed
    ControlLook.CheckSize = 15
    ControlLook.RadioSize = 10
    ControlLook.ControlStyle = csClassic
    ControlLook.DropDownAlwaysVisible = False
    ControlLook.ProgressMarginX = 2
    ControlLook.ProgressMarginY = 2
    EnableBlink = False
    EnableHTML = True
    EnableWheel = True
    Flat = False
    Look = glSoft
    HintColor = clYellow
    SelectionColor = clHighlight
    SelectionTextColor = clHighlightText
    SelectionRectangle = False
    SelectionResizer = False
    SelectionRTFKeep = False
    HintShowCells = False
    HintShowLargeText = False
    HintShowSizing = False
    PrintSettings.FooterSize = 0
    PrintSettings.HeaderSize = 0
    PrintSettings.Time = ppNone
    PrintSettings.Date = ppNone
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.PageNr = ppNone
    PrintSettings.Title = ppNone
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'MS Sans Serif'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'MS Sans Serif'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'MS Sans Serif'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'MS Sans Serif'
    PrintSettings.FooterFont.Style = []
    PrintSettings.Borders = pbNoborder
    PrintSettings.BorderStyle = psSolid
    PrintSettings.Centered = False
    PrintSettings.RepeatFixedRows = False
    PrintSettings.RepeatFixedCols = False
    PrintSettings.LeftSize = 0
    PrintSettings.RightSize = 0
    PrintSettings.ColumnSpacing = 0
    PrintSettings.RowSpacing = 0
    PrintSettings.TitleSpacing = 0
    PrintSettings.Orientation = poPortrait
    PrintSettings.PageNumberOffset = 0
    PrintSettings.MaxPagesOffset = 0
    PrintSettings.FixedWidth = 0
    PrintSettings.FixedHeight = 0
    PrintSettings.UseFixedHeight = False
    PrintSettings.UseFixedWidth = False
    PrintSettings.FitToPage = fpNever
    PrintSettings.PageNumSep = '/'
    PrintSettings.NoAutoSize = False
    PrintSettings.NoAutoSizeRow = False
    PrintSettings.PrintGraphics = False
    PrintSettings.UseDisplayFont = True
    HTMLSettings.Width = 100
    HTMLSettings.XHTML = False
    Navigation.AdvanceDirection = adLeftRight
    Navigation.InsertPosition = pInsertBefore
    Navigation.HomeEndKey = heFirstLastColumn
    Navigation.TabToNextAtEnd = False
    Navigation.TabAdvanceDirection = adLeftRight
    ColumnSize.Location = clRegistry
    CellNode.Color = clSilver
    CellNode.ExpandOne = False
    CellNode.NodeColor = clBlack
    CellNode.NodeIndent = 12
    CellNode.ShowTree = False
    CellNode.TreeColor = clSilver
    MaxEditLength = 0
    Grouping.HeaderColor = clNone
    Grouping.HeaderColorTo = clNone
    Grouping.HeaderTextColor = clNone
    Grouping.MergeHeader = False
    Grouping.MergeSummary = False
    Grouping.Summary = False
    Grouping.SummaryColor = clNone
    Grouping.SummaryColorTo = clNone
    Grouping.SummaryTextColor = clNone
    IntelliPan = ipVertical
    URLColor = clBlue
    URLShow = False
    URLFull = False
    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 = False
    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
end