sqlbuilder.dfm

D6+SQL2000 通用自定义查询.

object SQLBuilderForm: TSQLBuilderForm
  Left = 300
  Top = 164
  BorderStyle = bsDialog
  Caption = #26597#35810#26465#20214
  ClientHeight = 287
  ClientWidth = 579
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object pnl1: TPanel
    Left = 0
    Top = 247
    Width = 579
    Height = 40
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object pnl3: TPanel
      Left = 394
      Top = 0
      Width = 185
      Height = 40
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object btnOK: TButton
        Left = 14
        Top = 11
        Width = 75
        Height = 25
        Caption = #30830#23450
        Default = True
        ModalResult = 1
        TabOrder = 0
        OnClick = btnOKClick
      end
      object btnCancel: TButton
        Left = 99
        Top = 11
        Width = 75
        Height = 25
        Caption = #21462#28040
        ModalResult = 2
        TabOrder = 1
      end
    end
  end
  object pnl2: TPanel
    Left = 0
    Top = 0
    Width = 579
    Height = 61
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 110
      Top = 8
      Width = 24
      Height = 12
      Caption = #39033#30446
    end
    object Label2: TLabel
      Left = 255
      Top = 8
      Width = 36
      Height = 12
      Caption = #27604#36739#31526
    end
    object Label3: TLabel
      Left = 373
      Top = 8
      Width = 12
      Height = 12
      Caption = #20540
    end
    object Label4: TLabel
      Left = 8
      Top = 8
      Width = 24
      Height = 12
      Caption = #20851#31995
    end
    object cboDisplayName: TDBComboBoxEh
      Left = 138
      Top = 4
      Width = 113
      Height = 20
      DropDownBox.Sizable = True
      EditButtons = <>
      ShowHint = True
      TabOrder = 1
      Visible = True
      OnChange = cboDisplayNameChange
    end
    object cboOpt: TDBComboBoxEh
      Left = 295
      Top = 4
      Width = 73
      Height = 20
      DropDownBox.Sizable = True
      EditButtons = <>
      ShowHint = True
      TabOrder = 2
      Visible = True
    end
    object btnAdd: TButton
      Left = 5
      Top = 32
      Width = 75
      Height = 25
      Hint = #21152#20837#21040#26465#20214#21015#34920
      Caption = #21152#20837
      TabOrder = 3
      OnClick = btnAddClick
    end
    object btnDel: TButton
      Left = 85
      Top = 32
      Width = 75
      Height = 25
      Hint = #21024#38500#26465#20214#21015#34920#20013#36873#23450#30340#26465#20214
      Caption = #21024#38500
      TabOrder = 4
      OnClick = btnDelClick
    end
    object btnReplace: TButton
      Left = 165
      Top = 32
      Width = 75
      Height = 25
      Hint = #26367#25442#26465#20214#21015#34920#20013#36873#23450#30340#26465#20214
      Caption = #26367#25442
      TabOrder = 5
      OnClick = btnReplaceClick
    end
    object btnEmpty: TButton
      Left = 245
      Top = 32
      Width = 75
      Height = 25
      Hint = #28165#31354#26465#20214#21015#34920#20013#30340#25152#26377#26465#20214
      Caption = #28165#31354
      TabOrder = 6
      OnClick = btnEmptyClick
    end
    object cboLogic: TDBComboBoxEh
      Left = 40
      Top = 4
      Width = 65
      Height = 20
      DropDownBox.Sizable = True
      Enabled = False
      EditButtons = <>
      Items.Strings = (
        #24182#19988
        #25110#32773)
      ShowHint = True
      TabOrder = 0
      Visible = True
      OnChange = cboDisplayNameChange
    end
  end
  object dbgFilter: TDBGridEh
    Left = 0
    Top = 61
    Width = 579
    Height = 186
    Align = alClient
    DataSource = dsFilterList
    EvenRowColor = clMoneyGreen
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object FilterList: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'cLogic'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'cDisplayName'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'cOpt'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'cValue'
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 416
    Top = 16
    Data = {
      8A0000009619E0BD0100000018000000040000000000030000008A0006634C6F
      67696301004900000001000557494454480200020008000C63446973706C6179
      4E616D65020049000000010005574944544802000200FF0004634F7074010049
      0000000100055749445448020002000A00066356616C75650200490000000100
      05574944544802000200FF000000}
    object FilterListcLogic: TStringField
      DisplayLabel = #20851#31995
      DisplayWidth = 8
      FieldName = 'cLogic'
      Size = 8
    end
    object FilterListcFieldName: TStringField
      DisplayLabel = #39033#30446
      DisplayWidth = 34
      FieldName = 'cDisplayName'
      Size = 255
    end
    object FilterListcOpt: TStringField
      DisplayLabel = #27604#36739#31526
      DisplayWidth = 21
      FieldName = 'cOpt'
      Size = 10
    end
    object FilterListcValue: TStringField
      DisplayLabel = #20540
      DisplayWidth = 32
      FieldName = 'cValue'
      Size = 255
    end
  end
  object dsFilterList: TDataSource
    DataSet = FilterList
    Left = 448
    Top = 16
  end
end