bas_enteripdata.dfm

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

object Bas_EnterIPDataForm: TBas_EnterIPDataForm
  Left = 216
  Top = 153
  BorderStyle = bsSingle
  ClientHeight = 242
  ClientWidth = 600
  Color = 14085099
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 600
    Height = 60
    AutoSize = True
    Bands = <
      item
        Control = RzToolbar1
        ImageIndex = -1
        MinHeight = 56
        Width = 596
      end>
    FixedSize = True
    FixedOrder = True
    object RzToolbar1: TRzToolbar
      Left = 0
      Top = 0
      Width = 592
      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 = (
        RzSpacer1
        ToolButton1
        RzSpacer2
        ToolButton4
        RzSpacer5
        ToolButton6
        RzSpacer7
        ToolButton7
        RzSpacer8)
      object ToolButton1: TRzToolButton
        Left = 12
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 0
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #26032#24314
        OnClick = ToolButton1Click
      end
      object ToolButton4: TRzToolButton
        Left = 80
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 3
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #20445#23384
        OnClick = ToolButton4Click
      end
      object ToolButton6: TRzToolButton
        Left = 148
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 5
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #37325#20570
        OnClick = ToolButton6Click
      end
      object ToolButton7: TRzToolButton
        Left = 216
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 9
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #20851#38381
        OnClick = ToolButton7Click
      end
      object RzSpacer1: TRzSpacer
        Left = 4
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer2: TRzSpacer
        Left = 72
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer5: TRzSpacer
        Left = 140
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer7: TRzSpacer
        Left = 208
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer8: TRzSpacer
        Left = 276
        Top = 2
        Height = 52
        Grooved = True
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 218
    Width = 600
    Height = 24
    Panels = <
      item
        Alignment = taCenter
        Text = #25805#20316#25552#31034
        Width = 60
      end
      item
        Width = 50
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 60
    Width = 600
    Height = 109
    Align = alTop
    Color = 16250871
    Enabled = False
    ParentColor = False
    TabOrder = 2
    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 = 210
      Top = 38
      Width = 48
      Height = 12
      Caption = #20135#21697#26381#21153
      Transparent = True
    end
    object Label6: TLabel
      Left = 376
      Top = 62
      Width = 24
      Height = 12
      Caption = #22320#22336
      Transparent = True
    end
    object Label7: TLabel
      Left = 8
      Top = 62
      Width = 24
      Height = 12
      Caption = #30005#35805
      Transparent = True
    end
    object Label8: TLabel
      Left = 210
      Top = 62
      Width = 24
      Height = 12
      Caption = #20256#30495
      Transparent = True
    end
    object Label9: TLabel
      Left = 10
      Top = 86
      Width = 48
      Height = 12
      Caption = #30005#23376#37038#31665
      Transparent = True
    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 = 161
    end
    object Edit4: TcxTextEdit
      Left = 264
      Top = 32
      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 = 329
    end
    object Edit5: TcxTextEdit
      Left = 432
      Top = 56
      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 = 5
      Width = 161
    end
    object Edit6: TcxTextEdit
      Left = 40
      Top = 56
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 6
      Width = 161
    end
    object Edit7: TcxTextEdit
      Left = 240
      Top = 56
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 7
      Width = 113
    end
    object Edit8: TcxTextEdit
      Left = 72
      Top = 80
      ImeMode = imClose
      Properties.ImeMode = imClose
      Style.Edges = [bBottom]
      TabOrder = 8
      Width = 185
    end
  end
  object WorkQuery: TMSQuery
    Connection = MainForm.MC
    FetchAll = False
    Left = 377
    Top = 163
  end
  object DataSource2: TDataSource
    DataSet = SortQuery
    Left = 185
    Top = 171
  end
  object SortQuery: TMSQuery
    Connection = MainForm.MC
    SQL.Strings = (
      'Select * From Bas_SortTable Order By SortName')
    Active = True
    Left = 185
    Top = 219
  end
end