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

Text File | 1998-04-21 | 8KB | 189 lines

object Newjobcontract: TNewjobcontract
  Left = 200
  Top = 108
  Width = 435
  Height = 181
  Caption = 'Add New Job Contract'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label5: TLabel
    Left = 48
    Top = 8
    Width = 259
    Height = 13
    Caption = 'Enter details of new Job Contract then press OK button'
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 56
    Top = 32
    Width = 45
    Height = 25
    Caption = 'Existing Job Title'
  end
  object Label1: TLabel
    Left = 36
    Top = 76
    Width = 40
    Height = 13
    Caption = 'Job Title'
  end
  object DBText1: TDBText
    Left = 104
    Top = 72
    Width = 301
    Height = 17
    DataField = 'Job Title'
    DataSource = wordprocessor2.compcontset
  end
  object OKButton: TBitBtn
    Left = 268
    Top = 116
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 0
    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
  object jobtitle: TDBLookupComboBox
    Left = 104
    Top = 32
    Width = 301
    Height = 21
    Color = clAqua
    KeyField = 'Job Title'
    ListField = 'Job Title;Department;Section'
    ListSource = jobset
    TabOrder = 1
    OnClick = jobtitleClick
  end
  object newjob: TBitBtn
    Left = 24
    Top = 116
    Width = 121
    Height = 25
    Hint = 'Job does not exit. Create new job'
    Caption = 'Create New Job'
    TabOrder = 2
    OnClick = newjobClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F3333FCC33F3
      33333F3333F6633F3333F3333FC333F333333F3333F6333F3333F3333FC333F3
      33333F3333F6333F3333F3333FC333F333333F3333F6333F3333FFFFFFC333F3
      33333FFFFFF6333F3333FCCCCFC333F333333F6666F6333F3333FCC3FFFFFFFF
      33333F667FFFFFFFF333FCC333C333F333333F663336333F3333FCC33C333333
      33333F66336333333333FCC3C333333333333F663633333333333CCC33333333
      333333666333333333333BB333333333333333FF3333333333333BB333333333
      333333FF333333333333BBBB3333333333333FFFF33333333333BBBB33333333
      33333FFFF333333333333BB333333333333333FF333333333333}
    NumGlyphs = 2
  end
  object job: TTable
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Job Title;Department;Section'
    TableName = 'Job.DB'
    Left = 24
    Top = 24
    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
  end
  object jobset: TDataSource
    DataSet = job
    Left = 180
    Top = 60
  end
end