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