dbaware.dfm

灰鸽子1.23源码,,,,,,,

          Left = 8
          Top = 75
          Width = 217
          Height = 21
          DataSource = DataSource3
          NoIndexItem = '< Natural Order >'
          EnableNoIndex = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Filter'
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 496
        Height = 129
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object GroupBox6: TGroupBox
          Left = 0
          Top = 83
          Width = 494
          Height = 41
          TabOrder = 0
          object DBNavigator: TDBNavigator
            Left = 235
            Top = 11
            Width = 230
            Height = 25
            DataSource = DataSource4
            Ctl3D = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
          end
        end
        object GroupBox7: TGroupBox
          Left = 0
          Top = 0
          Width = 496
          Height = 84
          Align = alTop
          Caption = ' RxDBFilter '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object Label15: TLabel
            Left = 12
            Top = 21
            Width = 461
            Height = 52
            AutoSize = False
            Caption = 
              'TRxDBFilter encapsulates BDE ability to filter records locally. ' +
              'The component provides event on filtering and/or conditions in S' +
              'tringList property. Filters are very fast because they are contr' +
              'olled at the database engine level and not in Delphi code.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsUnderline]
            ParentFont = False
            WordWrap = True
          end
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 129
        Width = 496
        Height = 156
        Align = alClient
        BevelInner = bvLowered
        BorderWidth = 4
        Caption = 'Panel2'
        TabOrder = 1
        object ScrollBox: TScrollBox
          Left = 6
          Top = 6
          Width = 484
          Height = 144
          HorzScrollBar.Margin = 6
          HorzScrollBar.Range = 294
          VertScrollBar.Margin = 6
          VertScrollBar.Range = 122
          Align = alClient
          AutoScroll = False
          BorderStyle = bsNone
          TabOrder = 0
          object Label8: TLabel
            Left = 174
            Top = 9
            Width = 63
            Height = 13
            AutoSize = False
            Caption = 'Company'
            FocusControl = EditCompany
          end
          object Label9: TLabel
            Left = 360
            Top = 9
            Width = 49
            Height = 13
            AutoSize = False
            Caption = 'CustNo'
          end
          object Label10: TLabel
            Left = 174
            Top = 51
            Width = 35
            Height = 13
            AutoSize = False
            Caption = 'City'
            FocusControl = EditCity
          end
          object Label11: TLabel
            Left = 270
            Top = 51
            Width = 43
            Height = 13
            AutoSize = False
            Caption = 'State'
            FocusControl = EditState
          end
          object Label12: TLabel
            Left = 396
            Top = 51
            Width = 29
            Height = 13
            AutoSize = False
            Caption = 'Zip'
            FocusControl = EditZip
          end
          object Label13: TLabel
            Left = 174
            Top = 89
            Width = 51
            Height = 13
            AutoSize = False
            Caption = 'Country'
            FocusControl = EditCountry
          end
          object Label14: TLabel
            Left = 304
            Top = 89
            Width = 45
            Height = 13
            AutoSize = False
            Caption = 'Phone'
            FocusControl = EditPhone
          end
          object EditCompany: TDBEdit
            Left = 174
            Top = 24
            Width = 180
            Height = 21
            DataField = 'Company'
            DataSource = DataSource4
            TabOrder = 1
          end
          object EditCity: TDBEdit
            Left = 174
            Top = 66
            Width = 90
            Height = 21
            DataField = 'City'
            DataSource = DataSource4
            TabOrder = 3
          end
          object EditState: TDBEdit
            Left = 270
            Top = 66
            Width = 120
            Height = 21
            DataField = 'State'
            DataSource = DataSource4
            TabOrder = 4
          end
          object EditZip: TDBEdit
            Left = 396
            Top = 66
            Width = 60
            Height = 21
            DataField = 'Zip'
            DataSource = DataSource4
            TabOrder = 5
          end
          object EditCountry: TDBEdit
            Left = 174
            Top = 104
            Width = 120
            Height = 21
            DataField = 'Country'
            DataSource = DataSource4
            TabOrder = 6
          end
          object EditPhone: TDBEdit
            Left = 304
            Top = 103
            Width = 121
            Height = 21
            DataField = 'Phone'
            DataSource = DataSource4
            TabOrder = 7
          end
          object GroupBox5: TGroupBox
            Left = 7
            Top = 7
            Width = 145
            Height = 118
            Caption = ' Filter control panel '
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            object EnterQuery: TSpeedButton
              Left = 36
              Top = 18
              Width = 25
              Height = 25
              Hint = 'Enter query|'
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                3333333300003333333333333300333300003333333333333333333300003333
                3333333333003333000033033333333333003333000030003333333333300333
                00000F000333333330330033000030F000333333300330030000330F00000008
                3300003300003330F0087778033333330000333300877FF78033333300003333
                0877777F788333330000333307777777F70333330000333308777777F7033333
                00003333087FF7777703333300003333888FF777788333330000333330887777
                8033333300003333330888880333333300003333333800083333333300003333
                33333333333333330000}
              OnClick = EnterQueryClick
            end
            object ExecQuery: TSpeedButton
              Left = 60
              Top = 18
              Width = 25
              Height = 25
              Hint = 'Exec query|'
              Enabled = False
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                3333333300003333333333333333333300003333333033333333333300003333
                33380333333333330000333333330033333333330000333333330B0333333333
                00003333330000B03333333300003333330BBFBB03333333000033333330FB00
                00333333000033333330BFB0333333330000333300000BFB0333333300003333
                0FBFBFBFB03333330000333330FBFB00003333330000333330BFBFB033333333
                00003333330BFBFB0333333300003333330FFFBFF0333333000033333330FBFF
                BF03333300003333333000000000333300003333333333333333333300003333
                33333333333333330000}
              OnClick = ExecQueryClick
            end
            object CancelQuery: TSpeedButton
              Left = 84
              Top = 18
              Width = 25
              Height = 25
              Hint = 'Cancel query|'
              Enabled = False
              Glyph.Data = {
                DE010000424DDE01000000000000760000002800000024000000120000000100
                0400000000006801000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                333333333333333333333333000033338833333333333333333F333333333333
                0000333911833333983333333388F333333F3333000033391118333911833333
                38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
                911118111118333338F3338F833338F3000033333911111111833333338F3338
                3333F8330000333333911111183333333338F333333F83330000333333311111
                8333333333338F3333383333000033333339111183333333333338F333833333
                00003333339111118333333333333833338F3333000033333911181118333333
                33338333338F333300003333911183911183333333383338F338F33300003333
                9118333911183333338F33838F338F33000033333913333391113333338FF833
                38F338F300003333333333333919333333388333338FFF830000333333333333
                3333333333333333333888330000333333333333333333333333333333333333
                0000}
              NumGlyphs = 2
              OnClick = CancelQueryClick
            end
            object RadioGroup1: TRadioGroup
              Left = 12
              Top = 53
              Width = 121
              Height = 53
              Caption = ' Link type '
              ItemIndex = 0
              Items.Strings = (
                'AND'
                'OR')
              TabOrder = 0
              OnClick = RadioGroup1Click
            end
          end
          object EditCustNo: TDBEdit
            Left = 360
            Top = 24
            Width = 60
            Height = 21
            DataField = 'CustNo'
            DataSource = DataSource4
            TabOrder = 2
          end
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Query'
      object GroupBox8: TGroupBox
        Left = 0
        Top = 0
        Width = 496
        Height = 285
        Align = alClient
        Caption = ' RxQuery '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label16: TLabel
          Left = 8
          Top = 16
          Width = 481
          Height = 46
          AutoSize = False
          Caption = 
            'The component is the descendant of standard TQuery, so it provid' +
            'es all its functionality. In addition it supports "macros" in qu' +
            'ery text (SQL property), which are similar to Params. This abili' +
            'ty allows to modify SQL text easily and handy.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object Label1: TLabel
          Left = 8
          Top = 100
          Width = 481
          Height = 16
          AutoSize = False
          Caption = 'Click column header to change sort order in TRxDBGrid.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object Panel4: TPanel
          Left = 8
          Top = 60
          Width = 481
          Height = 37
          Caption = 'Panel4'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object Label17: TLabel