dbaware.dfm

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

object DBAwareForm: TDBAwareForm
  Left = 209
  Top = 123
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'RX Data Aware Components'
  ClientHeight = 313
  ClientWidth = 504
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000099999000099999990000000000000000099900000009990000000000
    0000000000999CC000099CCCCC000000000000000009990000099CCC00000000
    000000000000999000990CC000000000000000000000099900990CC000000000
    00000000000000999099CC000000000000000000000000099999CC0000009999
    90000000999900009990CC000000999000000009990000000999CC000000099C
    CCC0000990CCCC00099990000000099CC00000099CCC0000990999000000099C
    C00000990CC00000990C999000000099C00000990CC0000099CC099900000099
    C0000099CC00000099CC009990000099CC000990CC00000990CC000999000099
    CC000990CC00000990CC00009999000999999999C00000999CC0000009990009
    9C0000999900999999900009999900099CCCCCCC99900000CCC00000000C0009
    9CC00000999900CCCCCCC0000CCC000099C000000999C0000000000000000000
    99C000000099CC00000000000000000099CC00000099CC000000000000000000
    99CC00000999CC000000000000000000999C00009990CC000000000000000099
    99999999900CCC00000000000000000000CCC00000CCC0000000000000000000
    CCCCCCCCCCC0000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFF0780FFFF8FE3FFFFC1E03FFFE3E0FFFFF1C9FFFFF8C9FFFFF
    C43FFFFFE03F07F0F13F1FE3F83F81E4387F87E0F23F87C9F21FC7C9F08FC7C3
    F0C7C393E4E3C393E4F0E007C1F8E3C301E0E001F1FEE1F0C078F1F87FFFF1FC
    3FFFF0FC3FFFF0F83FFFF0F13FFFC0063FFFFC7C7FFFF001FFFFFFFFFFFF07FA}
  OldCreateOrder = True
  Position = poDefaultPosOnly
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 504
    Height = 313
    Align = alClient
    PageIndex = 3
    TabsPerRow = 4
    TabFont.Charset = DEFAULT_CHARSET
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Grid'
      object GroupBox1: TGroupBox
        Left = 0
        Top = 73
        Width = 496
        Height = 212
        Align = alClient
        Caption = ' RxDBGrid '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object rxDBGrid1: TRxDBGrid
          Left = 2
          Top = 33
          Width = 492
          Height = 177
          Align = alClient
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlue
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnKeyPress = rxDBGrid1KeyPress
          ClearSelection = False
          IniStorage = FormStorage1
          MultiSelect = True
          OnGetCellParams = rxDBGrid1GetCellParams
        end
        object Panel1: TPanel
          Left = 2
          Top = 15
          Width = 492
          Height = 18
          Align = alTop
          BevelOuter = bvNone
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object CheckBox1: TCheckBox
            Left = 8
            Top = 0
            Width = 229
            Height = 17
            Caption = ' Show pictures for BLOB-fields'
            Checked = True
            State = cbChecked
            TabOrder = 0
            OnClick = CheckBox1Click
          end
          object CheckBox2: TCheckBox
            Left = 252
            Top = 0
            Width = 229
            Height = 17
            Caption = ' Allow select multiple rows '
            Checked = True
            State = cbChecked
            TabOrder = 1
            OnClick = CheckBox2Click
          end
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 496
        Height = 73
        Align = alTop
        Caption = ' DBStatusLabel '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object DBStatusLabel1: TDBStatusLabel
          Left = 222
          Top = 34
          Width = 257
          Height = 13
          DatasetName = 'Table "Biolife"'
          DataSource = DataSource1
          AutoSize = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 20
          Top = 15
          Width = 449
          Height = 14
          AutoSize = False
          Caption = 
            'TDBStatusLabel component displays the DataSet state or record nu' +
            'mber'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object DBStatusLabel2: TDBStatusLabel
          Left = 222
          Top = 50
          Width = 263
          Height = 13
          DataSource = DataSource1
          Style = lsRecordNo
          AutoSize = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBNavigator1: TDBNavigator
          Left = 10
          Top = 39
          Width = 198
          Height = 21
          DataSource = DataSource1
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Combos'
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 496
        Height = 172
        Align = alTop
        Caption = ' RxDBLookupCombo '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label3: TLabel
          Left = 15
          Top = 17
          Width = 455
          Height = 40
          AutoSize = False
          Caption = 
            'TRxDBLookupCombo provides an incremental search, LookupSource ca' +
            'n refer to TTable, TQuery or TQbeQuery. End-users can incrementa' +
            'lly search through the lookup list by directly typing into the c' +
            'ombo control while the lookup list is displayed.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object Label4: TLabel
          Left = 12
          Top = 63
          Width = 92
          Height = 13
          Caption = 'Employee Name:    '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 314
          Top = 63
          Width = 101
          Height = 13
          Caption = 'Employee Number:    '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 16
          Top = 111
          Width = 445
          Height = 46
          AutoSize = False
          Caption = 
            'In this example the TRxDBLookupCombo component refers to the TQB' +
            'EQuery component. The non-visual TQBEQuery component allows you ' +
            'to specify a Paradox-style Query-By-Example query that is used  ' +
            'to supply data to one or more of the other visual controls.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object Edit1: TMaskEdit
          Left = 315
          Top = 79
          Width = 153
          Height = 21
          TabStop = False
          EditMask = '!99999;1; '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Text = '     '
        end
        object rxDBLookupCombo1: TRxDBLookupCombo
          Left = 12
          Top = 79
          Width = 289
          Height = 21
          DropDownCount = 8
          DisplayAllFields = True
          DisplayEmpty = '< Not selected >'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 17
          LookupField = 'EmpNo'
          LookupDisplay = 'LastName;FirstName'
          LookupSource = DataSource2
          ParentFont = False
          TabOrder = 1
          OnChange = rxDBLookupCombo1Change
          OnGetImage = rxDBLookupCombo1GetImage
        end
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 172
        Width = 496
        Height = 113
        Align = alClient
        Caption = ' DBIndexCombo '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label7: TLabel
          Left = 8
          Top = 14
          Width = 225
          Height = 59
          AutoSize = False
          Caption = 
            'TDBIndexCombo is the combo box with all available indexes for th' +
            'e table it'#39's assigned to. Allows to the end user to change the c' +
            'urrent display order.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          WordWrap = True
        end
        object rxDBGrid2: TRxDBGrid
          Left = 238
          Top = 10
          Width = 241
          Height = 87
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object DBIndexCombo1: TDBIndexCombo