Delphi 5 for Professionals/DELPHI5.iso/Runimage/Delphi50/Help/Examples/Batchmv2/main.dfm/main.txt

Text File | 1999-08-11 | 6.1 KB | 329 lines

object FormMain: TFormMain
  Left = 169
  Top = 154
  Width = 766
  Height = 584
  Caption = 'TBatchMove Example'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Bevel1: TBevel
    Left = 384
    Top = 10
    Width = 326
    Height = 208
    Shape = bsFrame
    Style = bsRaised
  end
  object Label6: TLabel
    Left = 423
    Top = 59
    Width = 33
    Height = 16
    Caption = 'Alias:'
  end
  object Label7: TLabel
    Left = 399
    Top = 108
    Width = 79
    Height = 16
    Caption = 'Table Name:'
  end
  object Label8: TLabel
    Left = 428
    Top = 158
    Width = 35
    Height = 16
    Caption = 'Index:'
  end
  object Bevel2: TBevel
    Left = 20
    Top = 10
    Width = 326
    Height = 208
    Shape = bsFrame
    Style = bsRaised
  end
  object Label5: TLabel
    Left = 59
    Top = 158
    Width = 35
    Height = 16
    Caption = 'Index:'
  end
  object Label4: TLabel
    Left = 30
    Top = 108
    Width = 79
    Height = 16
    Caption = 'Table Name:'
  end
  object Label3: TLabel
    Left = 59
    Top = 59
    Width = 33
    Height = 16
    Caption = 'Alias:'
  end
  object Bevel3: TBevel
    Left = 20
    Top = 236
    Width = 690
    Height = 248
    Shape = bsFrame
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 128
    Top = 20
    Width = 95
    Height = 16
    Caption = 'Source Table'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 492
    Top = 20
    Width = 124
    Height = 16
    Caption = 'Destination Table'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 276
    Top = 246
    Width = 161
    Height = 16
    Caption = 'Options/Error Handling'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 34
    Top = 414
    Width = 75
    Height = 16
    Caption = 'Batch Mode:'
  end
  object Label12: TLabel
    Left = 354
    Top = 286
    Width = 140
    Height = 16
    Caption = 'Changed Table Name: '
  end
  object Label13: TLabel
    Left = 335
    Top = 335
    Width = 163
    Height = 16
    Caption = 'Key Violation Table Name: '
  end
  object Label14: TLabel
    Left = 364
    Top = 384
    Width = 136
    Height = 16
    Caption = 'Problem Table Name: '
  end
  object Label11: TLabel
    Left = 315
    Top = 433
    Width = 179
    Height = 16
    Caption = 'Record Count (Leave 0 for all):'
  end
  object cmbxDestAlias: TComboBox
    Left = 492
    Top = 59
    Width = 179
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    Sorted = True
    TabOrder = 0
    OnChange = cmbxDestAliasChange
  end
  object cmbxDestTable: TComboBox
    Left = 492
    Top = 108
    Width = 179
    Height = 24
    ItemHeight = 16
    Sorted = True
    TabOrder = 1
    OnChange = cmbxDestTableChange
  end
  object cmbxDestIndex: TComboBox
    Left = 492
    Top = 158
    Width = 179
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    Sorted = True
    TabOrder = 2
    OnChange = cmbxDestIndexChange
  end
  object cmbxSourceAlias: TComboBox
    Left = 118
    Top = 59
    Width = 179
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    Sorted = True
    TabOrder = 3
    OnChange = cmbxSourceAliasChange
  end
  object cmbxSourceTable: TComboBox
    Left = 118
    Top = 108
    Width = 179
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    Sorted = True
    TabOrder = 4
    OnChange = cmbxSourceTableChange
  end
  object cmbxSourceIndex: TComboBox
    Left = 118
    Top = 158
    Width = 179
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    Sorted = True
    TabOrder = 5
    OnChange = cmbxSourceIndexChange
  end
  object cmbxMode: TComboBox
    Left = 118
    Top = 414
    Width = 179
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    Sorted = True
    TabOrder = 6
    OnChange = cmbxModeChange
    Items.Strings = (
      'Append'
      'Append Update'
      'Copy'
      'Delete'
      'Update')
  end
  object Button1: TButton
    Left = 283
    Top = 497
    Width = 161
    Height = 31
    Caption = 'Execute BatchMove'
    TabOrder = 7
    OnClick = Button1Click
  end
  object chkbxAbortKey: TCheckBox
    Left = 39
    Top = 286
    Width = 238
    Height = 20
    Caption = 'Abort on key violation'
    Checked = True
    State = cbChecked
    TabOrder = 8
    OnClick = chkbxAbortKeyClick
  end
  object chkbxAbortProblem: TCheckBox
    Left = 39
    Top = 325
    Width = 238
    Height = 21
    Caption = 'Abort on problem (data is truncated)'
    Checked = True
    State = cbChecked
    TabOrder = 9
    OnClick = chkbxAbortProblemClick
  end
  object chkbxTrans: TCheckBox
    Left = 39
    Top = 364
    Width = 238
    Height = 21
    Caption = 'Transliterate Characters'
    Checked = True
    State = cbChecked
    TabOrder = 10
    OnClick = chkbxTransClick
  end
  object edtChangedTable: TEdit
    Left = 512
    Top = 286
    Width = 149
    Height = 24
    TabOrder = 11
  end
  object edtKeyVioTbl: TEdit
    Left = 512
    Top = 335
    Width = 149
    Height = 24
    TabOrder = 12
  end
  object edtProbTbl: TEdit
    Left = 512
    Top = 384
    Width = 149
    Height = 24
    TabOrder = 13
  end
  object edtRecCount: TEdit
    Left = 512
    Top = 433
    Width = 149
    Height = 24
    TabOrder = 14
    Text = '0'
    OnKeyPress = edtRecCountKeyPress
  end
  object BatchMove1: TBatchMove
    Destination = tblDest
    Source = tblSource
    Transliterate = False
    Left = 280
    Top = 88
  end
  object tblSource: TTable
    Left = 280
    Top = 24
  end
  object tblDest: TTable
    Left = 280
    Top = 144
  end
end