home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 July / dpcb0798.bin / Business / Persdesk / _SETUP.1 / REC.DLL / 0 / RCDATA / TJOBCHANGE / TJOBCHANGE.txt
Text File  |  1998-03-24  |  19KB  |  590 lines
  1. object jobchange: Tjobchange
  2.   Left = 104
  3.   Top = 112
  4.   Width = 648
  5.   Height = 460
  6.   Caption = 'Job Change'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   KeyPreview = True
  12.   OnClose = FormClose
  13.   OnCreate = FormCreate
  14.   OnKeyUp = FormKeyUp
  15.   PixelsPerInch = 96
  16.   TextHeight = 16
  17.   object Panel1: TPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 640
  21.     Height = 249
  22.     Align = alTop
  23.     TabOrder = 0
  24.     object Label4: TLabel
  25.       Left = 31
  26.       Top = 89
  27.       Width = 90
  28.       Height = 16
  29.       Caption = 'Job End Date:'
  30.     end
  31.     object Label2: TLabel
  32.       Left = 43
  33.       Top = 64
  34.       Width = 78
  35.       Height = 16
  36.       Caption = 'Current Job:'
  37.     end
  38.     object Label1: TLabel
  39.       Left = 36
  40.       Top = 36
  41.       Width = 113
  42.       Height = 16
  43.       Caption = 'Select Employee:'
  44.       Font.Color = clBlack
  45.       Font.Height = -13
  46.       Font.Name = 'System'
  47.       Font.Style = [fsBold]
  48.       ParentFont = False
  49.     end
  50.     object DBText1: TDBText
  51.       Left = 128
  52.       Top = 64
  53.       Width = 401
  54.       Height = 17
  55.       DataField = 'Job Title'
  56.       DataSource = Empljobset
  57.       Font.Color = clBlack
  58.       Font.Height = -13
  59.       Font.Name = 'System'
  60.       Font.Style = [fsBold, fsUnderline]
  61.       ParentFont = False
  62.     end
  63.     object Label6: TLabel
  64.       Left = 4
  65.       Top = 8
  66.       Width = 150
  67.       Height = 24
  68.       Caption = 'Current Position'
  69.       Font.Color = clBlack
  70.       Font.Height = -19
  71.       Font.Name = 'MS Sans Serif'
  72.       Font.Style = [fsBold]
  73.       ParentFont = False
  74.     end
  75.     object Label3: TLabel
  76.       Left = 20
  77.       Top = 112
  78.       Width = 124
  79.       Height = 16
  80.       Caption = 'Reason for Change'
  81.     end
  82.     object DBMemo1: TDBMemo
  83.       Left = 20
  84.       Top = 132
  85.       Width = 585
  86.       Height = 109
  87.       DataField = 'Change reason'
  88.       DataSource = Empljobset
  89.       ScrollBars = ssVertical
  90.       TabOrder = 2
  91.     end
  92.     object DBRowGrid1: TDBRowGrid
  93.       Left = 156
  94.       Top = 4
  95.       Width = 481
  96.       Height = 53
  97.       Hint = 'Double click selection to close box'
  98.       Columns = <
  99.         item
  100.           FieldName = 'Surname'
  101.           Font.Color = clBlack
  102.           Font.Height = -13
  103.           Font.Name = 'MS Sans Serif'
  104.           Font.Style = []
  105.           ReadOnly = True
  106.           Width = 150
  107.         end
  108.         item
  109.           FieldName = 'First Names'
  110.           Font.Color = clBlack
  111.           Font.Height = -13
  112.           Font.Name = 'MS Sans Serif'
  113.           Font.Style = []
  114.           ReadOnly = True
  115.         end
  116.         item
  117.           FieldName = 'Title'
  118.           Font.Color = clBlack
  119.           Font.Height = -13
  120.           Font.Name = 'MS Sans Serif'
  121.           Font.Style = [fsBold]
  122.           ReadOnly = True
  123.         end>
  124.       DataSource = emplset
  125.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  126.       ParentShowHint = False
  127.       ShowHint = True
  128.       TabOrder = 0
  129.       TitleFont.Color = clWindowText
  130.       TitleFont.Height = -13
  131.       TitleFont.Name = 'System'
  132.       TitleFont.Style = []
  133.       OnDblClick = DBRowGrid1Exit
  134.       OnEnter = DBRowGrid1Enter
  135.     end
  136.     object startd: TDbDateEdit97
  137.       Left = 128
  138.       Top = 85
  139.       Width = 137
  140.       Height = 24
  141.       TabOrder = 1
  142.       DayNames.Monday = 'Mo'
  143.       DayNames.Tuesday = 'Tu'
  144.       DayNames.Wednesday = 'We'
  145.       DayNames.Thursday = 'Th'
  146.       DayNames.Friday = 'Fr'
  147.       DayNames.Saturday = 'Sa'
  148.       DayNames.Sunday = 'Su'
  149.       MonthNames.January = 'January'
  150.       MonthNames.February = 'February'
  151.       MonthNames.March = 'March'
  152.       MonthNames.April = 'April'
  153.       MonthNames.May = 'May'
  154.       MonthNames.June = 'June'
  155.       MonthNames.July = 'July'
  156.       MonthNames.August = 'August'
  157.       MonthNames.September = 'September'
  158.       MonthNames.October = 'October'
  159.       MonthNames.November = 'November'
  160.       MonthNames.December = 'December'
  161.       ColorValidDate = clBlue
  162.       DataField = 'Job end date'
  163.       DataSource = Empljobset
  164.     end
  165.   end
  166.   object Panel2: TPanel
  167.     Left = 0
  168.     Top = 249
  169.     Width = 640
  170.     Height = 184
  171.     Align = alClient
  172.     TabOrder = 1
  173.     object Label5: TLabel
  174.       Left = 8
  175.       Top = 12
  176.       Width = 123
  177.       Height = 24
  178.       Caption = 'New Position'
  179.       Font.Color = clBlack
  180.       Font.Height = -19
  181.       Font.Name = 'MS Sans Serif'
  182.       Font.Style = [fsBold]
  183.       ParentFont = False
  184.     end
  185.     object Label7: TLabel
  186.       Left = 10
  187.       Top = 109
  188.       Width = 95
  189.       Height = 16
  190.       Caption = 'Job Start Date:'
  191.     end
  192.     object Label8: TLabel
  193.       Left = 46
  194.       Top = 44
  195.       Width = 59
  196.       Height = 16
  197.       Caption = 'New Job:'
  198.     end
  199.     object Label9: TLabel
  200.       Left = 12
  201.       Top = 76
  202.       Width = 93
  203.       Height = 16
  204.       Caption = 'New Manager:'
  205.     end
  206.     object OkButton: TBitBtn
  207.       Left = 300
  208.       Top = 116
  209.       Width = 89
  210.       Height = 33
  211.       Caption = 'OK'
  212.       Default = True
  213.       TabOrder = 1
  214.       OnClick = OkButtonClick
  215.       Glyph.Data = {
  216.         BE060000424DBE06000000000000360400002800000024000000120000000100
  217.         0800000000008802000000000000000000000000000000000000000000000000
  218.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
  219.         A400000000000000000000000000000000000000000000000000000000000000
  220.         0000000000000000000000000000000000000000000000000000000000000000
  221.         0000000000000000000000000000000000000000000000000000000000000000
  222.         0000000000000000000000000000000000000000000000000000000000000000
  223.         0000000000000000000000000000000000000000000000000000000000000000
  224.         0000000000000000000000000000000000000000000000000000000000000000
  225.         0000000000000000000000000000000000000000000000000000000000000000
  226.         0000000000000000000000000000000000000000000000000000000000000000
  227.         0000000000000000000000000000000000000000000000000000000000000000
  228.         0000000000000000000000000000000000000000000000000000000000000000
  229.         0000000000000000000000000000000000000000000000000000000000000000
  230.         0000000000000000000000000000000000000000000000000000000000000000
  231.         0000000000000000000000000000000000000000000000000000000000000000
  232.         0000000000000000000000000000000000000000000000000000000000000000
  233.         0000000000000000000000000000000000000000000000000000000000000000
  234.         0000000000000000000000000000000000000000000000000000000000000000
  235.         0000000000000000000000000000000000000000000000000000000000000000
  236.         0000000000000000000000000000000000000000000000000000000000000000
  237.         0000000000000000000000000000000000000000000000000000000000000000
  238.         0000000000000000000000000000000000000000000000000000000000000000
  239.         0000000000000000000000000000000000000000000000000000000000000000
  240.         0000000000000000000000000000000000000000000000000000000000000000
  241.         0000000000000000000000000000000000000000000000000000000000000000
  242.         0000000000000000000000000000000000000000000000000000000000000000
  243.         0000000000000000000000000000000000000000000000000000000000000000
  244.         0000000000000000000000000000000000000000000000000000000000000000
  245.         0000000000000000000000000000000000000000000000000000000000000000
  246.         0000000000000000000000000000000000000000000000000000000000000000
  247.         0000000000000000000000000000000000000000000000000000000000000000
  248.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  249.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
  250.         0303030303030303030303030303030303030303030303030303030303030303
  251.         03030303030303030303030303030303030303030303FF030303030303030303
  252.         03030303030303040403030303030303030303030303030303F8F8FF03030303
  253.         03030303030303030303040202040303030303030303030303030303F80303F8
  254.         FF030303030303030303030303040202020204030303030303030303030303F8
  255.         03030303F8FF0303030303030303030304020202020202040303030303030303
  256.         0303F8030303030303F8FF030303030303030304020202FA0202020204030303
  257.         0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
  258.         040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
  259.         03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
  260.         FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
  261.         0303030303030303030303FA0202020403030303030303030303030303F8FF03
  262.         03F8FF03030303030303030303030303FA020202040303030303030303030303
  263.         0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
  264.         03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
  265.         030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
  266.         0202040303030303030303030303030303F8FF03F8FF03030303030303030303
  267.         03030303FA0202030303030303030303030303030303F8FFF803030303030303
  268.         030303030303030303FA0303030303030303030303030303030303F803030303
  269.         0303030303030303030303030303030303030303030303030303030303030303
  270.         0303}
  271.       NumGlyphs = 2
  272.     end
  273.     object CancelButton: TBitBtn
  274.       Left = 412
  275.       Top = 116
  276.       Width = 89
  277.       Height = 33
  278.       Cancel = True
  279.       Caption = 'Cancel'
  280.       TabOrder = 4
  281.       OnClick = CancelButtonClick
  282.       Glyph.Data = {
  283.         BE060000424DBE06000000000000360400002800000024000000120000000100
  284.         0800000000008802000000000000000000000000000000000000000000000000
  285.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
  286.         A400000000000000000000000000000000000000000000000000000000000000
  287.         0000000000000000000000000000000000000000000000000000000000000000
  288.         0000000000000000000000000000000000000000000000000000000000000000
  289.         0000000000000000000000000000000000000000000000000000000000000000
  290.         0000000000000000000000000000000000000000000000000000000000000000
  291.         0000000000000000000000000000000000000000000000000000000000000000
  292.         0000000000000000000000000000000000000000000000000000000000000000
  293.         0000000000000000000000000000000000000000000000000000000000000000
  294.         0000000000000000000000000000000000000000000000000000000000000000
  295.         0000000000000000000000000000000000000000000000000000000000000000
  296.         0000000000000000000000000000000000000000000000000000000000000000
  297.         0000000000000000000000000000000000000000000000000000000000000000
  298.         0000000000000000000000000000000000000000000000000000000000000000
  299.         0000000000000000000000000000000000000000000000000000000000000000
  300.         0000000000000000000000000000000000000000000000000000000000000000
  301.         0000000000000000000000000000000000000000000000000000000000000000
  302.         0000000000000000000000000000000000000000000000000000000000000000
  303.         0000000000000000000000000000000000000000000000000000000000000000
  304.         0000000000000000000000000000000000000000000000000000000000000000
  305.         0000000000000000000000000000000000000000000000000000000000000000
  306.         0000000000000000000000000000000000000000000000000000000000000000
  307.         0000000000000000000000000000000000000000000000000000000000000000
  308.         0000000000000000000000000000000000000000000000000000000000000000
  309.         0000000000000000000000000000000000000000000000000000000000000000
  310.         0000000000000000000000000000000000000000000000000000000000000000
  311.         0000000000000000000000000000000000000000000000000000000000000000
  312.         0000000000000000000000000000000000000000000000000000000000000000
  313.         0000000000000000000000000000000000000000000000000000000000000000
  314.         0000000000000000000000000000000000000000000000000000000000000000
  315.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  316.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
  317.         0303030303030303030303030303030303030303030303030303030303030303
  318.         0303F8F80303030303030303030303030303030303FF03030303030303030303
  319.         0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
  320.         03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
  321.         030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
  322.         FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
  323.         030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
  324.         F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
  325.         010101F8030303030303030303F8FF030303030303FFF8030303030303030303
  326.         030101010101F80303030303030303030303F8FF0303030303F8030303030303
  327.         0303030303F901010101F8030303030303030303030303F8FF030303F8030303
  328.         0303030303030303F90101010101F8030303030303030303030303F803030303
  329.         F8FF030303030303030303F9010101F8010101F803030303030303030303F803
  330.         03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
  331.         03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
  332.         03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
  333.         0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
  334.         030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
  335.         03030303030303030303030303030303030303030303030303F8F8F803030303
  336.         0303030303030303030303030303030303030303030303030303030303030303
  337.         0303}
  338.       NumGlyphs = 2
  339.     end
  340.     object DBLookupCombo1: TDBLookupCombo
  341.       Left = 116
  342.       Top = 74
  343.       Width = 477
  344.       Height = 25
  345.       LookupSource = emplset
  346.       LookupDisplay = 'Surname;First Names;NI code'
  347.       LookupField = 'Surname'
  348.       Options = [loColLines, loTitles]
  349.       TabOrder = 2
  350.       OnChange = DBComboBox3Change
  351.     end
  352.     object DBLookupCombo2: TDBLookupCombo
  353.       Left = 116
  354.       Top = 40
  355.       Width = 477
  356.       Height = 25
  357.       LookupSource = Jobset
  358.       LookupDisplay = 'Job Title;Department;Section'
  359.       LookupField = 'Job Title'
  360.       TabOrder = 0
  361.       OnClick = DBLookupCombo2Click
  362.     end
  363.     object Startdate: TDateEdit97
  364.       Left = 116
  365.       Top = 104
  366.       Width = 145
  367.       Height = 24
  368.       TabOrder = 3
  369.       DayNames.Monday = 'Mo'
  370.       DayNames.Tuesday = 'Tu'
  371.       DayNames.Wednesday = 'We'
  372.       DayNames.Thursday = 'Th'
  373.       DayNames.Friday = 'Fr'
  374.       DayNames.Saturday = 'Sa'
  375.       DayNames.Sunday = 'Su'
  376.       MonthNames.January = 'January'
  377.       MonthNames.February = 'February'
  378.       MonthNames.March = 'March'
  379.       MonthNames.April = 'April'
  380.       MonthNames.May = 'May'
  381.       MonthNames.June = 'June'
  382.       MonthNames.July = 'July'
  383.       MonthNames.August = 'August'
  384.       MonthNames.September = 'September'
  385.       MonthNames.October = 'October'
  386.       MonthNames.November = 'November'
  387.       MonthNames.December = 'December'
  388.       ColorValidDate = clBlue
  389.     end
  390.   end
  391.   object Employee: TTable
  392.     DatabaseName = 'Personnel_System'
  393.     IndexFieldNames = 'Surname;First Names;Title'
  394.     TableName = 'EMPLOYEE.DB'
  395.     Left = 240
  396.     Top = 244
  397.     object EmployeeEmployeeID: TStringField
  398.       FieldName = 'Employee ID'
  399.       Size = 9
  400.     end
  401.     object EmployeeSurname: TStringField
  402.       FieldName = 'Surname'
  403.       Size = 25
  404.     end
  405.     object EmployeeFirstNames: TStringField
  406.       FieldName = 'First Names'
  407.       Size = 35
  408.     end
  409.     object EmployeeTitle: TStringField
  410.       FieldName = 'Title'
  411.       Size = 4
  412.     end
  413.     object EmployeeAddress: TMemoField
  414.       FieldName = 'Address'
  415.       BlobType = ftMemo
  416.       Size = 12
  417.     end
  418.     object EmployeePostcode: TStringField
  419.       FieldName = 'Postcode'
  420.       Size = 10
  421.     end
  422.     object EmployeeTelephone: TStringField
  423.       FieldName = 'Telephone'
  424.       Size = 15
  425.     end
  426.     object EmployeeFax: TStringField
  427.       FieldName = 'Fax'
  428.       Size = 15
  429.     end
  430.     object EmployeePrincipallocation: TMemoField
  431.       FieldName = 'Principal location'
  432.       BlobType = ftMemo
  433.       Size = 12
  434.     end
  435.     object EmployeeSex: TStringField
  436.       FieldName = 'Sex'
  437.       Size = 1
  438.     end
  439.     object EmployeeTaxcode: TStringField
  440.       FieldName = 'Tax code'
  441.       Size = 6
  442.     end
  443.     object EmployeeNextofkin: TStringField
  444.       FieldName = 'Next of kin'
  445.       Size = 45
  446.     end
  447.     object EmployeeNextofkinaddress: TMemoField
  448.       FieldName = 'Next of kin address'
  449.       BlobType = ftMemo
  450.       Size = 12
  451.     end
  452.     object EmployeeDoctor: TStringField
  453.       FieldName = 'Doctor'
  454.       Size = 35
  455.     end
  456.     object EmployeeDoctorAddress: TMemoField
  457.       FieldName = 'Doctor Address'
  458.       BlobType = ftMemo
  459.       Size = 12
  460.     end
  461.     object EmployeeRevisionDate: TDateField
  462.       FieldName = 'Revision Date'
  463.     end
  464.     object EmployeeDateofBirth: TDateField
  465.       FieldName = 'Date of Birth'
  466.     end
  467.     object EmployeeJobTitle: TStringField
  468.       FieldName = 'Job Title'
  469.       Size = 30
  470.     end
  471.     object EmployeeReportTo: TStringField
  472.       FieldName = 'Report To'
  473.       Size = 9
  474.     end
  475.     object EmployeeCompanyName: TStringField
  476.       FieldName = 'Company Name'
  477.       Size = 40
  478.     end
  479.     object EmployeeCompanyPostcode: TStringField
  480.       FieldName = 'Company Postcode'
  481.       Size = 12
  482.     end
  483.     object EmployeeCheck: TBooleanField
  484.       FieldName = 'Check'
  485.     end
  486.     object EmployeeNIcode: TStringField
  487.       FieldName = 'NI code'
  488.       Size = 13
  489.     end
  490.   end
  491.   object Empljob: TTable
  492.     DatabaseName = 'Personnel_System'
  493.     IndexFieldNames = 'Employee ID;Job start date'
  494.     TableName = 'EMPLJOB.DB'
  495.     Left = 272
  496.     Top = 244
  497.     object EmpljobEmployeeID: TStringField
  498.       FieldName = 'Employee ID'
  499.       Size = 9
  500.     end
  501.     object EmpljobJobTitle: TStringField
  502.       FieldName = 'Job Title'
  503.       Size = 30
  504.     end
  505.     object EmpljobDepartment: TStringField
  506.       FieldName = 'Department'
  507.       Size = 30
  508.     end
  509.     object EmpljobSection: TStringField
  510.       FieldName = 'Section'
  511.       Size = 30
  512.     end
  513.     object EmpljobBossSurname: TStringField
  514.       FieldName = 'Boss Surname'
  515.       Size = 25
  516.     end
  517.     object EmpljobBossFirstNames: TStringField
  518.       FieldName = 'Boss First Names'
  519.       Size = 35
  520.     end
  521.     object EmpljobWorkPhonenumber: TStringField
  522.       FieldName = 'Work Phone number'
  523.       Size = 15
  524.     end
  525.     object EmpljobStatuspointingrade: TSmallintField
  526.       FieldName = 'Status point in grade'
  527.     end
  528.     object EmpljobJobstartdate: TDateField
  529.       FieldName = 'Job start date'
  530.       DisplayFormat = 'dd/mm/yyyy'
  531.       EditMask = '!90/90/0000;1;_'
  532.     end
  533.     object EmpljobJobenddate: TDateField
  534.       FieldName = 'Job end date'
  535.       DisplayFormat = 'dd/mm/yyyy'
  536.       EditMask = '!90/90/0000;1;_'
  537.     end
  538.     object EmpljobChangereason: TMemoField
  539.       FieldName = 'Change reason'
  540.       BlobType = ftMemo
  541.       Size = 8
  542.     end
  543.     object EmpljobCode: TStringField
  544.       FieldName = 'Code'
  545.       Size = 2
  546.     end
  547.     object EmpljobLevel: TIntegerField
  548.       FieldName = 'Level'
  549.     end
  550.     object EmpljobBossID: TStringField
  551.       FieldName = 'Boss ID'
  552.       Size = 9
  553.     end
  554.   end
  555.   object emplset: TDataSource
  556.     DataSet = Employee
  557.     Left = 304
  558.     Top = 244
  559.   end
  560.   object Job: TTable
  561.     DatabaseName = 'Personnel_System'
  562.     IndexFieldNames = 'Job Title;Department;Section'
  563.     TableName = 'JOB.DB'
  564.     Left = 364
  565.     Top = 244
  566.     object JobJobTitle: TStringField
  567.       FieldName = 'Job Title'
  568.       Size = 30
  569.     end
  570.     object JobDepartment: TStringField
  571.       FieldName = 'Department'
  572.       Size = 30
  573.     end
  574.     object JobSection: TStringField
  575.       FieldName = 'Section'
  576.       Size = 30
  577.     end
  578.   end
  579.   object Jobset: TDataSource
  580.     DataSet = Job
  581.     Left = 396
  582.     Top = 244
  583.   end
  584.   object Empljobset: TDataSource
  585.     DataSet = Empljob
  586.     Left = 340
  587.     Top = 252
  588.   end
  589. end
  590.