bas_showipdata.dfm

这是一个为友人所写的小程序, 实现了分段模糊查询, 网页生成等小功能!

object Bas_ShowIPDataForm: TBas_ShowIPDataForm
  Left = 227
  Top = 245
  BorderStyle = bsSingle
  ClientHeight = 297
  ClientWidth = 606
  Color = 14085099
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 606
    Height = 60
    AutoSize = True
    Bands = <
      item
        Control = RzToolbar1
        ImageIndex = -1
        MinHeight = 56
        Width = 602
      end>
    FixedSize = True
    FixedOrder = True
    object RzToolbar1: TRzToolbar
      Left = 0
      Top = 0
      Width = 598
      Height = 56
      Images = MainForm.ImageList2
      RowHeight = 40
      ButtonLayout = blGlyphTop
      ButtonWidth = 60
      ButtonHeight = 40
      ShowButtonCaptions = True
      TextOptions = ttoShowTextLabels
      AutoSize = True
      BorderInner = fsNone
      BorderOuter = fsGroove
      BorderSides = [sdTop]
      BorderWidth = 0
      TabOrder = 0
      VisualStyle = vsGradient
      ToolbarControls = (
        RzSpacer6
        ToolButton7
        RzSpacer8)
      object ToolButton7: TRzToolButton
        Left = 12
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 9
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #20851#38381
        OnClick = ToolButton7Click
      end
      object RzSpacer6: TRzSpacer
        Left = 4
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer8: TRzSpacer
        Left = 72
        Top = 2
        Height = 52
        Grooved = True
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 60
    Width = 606
    Height = 197
    Align = alTop
    Color = 16250871
    Enabled = False
    ParentColor = False
    TabOrder = 1
    object Label1: TLabel
      Left = 10
      Top = 16
      Width = 24
      Height = 12
      Caption = #31867#21035
      Transparent = True
    end
    object Label2: TLabel
      Left = 152
      Top = 16
      Width = 48
      Height = 12
      Caption = #33521#25991#21517#31216
      Transparent = True
    end
    object Label3: TLabel
      Left = 376
      Top = 16
      Width = 48
      Height = 12
      Caption = #20013#25991#21517#31216
      Transparent = True
    end
    object Label4: TLabel
      Left = 10
      Top = 40
      Width = 24
      Height = 12
      Caption = #32593#22336
      Transparent = True
    end
    object Label5: TLabel
      Left = 10
      Top = 86
      Width = 48
      Height = 12
      Caption = #20135#21697#26381#21153
      Transparent = True
    end
    object Label6: TLabel
      Left = 376
      Top = 150
      Width = 24
      Height = 12
      Caption = #22320#22336
      Transparent = True
    end
    object Label7: TLabel
      Left = 8
      Top = 150
      Width = 24
      Height = 12
      Caption = #30005#35805
      Transparent = True
    end
    object Label8: TLabel
      Left = 210
      Top = 150
      Width = 24
      Height = 12
      Caption = #20256#30495
      Transparent = True
    end
    object Label9: TLabel
      Left = 10
      Top = 174
      Width = 48
      Height = 12
      Caption = #30005#23376#37038#31665
      Transparent = True
    end
    object Label12: TLabel
      Left = 272
      Top = 88
      Width = 6
      Height = 12
      Transparent = True
      Visible = False
    end
    object Combobox1: TcxLookupComboBox
      Left = 40
      Top = 9
      ImeMode = imOpen
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      Properties.ImeMode = imOpen
      Properties.ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      Properties.KeyFieldNames = 'SortName'
      Properties.ListColumns = <
        item
          FieldName = 'SortName'
        end>
      Properties.ListSource = DataSource2
      Style.Edges = [bBottom]
      TabOrder = 0
      Width = 105
    end
    object Edit1: TcxTextEdit
      Left = 208
      Top = 9
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 1
      Width = 161
    end
    object Edit2: TcxTextEdit
      Left = 432
      Top = 9
      ImeMode = imOpen
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      Properties.ImeMode = imOpen
      Properties.ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      Style.Edges = [bBottom]
      TabOrder = 2
      Width = 161
    end
    object Edit3: TcxTextEdit
      Left = 40
      Top = 33
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 3
      Width = 257
    end
    object Edit5: TcxTextEdit
      Left = 408
      Top = 144
      ImeMode = imOpen
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      Properties.ImeMode = imOpen
      Properties.ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      Style.Edges = [bBottom]
      TabOrder = 4
      Width = 185
    end
    object Edit6: TcxTextEdit
      Left = 40
      Top = 144
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 5
      Width = 161
    end
    object Edit7: TcxTextEdit
      Left = 240
      Top = 144
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 6
      Width = 113
    end
    object Edit8: TcxTextEdit
      Left = 72
      Top = 168
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 7
      Width = 185
    end
    object Edit4: TcxMemo
      Left = 64
      Top = 56
      TabOrder = 8
      Height = 81
      Width = 529
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 273
    Width = 606
    Height = 24
    Panels = <>
  end
  object WorkQuery: TMSQuery
    Connection = MainForm.MC
    Left = 152
    Top = 200
  end
  object DataSource1: TDataSource
    Left = 160
    Top = 176
  end
  object SortQuery: TMSQuery
    Connection = MainForm.MC
    SQL.Strings = (
      'Select * From Bas_SortTable Order By SortName')
    Active = True
    Left = 33
    Top = 275
  end
  object DataSource2: TDataSource
    DataSet = SortQuery
    Left = 33
    Top = 227
  end
end