bas_inputipdata.dfm

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

object Bas_InputIPDataForm: TBas_InputIPDataForm
  Left = 196
  Top = 133
  BorderIcons = []
  BorderStyle = bsSingle
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  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
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 60
    AutoSize = True
    Bands = <
      item
        Control = RzToolbar1
        ImageIndex = -1
        MinHeight = 56
        Width = 684
      end>
    FixedSize = True
    FixedOrder = True
    object RzToolbar1: TRzToolbar
      Left = 0
      Top = 0
      Width = 680
      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
        ToolButton3
        RzSpacer4
        ToolButton5
        RzSpacer6
        FlatGauge1)
      object ToolButton1: TRzToolButton
        Left = 12
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 7
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #23548#20837
        OnClick = ToolButton1Click
      end
      object ToolButton3: TRzToolButton
        Left = 80
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 3
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #20445#23384
        OnClick = ToolButton3Click
      end
      object ToolButton5: TRzToolButton
        Left = 148
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 9
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #20851#38381
        OnClick = ToolButton5Click
      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 RzSpacer4: TRzSpacer
        Left = 140
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer6: TRzSpacer
        Left = 208
        Top = 2
        Height = 52
        Grooved = True
      end
      object FlatGauge1: TFlatGauge
        Left = 216
        Top = 16
        Width = 265
        Height = 25
        AdvColorBorder = 0
        ColorBorder = 8623776
        Progress = 0
        Visible = False
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 429
    Width = 688
    Height = 24
    Panels = <
      item
        Alignment = taCenter
        Text = #25805#20316#25552#31034
        Width = 60
      end
      item
        Width = 50
      end>
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 60
    Width = 688
    Height = 369
    Align = alClient
    DataSource = DataSource1
    FixedColor = 14085099
    Flat = True
    FooterColor = clYellow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    FrozenCols = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghTraceColSizing, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Execl'#25991#20214'|*.XLS'
    Left = 464
    Top = 168
  end
  object SubTable: TVirtualTable
    Active = True
    FieldDefs = <
      item
        Name = #31867#21035
        DataType = ftString
        Size = 24
      end
      item
        Name = #33521#25991#21517#31216
        DataType = ftString
        Size = 200
      end
      item
        Name = #20013#25991#21517#31216
        DataType = ftString
        Size = 200
      end
      item
        Name = #32593#22336
        DataType = ftString
        Size = 200
      end
      item
        Name = #20135#21697#26381#21153
        DataType = ftString
        Size = 500
      end
      item
        Name = #22320#22336
        DataType = ftString
        Size = 200
      end
      item
        Name = #30005#35805
        DataType = ftString
        Size = 50
      end
      item
        Name = #20256#30495
        DataType = ftString
        Size = 50
      end
      item
        Name = #30005#37038
        DataType = ftString
        Size = 100
      end>
    Left = 384
    Top = 160
    Data = {
      020009000400C0E0B1F0010018000800D3A2CEC4C3FBB3C60100C8000800D6D0
      CEC4C3FBB3C60100C8000400CDF8D6B70100C8000800B2FAC6B7B7FECEF10100
      F4010400B5D8D6B70100C8000400B5E7BBB0010032000400B4ABD5E601003200
      0400B5E7D3CA01006400000000000000}
    object SubTableField: TStringField
      DisplayWidth = 16
      FieldName = #31867#21035
      Size = 24
    end
    object SubTableField2: TStringField
      DisplayWidth = 27
      FieldName = #33521#25991#21517#31216
      Size = 200
    end
    object SubTableField3: TStringField
      DisplayWidth = 27
      FieldName = #20013#25991#21517#31216
      Size = 200
    end
    object SubTableField4: TStringField
      DisplayWidth = 28
      FieldName = #32593#22336
      Size = 200
    end
    object SubTableField5: TStringField
      DisplayWidth = 36
      FieldName = #20135#21697#26381#21153
      Size = 500
    end
    object SubTableField6: TStringField
      DisplayWidth = 16
      FieldName = #22320#22336
      Size = 200
    end
    object SubTableField7: TStringField
      DisplayWidth = 13
      FieldName = #30005#35805
      Size = 50
    end
    object SubTableField8: TStringField
      DisplayWidth = 18
      FieldName = #20256#30495
      Size = 50
    end
    object SubTableField9: TStringField
      DisplayWidth = 22
      FieldName = #30005#37038
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = SubTable
    Left = 296
    Top = 160
  end
  object WorkQuery: TMSQuery
    Connection = MainForm.MC
    Left = 208
    Top = 160
  end
  object IdAntiFreeze1: TIdAntiFreeze
    OnlyWhenIdle = False
    Left = 112
    Top = 160
  end
end