Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/CACHEDUP.DFM/CACHEDUP.txt

Text File | 1997-01-16 | 4KB | 186 lines

object CacheDemoForm: TCacheDemoForm
  Left = 233
  Top = 108
  Width = 500
  Height = 373
  Caption = 'Cached Updates Example'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 9
    Top = 36
    Width = 332
    Height = 281
    Columns = <
      item
        FieldName = 'PROJ_ID'
        Title.Alignment = taCenter
        Title.Caption = 'ProjID'
        Width = 50
      end
      item
        FieldName = 'PROJ_NAME'
        Title.Alignment = taCenter
        Title.Caption = 'Project Name'
        Width = 107
      end
      item
        FieldName = 'UpdateStatus'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Update Status'
        Width = 141
      end>
    DataSource = CacheData.CacheDS
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 59
    Top = 4
    Width = 240
    Height = 25
    DataSource = CacheData.CacheDS
    TabOrder = 1
  end
  object GroupBox1: TGroupBox
    Left = 349
    Top = 207
    Width = 129
    Height = 109
    Caption = 'Show Records'
    TabOrder = 2
    object UnModifiedCB: TCheckBox
      Left = 12
      Top = 16
      Width = 81
      Height = 17
      Caption = 'Unmodified'
      State = cbChecked
      TabOrder = 0
      OnClick = UpdateRecordsToShow
    end
    object ModifiedCB: TCheckBox
      Left = 12
      Top = 38
      Width = 81
      Height = 17
      Caption = 'Modified'
      State = cbChecked
      TabOrder = 1
      OnClick = UpdateRecordsToShow
    end
    object InsertedCB: TCheckBox
      Left = 12
      Top = 60
      Width = 81
      Height = 17
      Caption = 'Inserted'
      State = cbChecked
      TabOrder = 2
      OnClick = UpdateRecordsToShow
    end
    object DeletedCB: TCheckBox
      Left = 12
      Top = 82
      Width = 81
      Height = 17
      Caption = 'Deleted'
      TabOrder = 3
      OnClick = UpdateRecordsToShow
    end
  end
  object Panel1: TPanel
    Left = 349
    Top = 36
    Width = 129
    Height = 53
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object CachedUpdates: TCheckBox
      Left = 11
      Top = 7
      Width = 114
      Height = 17
      Caption = '&Cached Updates'
      State = cbChecked
      TabOrder = 0
      OnClick = ToggleUpdateMode
    end
    object UseUpdateSQL: TCheckBox
      Left = 11
      Top = 28
      Width = 110
      Height = 17
      Caption = 'Use Update SQL'
      TabOrder = 1
      OnClick = UseUpdateSQLClick
    end
  end
  object Panel2: TPanel
    Left = 349
    Top = 96
    Width = 129
    Height = 106
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 4
    object ApplyUpdatesBtn: TButton
      Left = 9
      Top = 9
      Width = 110
      Height = 25
      Caption = '&Apply Updates'
      TabOrder = 0
      OnClick = ApplyUpdatesBtnClick
    end
    object CancelUpdatesBtn: TButton
      Left = 9
      Top = 41
      Width = 110
      Height = 25
      Caption = '&Cancel Updates'
      TabOrder = 1
      OnClick = CancelUpdatesBtnClick
    end
    object RevertRecordBtn: TButton
      Left = 9
      Top = 72
      Width = 110
      Height = 25
      Caption = '&Revert Record'
      TabOrder = 2
      OnClick = RevertRecordBtnClick
    end
  end
  object ReExecuteButton: TButton
    Left = 349
    Top = 4
    Width = 129
    Height = 25
    Caption = 'Re-execute Query'
    TabOrder = 5
    OnClick = ReExecuteButtonClick
  end
  object MainMenu1: TMainMenu
    Left = 268
    Top = 263
    object miAbout: TMenuItem
      Caption = 'A&bout'
      ShortCut = 0
      OnClick = miAboutClick
    end
  end
end