Computer Buyer 1998 July/dpcb0798.bin/Business/Persdesk/_SETUP.1/PERSYST1.EXE/0/RCDATA/TPAYSCALES/TPAYSCALES.txt

Text File | 1998-04-21 | 18KB | 596 lines

object PayScales: TPayScales
  Left = 188
  Top = 181
  Width = 380
  Height = 179
  ActiveControl = Panel1
  Caption = 'Global Pay Scales'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 372
    Height = 41
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 8
      Top = 8
      Width = 231
      Height = 25
      DataSource = payset
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
      Ctl3D = False
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object BitBtn2: TBitBtn
      Left = 260
      Top = 8
      Width = 75
      Height = 25
      Caption = 'OK'
      Default = True
      TabOrder = 1
      OnClick = OKButtonClick
      Glyph.Data = {
        CE070000424DCE07000000000000360000002800000024000000120000000100
        1800000000009807000000000000000000000000000000000000008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080008080008080008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080FFFFFF008080008080008080008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8080000080000000808000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080008080808080808080FFFFFF
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808080000000800000800080000000808000808000808000
        8080008080008080008080008080008080008080008080008080008080008080
        808080008080008080808080FFFFFF0080800080800080800080800080800080
        8000808000808000808000808000808000808080000000800000800000800000
        8000800000008080008080008080008080008080008080008080008080008080
        008080008080008080808080008080008080008080008080808080FFFFFF0080
        8000808000808000808000808000808000808000808000808000808080000000
        8000008000008000008000008000008000800000008080008080008080008080
        0080800080800080800080800080800080808080800080800080800080800080
        80008080008080808080FFFFFF00808000808000808000808000808000808000
        808000808080000000800000800000800000FF00008000008000008000008000
        800000008080008080008080008080008080008080008080008080808080FFFF
        FF008080008080808080FFFFFF008080008080008080808080FFFFFF00808000
        808000808000808000808000808000808000800000800000800000FF00008080
        00FF000080000080000080008000000080800080800080800080800080800080
        80008080008080808080FFFFFF008080808080008080808080FFFFFF00808000
        8080808080FFFFFF00808000808000808000808000808000808000808000FF00
        00800000FF0000808000808000808000FF000080000080000080008000000080
        80008080008080008080008080008080008080808080FFFFFF80808000808000
        8080008080808080FFFFFF008080008080808080FFFFFF008080008080008080
        00808000808000808000808000FF0000808000808000808000808000808000FF
        0000800000800000800080000000808000808000808000808000808000808000
        8080808080008080008080008080008080008080808080FFFFFF008080008080
        808080FFFFFF0080800080800080800080800080800080800080800080800080
        8000808000808000808000808000FF0000800000800000800080000000808000
        8080008080008080008080008080008080008080008080008080008080008080
        008080808080FFFFFF008080008080808080FFFFFF0080800080800080800080
        8000808000808000808000808000808000808000808000808000808000FF0000
        8000008000008000800000008080008080008080008080008080008080008080
        008080008080008080008080008080008080808080FFFFFF0080800080808080
        80FFFFFF00808000808000808000808000808000808000808000808000808000
        808000808000808000808000FF00008000008000008000800000008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        80808080FFFFFF008080008080808080FFFFFF00808000808000808000808000
        808000808000808000808000808000808000808000808000808000FF00008000
        0080000080008000000080800080800080800080800080800080800080800080
        80008080008080008080008080008080808080FFFFFF008080008080808080FF
        FFFF008080008080008080008080008080008080008080008080008080008080
        00808000808000808000FF000080000080008000000080800080800080800080
        8000808000808000808000808000808000808000808000808000808000808080
        8080FFFFFF008080808080FFFFFF008080008080008080008080008080008080
        00808000808000808000808000808000808000808000808000FF000080000080
        0000808000808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080808080FFFFFF808080008080008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000FF0000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080008080008080008080808080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080008080008080008080008080
        008080008080008080008080008080008080}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 372
    Height = 111
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 360
      Height = 99
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 154
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 97
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      TabOrder = 0
      object Label1: TLabel
        Left = 6
        Top = 9
        Width = 86
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Grade'
        FocusControl = EditGrade
      end
      object Label2: TLabel
        Left = 6
        Top = 31
        Width = 86
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Points on Scale'
        FocusControl = EditPointsonScale
      end
      object Label3: TLabel
        Left = 6
        Top = 53
        Width = 86
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Bottom Pay'
        FocusControl = EditBottomPay
      end
      object Label4: TLabel
        Left = 6
        Top = 75
        Width = 86
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Top Pay'
        FocusControl = EditTopPay
      end
      object Label5: TLabel
        Left = 228
        Top = 8
        Width = 100
        Height = 13
        Caption = 'Overtime Rate / hour'
      end
      object EditGrade: TDBEdit
        Left = 98
        Top = 6
        Width = 23
        Height = 21
        Hint = 'Enter Grade identification'
        DataField = 'Grade'
        DataSource = payset
        MaxLength = 4
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object EditPointsonScale: TDBEdit
        Left = 98
        Top = 28
        Width = 23
        Height = 21
        Hint = 'Enter number of points on the scale'
        DataField = 'Points on Scale'
        DataSource = payset
        MaxLength = 3
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object EditBottomPay: TDBEdit
        Left = 98
        Top = 50
        Width = 99
        Height = 21
        Hint = 'Enter Payment per period.'
        DataField = 'Bottom Pay'
        DataSource = payset
        MaxLength = 16
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object EditTopPay: TDBEdit
        Left = 98
        Top = 72
        Width = 99
        Height = 21
        Hint = 'Enter payment per period'
        DataField = 'Top Pay'
        DataSource = payset
        MaxLength = 16
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object OTRate: TDBEdit
        Left = 256
        Top = 24
        Width = 89
        Height = 21
        DataField = 'Overtime Rate/Hour'
        DataSource = payset
        MaxLength = 0
        TabOrder = 4
      end
      object payupdate: TBitBtn
        Left = 216
        Top = 48
        Width = 141
        Height = 49
        Hint = 'Will update all employee records pay'
        Caption = 'Update Employee Records'
        TabOrder = 5
        TabStop = False
        OnClick = payupdateClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333333333333333333333333333333333333333333333333333CCCCC3CCCC
          C333337777737777733333C33333C3333333337333337333333333C33333C333
          33333373333373333333333C33333C333333333733333733333333CCC333CCC3
          33333377733377733333333C33333C333333333733333733333333C33333C333
          3333337333337333333333C33C33C33C33333373373373373333333CC3333CC3
          3333333773333773333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
    end
  end
  object payset: TDataSource
    DataSet = pay
    Left = 247
    Top = 37
  end
  object employee: TTable
    DatabaseName = 'Personnel_System'
    TableName = 'Employee.DB'
    Left = 152
    Top = 33
    object employeeEmployeeID: TStringField
      FieldName = 'Employee ID'
      Size = 9
    end
    object employeeSurname: TStringField
      FieldName = 'Surname'
      Size = 25
    end
    object employeeFirstNames: TStringField
      FieldName = 'First Names'
      Size = 35
    end
    object employeeTitle: TStringField
      FieldName = 'Title'
      Size = 4
    end
    object employeeAddress: TMemoField
      FieldName = 'Address'
      BlobType = ftMemo
      Size = 12
    end
    object employeePostcode: TStringField
      FieldName = 'Postcode'
      Size = 10
    end
    object employeeTelephone: TStringField
      FieldName = 'Telephone'
      Size = 15
    end
    object employeeFax: TStringField
      FieldName = 'Fax'
      Size = 15
    end
    object employeePrincipallocation: TMemoField
      FieldName = 'Principal location'
      BlobType = ftMemo
      Size = 12
    end
    object employeeSex: TStringField
      FieldName = 'Sex'
      Size = 1
    end
    object employeeTaxcode: TStringField
      FieldName = 'Tax code'
      Size = 6
    end
    object employeeMarried: TBooleanField
      FieldName = 'Married'
    end
    object employeeChildren: TFloatField
      FieldName = 'Children'
    end
    object employeeContract: TBlobField
      FieldName = 'Contract'
      BlobType = ftBlob
      Size = 20
    end
    object employeeHeader: TBlobField
      FieldName = 'Header'
      BlobType = ftBlob
      Size = 10
    end
    object employeeFooter: TBlobField
      FieldName = 'Footer'
      BlobType = ftBlob
      Size = 10
    end
    object employeeRace: TSmallintField
      FieldName = 'Race'
    end
    object employeeRegisteredDisabled: TBooleanField
      FieldName = 'Registered Disabled'
    end
    object employeeNextofkin: TStringField
      FieldName = 'Next of kin'
      Size = 45
    end
    object employeeNextofkinaddress: TMemoField
      FieldName = 'Next of kin address'
      BlobType = ftMemo
      Size = 12
    end
    object employeeDoctor: TStringField
      FieldName = 'Doctor'
      Size = 35
    end
    object employeeDoctorAddress: TMemoField
      FieldName = 'Doctor Address'
      BlobType = ftMemo
      Size = 12
    end
    object employeeRevisionDate: TDateField
      FieldName = 'Revision Date'
    end
    object employeeDateofBirth: TDateField
      FieldName = 'Date of Birth'
    end
    object employeeJobTitle: TStringField
      FieldName = 'Job Title'
      Size = 30
    end
    object employeeReportTo: TStringField
      FieldName = 'Report To'
      Size = 9
    end
    object employeeCompanyName: TStringField
      FieldName = 'Company Name'
      Size = 40
    end
    object employeeCompanyPostcode: TStringField
      FieldName = 'Company Postcode'
      Size = 12
    end
    object employeePicture: TGraphicField
      FieldName = 'Picture'
      BlobType = ftGraphic
      Size = 1
    end
    object employeeMondaywork: TBooleanField
      FieldName = 'Mondaywork'
    end
    object employeeMondaystart: TTimeField
      FieldName = 'Mondaystart'
    end
    object employeeMondayfinish: TTimeField
      FieldName = 'Mondayfinish'
    end
    object employeeMondayhours: TFloatField
      FieldName = 'Mondayhours'
    end
    object employeeTuesdaywork: TBooleanField
      FieldName = 'Tuesdaywork'
    end
    object employeeTuesdaystart: TTimeField
      FieldName = 'Tuesdaystart'
    end
    object employeeTuesdayfinish: TTimeField
      FieldName = 'Tuesdayfinish'
    end
    object employeeTuesdayhours: TFloatField
      FieldName = 'Tuesdayhours'
    end
    object employeeWednesdaywork: TBooleanField
      FieldName = 'Wednesdaywork'
    end
    object employeeWednesdaystart: TTimeField
      FieldName = 'Wednesdaystart'
    end
    object employeeWednesdayfinish: TTimeField
      FieldName = 'Wednesdayfinish'
    end
    object employeeWednesdayhours: TFloatField
      FieldName = 'Wednesdayhours'
    end
    object employeeThursdaywork: TBooleanField
      FieldName = 'Thursdaywork'
    end
    object employeeThursdaystart: TTimeField
      FieldName = 'Thursdaystart'
    end
    object employeeThursdayfinish: TTimeField
      FieldName = 'Thursdayfinish'
    end
    object employeeThursdayhours: TFloatField
      FieldName = 'Thursdayhours'
    end
    object employeeFridaywork: TBooleanField
      FieldName = 'Fridaywork'
    end
    object employeeFridaystart: TTimeField
      FieldName = 'Fridaystart'
    end
    object employeeFridayfinish: TTimeField
      FieldName = 'Fridayfinish'
    end
    object employeeFridayhours: TFloatField
      FieldName = 'Fridayhours'
    end
    object employeeSaturdaywork: TBooleanField
      FieldName = 'Saturdaywork'
    end
    object employeeSaturdaystart: TTimeField
      FieldName = 'Saturdaystart'
    end
    object employeeSaturdayfinish: TTimeField
      FieldName = 'Saturdayfinish'
    end
    object employeeSaturdayhours: TFloatField
      FieldName = 'Saturdayhours'
    end
    object employeeSundaywork: TBooleanField
      FieldName = 'Sundaywork'
    end
    object employeeSundaystart: TTimeField
      FieldName = 'Sundaystart'
    end
    object employeeSundayfinish: TTimeField
      FieldName = 'Sundayfinish'
    end
    object employeeSundayhours: TFloatField
      FieldName = 'Sundayhours'
    end
    object employeeTotalhoursperweek: TFloatField
      FieldName = 'Totalhoursperweek'
    end
    object employeeCheck: TBooleanField
      FieldName = 'Check'
    end
    object employeeNIcode: TStringField
      FieldName = 'NI code'
      Size = 13
    end
  end
  object employeeset: TDataSource
    DataSet = employee
    Left = 184
    Top = 40
  end
  object pay: TTable
    DatabaseName = 'Personnel_System'
    TableName = 'Pay.db'
    Left = 220
    Top = 40
    object payGrade: TStringField
      FieldName = 'Grade'
      Size = 4
    end
    object payPointsonScale: TSmallintField
      FieldName = 'Points on Scale'
    end
    object payBottomPay: TCurrencyField
      FieldName = 'Bottom Pay'
    end
    object payTopPay: TCurrencyField
      FieldName = 'Top Pay'
    end
    object payOvertimeRateHour: TCurrencyField
      FieldName = 'Overtime Rate/Hour'
    end
  end
  object empljobset: TDataSource
    DataSet = empljob
    Left = 272
    Top = 40
  end
  object empljob: TTable
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Employee ID;Job start date'
    MasterFields = 'Employee ID'
    MasterSource = employeeset
    TableName = 'Empljob.DB'
    Left = 312
    Top = 40
    object empljobEmployeeID: TStringField
      FieldName = 'Employee ID'
      Size = 9
    end
    object empljobJobTitle: TStringField
      FieldName = 'Job Title'
      Size = 30
    end
    object empljobDepartment: TStringField
      FieldName = 'Department'
      Size = 30
    end
    object empljobSection: TStringField
      FieldName = 'Section'
      Size = 30
    end
    object empljobBossSurname: TStringField
      FieldName = 'Boss Surname'
      Size = 25
    end
    object empljobBossFirstNames: TStringField
      FieldName = 'Boss First Names'
      Size = 35
    end
    object empljobBossID: TStringField
      FieldName = 'Boss ID'
      Size = 9
    end
    object empljobWorkPhonenumber: TStringField
      FieldName = 'Work Phone number'
      Size = 15
    end
    object empljobStatuspointingrade: TSmallintField
      FieldName = 'Status point in grade'
    end
    object empljobCurrentSalary: TCurrencyField
      FieldName = 'Current Salary'
    end
    object empljobJobstartdate: TDateField
      FieldName = 'Job start date'
    end
    object empljobJobenddate: TDateField
      FieldName = 'Job end date'
    end
    object empljobChangereason: TMemoField
      FieldName = 'Change reason'
      BlobType = ftMemo
      Size = 8
    end
    object empljobCode: TStringField
      FieldName = 'Code'
      Size = 2
    end
    object empljobLevel: TIntegerField
      FieldName = 'Level'
    end
  end
end