home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 July / dpcb0798.bin / Business / Persdesk / _SETUP.1 / PERSYST1.EXE / 0 / RCDATA / TCALENDARSETUP / TCALENDARSETUP.txt
Text File  |  1998-04-21  |  4KB  |  139 lines
  1. object CalendarSetup: TCalendarSetup
  2.   Left = 70
  3.   Top = 100
  4.   Width = 577
  5.   Height = 285
  6.   Caption = 'Calendar Table Setup'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   KeyPreview = True
  12.   Position = poDefault
  13.   OnActivate = FormActivate
  14.   OnClose = FormClose
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   OnKeyUp = FormKeyUp
  18.   PixelsPerInch = 96
  19.   TextHeight = 16
  20.   object SelectAll: TBitBtn
  21.     Left = 20
  22.     Top = 4
  23.     Width = 65
  24.     Height = 29
  25.     Hint = 'Select All Employees'
  26.     ParentShowHint = False
  27.     ShowHint = True
  28.     TabOrder = 0
  29.     OnClick = SelectAllClick
  30.     Kind = bkAll
  31.   end
  32.   object Cancel: TBitBtn
  33.     Left = 232
  34.     Top = 4
  35.     Width = 73
  36.     Height = 29
  37.     TabOrder = 1
  38.     OnClick = CancelClick
  39.     Kind = bkCancel
  40.   end
  41.   object OK: TBitBtn
  42.     Left = 328
  43.     Top = 4
  44.     Width = 73
  45.     Height = 29
  46.     Hint = 'Look at Calendar'
  47.     TabOrder = 2
  48.     OnClick = OKClick
  49.     Kind = bkOK
  50.   end
  51.   object DBGrid1: TDBGrid
  52.     Left = 0
  53.     Top = 52
  54.     Width = 569
  55.     Height = 205
  56.     Hint = 'Double click to Select employees by pressing Check box.'
  57.     Columns = <
  58.       item
  59.         FieldName = 'Check'
  60.       end
  61.       item
  62.         FieldName = 'Surname'
  63.         ReadOnly = True
  64.       end
  65.       item
  66.         FieldName = 'First Names'
  67.         ReadOnly = True
  68.       end>
  69.     DataSource = DataSource1
  70.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  71.     ParentShowHint = False
  72.     ShowHint = True
  73.     TabOrder = 3
  74.     TitleFont.Color = clWindowText
  75.     TitleFont.Height = -13
  76.     TitleFont.Name = 'System'
  77.     TitleFont.Style = []
  78.     OnDblClick = DBGrid1DblClick
  79.   end
  80.   object DBNavigator1: TDBNavigator
  81.     Left = 424
  82.     Top = 4
  83.     Width = 120
  84.     Height = 29
  85.     DataSource = DataSource1
  86.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  87.     ParentShowHint = False
  88.     ShowHint = True
  89.     TabOrder = 4
  90.   end
  91.   object CancelAll: TBitBtn
  92.     Left = 108
  93.     Top = 4
  94.     Width = 93
  95.     Height = 29
  96.     Caption = 'Cancel All'
  97.     TabOrder = 5
  98.     OnClick = CancelAllClick
  99.     Glyph.Data = {
  100.       78010000424D7801000000000000760000002800000020000000100000000100
  101.       04000000000000000000120B0000120B00000000000000000000000000000000
  102.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  103.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
  104.       555557777F777555F55500000000555055557777777755F75555005500055055
  105.       555577F5777F57555555005550055555555577FF577F5FF55555500550050055
  106.       5555577FF77577FF555555005050110555555577F757777FF555555505099910
  107.       555555FF75777777FF555005550999910555577F5F77777775F5500505509990
  108.       3055577F75F77777575F55005055090B030555775755777575755555555550B0
  109.       B03055555F555757575755550555550B0B335555755555757555555555555550
  110.       BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
  111.       50BB555555555555575F555555555555550B55555555555555750000}
  112.     NumGlyphs = 2
  113.   end
  114.   object Table1: TTable
  115.     DatabaseName = 'Personnel_System'
  116.     IndexFieldNames = 'Surname;First Names;Title'
  117.     TableName = 'EMPLOYEE.DB'
  118.     Left = 180
  119.     Top = 68
  120.     object Table1Check: TBooleanField
  121.       DisplayWidth = 3
  122.       FieldName = 'Check'
  123.     end
  124.     object Table1Surname: TStringField
  125.       FieldName = 'Surname'
  126.       Size = 25
  127.     end
  128.     object Table1FirstNames: TStringField
  129.       FieldName = 'First Names'
  130.       Size = 35
  131.     end
  132.   end
  133.   object DataSource1: TDataSource
  134.     DataSet = Table1
  135.     Left = 248
  136.     Top = 68
  137.   end
  138. end
  139.