home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / FRMTRANS.DFM / FRMTRANS.txt
Text File  |  1997-01-16  |  2KB  |  91 lines
  1. object FrmTransDemo: TFrmTransDemo
  2.   Left = 199
  3.   Top = 111
  4.   Width = 507
  5.   Height = 341
  6.   Hint = 'All edits in this form are done in a transaction'
  7.   Caption = 'Employee Browser'
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   ShowHint = True
  14.   OnHide = FormHide
  15.   OnShow = FormShow
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Panel1: TPanel
  19.     Left = 0
  20.     Top = 0
  21.     Width = 499
  22.     Height = 41
  23.     Align = alTop
  24.     TabOrder = 0
  25.     object BtnUndoEdits: TSpeedButton
  26.       Left = 345
  27.       Top = 8
  28.       Width = 76
  29.       Height = 25
  30.       Hint = 'Rolls Back the current transaction and starts a new one'
  31.       Caption = '&Undo Edits'
  32.       OnClick = BtnUndoEditsClick
  33.     end
  34.     object BtnCommitEdits: TSpeedButton
  35.       Left = 261
  36.       Top = 8
  37.       Width = 76
  38.       Height = 25
  39.       Hint = 'Commits the current transaction and starts a new one'
  40.       Caption = '&Commit Edits'
  41.       OnClick = BtnCommitEditsClick
  42.     end
  43.     object DBNavigator: TDBNavigator
  44.       Left = 8
  45.       Top = 8
  46.       Width = 240
  47.       Height = 25
  48.       DataSource = DmEmployee.EmployeeSource
  49.       Ctl3D = False
  50.       ParentCtl3D = False
  51.       TabOrder = 0
  52.     end
  53.     object BitBtn1: TBitBtn
  54.       Left = 431
  55.       Top = 8
  56.       Width = 60
  57.       Height = 25
  58.       Hint = 'Exit and close this form'
  59.       Caption = 'E&xit'
  60.       TabOrder = 1
  61.       Kind = bkClose
  62.       Style = bsNew
  63.     end
  64.   end
  65.   object Panel2: TPanel
  66.     Left = 0
  67.     Top = 41
  68.     Width = 499
  69.     Height = 273
  70.     Align = alClient
  71.     BevelInner = bvLowered
  72.     BorderWidth = 4
  73.     Caption = 'Panel2'
  74.     TabOrder = 1
  75.     object DBGrid1: TDBGrid
  76.       Left = 6
  77.       Top = 6
  78.       Width = 487
  79.       Height = 261
  80.       Align = alClient
  81.       BorderStyle = bsNone
  82.       DataSource = DmEmployee.EmployeeSource
  83.       TabOrder = 0
  84.       TitleFont.Color = clWindowText
  85.       TitleFont.Height = -11
  86.       TitleFont.Name = 'MS Sans Serif'
  87.       TitleFont.Style = []
  88.     end
  89.   end
  90. end
  91.