bas_initsortinfo.dfm

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

object Bas_InitSortInfoForm: TBas_InitSortInfoForm
  Left = 192
  Top = 132
  BorderIcons = []
  BorderStyle = bsSingle
  ClientHeight = 453
  ClientWidth = 441
  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
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 441
    Height = 60
    AutoSize = True
    Bands = <
      item
        Control = RzToolbar1
        ImageIndex = -1
        MinHeight = 56
        Width = 437
      end>
    FixedSize = True
    FixedOrder = True
    object RzToolbar1: TRzToolbar
      Left = 0
      Top = 0
      Width = 433
      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
        ToolButton2
        RzSpacer3
        ToolButton3
        RzSpacer4
        ToolButton4
        RzSpacer6
        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 ToolButton2: TRzToolButton
        Left = 80
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 1
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #20462#25913
        OnClick = ToolButton2Click
      end
      object ToolButton3: TRzToolButton
        Left = 148
        Top = 0
        Width = 60
        Height = 56
        Cursor = crHandPoint
        ImageIndex = 2
        Layout = blGlyphTop
        UseToolbarButtonLayout = False
        UseToolbarButtonSize = False
        Caption = #21024#38500
        OnClick = ToolButton3Click
      end
      object ToolButton4: TRzToolButton
        Left = 216
        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 = 284
        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 = 352
        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 RzSpacer3: TRzSpacer
        Left = 140
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer4: TRzSpacer
        Left = 208
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer6: TRzSpacer
        Left = 276
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer7: TRzSpacer
        Left = 344
        Top = 2
        Height = 52
        Grooved = True
      end
      object RzSpacer8: TRzSpacer
        Left = 412
        Top = 2
        Height = 52
        Grooved = True
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 429
    Width = 441
    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 = 441
    Height = 34
    Align = alTop
    Color = 16250871
    Enabled = False
    ParentColor = False
    TabOrder = 2
    object Label1: TLabel
      Left = 24
      Top = 15
      Width = 48
      Height = 12
      Caption = #31867#22411#21517#31216
      Transparent = True
    end
    object Edit1: TcxTextEdit
      Left = 88
      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 = 0
      OnExit = Edit1Exit
      Width = 257
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 94
    Width = 441
    Height = 335
    Align = alBottom
    DataSource = DataSource1
    EvenRowColor = 15268861
    FixedColor = 14085099
    Flat = True
    FooterColor = clYellow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghData3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghEnterAsTab, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
    ReadOnly = True
    RowHeight = 2
    RowLines = 1
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'SortName'
        Footers = <>
        Title.Caption = #31867#22411#21517#31216
        Width = 404
      end>
  end
  object DataSource1: TDataSource
    DataSet = DataQuery
    Left = 120
    Top = 176
  end
  object DataQuery: TMSQuery
    Connection = MainForm.MC
    SQL.Strings = (
      'Select * From Bas_SortTable Order By SortName')
    Active = True
    Left = 40
    Top = 168
  end
  object WorkQuery: TMSQuery
    Connection = MainForm.MC
    Left = 40
    Top = 224
  end
end