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

Text File | 1998-04-21 | 17KB | 522 lines

object Newjob: TNewjob
  Left = 138
  Top = 74
  Width = 636
  Height = 300
  Caption = 'New Job Copy'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 628
    Height = 189
    Hint =
      'Please ensure you enter@a unique job,department and section@comb' +
      'ination.'
    Align = alTop
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object Label1: TLabel
      Left = 56
      Top = 24
      Width = 55
      Height = 16
      Caption = 'Job Title'
    end
    object Label2: TLabel
      Left = 36
      Top = 68
      Width = 75
      Height = 16
      Caption = 'Department'
    end
    object Label3: TLabel
      Left = 63
      Top = 116
      Width = 48
      Height = 16
      Caption = 'Section'
    end
    object JobTitle: TEdit
      Left = 120
      Top = 20
      Width = 349
      Height = 24
      MaxLength = 30
      TabOrder = 0
    end
    object Department: TEdit
      Left = 120
      Top = 64
      Width = 349
      Height = 24
      MaxLength = 30
      TabOrder = 1
    end
    object Section: TEdit
      Left = 120
      Top = 112
      Width = 349
      Height = 24
      MaxLength = 30
      TabOrder = 2
    end
    object okbutton: TBitBtn
      Left = 416
      Top = 148
      Width = 89
      Height = 33
      Caption = 'OK'
      Default = True
      TabOrder = 3
      OnClick = okbuttonClick
      Glyph.Data = {
        BE060000424DBE06000000000000360400002800000024000000120000000100
        0800000000008802000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        03030303030303030303030303030303030303030303FF030303030303030303
        03030303030303040403030303030303030303030303030303F8F8FF03030303
        03030303030303030303040202040303030303030303030303030303F80303F8
        FF030303030303030303030303040202020204030303030303030303030303F8
        03030303F8FF0303030303030303030304020202020202040303030303030303
        0303F8030303030303F8FF030303030303030304020202FA0202020204030303
        0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
        040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
        03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
        FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
        0303030303030303030303FA0202020403030303030303030303030303F8FF03
        03F8FF03030303030303030303030303FA020202040303030303030303030303
        0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
        03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
        030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
        0202040303030303030303030303030303F8FF03F8FF03030303030303030303
        03030303FA0202030303030303030303030303030303F8FFF803030303030303
        030303030303030303FA0303030303030303030303030303030303F803030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303}
      NumGlyphs = 2
    end
    object Cancelbutton: TBitBtn
      Left = 312
      Top = 148
      Width = 89
      Height = 33
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 4
      OnClick = CancelbuttonClick
      Glyph.Data = {
        BE060000424DBE06000000000000360400002800000024000000120000000100
        0800000000008802000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303F8F80303030303030303030303030303030303FF03030303030303030303
        0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
        03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
        030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
        FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
        030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
        F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
        010101F8030303030303030303F8FF030303030303FFF8030303030303030303
        030101010101F80303030303030303030303F8FF0303030303F8030303030303
        0303030303F901010101F8030303030303030303030303F8FF030303F8030303
        0303030303030303F90101010101F8030303030303030303030303F803030303
        F8FF030303030303030303F9010101F8010101F803030303030303030303F803
        03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
        03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
        03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
        0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
        030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
        03030303030303030303030303030303030303030303030303F8F8F803030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 189
    Width = 628
    Height = 84
    Hint = 'Select job to copy from'
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object Label4: TLabel
      Left = 16
      Top = 4
      Width = 151
      Height = 16
      Caption = 'Select Job to copy from'
    end
    object Joblookup: TDBLookupCombo
      Left = 16
      Top = 24
      Width = 593
      Height = 25
      LookupSource = Jobset
      LookupDisplay = 'Job Title;Department;Section'
      LookupField = 'Job Title'
      TabOrder = 0
      OnClick = JoblookupClick
    end
  end
  object Job: TTable
    OnPostError = JobPostError
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Job Title;Department;Section'
    TableName = 'JOB.DB'
    Left = 44
    Top = 4
    object JobJobTitle: TStringField
      FieldName = 'Job Title'
      Size = 30
    end
    object JobDepartment: TStringField
      FieldName = 'Department'
      Size = 30
    end
    object JobSection: TStringField
      FieldName = 'Section'
      Size = 30
    end
    object JobGrade: TStringField
      FieldName = 'Grade'
      Size = 4
    end
    object JobPeriodofPay: TStringField
      FieldName = 'Period of Pay'
      Size = 1
    end
    object JobWeeklyHours: TFloatField
      FieldName = 'Weekly Hours'
    end
    object JobHolidayentitlementyear: TFloatField
      FieldName = 'Holiday entitlement/year'
    end
    object JobKeyObjectives: TMemoField
      FieldName = 'Key Objectives'
      BlobType = ftMemo
      Size = 8
    end
    object JobKeyResponsibilities: TMemoField
      FieldName = 'Key Responsibilities'
      BlobType = ftMemo
      Size = 8
    end
    object JobKeyDuties: TMemoField
      FieldName = 'Key Duties'
      BlobType = ftMemo
      Size = 8
    end
    object JobPhysicalM: TMemoField
      FieldName = 'Physical - M'
      BlobType = ftMemo
      Size = 8
    end
    object JobPhysicalD: TMemoField
      FieldName = 'Physical - D'
      BlobType = ftMemo
      Size = 8
    end
    object JobAttainmentsM: TMemoField
      FieldName = 'Attainments - M'
      BlobType = ftMemo
      Size = 8
    end
    object JobAttainmentsD: TMemoField
      FieldName = 'Attainments - D'
      BlobType = ftMemo
      Size = 8
    end
    object JobIntelligenceM: TMemoField
      FieldName = 'Intelligence - M'
      BlobType = ftMemo
      Size = 8
    end
    object JobIntelligenceD: TMemoField
      FieldName = 'Intelligence - D'
      BlobType = ftMemo
      Size = 8
    end
    object JobSpecialAptitudesM: TMemoField
      FieldName = 'Special Aptitudes - M'
      BlobType = ftMemo
      Size = 8
    end
    object JobSpecialAptitudesD: TMemoField
      FieldName = 'Special Aptitudes - D'
      BlobType = ftMemo
      Size = 8
    end
    object JobInteresttypesM: TMemoField
      FieldName = 'Interest types - M'
      BlobType = ftMemo
      Size = 8
    end
    object JobInteresttypesD: TMemoField
      FieldName = 'Interest types - D'
      BlobType = ftMemo
      Size = 8
    end
    object JobDispositionM: TMemoField
      FieldName = 'Disposition - M'
      BlobType = ftMemo
      Size = 8
    end
    object JobDispositionD: TMemoField
      FieldName = 'Disposition - D'
      BlobType = ftMemo
      Size = 8
    end
    object JobCircumstancesM: TMemoField
      FieldName = 'Circumstances - M'
      BlobType = ftMemo
      Size = 8
    end
    object JobCircumstancesD: TMemoField
      FieldName = 'Circumstances - D'
      BlobType = ftMemo
      Size = 8
    end
    object JobNumber: TSmallintField
      FieldName = 'Number'
    end
  end
  object Jobset: TDataSource
    DataSet = Job
    Left = 36
    Top = 32
  end
  object BatchMove1: TBatchMove
    AbortOnKeyViol = False
    AbortOnProblem = False
    Destination = Table1
    Mode = batCopy
    Source = jobelem
    Left = 480
    Top = 28
  end
  object jobelem: TTable
    DatabaseName = 'Personnel_System'
    IndexName = 'subsection'
    MasterFields = 'Job Title'
    MasterSource = Jobset
    TableName = 'Jobelem.DB'
    Left = 504
    Top = 100
    object jobelemSection: TStringField
      FieldName = 'Section'
      Size = 35
    end
    object jobelemSubSection: TStringField
      FieldName = 'Sub Section'
      Size = 25
    end
    object jobelemNumber: TSmallintField
      FieldName = 'Number'
    end
    object jobelemDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 8
    end
  end
  object BatchMove2: TBatchMove
    Destination = jobelem
    Source = Table1
    Left = 536
    Top = 28
  end
  object Table1: TTable
    DatabaseName = 'Personnel_System'
    TableName = 'table1.db'
    Left = 496
    Top = 64
    object Table1Section: TStringField
      FieldName = 'Section'
      Size = 35
    end
    object Table1SubSection: TStringField
      FieldName = 'Sub Section'
      Size = 25
    end
    object Table1Number: TSmallintField
      FieldName = 'Number'
    end
    object Table1Description: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 8
    end
  end
  object Table2: TTable
    DatabaseName = 'Personnel_System'
    TableName = 'table2.db'
    Left = 532
    Top = 92
    object Table2JobTitle: TStringField
      FieldName = 'Job Title'
      Size = 30
    end
    object Table2Department: TStringField
      FieldName = 'Department'
      Size = 30
    end
    object Table2Section: TStringField
      FieldName = 'Section'
      Size = 30
    end
    object Table2Element: TStringField
      FieldName = 'Element'
      Size = 35
    end
    object Table2SubElement: TStringField
      FieldName = 'Sub Element'
      Size = 25
    end
    object Table2Number: TSmallintField
      FieldName = 'Number'
    end
    object Table2Description: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 12
    end
    object Table2Importance: TSmallintField
      FieldName = 'Importance'
    end
    object Table2CompanyImportance: TSmallintField
      FieldName = 'Company Importance'
    end
  end
  object BatchMove3: TBatchMove
    Destination = Table2
    Mode = batCopy
    Source = Jobdesc
    Left = 552
    Top = 68
  end
  object Jobdesc: TTable
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Job Title;Department;Section;Element;Sub Element;Number'
    TableName = 'Jobdesc.DB'
    Left = 540
    Top = 132
    object JobdescJobTitle: TStringField
      FieldName = 'Job Title'
      Size = 30
    end
    object JobdescDepartment: TStringField
      FieldName = 'Department'
      Size = 30
    end
    object JobdescSection: TStringField
      FieldName = 'Section'
      Size = 30
    end
    object JobdescElement: TStringField
      FieldName = 'Element'
      Size = 35
    end
    object JobdescSubElement: TStringField
      FieldName = 'Sub Element'
      Size = 25
    end
    object JobdescNumber: TSmallintField
      FieldName = 'Number'
    end
    object JobdescDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 12
    end
    object JobdescImportance: TSmallintField
      FieldName = 'Importance'
    end
    object JobdescCompanyImportance: TSmallintField
      FieldName = 'Company Importance'
    end
  end
  object BatchMove4: TBatchMove
    Destination = Jobdesc
    Source = Table2
    Left = 580
    Top = 32
  end
end