home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 July / dpcb0798.bin / Business / Persdesk / _SETUP.1 / PERSYST1.EXE / 0 / RCDATA / TCOMPANYFORM / TCOMPANYFORM.txt
Text File  |  1998-04-21  |  11KB  |  416 lines
  1. object Companyform: TCompanyform
  2.   Left = 274
  3.   Top = 164
  4.   Width = 390
  5.   Height = 341
  6.   ActiveControl = Panel1
  7.   Caption = 'Company Information'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   Position = poScreenCenter
  14.   OnClose = FormClose
  15.   OnCreate = FormCreate
  16.   OnKeyUp = FormKeyUp
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Panel1: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 382
  23.     Height = 41
  24.     Align = alTop
  25.     TabOrder = 0
  26.     object deletebutton: TSpeedButton
  27.       Left = 252
  28.       Top = 8
  29.       Width = 25
  30.       Height = 25
  31.       Hint = 'Delete the current record'
  32.       Glyph.Data = {
  33.         76010000424D7601000000000000760000002800000020000000100000000100
  34.         04000000000000010000130B0000130B00000000000000000000000000000000
  35.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  36.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  37.         333333333333333333FF33333333333330003333333333333777333333333333
  38.         300033FFFFFF3333377739999993333333333777777F3333333F399999933333
  39.         3300377777733333337733333333333333003333333333333377333333333333
  40.         3333333333333333333F333333333333330033333F33333333773333C3333333
  41.         330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
  42.         993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
  43.         333333377F33333333FF3333C333333330003333733333333777333333333333
  44.         3000333333333333377733333333333333333333333333333333}
  45.       NumGlyphs = 2
  46.       ParentShowHint = False
  47.       ShowHint = True
  48.       OnClick = deletebuttonClick
  49.     end
  50.     object DBNavigator: TDBNavigator
  51.       Left = 8
  52.       Top = 8
  53.       Width = 156
  54.       Height = 25
  55.       DataSource = Companyset1
  56.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbPost]
  57.       Ctl3D = False
  58.       ParentCtl3D = False
  59.       ParentShowHint = False
  60.       ShowHint = True
  61.       TabOrder = 0
  62.       OnClick = DBNavigatorClick
  63.       OnEnter = DBNavigatorEnter
  64.       OnExit = DBNavigatorExit
  65.     end
  66.     object OKbutton: TButton
  67.       Left = 316
  68.       Top = 8
  69.       Width = 57
  70.       Height = 25
  71.       Caption = 'OK'
  72.       Font.Color = clBlack
  73.       Font.Height = -11
  74.       Font.Name = 'MS Sans Serif'
  75.       Font.Style = [fsBold]
  76.       ParentFont = False
  77.       TabOrder = 1
  78.       OnClick = FormDestroy
  79.     end
  80.     object BitBtn1: TBitBtn
  81.       Left = 176
  82.       Top = 8
  83.       Width = 53
  84.       Height = 25
  85.       Caption = 'Save'
  86.       TabOrder = 2
  87.       OnClick = BitBtn1Click
  88.       Glyph.Data = {
  89.         F6000000424DF600000000000000760000002800000010000000100000000100
  90.         0400000000008000000000000000000000000000000000000000000000000000
  91.         80000080000000808000800000008000800080800000C0C0C000808080000000
  92.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFCCCFFFFFF
  93.         FFFFFFCCCCCFFFFFFFFFFFCCCCCFFFFFFFFFFCCCFCCCFFFFFFFFCCCCFCCCFFFF
  94.         FFFFCCCFFFCCCFFFFFFFCCFFFFCCCFFFFFFFCFFFFFFCCCFFFFFFFFFFFFFCCCCF
  95.         FFFFFFFFFFFFCCCFFFFFFFFFFFFFFCCCFFFFFFFFFFFFFCCCCFFFFFFFFFFFFFCC
  96.         CCCFFFFFFFFFFFFCCCCCFFFFFFFFFFFFFCCCFFFFFFFFFFFFFFCC}
  97.     end
  98.   end
  99.   object Panel2: TPanel
  100.     Left = 0
  101.     Top = 41
  102.     Width = 382
  103.     Height = 273
  104.     Align = alClient
  105.     BevelInner = bvLowered
  106.     BorderWidth = 4
  107.     Caption = 'Panel2'
  108.     TabOrder = 1
  109.     object ScrollBox: TScrollBox
  110.       Left = 6
  111.       Top = 6
  112.       Width = 370
  113.       Height = 261
  114.       HorzScrollBar.Margin = 6
  115.       HorzScrollBar.Range = 268
  116.       VertScrollBar.Margin = 6
  117.       VertScrollBar.Range = 160
  118.       Align = alClient
  119.       AutoScroll = False
  120.       BorderStyle = bsNone
  121.       TabOrder = 0
  122.       object Label1: TLabel
  123.         Left = 6
  124.         Top = 6
  125.         Width = 33
  126.         Height = 13
  127.         Caption = 'Name'
  128.         FocusControl = EditName
  129.         Font.Color = clBlack
  130.         Font.Height = -11
  131.         Font.Name = 'MS Sans Serif'
  132.         Font.Style = [fsBold]
  133.         ParentFont = False
  134.       end
  135.       object Label2: TLabel
  136.         Left = 6
  137.         Top = 50
  138.         Width = 46
  139.         Height = 13
  140.         Caption = 'Address'
  141.         Font.Color = clBlack
  142.         Font.Height = -11
  143.         Font.Name = 'MS Sans Serif'
  144.         Font.Style = [fsBold]
  145.         ParentFont = False
  146.       end
  147.       object Label3: TLabel
  148.         Left = 6
  149.         Top = 167
  150.         Width = 54
  151.         Height = 13
  152.         Caption = 'Postcode'
  153.         FocusControl = EditCompanyPostcode
  154.         Font.Color = clBlack
  155.         Font.Height = -11
  156.         Font.Name = 'MS Sans Serif'
  157.         Font.Style = [fsBold]
  158.         ParentFont = False
  159.       end
  160.       object Label4: TLabel
  161.         Left = 222
  162.         Top = 4
  163.         Width = 61
  164.         Height = 13
  165.         Caption = 'Telephone'
  166.         FocusControl = EditTelephone
  167.         Font.Color = clBlack
  168.         Font.Height = -11
  169.         Font.Name = 'MS Sans Serif'
  170.         Font.Style = [fsBold]
  171.         ParentFont = False
  172.       end
  173.       object Label5: TLabel
  174.         Left = 222
  175.         Top = 51
  176.         Width = 21
  177.         Height = 13
  178.         Caption = 'Fax'
  179.         FocusControl = EditFax
  180.         Font.Color = clBlack
  181.         Font.Height = -11
  182.         Font.Name = 'MS Sans Serif'
  183.         Font.Style = [fsBold]
  184.         ParentFont = False
  185.       end
  186.       object Label6: TLabel
  187.         Left = 224
  188.         Top = 145
  189.         Width = 59
  190.         Height = 32
  191.         Caption = 'Full Time Employees'
  192.         FocusControl = EditNumberofFTEmployees
  193.         Font.Color = clBlack
  194.         Font.Height = -11
  195.         Font.Name = 'MS Sans Serif'
  196.         Font.Style = [fsBold]
  197.         ParentFont = False
  198.       end
  199.       object Label7: TLabel
  200.         Left = 6
  201.         Top = 211
  202.         Width = 79
  203.         Height = 13
  204.         Caption = 'Business type'
  205.         Font.Color = clBlack
  206.         Font.Height = -11
  207.         Font.Name = 'MS Sans Serif'
  208.         Font.Style = [fsBold]
  209.         ParentFont = False
  210.       end
  211.       object Label8: TLabel
  212.         Left = 224
  213.         Top = 184
  214.         Width = 62
  215.         Height = 33
  216.         Caption = 'Part Time Employees'
  217.         FocusControl = EditNumberofPTEmployees
  218.         Font.Color = clBlack
  219.         Font.Height = -11
  220.         Font.Name = 'MS Sans Serif'
  221.         Font.Style = [fsBold]
  222.         ParentFont = False
  223.       end
  224.       object Label9: TLabel
  225.         Left = 224
  226.         Top = 98
  227.         Width = 65
  228.         Height = 39
  229.         Caption = 'Contract Employees'
  230.         FocusControl = EditNumberofContractEmpl
  231.         Font.Color = clBlack
  232.         Font.Height = -11
  233.         Font.Name = 'MS Sans Serif'
  234.         Font.Style = [fsBold]
  235.         ParentFont = False
  236.       end
  237.       object EditName: TDBEdit
  238.         Left = 6
  239.         Top = 20
  240.         Width = 200
  241.         Height = 21
  242.         DataField = 'Name'
  243.         DataSource = Companyset1
  244.         MaxLength = 0
  245.         TabOrder = 0
  246.       end
  247.       object EditCompanyPostcode: TDBEdit
  248.         Left = 8
  249.         Top = 181
  250.         Width = 66
  251.         Height = 21
  252.         CharCase = ecUpperCase
  253.         DataField = 'Company Postcode'
  254.         DataSource = Companyset1
  255.         MaxLength = 0
  256.         TabOrder = 2
  257.       end
  258.       object EditTelephone: TDBEdit
  259.         Left = 222
  260.         Top = 19
  261.         Width = 95
  262.         Height = 21
  263.         DataField = 'Telephone'
  264.         DataSource = Companyset1
  265.         MaxLength = 0
  266.         TabOrder = 3
  267.       end
  268.       object EditFax: TDBEdit
  269.         Left = 222
  270.         Top = 66
  271.         Width = 95
  272.         Height = 21
  273.         DataField = 'Fax'
  274.         DataSource = Companyset1
  275.         MaxLength = 0
  276.         TabOrder = 4
  277.       end
  278.       object EditNumberofFTEmployees: TDBEdit
  279.         Left = 294
  280.         Top = 144
  281.         Width = 50
  282.         Height = 21
  283.         Hint = 'Number of full time employees'
  284.         DataField = 'Number of FT Employees'
  285.         DataSource = Companyset1
  286.         MaxLength = 0
  287.         ParentShowHint = False
  288.         ShowHint = True
  289.         TabOrder = 6
  290.       end
  291.       object EditNumberofPTEmployees: TDBEdit
  292.         Left = 294
  293.         Top = 183
  294.         Width = 50
  295.         Height = 21
  296.         Hint = 'Number of part time employees'
  297.         DataField = 'Number of PT Employees'
  298.         DataSource = Companyset1
  299.         MaxLength = 0
  300.         ParentShowHint = False
  301.         ShowHint = True
  302.         TabOrder = 7
  303.       end
  304.       object EditNumberofContractEmpl: TDBEdit
  305.         Left = 294
  306.         Top = 97
  307.         Width = 50
  308.         Height = 21
  309.         Hint = 'Number of contract employees'
  310.         DataField = 'Number of Contract Empl.'
  311.         DataSource = Companyset1
  312.         MaxLength = 0
  313.         ParentShowHint = False
  314.         ShowHint = True
  315.         TabOrder = 5
  316.       end
  317.       object Businesstype1: TDBLookupCombo
  318.         Left = 8
  319.         Top = 224
  320.         Width = 169
  321.         Height = 25
  322.         DataField = 'Business type'
  323.         DataSource = Companyset1
  324.         LookupSource = Bustypeset
  325.         LookupDisplay = 'Business type'
  326.         LookupField = 'Business type'
  327.         MaxLength = 35
  328.         TabOrder = 8
  329.         OnExit = Businesstype1Change
  330.       end
  331.       object EditAddress: TDBMemo
  332.         Left = 4
  333.         Top = 68
  334.         Width = 205
  335.         Height = 89
  336.         DataField = 'Address'
  337.         DataSource = Companyset1
  338.         TabOrder = 1
  339.       end
  340.     end
  341.   end
  342.   object Companyset1: TDataSource
  343.     DataSet = Company1
  344.     Left = 295
  345.     Top = 37
  346.   end
  347.   object Company1: TTable
  348.     BeforePost = Company1BeforePost
  349.     DatabaseName = 'Personnel_System'
  350.     IndexFieldNames = 'Name'
  351.     TableName = 'company.db'
  352.     Left = 268
  353.     Top = 37
  354.     object Company1Name: TStringField
  355.       FieldName = 'Name'
  356.       Size = 40
  357.     end
  358.     object Company1Address: TMemoField
  359.       FieldName = 'Address'
  360.       BlobType = ftMemo
  361.       Size = 12
  362.     end
  363.     object Company1CompanyPostcode: TStringField
  364.       FieldName = 'Company Postcode'
  365.       Size = 12
  366.     end
  367.     object Company1NumberofFTEmployees: TSmallintField
  368.       FieldName = 'Number of FT Employees'
  369.     end
  370.     object Company1NumberofPTEmployees: TSmallintField
  371.       FieldName = 'Number of PT Employees'
  372.     end
  373.     object Company1NumberofContractEmpl: TSmallintField
  374.       FieldName = 'Number of Contract Empl.'
  375.     end
  376.     object Company1Telephone: TStringField
  377.       FieldName = 'Telephone'
  378.       Size = 15
  379.     end
  380.     object Company1Fax: TStringField
  381.       FieldName = 'Fax'
  382.       Size = 15
  383.     end
  384.     object Company1Businesstype: TStringField
  385.       FieldName = 'Business type'
  386.       Size = 35
  387.     end
  388.   end
  389.   object Businesstype: TTable
  390.     DatabaseName = 'Personnel_System'
  391.     IndexFieldNames = 'Business type'
  392.     TableName = 'BUSTYPE.DB'
  393.     Left = 336
  394.     Top = 40
  395.     object BusinesstypeBusinesstype: TStringField
  396.       FieldName = 'Business type'
  397.       Size = 35
  398.     end
  399.   end
  400.   object Bustypeset: TDataSource
  401.     DataSet = Businesstype
  402.     Left = 328
  403.     Top = 56
  404.   end
  405.   object Table1: TTable
  406.     DatabaseName = 'Personnel_System'
  407.     TableName = 'EMPLOYEE.DB'
  408.     Left = 48
  409.     Top = 41
  410.   end
  411.   object DataSource1: TDataSource
  412.     Left = 172
  413.     Top = 143
  414.   end
  415. end
  416.