Chip 1999 March/Chip_1999-03_cd.bin/zkuste/delphi/D12/MRO.ZIP/MROUNIT1.DFM/MROUNIT1.txt

Text File | 1996-05-06 | 52KB | 1,979 lines

object Form1: TForm1
  Left = 166
  Top = 106
  Width = 623
  Height = 462
  Caption = 'Demonstration of TtaDBMRO'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  TextHeight = 16
  object TabSet1: TTabSet
    Left = 0
    Top = 410
    Width = 615
    Height = 25
    Align = alBottom
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Tabs.Strings = (
      'Introduction'
      'Main Demo'
      'Lookups, CheckBoxes, ...'
      'BLOB Demo'
      '3d Party')
    TabIndex = 0
    OnChange = TabSet1Change
  end
  object Notebook1: TNotebook
    Left = 0
    Top = 0
    Width = 615
    Height = 410
    Align = alClient
    TabOrder = 1
    OnPageChanged = Notebook1PageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'Introduction'
      object IntroTAPanel: TPanel
        Left = 16
        Top = 300
        Width = 585
        Height = 81
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object IntroTALabel1: TLabel
          Left = 221
          Top = 13
          Width = 142
          Height = 17
          Caption = 'Tamarack Associates'
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object IntroTALabel2: TLabel
          Left = 223
          Top = 35
          Width = 139
          Height = 14
          Caption = '[e-mail]'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object IntroTALabel3: TLabel
          Left = 235
          Top = 53
          Width = 114
          Height = 14
          Caption = 'Copyright � 1995, 1996'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
      end
      object IntroMemo: TMemo
        Left = 16
        Top = 80
        Width = 585
        Height = 201
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        Lines.Strings = (

            'Tired of TDBGrids that cannot display all the fields you�d like ' +
            'without endlessly '

            'scrolling horizontally?  Wish you had a grid where each record c' +
            'ould occupy multiple '

            'lines, contain any Borland field data aware control, use differe' +
            'nt fonts and colors?  '

            'Perhaps you'#39'd like to put some pizzazz in the title?  Maybe even' +
            ' differentiate the '

            'current record from the other visible records by using different' +
            ' colors and/or fonts?  Or '

            'possibly you'#39've tried the TDBCtrlGrid and have grown frustrated ' +
            'by its limited support '
          'of data aware controls and lack of flexibility?'
          ''

            'Welcome to the TtaDBMRO!  This Delphi component provides Multipl' +
            'e Record Object '

            '(MRO) capability for database applications.  Simply add a TTable' +
            ', TDataSource, '

            'TtaDBMRO, and a TPanel that contains data aware controls.  That�' +
            's it!  The contents of '
          'the TPanel are stacked vertically one above the other.'
          ''
          'TtaDBMRO provides the following features:'
          ''
          '� Uses a TPanel that contains data aware controls'
          '� Supports all Borland field data aware controls'
          '� Full Delphi 1.0 & 2.0 support'
          '� Supports user defined titles'
          '� Provides numerous event hooks to allow for customization'
          '� Compatible with InfoPower from Woll2Woll Software'
          '� Compatible with Orpheus from TurboPower Software'
          '� Compatible with TDBLookupComboPlus & TDBComboBoxPlus'
          '� Can automatically manage the height and width of the MRO'
          '� Fields may be from multiple DataSources'
          ''

            'The best way to grasp what a MRO does is just click one of the D' +
            'emo tabs below!')
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object IntroPanel: TPanel
        Left = 16
        Top = 8
        Width = 585
        Height = 65
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Caption = 'TtaDBMRO 2.0'
        Font.Color = clBlue
        Font.Height = -24
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
      end
      object InfoCheckBox: TCheckBox
        Left = 488
        Top = 385
        Width = 115
        Height = 17
        Caption = 'Show info dialogs'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        State = cbChecked
        TabOrder = 3
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Main Demo'
      object MainMRO: TtaDBMRO
        Left = 8
        Top = 8
        Width = 411
        Height = 374
        Cursor = crArrow
        Hint = 'These are the nonselected records'
        Color = clBtnFace
        DataSource = CustomerDataSource
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        Options = [dgEditing, dgIndicator, dgRowLines, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'System'
        TitleFont.Style = []
        RecordPanel = MainRecordPanel
        TitlePanel = MainTitlePanel
        UseColor = False
      end
      object MainTAPanel: TPanel
        Left = 432
        Top = 300
        Width = 161
        Height = 81
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object MainTALabel1: TLabel
          Left = 9
          Top = 13
          Width = 142
          Height = 17
          Caption = 'Tamarack Associates'
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object MainTALabel2: TLabel
          Left = 11
          Top = 37
          Width = 139
          Height = 14
          Caption = '[e-mail]'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object MainTALabel3: TLabel
          Left = 23
          Top = 56
          Width = 114
          Height = 14
          Caption = 'Copyright � 1995, 1996'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
      end
      object MainOptionsGroupBox: TGroupBox
        Left = 432
        Top = 34
        Width = 161
        Height = 260
        Caption = 'Options'
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        object IndicatorCheckBox: TCheckBox
          Left = 16
          Top = 38
          Width = 97
          Height = 18
          Hint = 'Toggles dgIndicator'
          Caption = 'dgIndicator'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 1
          OnClick = IndicatorCheckBoClick
        end
        object RowLinesCheckBox: TCheckBox
          Left = 16
          Top = 60
          Width = 97
          Height = 18
          Hint = 'Toggles dgRowLines'
          Caption = 'dgRowLines'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 2
          OnClick = RowLinesCheckBoxClick
        end
        object OnDrawBackgroundCheckBox: TCheckBox
          Left = 16
          Top = 170
          Width = 137
          Height = 18
          Hint = 'Uses OnDrawBackground event'
          Caption = 'OnDrawBackground'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          OnClick = OnDrawBackgroundCheckBoxClick
        end
        object MROColorCheckBox: TCheckBox
          Left = 16
          Top = 148
          Width = 97
          Height = 18
          Hint =
            'Exposes white space (if any) and changes field color (if UseColo' +
            'r)'
          Caption = 'MRO Color'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnClick = MROColorCheckBoxClick
        end
        object TitlesCheckBox: TCheckBox
          Left = 16
          Top = 82
          Width = 97
          Height = 18
          Hint = 'Toggles dgTitles'
          Caption = 'dgTitles'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnClick = TitlesCheckBoxClick
        end
        object AutoHeightCheckBox: TCheckBox
          Left = 16
          Top = 104
          Width = 97
          Height = 18
          Hint = 'Forces ClientHeight to be multiple of RecordPanel.Height'
          Caption = 'AutoHeight'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 4
          OnClick = AutoHeightCheckBoxClick
        end
        object AutoWidthCheckBox: TCheckBox
          Left = 16
          Top = 126
          Width = 97
          Height = 18
          Hint = 'Eliminates white space along left edge'
          Caption = 'AutoWidth'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 5
          OnClick = AutoWidthCheckBoxClick
        end
        object UseColorCheckBox: TCheckBox
          Left = 16
          Top = 214
          Width = 97
          Height = 18
          Hint = 'Controls field color of nonselected records'
          Caption = 'UseColor'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          OnClick = UseColorCheckBoxClick
        end
        object UseFontCheckBox: TCheckBox
          Left = 16
          Top = 236
          Width = 97
          Height = 18
          Hint = 'Controls the font used in fields in the nonselected records'
          Caption = 'UseFont'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 10
          OnClick = UseFontCheckBoxClick
        end
        object TabCheckBox: TCheckBox
          Left = 16
          Top = 192
          Width = 113
          Height = 18
          Hint =
            'Tab from last field in current record to first field in next rec' +
            'ord, & visa versa'
          Caption = 'Tab to Next/Prior'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
        end
        object BorderStyleCheckBox: TCheckBox
          Left = 16
          Top = 16
          Width = 97
          Height = 18
          Hint = 'Toggles BorderStyle'
          Caption = 'bsSingle'
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 0
          OnClick = BorderStyleCheckBoxClick
        end
      end
      object MainDBNavigator: TDBNavigator
        Left = 432
        Top = 8
        Width = 172
        Height = 18
        DataSource = CustomerDataSource
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object MainRecordPanel: TPanel
        Left = 20
        Top = 9
        Width = 382
        Height = 92
        Hint =
          'This is the selected record, it is defined in the RecordPanel pr' +
          'operty'
        BevelInner = bvLowered
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = MainRecordPanelClick
        object MainRecordBevel: TBevel
          Left = 272
          Top = 46
          Width = 89
          Height = 38
          Shape = bsFrame
        end
        object MainRecordLabel: TLabel
          Left = 286
          Top = 49
          Width = 59
          Height = 14
          Alignment = taCenter
          Caption = 'Tax Rate'
        end
        object DBEdit1: TDBEdit
          Left = 8
          Top = 3
          Width = 123
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'Company'
          DataSource = CustomerDataSource
          MaxLength = 30
          TabOrder = 0
          OnExit = DBEdit1Exit
        end
        object DBEdit2: TDBEdit
          Left = 8
          Top = 20
          Width = 123
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'Addr1'
          DataSource = CustomerDataSource
          MaxLength = 30
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 8
          Top = 37
          Width = 123
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'Addr2'
          DataSource = CustomerDataSource
          MaxLength = 30
          TabOrder = 2
        end
        object DBEdit8: TDBEdit
          Left = 135
          Top = 3
          Width = 123
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'Phone'
          DataSource = CustomerDataSource
          MaxLength = 15
          TabOrder = 7
        end
        object DBEdit9: TDBEdit
          Left = 135
          Top = 20
          Width = 123
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'FAX'
          DataSource = CustomerDataSource
          MaxLength = 15
          TabOrder = 8
        end
        object DBEdit10: TDBEdit
          Left = 135
          Top = 37
          Width = 123
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'Contact'
          DataSource = CustomerDataSource
          MaxLength = 20
          TabOrder = 9
        end
        object DBEdit4: TDBEdit
          Left = 8
          Top = 54
          Width = 123
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'City'
          DataSource = CustomerDataSource
          MaxLength = 15
          TabOrder = 3
        end
        object DBEdit11: TDBEdit
          Left = 295
          Top = 65
          Width = 41
          Height = 14
          BorderStyle = bsNone
          DataField = 'TaxRate'
          DataSource = CustomerDataSource
          MaxLength = 0
          TabOrder = 10
          OnExit = DBEdit11Exit
        end
        object DBEdit5: TDBEdit
          Left = 8
          Top = 71
          Width = 61
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'State'
          DataSource = CustomerDataSource
          MaxLength = 20
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 71
          Top = 71
          Width = 60
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'Country'
          DataSource = CustomerDataSource
          MaxLength = 20
          TabOrder = 5
        end
        object MainRecordGroupBox: TGroupBox
          Left = 272
          Top = 4
          Width = 89
          Height = 39
          Caption = 'Customer #'
          TabOrder = 11
          object DBText1: TDBText
            Left = 26
            Top = 19
            Width = 42
            Height = 14
            Alignment = taCenter
            DataField = 'CustNo'
            DataSource = CustomerDataSource
          end
        end
        object DBEdit7: TDBEdit
          Left = 135
          Top = 71
          Width = 60
          Height = 16
          AutoSize = False
          BorderStyle = bsNone
          DataField = 'Zip'
          DataSource = CustomerDataSource
          MaxLength = 10
          TabOrder = 6
        end
      end
      object MainTitlePanel: TPanel
        Left = 12
        Top = 33
        Width = 382
        Height = 92
        Hint = 'Custom titles are displayed via the TitlePanel property'
        BevelInner = bvLowered
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        Visible = False
        object TitleLabel1: TLabel
          Left = 8
          Top = 6
          Width = 123
          Height = 14
          Alignment = taCenter
          Caption = 'Customer Name'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel2: TLabel
          Left = 8
          Top = 22
          Width = 123
          Height = 14
          Alignment = taCenter
          Caption = 'Address 1'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel3: TLabel
          Left = 8
          Top = 38
          Width = 123
          Height = 14
          Alignment = taCenter
          Caption = 'Address 2'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel4: TLabel
          Left = 8
          Top = 54
          Width = 123
          Height = 14
          Alignment = taCenter
          Caption = 'City'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel6: TLabel
          Left = 70
          Top = 70
          Width = 61
          Height = 14
          Alignment = taCenter
          Caption = 'Country'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel5: TLabel
          Left = 8
          Top = 70
          Width = 61
          Height = 14
          Alignment = taCenter
          Caption = 'State'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel7: TLabel
          Left = 134
          Top = 6
          Width = 123
          Height = 14
          Alignment = taCenter
          Caption = 'Phone'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel8: TLabel
          Left = 134
          Top = 22
          Width = 123
          Height = 14
          Alignment = taCenter
          Caption = 'Fax'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel9: TLabel
          Left = 134
          Top = 38
          Width = 123
          Height = 14
          Alignment = taCenter
          Caption = 'Contact'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
        object TitleLabel11: TLabel
          Left = 269
          Top = 25
          Width = 97
          Height = 37
          Caption = 'Titles!'
          Font.Color = clMaroon
          Font.Height = -32
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object TitleLabel10: TLabel
          Left = 134
          Top = 70
          Width = 61
          Height = 14
          Alignment = taCenter
          Caption = 'Zip'
          Color = clWhite
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentColor = False
          ParentFont = False
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Box Demo'
      object BoxMRO: TtaDBMRO
        Left = 9
        Top = 8
        Width = 449
        Height = 304
        Cursor = crArrow
        Color = clBtnFace
        DataSource = OrdersDataSource
        Options = [dgEditing, dgIndicator, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'System'
        TitleFont.Style = []
        RecordPanel = BoxRecordPanel
        UseColor = False
        UseFont = False
      end
      object xdAllGroupBox: TGroupBox
        Left = 464
        Top = 8
        Width = 137
        Height = 81
        Caption = 'All Controls'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object xdCtl3dCheckBox: TCheckBox
          Left = 16
          Top = 14
          Width = 97
          Height = 17
          Caption = 'Ctl3D'
          State = cbChecked
          TabOrder = 0
          OnClick = xdCtl3dCheckBoxClick
        end
        object xdFontBtn: TButton
          Left = 75
          Top = 51
          Width = 48
          Height = 24
          Caption = 'Font'
          TabOrder = 3
          OnClick = xdFontBtnClick
        end
        object xdColorBtn: TButton
          Left = 16
          Top = 51
          Width = 52
          Height = 24
          Caption = 'Color'
          TabOrder = 2
          OnClick = xdColorBtnClick
        end
        object xdEnabledCheckBox: TCheckBox
          Left = 16
          Top = 30
          Width = 97
          Height = 17
          Caption = 'Enabled'
          State = cbChecked
          TabOrder = 1
          OnClick = xdEnabledCheckBoxClick
        end
      end
      object xdEditGroupBox: TGroupBox
        Left = 74
        Top = 328
        Width = 137
        Height = 57
        Caption = 'TDBEdit/TDBListBox'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        object xdLookupListLabel: TLabel
          Left = 8
          Top = 11
          Width = 84
          Height = 14
          Caption = 'TDBLookupList'
        end
        object xdEditBorderStyleComboBox: TComboBox
          Left = 8
          Top = 28
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'bsNone'
            'bsSingle')
          TabOrder = 0
          Text = 'bsSingle'
          OnChange = xdEditBorderStyleComboBoxChange
        end
      end
      object xdPanelGroupBox: TGroupBox
        Left = 464
        Top = 96
        Width = 137
        Height = 201
        Caption = 'TPanel'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object xdPanelLabel: TLabel
          Left = 8
          Top = 41
          Width = 59
          Height = 14
          Caption = 'BevelInner'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object xdPanelLabel2: TLabel
          Left = 8
          Top = 81
          Width = 61
          Height = 14
          Caption = 'BevelOuter'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object xdPanelLabel3: TLabel
          Left = 8
          Top = 121
          Width = 61
          Height = 14
          Caption = 'BevelWidth'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object xdPanelLabel4: TLabel
          Left = 8
          Top = 157
          Width = 69
          Height = 14
          Caption = 'BorderWidth'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object xdPanelComboBox: TComboBox
          Left = 8
          Top = 18
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'bsNone'
            'bsSingle')
          TabOrder = 0
          Text = 'bsSingle'
          OnChange = xdPanelComboBoxChange
        end
        object xdBevelInnerComboBox: TComboBox
          Left = 8
          Top = 56
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'bvNone'
            'bvLowered'
            'bvRaised')
          TabOrder = 1
          Text = 'bvNone'
          OnChange = xdBevelInnerComboBoxChange
        end
        object xdBevelOuterComboBox: TComboBox
          Left = 8
          Top = 98
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'bvNone'
            'bvLowered'
            'bvRaised')
          TabOrder = 2
          Text = 'bvRaised'
          OnChange = xdBevelOuterComboBoxChange
        end
        object xdPanelScrollBar1: TScrollBar
          Left = 8
          Top = 138
          Width = 121
          Height = 14
          Max = 5
          Position = 1
          TabOrder = 3
          OnChange = xdPanelScrollBar1Change
        end
        object xdPanelScrollBar2: TScrollBar
          Left = 8
          Top = 174
          Width = 121
          Height = 14
          Max = 5
          TabOrder = 4
          OnChange = xdPanelScrollBar2Change
        end
      end
      object xdLabelGroupBox: TGroupBox
        Left = 464
        Top = 304
        Width = 137
        Height = 81
        Caption = 'TLabel'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        object xdLabelJustifyComboBox: TComboBox
          Left = 8
          Top = 51
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'taLeftJustify'
            'taRightJustify'
            'taCenter')
          TabOrder = 2
          Text = 'taLeftJustify'
          OnChange = xdLabelJustifyComboBoxChange
        end
        object xdLabelTransparentCheckBox: TCheckBox
          Left = 8
          Top = 31
          Width = 97
          Height = 17
          Caption = 'Transparent'
          State = cbChecked
          TabOrder = 1
          OnClick = xdLabelTransparentCheckBoxClick
        end
        object xdLabelAccelCharCheckBox2: TCheckBox
          Left = 8
          Top = 14
          Width = 113
          Height = 17
          Caption = 'ShowAccelChar'
          State = cbChecked
          TabOrder = 0
          OnClick = xdLabelAccelCharCheckBox2Click
        end
      end
      object xdCheckBoxGroupBox: TGroupBox
        Left = 258
        Top = 328
        Width = 137
        Height = 57
        Caption = 'TDBEdit/TDBCheckBox'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        object xdCheckBoxJustifyComboBox1: TComboBox
          Left = 8
          Top = 28
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'taLeftJustify'
            'taRightJustify')
          TabOrder = 0
          Text = 'taRightJustify'
          OnChange = xdCheckBoxJustifyComboBox1Change
        end
      end
      object BoxRecordPanel: TPanel
        Left = 21
        Top = 9
        Width = 420
        Height = 151
        BevelInner = bvRaised
        BorderStyle = bsSingle
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = BoxRecordPanelClick
        object OrderNoLabel: TLabel
          Left = 8
          Top = 24
          Width = 54
          Height = 17
          Caption = '&Order No'
          Color = clAqua
          FocusControl = OrderNoDBEdit
          ParentColor = False
          Transparent = True
        end
        object CompanyLabel: TLabel
          Left = 8
          Top = 56
          Width = 54
          Height = 15
          Caption = '&Company'
          Color = clFuchsia
          FocusControl = DBLookupCombo1
          ParentColor = False
          Transparent = True
        end
        object TermsLabel: TLabel
          Left = 8
          Top = 88
          Width = 54
          Height = 15
          Caption = '&Terms'
          Color = clYellow
          FocusControl = DBComboBox1
          ParentColor = False
          Transparent = True
        end
        object PaymentLabel: TLabel
          Left = 272
          Top = 8
          Width = 55
          Height = 15
          Caption = '&Payment'
          Color = clLime
          FocusControl = DBListBox1
          ParentColor = False
          Transparent = True
        end
        object EmployeeLabel: TLabel
          Left = 179
          Top = 8
          Width = 86
          Height = 15
          Caption = '&Employee'
          Color = clWhite
          ParentColor = False
          Transparent = True
        end
        object OrderNoDBEdit: TDBEdit
          Left = 64
          Top = 16
          Width = 65
          Height = 23
          Hint = 'TDBEdit'
          DataField = 'OrderNo'
          DataSource = OrdersDataSource
          MaxLength = 0
          TabOrder = 0
        end
        object DBListBox1: TDBListBox
          Left = 272
          Top = 32
          Width = 49
          Height = 104
          Hint = 'TDBListBox'
          DataField = 'PaymentMethod'
          DataSource = OrdersDataSource
          ItemHeight = 15
          Items.Strings = (
            'AmEx'
            'Check'
            'COD'
            'Credit'
            'MC'
            'Visa')
          TabOrder = 5
        end
        object DBRadioGroup1: TDBRadioGroup
          Left = 328
          Top = 8
          Width = 73
          Height = 128
          Hint = 'TDBRadioGroup'
          Caption = '&Ship Via'
          DataField = 'ShipVIA'
          DataSource = OrdersDataSource
          Items.Strings = (
            'DHL'
            'Emery'
            'FedEx'
            'UPS'
            'US Mail')
          TabOrder = 6
        end
        object DBLookupCombo1: TDBLookupCombo
          Left = 64
          Top = 48
          Width = 105
          Height = 25
          Hint = 'TDBLookupCombo'
          DataField = 'CustNo'
          DataSource = OrdersDataSource
          LookupSource = CustomerDataSource
          LookupDisplay = 'Company'
          LookupField = 'CustNo'
          TabOrder = 1
        end
        object DBComboBox1: TDBComboBox
          Left = 64
          Top = 80
          Width = 81
          Height = 23
          Hint = 'TDBComboBox'
          DataField = 'Terms'
          DataSource = OrdersDataSource
          ItemHeight = 15
          Items.Strings = (
            'FOB'
            'Net 30')
          TabOrder = 2
        end
        object DBCheckBox1: TDBCheckBox
          Left = 8
          Top = 112
          Width = 153
          Height = 17
          Hint = 'TDBCheckBox'
          Caption = 'Ship to Maria Eventosh'
          DataField = 'ShipToContact'
          DataSource = OrdersDataSource
          TabOrder = 3
          ValueChecked = 'Maria Eventosh'
          ValueUnchecked = 'False'
        end
        object DBLookupList1: TDBLookupList
          Left = 179
          Top = 32
          Width = 86
          Height = 104
          Hint = 'TDBLookupList'
          DataField = 'EmpNo'
          DataSource = OrdersDataSource
          LookupSource = EmployeeDataSource
          LookupDisplay = 'LastName'
          LookupField = 'EmpNo'
          TabOrder = 4
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Blob Demo'
      object BlobMRO: TtaDBMRO
        Left = 18
        Top = 16
        Width = 409
        Height = 374
        Color = clBtnFace
        DataSource = BioLifeDataSource
        Options = [dgEditing, dgIndicator, dgRowLines, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'System'
        TitleFont.Style = []
        RecordPanel = BlobRecordPanel
        UseColor = False
        UseFont = False
      end
      object bdImageGroupBox: TGroupBox
        Left = 440
        Top = 328
        Width = 145
        Height = 57
        Caption = 'TDBImage'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        object bdImageAutoDisplayCheckBox: TCheckBox
          Left = 16
          Top = 17
          Width = 97
          Height = 14
          Caption = 'AutoDisplay'
          State = cbChecked
          TabOrder = 0
          OnClick = bdImageAutoDisplayCheckBoxClick
        end
        object bdImageStretchCheckBox: TCheckBox
          Left = 16
          Top = 35
          Width = 97
          Height = 14
          Caption = 'Stretch'
          State = cbChecked
          TabOrder = 1
          OnClick = bdImageStretchCheckBoxClick
        end
      end
      object bdMemoGroupBox: TGroupBox
        Left = 440
        Top = 208
        Width = 145
        Height = 113
        Caption = 'TDBMemo'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        object bdMemoAutoDisplayCheckBox: TCheckBox
          Left = 16
          Top = 14
          Width = 97
          Height = 14
          Caption = 'AutoDisplay'
          State = cbChecked
          TabOrder = 0
          OnClick = bdMemoAutoDisplayCheckBoxClick
        end
        object bdMemoAlignComboBox: TComboBox
          Left = 16
          Top = 80
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'taLeftJustify'
            'taRightJustify'
            'taCenter')
          TabOrder = 2
          Text = 'taLeftJustify'
          OnChange = bdMemoAlignComboBoxChange
        end
        object bdMemoScrollBarComboBox: TComboBox
          Left = 16
          Top = 52
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'ssNone'
            'ssHorizontal'
            'ssVertical'
            'ssBoth')
          TabOrder = 1
          Text = 'ssNone'
          OnChange = bdMemoScrollBarComboBoxChange
        end
        object bdMemoWordWrapCheckBox: TCheckBox
          Left = 16
          Top = 30
          Width = 97
          Height = 14
          Caption = 'WordWrap'
          State = cbChecked
          TabOrder = 3
          OnClick = bdMemoWordWrapCheckBoxClick
        end
      end
      object bdAllGroupBox: TGroupBox
        Left = 440
        Top = 16
        Width = 145
        Height = 85
        Caption = 'All Controls'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object bdCtl3DCheckBox: TCheckBox
          Left = 16
          Top = 14
          Width = 97
          Height = 14
          Caption = 'Ctl3D'
          State = cbChecked
          TabOrder = 0
          OnClick = bdCtl3DCheckBoxClick
        end
        object bdFontBtn: TButton
          Left = 80
          Top = 55
          Width = 56
          Height = 24
          Caption = 'Font'
          TabOrder = 3
          OnClick = bdFontBtnClick
        end
        object bdColorBtn: TButton
          Left = 16
          Top = 55
          Width = 56
          Height = 24
          Caption = 'Color'
          TabOrder = 2
          OnClick = bdColorBtnClick
        end
        object bdBorderStyleComboBox: TComboBox
          Left = 16
          Top = 30
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'bsNone'
            'bsSingle')
          TabOrder = 1
          Text = 'bsSingle'
          OnChange = bdBorderStyleComboBoxChange
        end
      end
      object bdEditGroupBox: TGroupBox
        Left = 440
        Top = 104
        Width = 145
        Height = 49
        Caption = 'TDBEdit/TDBText'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object bdEditAlignComboBox: TComboBox
          Left = 16
          Top = 19
          Width = 121
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'taLeftJustify'
            'taRightJustify'
            'taCenter')
          TabOrder = 0
          Text = 'taLeftJustify'
          OnChange = bdEditAlignComboBoxChange
        end
      end
      object bdTextGroupBox: TGroupBox
        Left = 440
        Top = 160
        Width = 145
        Height = 41
        Caption = 'TDBText'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        object bdTextTransparentCheckBox: TCheckBox
          Left = 16
          Top = 19
          Width = 97
          Height = 14
          Caption = 'Transparent'
          State = cbChecked
          TabOrder = 0
          OnClick = bdTextTransparentCheckBoxClick
        end
      end
      object BlobRecordPanel: TPanel
        Left = 30
        Top = 17
        Width = 380
        Height = 185
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnClick = BlobRecordPanelClick
        object CommonNameDBText: TDBText
          Left = 192
          Top = 8
          Width = 105
          Height = 33
          Hint = 'TDBText'
          Color = clAqua
          DataField = 'Common_Name'
          DataSource = BioLifeDataSource
          ParentColor = False
          Transparent = True
        end
        object DBImage1: TDBImage
          Left = 191
          Top = 40
          Width = 169
          Height = 137
          Hint = 'TDBImage'
          DataField = 'Graphic'
          DataSource = BioLifeDataSource
          Stretch = True
          TabOrder = 2
        end
        object DBMemo1: TDBMemo
          Left = 11
          Top = 40
          Width = 169
          Height = 137
          Hint = 'TDBMemo'
          DataField = 'Notes'
          DataSource = BioLifeDataSource
          TabOrder = 1
        end
        object SpeciesDBEdit: TDBEdit
          Left = 11
          Top = 8
          Width = 169
          Height = 24
          Hint = 'TDBEdit'
          DataField = 'Species Name'
          DataSource = BioLifeDataSource
          MaxLength = 40
          TabOrder = 0
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '3d Party'
      object ThirdMRO: TtaDBMRO
        Left = 8
        Top = 16
        Width = 553
        Height = 292
        Cursor = crArrow
        Color = clBtnFace
        DataSource = OrdersDataSource
        Options = [dgEditing, dgIndicator, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'System'
        TitleFont.Style = []
        Flags = [mroAutoCursor, mroMouseClick]
        RecordPanel = ThirdPanel
        UseColor = False
        UseFont = False
      end
      object tpAllControlsGroupBox: TGroupBox
        Left = 8
        Top = 336
        Width = 361
        Height = 49
        Caption = 'All Controls'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object tpCtl3DCheckBox: TCheckBox
          Left = 9
          Top = 21
          Width = 51
          Height = 17
          Caption = 'Ctl3D'
          State = cbChecked
          TabOrder = 0
          OnClick = tpCtl3DCheckBoxClick
        end
        object tpEnabledCheckBox: TCheckBox
          Left = 66
          Top = 21
          Width = 65
          Height = 17
          Caption = 'Enabled'
          State = cbChecked
          TabOrder = 1
          OnClick = tpEnabledCheckBoxClick
        end
        object tpBorderStyleComboBox: TComboBox
          Left = 139
          Top = 19
          Width = 86
          Height = 22
          Color = clBtnFace
          ItemHeight = 14
          Items.Strings = (
            'bsNone'
            'bsSingle')
          TabOrder = 2
          Text = 'bsSingle'
          OnChange = tpBorderStyleComboBoxChange
        end
        object tpColorBtn: TButton
          Left = 235
          Top = 17
          Width = 56
          Height = 24
          Caption = 'Color'
          TabOrder = 3
          OnClick = tpColorBtnClick
        end
        object tpFontBtn: TButton
          Left = 300
          Top = 17
          Width = 56
          Height = 24
          Caption = 'Font'
          TabOrder = 4
          OnClick = tpFontBtnClick
        end
      end
      object tpCombosGroupBox: TGroupBox
        Left = 384
        Top = 336
        Width = 169
        Height = 49
        Caption = 'InfoPower/Out && About'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        object tpHideButtonCheckBox: TCheckBox
          Left = 8
          Top = 21
          Width = 153
          Height = 17
          Caption = 'Hide Drop Down Buttons'
          TabOrder = 0
          OnClick = tpHideButtonCheckBoxClick
        end
      end
      object ThirdPanel: TPanel
        Left = 20
        Top = 17
        Width = 524
        Height = 145
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        object InfoPowerGroupBox: TGroupBox
          Left = 8
          Top = 8
          Width = 161
          Height = 129
          Caption = 'InfoPower'
          TabOrder = 0
          object wwLabel1: TLabel
            Left = 8
            Top = 16
            Width = 108
            Height = 14
            Caption = 'TwwDBLookupCombo'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object wwLabel2: TLabel
            Left = 8
            Top = 64
            Width = 92
            Height = 14
            Caption = 'TwwDBComboBox'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
        end
        object OrpheusGroupBox: TGroupBox
          Left = 176
          Top = 8
          Width = 161
          Height = 129
          Caption = 'Orpheus'
          TabOrder = 1
          object OvcLabel1: TLabel
            Left = 8
            Top = 13
            Width = 87
            Height = 14
            Caption = 'OvcDBSimpleField'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object OvcLabel2: TLabel
            Left = 8
            Top = 49
            Width = 89
            Height = 14
            Caption = 'OvcDBPictureField'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object OvcLabel3: TLabel
            Left = 8
            Top = 87
            Width = 95
            Height = 14
            Caption = 'OvcDBNumericField'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
        end
        object OutAboutGroupBox: TGroupBox
          Left = 344
          Top = 8
          Width = 161
          Height = 129
          Caption = 'Out && About'
          TabOrder = 2
          object PlusLabel1: TLabel
            Left = 8
            Top = 16
            Width = 108
            Height = 14
            Caption = 'TDBLookupComboPlus'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object PlusLabel2: TLabel
            Left = 8
            Top = 64
            Width = 92
            Height = 14
            Caption = 'TDBComboBoxPlus'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
        end
      end
    end
  end
  object CustomerDataSource: TDataSource
    DataSet = CustomerTable
    Left = 576
    Top = 8
  end
  object CustomerTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    TableName = 'CUSTOMER.DB'
    Left = 576
    Top = 40
    object CustomerTableCompany: TStringField
      DisplayWidth = 54
      FieldName = 'Company'
      Size = 30
    end
    object CustomerTableCustNo: TFloatField
      DisplayWidth = 53
      FieldName = 'CustNo'
      Visible = False
    end
    object CustomerTableAddr1: TStringField
      FieldName = 'Addr1'
      Visible = False
      Size = 30
    end
    object CustomerTableAddr2: TStringField
      FieldName = 'Addr2'
      Visible = False
      Size = 30
    end
    object CustomerTableCity: TStringField
      FieldName = 'City'
      Visible = False
      Size = 15
    end
    object CustomerTableState: TStringField
      FieldName = 'State'
      Visible = False
    end
    object CustomerTableZip: TStringField
      FieldName = 'Zip'
      Visible = False
      Size = 10
    end
    object CustomerTableCountry: TStringField
      FieldName = 'Country'
      Visible = False
    end
    object CustomerTablePhone: TStringField
      FieldName = 'Phone'
      Visible = False
      Size = 15
    end
    object CustomerTableFAX: TStringField
      FieldName = 'FAX'
      Visible = False
      Size = 15
    end
    object CustomerTableTaxRate: TFloatField
      FieldName = 'TaxRate'
      Visible = False
    end
    object CustomerTableContact: TStringField
      FieldName = 'Contact'
      Visible = False
    end
    object CustomerTableLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
      Visible = False
    end
  end
  object BioLifeDataSource: TDataSource
    DataSet = BioLifeTable
    Left = 576
    Top = 136
  end
  object BioLifeTable: TTable
    Active = True
    AfterInsert = BioLifeTableAfterInsert
    BeforePost = BioLifeTableBeforePost
    DatabaseName = 'DBDEMOS'
    ReadOnly = True
    TableName = 'BIOLIFE.DB'
    Left = 576
    Top = 168
    object BioLifeTableCommon_Name: TStringField
      DisplayWidth = 47
      FieldName = 'Common_Name'
      Size = 30
    end
    object BioLifeTableSpeciesName: TStringField
      FieldName = 'Species Name'
      Visible = False
      Size = 40
    end
    object BioLifeTableNotes: TMemoField
      DisplayLabel = 'Notes Display Label'
      FieldName = 'Notes'
      Visible = False
      Size = 50
    end
    object BioLifeTableGraphic: TGraphicField
      FieldName = 'Graphic'
      Visible = False
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 576
    Top = 304
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 576
    Top = 344
  end
  object OrdersDataSource: TDataSource
    DataSet = OrdersTable
    Left = 576
    Top = 72
  end
  object OrdersTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'ORDERS.DB'
    Left = 576
    Top = 104
    object OrdersTableOrderNo: TFloatField
      DisplayWidth = 65
      FieldName = 'OrderNo'
    end
    object OrdersTableCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
      Visible = False
    end
    object OrdersTableSaleDate: TDateTimeField
      FieldName = 'SaleDate'
      Visible = False
    end
    object OrdersTableShipDate: TDateTimeField
      FieldName = 'ShipDate'
      Visible = False
    end
    object OrdersTableEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
      Visible = False
    end
    object OrdersTableShipVIA: TStringField
      FieldName = 'ShipVIA'
      Visible = False
      Size = 7
    end
    object OrdersTableTerms: TStringField
      FieldName = 'Terms'
      Visible = False
      Size = 6
    end
    object OrdersTablePaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Visible = False
      Size = 7
    end
    object OrdersTableShipToContact: TStringField
      FieldName = 'ShipToContact'
      Visible = False
    end
    object OrdersTableAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Visible = False
      Currency = True
    end
  end
  object EmployeeDataSource: TDataSource
    DataSet = EmployeeTable
    Left = 576
    Top = 200
  end
  object EmployeeTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'EMPLOYEE.DB'
    Left = 576
    Top = 232
    object EmployeeTableEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object EmployeeTableLastName: TStringField
      FieldName = 'LastName'
    end
  end
end