home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Db / Csdemos / frmtrigg.dfm / frmtrigg.txt
Encoding:
Text File  |  1999-08-11  |  2.9 KB  |  135 lines

  1. object FrmTriggerDemo: TFrmTriggerDemo
  2.   Left = 144
  3.   Top = 75
  4.   Width = 391
  5.   Height = 342
  6.   Hint = 'Explore the EmployeeTable to see the trigger sources'
  7.   ActiveControl = Panel1
  8.   Caption = 'Salary Change Auditing'
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   ShowHint = True
  15.   OnShow = FormShow
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Panel1: TPanel
  19.     Left = 0
  20.     Top = 0
  21.     Width = 383
  22.     Height = 41
  23.     Align = alTop
  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.       TabOrder = 0
  35.     end
  36.     object BitBtn1: TBitBtn
  37.       Left = 315
  38.       Top = 8
  39.       Width = 60
  40.       Height = 25
  41.       Hint = 'Exit and close this form'
  42.       Caption = 'E&xit'
  43.       TabOrder = 1
  44.       Kind = bkClose
  45.       Style = bsNew
  46.     end
  47.   end
  48.   object Panel2: TPanel
  49.     Left = 0
  50.     Top = 41
  51.     Width = 383
  52.     Height = 137
  53.     Align = alTop
  54.     BevelInner = bvLowered
  55.     BorderWidth = 4
  56.     Caption = 'Panel2'
  57.     TabOrder = 1
  58.     object DBGrid1: TDBGrid
  59.       Left = 6
  60.       Top = 6
  61.       Width = 371
  62.       Height = 125
  63.       Hint = 'Changing a salary initiates a trigger'
  64.       Align = alClient
  65.       BorderStyle = bsNone
  66.       Columns = <
  67.         item
  68.           FieldName = 'FULL_NAME'
  69.           ReadOnly = True
  70.           Width = 124
  71.         end
  72.         item
  73.           FieldName = 'SALARY'
  74.         end
  75.         item
  76.           FieldName = 'JOB_GRADE'
  77.           ReadOnly = True
  78.         end>
  79.       DataSource = DmEmployee.EmployeeSource
  80.       TabOrder = 0
  81.       TitleFont.Color = clBlack
  82.       TitleFont.Height = -11
  83.       TitleFont.Name = 'MS Sans Serif'
  84.       TitleFont.Style = []
  85.     end
  86.   end
  87.   object Panel3: TPanel
  88.     Left = 0
  89.     Top = 178
  90.     Width = 383
  91.     Height = 140
  92.     Align = alClient
  93.     BevelInner = bvLowered
  94.     BorderWidth = 4
  95.     Caption = 'Panel3'
  96.     TabOrder = 2
  97.     object DBGrid2: TDBGrid
  98.       Left = 6
  99.       Top = 6
  100.       Width = 371
  101.       Height = 128
  102.       Hint = 'Salary history is maintained by a trigger on salary change'
  103.       Align = alClient
  104.       BorderStyle = bsNone
  105.       Columns = <
  106.         item
  107.           FieldName = 'EMPLOYEE'
  108.           Width = 123
  109.         end
  110.         item
  111.           FieldName = 'CHANGE_DATE'
  112.         end
  113.         item
  114.           FieldName = 'OLD_SALARY'
  115.         end
  116.         item
  117.           FieldName = 'NEW_SALARY'
  118.         end
  119.         item
  120.           FieldName = 'PERCENT_CHANGE'
  121.         end
  122.         item
  123.           FieldName = 'UPDATER_ID'
  124.         end>
  125.       DataSource = DmEmployee.SalaryHistorySource
  126.       ReadOnly = True
  127.       TabOrder = 0
  128.       TitleFont.Color = clBlack
  129.       TitleFont.Height = -11
  130.       TitleFont.Name = 'MS Sans Serif'
  131.       TitleFont.Style = []
  132.     end
  133.   end
  134. end
  135.