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

Text File | 1998-04-21 | 13KB | 518 lines

object InjuryForm: TInjuryForm
  Left = 176
  Top = 207
  Width = 503
  Height = 343
  Caption = 'Accident Log'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 495
    Height = 49
    Align = alTop
    TabOrder = 0
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 16
      Width = 231
      Height = 25
      DataSource = InjurySet
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = DBNavigator1Click
    end
    object BitBtn1: TBitBtn
      Left = 408
      Top = 16
      Width = 75
      Height = 25
      TabOrder = 1
      OnClick = BitBtn1Click
      Kind = bkClose
    end
    object BitBtn2: TBitBtn
      Left = 256
      Top = 16
      Width = 129
      Height = 25
      Caption = 'Accident Reports'
      TabOrder = 2
      Visible = False
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object InjuryForm: TPageControl
    Left = 0
    Top = 49
    Width = 495
    Height = 267
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Accident'
      object Label2: TLabel
        Left = 24
        Top = 112
        Width = 80
        Height = 13
        Caption = 'Date of Accident'
      end
      object Label3: TLabel
        Left = 232
        Top = 112
        Width = 98
        Height = 13
        Caption = 'Location of Accident'
        FocusControl = LocationMemo
      end
      object SpeedButton1: TSpeedButton
        Left = 112
        Top = 128
        Width = 25
        Height = 25
        Hint = 'Set Diary Entry'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF
          F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF
          F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF
          F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070
          F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0
          F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
          F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
          333337FFFFFFFF77333330000000000333333777777777733333}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object DBEdit1: TDBEdit
        Left = 24
        Top = 128
        Width = 81
        Height = 21
        DataField = 'Date of Accident'
        DataSource = InjurySet
        MaxLength = 0
        TabOrder = 1
      end
      object LocationMemo: TDBMemo
        Left = 232
        Top = 128
        Width = 201
        Height = 105
        DataField = 'Location'
        DataSource = InjurySet
        TabOrder = 0
      end
      object Panel2: TPanel
        Left = 8
        Top = 8
        Width = 465
        Height = 89
        BevelInner = bvLowered
        TabOrder = 2
        object Label1: TLabel
          Left = 24
          Top = 8
          Width = 110
          Height = 13
          Caption = 'Employee Name Select'
        end
        object Label11: TLabel
          Left = 24
          Top = 48
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 24
          Top = 64
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 24
          Top = 24
          Width = 433
          Height = 21
          DataField = 'Employee ID'
          DataSource = InjurySet
          KeyField = 'Employee ID'
          ListField = 'Surname;First Names;Job Title'
          ListSource = EmployeeSet
          TabOrder = 0
          OnClick = DBLookupComboBox1Click
        end
        object Location: TMemo
          Left = 336
          Top = 48
          Width = 185
          Height = 89
          TabOrder = 1
          Visible = False
        end
        object Howaccidentoccurred: TMemo
          Left = 304
          Top = 40
          Width = 185
          Height = 89
          TabOrder = 2
          Visible = False
        end
        object Witnesses: TMemo
          Left = 376
          Top = 32
          Width = 185
          Height = 89
          TabOrder = 3
          Visible = False
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Accident Details'
      object Label4: TLabel
        Left = 32
        Top = 56
        Width = 66
        Height = 13
        Caption = 'Activity Group'
      end
      object Label5: TLabel
        Left = 32
        Top = 104
        Width = 111
        Height = 13
        Caption = 'How accident occurred'
        FocusControl = AccidentMemo
      end
      object Label8: TLabel
        Left = 224
        Top = 56
        Width = 66
        Height = 13
        Caption = 'Hazard Group'
      end
      object AccidentMemo: TDBMemo
        Left = 32
        Top = 120
        Width = 417
        Height = 105
        DataField = 'How accident occurred'
        DataSource = InjurySet
        TabOrder = 0
      end
      object Panel3: TPanel
        Left = 16
        Top = 0
        Width = 457
        Height = 49
        BevelInner = bvLowered
        TabOrder = 1
        object Label13: TLabel
          Left = 32
          Top = 12
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 32
          Top = 28
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
      end
      object DBComboBox1: TDBComboBox
        Left = 32
        Top = 72
        Width = 145
        Height = 21
        DataField = 'Accident Group'
        DataSource = InjurySet
        ItemHeight = 0
        TabOrder = 2
      end
      object DBComboBox2: TDBComboBox
        Left = 224
        Top = 72
        Width = 145
        Height = 21
        DataField = 'Hazard Group'
        DataSource = InjurySet
        ItemHeight = 0
        TabOrder = 3
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Injury Details'
      object Label6: TLabel
        Left = 16
        Top = 96
        Width = 162
        Height = 13
        Caption = 'Nature of Injury and Consequence'
        FocusControl = InjuryMemo
      end
      object Label7: TLabel
        Left = 24
        Top = 68
        Width = 108
        Height = 13
        Caption = 'Estimated cost of injury'
        FocusControl = DBEdit2
      end
      object InjuryMemo: TDBMemo
        Left = 16
        Top = 112
        Width = 449
        Height = 113
        DataField = 'Nature of Injury'
        DataSource = InjurySet
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 136
        Top = 64
        Width = 121
        Height = 21
        DataField = 'Estimated cost of injury'
        DataSource = InjurySet
        MaxLength = 0
        TabOrder = 1
      end
      object Panel4: TPanel
        Left = 16
        Top = 0
        Width = 457
        Height = 49
        BevelInner = bvLowered
        TabOrder = 2
        object Label15: TLabel
          Left = 24
          Top = 12
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label16: TLabel
          Left = 24
          Top = 28
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Witnesses'
      object Label9: TLabel
        Left = 24
        Top = 56
        Width = 69
        Height = 13
        Caption = 'Witness Name'
      end
      object Label10: TLabel
        Left = 24
        Top = 104
        Width = 49
        Height = 13
        Caption = 'Witnesses'
        FocusControl = DBMemo1
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 24
        Top = 72
        Width = 433
        Height = 21
        KeyField = 'Employee ID'
        ListField = 'Surname;First Names;Job Title'
        ListSource = EmployeeSet
        TabOrder = 0
        OnClick = DBLookupComboBox2Click
      end
      object DBMemo1: TDBMemo
        Left = 24
        Top = 120
        Width = 433
        Height = 113
        DataField = 'Witnesses'
        DataSource = InjurySet
        TabOrder = 1
      end
      object Panel5: TPanel
        Left = 8
        Top = 0
        Width = 465
        Height = 49
        BevelInner = bvLowered
        TabOrder = 2
        object Label17: TLabel
          Left = 24
          Top = 12
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 24
          Top = 28
          Width = 3
          Height = 13
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
      end
    end
  end
  object Employee: TTable
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Surname;First Names;Title;Employee ID'
    TableName = 'Employee.DB'
    Left = 184
    Top = 65520
    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 EmployeeJobTitle: TStringField
      FieldName = 'Job Title'
      Size = 30
    end
  end
  object EmployeeSet: TDataSource
    DataSet = Employee
    Left = 192
    Top = 8
  end
  object Injury: TTable
    BeforeInsert = InjuryBeforeInsert
    AfterInsert = InjuryAfterInsert
    BeforePost = InjuryBeforePost
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Employee ID;Date of Accident'
    TableName = 'injury.DB'
    Left = 160
    object InjuryEmployeeID: TStringField
      FieldName = 'Employee ID'
      Size = 9
    end
    object InjuryDateofAccident: TDateField
      FieldName = 'Date of Accident'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!90/90/0000;1;_'
    end
    object InjuryLocation: TMemoField
      FieldName = 'Location'
      BlobType = ftMemo
      Size = 8
    end
    object InjuryHowaccidentoccurred: TMemoField
      FieldName = 'How accident occurred'
      BlobType = ftMemo
      Size = 8
    end
    object InjuryWitnesses: TMemoField
      FieldName = 'Witnesses'
      BlobType = ftMemo
      Size = 8
    end
    object InjuryHazardGroup: TStringField
      FieldName = 'Hazard Group'
      Size = 25
    end
    object InjuryAccidentGroup: TStringField
      FieldName = 'Accident Group'
      Size = 25
    end
    object InjuryNatureofInjury: TMemoField
      FieldName = 'Nature of Injury'
      BlobType = ftMemo
      Size = 8
    end
    object InjuryEstimatedcostofinjury: TCurrencyField
      FieldName = 'Estimated cost of injury'
    end
  end
  object InjurySet: TDataSource
    DataSet = Injury
    Left = 208
  end
end