object fmSuppDetails: TfmSuppDetails
  Left = 60
  Top = 90
  AutoScroll = False
  Caption = 'New Supplier'
  ClientHeight = 432
  ClientWidth = 698
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 698
    Height = 383
    Align = alClient
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 696
      Height = 381
      ActivePage = TabDetails
      Align = alClient
      TabOrder = 1
      TabStop = False
      OnChange = PageControl1Change
      object TabDetails: TTabSheet
        Caption = 'D&etails'
        object Panel4: TPanel
          Left = 348
          Top = 0
          Width = 340
          Height = 349
          BevelInner = bvLowered
          TabOrder = 0
          object Bevel5: TBevel
            Left = 8
            Top = 192
            Width = 325
            Height = 101
            Shape = bsFrame
          end
          object Bevel4: TBevel
            Left = 8
            Top = 8
            Width = 325
            Height = 177
            Shape = bsFrame
          end
          object Label12: TLabel
            Left = 16
            Top = 20
            Width = 66
            Height = 16
            Caption = 'Credit Limit'
          end
          object Label13: TLabel
            Left = 200
            Top = 20
            Width = 36
            Height = 16
            Caption = 'Terms'
          end
          object Label15: TLabel
            Left = 16
            Top = 236
            Width = 59
            Height = 16
            Caption = 'VAT Code'
          end
          object Label16: TLabel
            Left = 16
            Top = 204
            Width = 41
            Height = 16
            Caption = 'VAT ID'
          end
          object Label17: TLabel
            Left = 180
            Top = 232
            Width = 67
            Height = 16
            Caption = 'EC Country'
          end
          object Label18: TLabel
            Left = 16
            Top = 52
            Width = 62
            Height = 16
            Caption = 'Sett. Days'
          end
          object Label19: TLabel
            Left = 16
            Top = 124
            Width = 48
            Height = 16
            Caption = 'Account'
          end
          object Label21: TLabel
            Left = 200
            Top = 52
            Width = 58
            Height = 16
            Caption = 'Sett. Disc'
          end
          object Label22: TLabel
            Left = 200
            Top = 124
            Width = 51
            Height = 16
            Caption = 'Discount'
          end
          object DBCheckBox2: TDBCheckBox
            Left = 16
            Top = 88
            Width = 93
            Height = 17
            Hint = 'Press F1 for help'
            HelpContext = 223
            Alignment = taLeftJustify
            Caption = 'On Stop'
            DataField = 'ONSTOP'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object wwDBEdit12: TwwDBEdit
            Left = 96
            Top = 16
            Width = 80
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 218
            DataField = 'CREITLMT'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBSpinEdit1: TwwDBSpinEdit
            Left = 276
            Top = 16
            Width = 50
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 220
            Increment = 1.000000000000000000
            MaxValue = 999.000000000000000000
            Value = 2.000000000000000000
            DataField = 'TERMS'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            UnboundDataType = wwDefault
          end
          object wwDBEdit13: TwwDBEdit
            Left = 96
            Top = 200
            Width = 120
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 227
            DataField = 'VATID'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 8
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object DBSVatCode: TwwDBSpinEdit
            Left = 96
            Top = 232
            Width = 30
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 228
            Increment = 1.000000000000000000
            MaxValue = 9.000000000000000000
            Value = 1.000000000000000000
            DataField = 'VATCODE'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 9
            UnboundDataType = wwDefault
          end
          object wwDBSpinEdit4: TwwDBSpinEdit
            Left = 96
            Top = 48
            Width = 50
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 221
            Increment = 1.000000000000000000
            MaxValue = 999.000000000000000000
            Value = 1.000000000000000000
            DataField = 'SETTDAYS'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            UnboundDataType = wwDefault
          end
          object wwDBEdit15: TwwDBEdit
            Left = 276
            Top = 48
            Width = 50
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 222
            DataField = 'SETTDISC'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit17: TwwDBEdit
            Left = 276
            Top = 120
            Width = 50
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 225
            DataField = 'DISCOUNT'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 6
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object DBCheckBox1: TDBCheckBox
            Left = 16
            Top = 268
            Width = 309
            Height = 17
            Hint = 'Press F1 for help'
            HelpContext = 229
            Alignment = taLeftJustify
            Caption = 'Use this VAT Code in ALL Transactions'
            DataField = 'ORVATCODE'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 11
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBCheckBox4: TDBCheckBox
            Left = 16
            Top = 159
            Width = 309
            Height = 17
            Hint = 'Press F1 for help'
            HelpContext = 226
            Alignment = taLeftJustify
            Caption = 'Use this Financial Account in ALL Transactions'
            DataField = 'ORNOMACC'
            DataSource = DM1.dsSupplier
            ParentShowHint = False
            ShowHint = True
            TabOrder = 7
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBLCECCountry: TwwDBLookupCombo
            Left = 264
            Top = 228
            Width = 61
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 230
            CharCase = ecUpperCase
            DropDownAlignment = taRightJustify
            Selected.Strings = (
              'CODE'#9'2'#9'EC Code'
              'COUNTRY'#9'15'#9'EC Country')
            DataField = 'ECCODE'
            DataSource = DM1.dsSupplier
            LookupTable = DM1.taCountry
            LookupField = 'CODE'
            Options = [loColLines, loRowLines, loTitles]
            DropDownCount = 5
            DropDownWidth = 300
            ParentShowHint = False
            ShowHint = True
            TabOrder = 10
            AutoDropDown = False
            ShowButton = True
            UseTFields = False
            AllowClearKey = False
          end
          object wwDBCDlgNomRef: TRxDBComboEdit
            Left = 96
            Top = 120
            Width = 100
            Height = 24
            Hint = 'Press F1 for help'
            HelpContext = 224
            ButtonHint = 'Find'
            CharCase = ecUpperCase
            ClickKey = 16467
            DataField = 'NOMACC'
            DataSource = DM1.dsSupplier
            ButtonWidth = 24
            NumGlyphs = 1
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
            OnButtonClick = wwDBCDlgNomRefButtonClick
            OnExit = wwDBCDlgNomRefExit
          end
        end
      end
      object TabBalance: TTabSheet
        Caption = '&Balance'
        object Panel5: TPanel
          Left = 348
          Top = 0
          Width = 340
          Height = 349
          BevelInner = bvLowered
          TabOrder = 0
          object Bevel7: TBevel
            Left = 8
            Top = 4
            Width = 321
            Height = 153
            Shape = bsFrame
          end
          object Label20: TLabel
            Left = 20
            Top = 12
            Width = 47
            Height = 16
            Caption = 'Balance'
          end
          object Label23: TLabel
            Left = 20
            Top = 35
            Width = 42
            Height = 16
            Caption = 'Current'
          end
          object Label24: TLabel
            Left = 20
            Top = 59
            Width = 48
            Height = 16
            Caption = '30 Days'
          end
          object Label25: TLabel
            Left = 20
            Top = 83
            Width = 48
            Height = 16
            Caption = '60 Days'
          end
          object Label26: TLabel
            Left = 20
            Top = 107
            Width = 48
            Height = 16
            Caption = '90 Days'
          end
          object Label27: TLabel
            Left = 20
            Top = 131
            Width = 31
            Height = 16
            Caption = 'Older'
          end
          object Bevel8: TBevel
            Left = 8
            Top = 160
            Width = 321
            Height = 183
            Shape = bsFrame
          end
          object Label28: TLabel
            Left = 20
            Top = 171
            Width = 134
            Height = 16
            Caption = 'Current Month Turnover'
          end
          object Label29: TLabel
            Left = 20
            Top = 195
            Width = 125
            Height = 16
            Caption = 'Current Year Turnover'
          end
          object Label30: TLabel
            Left = 20
            Top = 220
            Width = 112
            Height = 16
            Caption = 'Last Payment Date'
          end
          object Label31: TLabel
            Left = 20
            Top = 245
            Width = 115
            Height = 16
            Caption = 'Last Purchase Date'
          end
          object Label32: TLabel
            Left = 20
            Top = 294
            Width = 146
            Height = 16
            Caption = 'Amount Due for Payment'
          end
          object Label33: TLabel
            Left = 20
            Top = 319
            Width = 134
            Height = 16
            Caption = 'Total Amount on Query'
          end
          object Label34: TLabel
            Left = 20
            Top = 270
            Width = 75
            Height = 16
            Caption = 'Amount Paid'
          end
          object wwDBEdit18: TwwDBEdit
            Left = 236
            Top = 8
            Width = 80
            Height = 24
            HelpContext = 231
            Ctl3D = True
            DataField = 'BALANCE'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 0
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit19: TwwDBEdit
            Left = 236
            Top = 80
            Width = 80
            Height = 24
            HelpContext = 234
            Ctl3D = True
            DataField = 'PERBAL2'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 3
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit20: TwwDBEdit
            Left = 236
            Top = 32
            Width = 80
            Height = 24
            HelpContext = 232
            Ctl3D = True
            DataField = 'CURRENT'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 1
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit21: TwwDBEdit
            Left = 236
            Top = 104
            Width = 80
            Height = 24
            HelpContext = 235
            Ctl3D = True
            DataField = 'PERBAL3'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 4
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit22: TwwDBEdit
            Left = 236
            Top = 56
            Width = 80
            Height = 24
            HelpContext = 233
            Ctl3D = True
            DataField = 'PERBAL1'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 2
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit23: TwwDBEdit
            Left = 236
            Top = 128
            Width = 80
            Height = 24
            HelpContext = 236
            Ctl3D = True
            DataField = 'PERBAL4'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 5
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit1: TwwDBEdit
            Left = 236
            Top = 217
            Width = 80
            Height = 24
            HelpContext = 239
            Ctl3D = True
            DataField = 'LPAYDATE'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 8
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit14: TwwDBEdit
            Left = 236
            Top = 242
            Width = 80
            Height = 24
            HelpContext = 240
            Ctl3D = True
            DataField = 'LSALEDATE'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 9
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit16: TwwDBEdit
            Left = 236
            Top = 267
            Width = 80
            Height = 24
            HelpContext = 241
            Ctl3D = True
            DataField = 'AMTPAID'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 10
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit24: TwwDBEdit
            Left = 236
            Top = 291
            Width = 80
            Height = 24
            HelpContext = 242
            Ctl3D = True
            DataField = 'PAYDUE'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 11
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit25: TwwDBEdit
            Left = 236
            Top = 316
            Width = 80
            Height = 24
            HelpContext = 97
            Ctl3D = True
            DataField = 'AMTQUERY'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 12
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object ECurMTurnover: TwwDBEdit
            Left = 236
            Top = 167
            Width = 80
            Height = 24
            HelpContext = 237
            Ctl3D = True
            DataField = 'MTOVER'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 6
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object ECurYTurnover: TwwDBEdit
            Left = 236
            Top = 192
            Width = 80
            Height = 24
            HelpContext = 238
            Ctl3D = True
            DataField = 'YTOVER'
            DataSource = DM1.dsSupplier
            ParentColor = True
            ParentCtl3D = False
            ReadOnly = True
            TabOrder = 7
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
        end
      end
      object TabNotepad: TTabSheet
        Caption = 'N&otepad'
        object Panel6: TPanel
          Left = 348
          Top = 0
          Width = 340
          Height = 349
          BevelInner = bvLowered
          TabOrder = 0
          object DBMemo1: TDBMemo
            Left = 2
            Top = 2
            Width = 336
            Height = 345
            Align = alClient
            DataField = 'NOTEPAD'
            DataSource = DM1.dsSupplier
            TabOrder = 0
            OnEnter = DBMemo1Enter
            OnExit = DBMemo1Exit
          end
        end
      end
    end
    object Panel3: TPanel
      Left = 8
      Top = 28
      Width = 337
      Height = 353
      BevelInner = bvLowered
      TabOrder = 0
      object Bevel2: TBevel
        Left = 8
        Top = 72
        Width = 321
        Height = 117
        Shape = bsFrame
      end
      object Bevel3: TBevel
        Left = 8
        Top = 192
        Width = 321
        Height = 153
        Shape = bsFrame
      end
      object Bevel1: TBevel
        Left = 8
        Top = 4
        Width = 321
        Height = 65
        Shape = bsFrame
      end
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 74
        Height = 16
        Caption = 'Supplier Ref.'
      end
      object Label2: TLabel
        Left = 16
        Top = 44
        Width = 34
        Height = 16
        Caption = 'Name'
      end
      object Label3: TLabel
        Left = 16
        Top = 80
        Width = 48
        Height = 16
        Caption = 'Address'
      end
      object Label4: TLabel
        Left = 16
        Top = 112
        Width = 36
        Height = 16
        Caption = '  ..   ..'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 16
        Top = 136
        Width = 36
        Height = 16
        Caption = '  ..   ..'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 16
        Top = 160
        Width = 61
        Height = 16
        Caption = 'Post Code'
      end
      object Label7: TLabel
        Left = 16
        Top = 208
        Width = 41
        Height = 16
        Caption = 'Tel No.'
      end
      object Label8: TLabel
        Left = 16
        Top = 236
        Width = 32
        Height = 16
        Caption = ' ..   ..'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 16
        Top = 264
        Width = 46
        Height = 16
        Caption = 'Fax No.'
      end
      object Label10: TLabel
        Left = 16
        Top = 292
        Width = 33
        Height = 16
        Caption = 'Email'
      end
      object Label11: TLabel
        Left = 16
        Top = 320
        Width = 83
        Height = 16
        Caption = 'Contact Name'
      end
      object lbNew: TLabel
        Left = 264
        Top = 16
        Width = 5
        Height = 19
        Alignment = taCenter
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object ipdbeName: TwwDBEdit
        Left = 112
        Top = 40
        Width = 210
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 216
        DataField = 'NAME'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object ipdbeAddress1: TwwDBEdit
        Left = 112
        Top = 76
        Width = 180
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 216
        DataField = 'ADDRESS1'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object ipdbeAddress2: TwwDBEdit
        Left = 112
        Top = 104
        Width = 180
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 216
        DataField = 'ADDRESS2'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object ipdbeAddress3: TwwDBEdit
        Left = 112
        Top = 132
        Width = 180
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 216
        DataField = 'ADDRESS3'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object ipdbePostCode: TwwDBEdit
        Left = 112
        Top = 160
        Width = 90
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 216
        CharCase = ecUpperCase
        DataField = 'POSTCODE'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object ipdbeTelNo: TwwDBEdit
        Left = 112
        Top = 200
        Width = 120
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 69
        DataField = 'TELNO1'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit8: TwwDBEdit
        Left = 112
        Top = 228
        Width = 120
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 69
        DataField = 'TELNO2'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object ipdbeFaxNo: TwwDBEdit
        Left = 112
        Top = 256
        Width = 120
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 69
        DataField = 'FAXNO'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object ipdbeEmail: TwwDBEdit
        Left = 112
        Top = 284
        Width = 209
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 217
        DataField = 'EMAIL'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit11: TwwDBEdit
        Left = 112
        Top = 312
        Width = 180
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 219
        DataField = 'CONTACT'
        DataSource = DM1.dsSupplier
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBCDlgSuppRef: TComboEdit
        Left = 112
        Top = 12
        Width = 150
        Height = 24
        Hint = 'Press F1 for help'
        CharCase = ecUpperCase
        ClickKey = 16467
        ButtonWidth = 24
        MaxLength = 10
        NumGlyphs = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnButtonClick = DBCDlgSuppRefButtonClick
        OnEnter = DBCDlgSuppRefEnter
        OnExit = DBCDlgSuppRefExit
      end
    end
  end
  object SpeedBar: TSpeedBar
    Left = 0
    Top = 0
    Width = 698
    Height = 49
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Position = bpCustom
    Options = [sbFlatBtns, sbGrayedBtns, sbTransparentBtns]
    BtnOffsetHorz = 3
    BtnOffsetVert = 3
    BtnWidth = 75
    BtnHeight = 43
    TabOrder = 1
    InternalVer = 1
    object SpeedbarSection1: TSpeedbarSection
      Caption = 'Main'
    end
    object BtnNew: TSpeedItem
      BtnCaption = 'Ne&w'
      Caption = 'Add New Supplier'
      Hint = 'Add new supplier|'
      Spacing = 1
      Left = 3
      Top = 3
      Visible = True
      OnClick = BtnNewClick
      SectionName = 'Main'
    end
    object BtnSave: TSpeedItem
      BtnCaption = '&Save'
      Caption = 'Save supplier details'
      Enabled = False
      Spacing = 1
      Left = 78
      Top = 3
      Visible = True
      OnClick = BtnSaveClick
      SectionName = 'Main'
    end
    object BtnAbandon: TSpeedItem
      BtnCaption = '&Abandon'
      Caption = 'Abandon changes to supplier'
      Enabled = False
      Spacing = 1
      Left = 153
      Top = 3
      Visible = True
      OnClick = BtnAbandonClick
      SectionName = 'Main'
    end
    object BtnDelete: TSpeedItem
      BtnCaption = '&Delete'
      Caption = 'Delete this supplier'
      Hint = 'Delete this supplier'
      Spacing = 1
      Left = 228
      Top = 3
      Visible = True
      OnClick = BtnDeleteClick
      SectionName = 'Main'
    end
    object BtnPrevious: TSpeedItem
      BtnCaption = '&Previous'
      Caption = 'Previous supplier'
      Hint = 'Previous supplier|'
      Spacing = 1
      Left = 303
      Top = 3
      Visible = True
      OnClick = BtnPreviousClick
      SectionName = 'Main'
    end
    object BtnNext: TSpeedItem
      BtnCaption = '&Next'
      Caption = 'Next supplier'
      Hint = 'Next supplier|'
      Spacing = 1
      Left = 378
      Top = 3
      Visible = True
      OnClick = BtnNextClick
      SectionName = 'Main'
    end
    object BtnClose: TSpeedItem
      BtnCaption = '&Close'
      Caption = 'Close this form'
      Spacing = 1
      Left = 603
      Top = 3
      Visible = True
      OnClick = BtnCloseClick
      SectionName = 'Main'
    end
    object BtnEmail: TSpeedItem
      BtnCaption = 'E&mail'
      Caption = 'Email this supplier'
      Hint = 'Email this supplier'
      Spacing = 1
      Left = 453
      Top = 3
      Visible = True
      OnClick = BtnEmailClick
      SectionName = 'Main'
    end
    object BtnHelp: TSpeedItem
      BtnCaption = 'Help'
      Caption = 'View full help on this window'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
        888888888E6648888888888888E6688888888888888888888888888888446888
        8888888886664888888888888E664888888888888E6664888888888888E66648
        88888888888E6664888888844888E6664888886664888E66488888E666444666
        4888888E6666666668888888EE6666668888888888EEEEE88888}
      Spacing = 1
      Left = 528
      Top = 3
      Visible = True
      OnClick = BtnHelpClick
      SectionName = 'Main'
    end
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = True
    OverrideParentFont = True
    PerformAssertions = True
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = True
    Left = 592
    Top = 56
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      706)
    OriginalFormHeight = (
      459)
    OriginalFormLeft = (
      60)
    OriginalFormTop = (
      90)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      698)
    OriginalClientHeight = (
      432)
  end
end