home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / FRMTRIGG.DFM / FRMTRIGG.txt
Text File  |  1997-01-16  |  3KB  |  137 lines
  1. object FrmTriggerDemo: TFrmTriggerDemo
  2.   Left = 208
  3.   Top = 105
  4.   Width = 391
  5.   Height = 342
  6.   Hint = 'Explore the EmployeeTable to see the trigger sources'
  7.   Caption = 'Salary Change Auditing'
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   ShowHint = True
  14.   OnShow = FormShow
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Panel1: TPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 383
  21.     Height = 41
  22.     Align = alTop
  23.     Caption = 'Panel1'
  24.     TabOrder = 0
  25.     object DBNavigator: TDBNavigator
  26.       Left = 8
  27.       Top = 8
  28.       Width = 232
  29.       Height = 25
  30.       DataSource = DmEmployee.EmployeeSource
  31.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbEdit, nbPost, nbCancel, nbRefresh]
  32.       Ctl3D = False
  33.       ParentCtl3D = False
  34.       ParentShowHint = False
  35.       ShowHint = True
  36.       TabOrder = 0
  37.     end
  38.     object BitBtn1: TBitBtn
  39.       Left = 315
  40.       Top = 8
  41.       Width = 60
  42.       Height = 25
  43.       Hint = 'Exit and close this form'
  44.       Caption = 'E&xit'
  45.       TabOrder = 1
  46.       Kind = bkClose
  47.       Style = bsNew
  48.     end
  49.   end
  50.   object Panel2: TPanel
  51.     Left = 0
  52.     Top = 41
  53.     Width = 383
  54.     Height = 137
  55.     Align = alTop
  56.     BevelInner = bvLowered
  57.     BorderWidth = 4
  58.     Caption = 'Panel2'
  59.     TabOrder = 1
  60.     object DBGrid1: TDBGrid
  61.       Left = 6
  62.       Top = 6
  63.       Width = 371
  64.       Height = 125
  65.       Hint = 'Changing a salary initiates a trigger'
  66.       Align = alClient
  67.       BorderStyle = bsNone
  68.       Columns = <
  69.         item
  70.           FieldName = 'FULL_NAME'
  71.           ReadOnly = True
  72.           Width = 124
  73.         end
  74.         item
  75.           FieldName = 'SALARY'
  76.         end
  77.         item
  78.           FieldName = 'JOB_GRADE'
  79.           ReadOnly = True
  80.         end>
  81.       DataSource = DmEmployee.EmployeeSource
  82.       TabOrder = 0
  83.       TitleFont.Color = clWindowText
  84.       TitleFont.Height = -11
  85.       TitleFont.Name = 'MS Sans Serif'
  86.       TitleFont.Style = []
  87.     end
  88.   end
  89.   object Panel3: TPanel
  90.     Left = 0
  91.     Top = 178
  92.     Width = 383
  93.     Height = 137
  94.     Align = alClient
  95.     BevelInner = bvLowered
  96.     BorderWidth = 4
  97.     Caption = 'Panel3'
  98.     TabOrder = 2
  99.     object DBGrid2: TDBGrid
  100.       Left = 6
  101.       Top = 6
  102.       Width = 371
  103.       Height = 125
  104.       Hint = 'Salary history is maintained by a trigger on salary change'
  105.       Align = alClient
  106.       BorderStyle = bsNone
  107.       Columns = <
  108.         item
  109.           FieldName = 'EMPLOYEE'
  110.           Width = 123
  111.         end
  112.         item
  113.           FieldName = 'CHANGE_DATE'
  114.         end
  115.         item
  116.           FieldName = 'OLD_SALARY'
  117.         end
  118.         item
  119.           FieldName = 'NEW_SALARY'
  120.         end
  121.         item
  122.           FieldName = 'PERCENT_CHANGE'
  123.         end
  124.         item
  125.           FieldName = 'UPDATER_ID'
  126.         end>
  127.       DataSource = DmEmployee.SalaryHistorySource
  128.       ReadOnly = True
  129.       TabOrder = 0
  130.       TitleFont.Color = clWindowText
  131.       TitleFont.Height = -11
  132.       TitleFont.Name = 'MS Sans Serif'
  133.       TitleFont.Style = []
  134.     end
  135.   end
  136. end
  137.