home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1998 July
/
dpcb0798.bin
/
Business
/
Persdesk
/
_SETUP.1
/
PERSYST1.EXE
/
0
/
RCDATA
/
TINJURYFORM
/
TINJURYFORM.txt
Wrap
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