QBasic & Borland Pascal & C/Delphi5.iso/Runimage/Delphi50/Help/Examples/Batchmv/BATMOVE.DFM/BATMOVE.txt

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

object Form1: TForm1
  Left = 169
  Top = 154
  Width = 766
  Height = 584
  Caption = 'TBatchMove Example'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 312
    Top = 8
    Width = 265
    Height = 169
    Shape = bsFrame
    Style = bsRaised
  end
  object Label6: TLabel
    Left = 344
    Top = 48
    Width = 25
    Height = 13
    Caption = 'Alias:'
  end
  object Label7: TLabel
    Left = 324
    Top = 88
    Width = 61
    Height = 13
    Caption = 'Table Name:'
  end
  object Label8: TLabel
    Left = 348
    Top = 128
    Width = 29
    Height = 13
    Caption = 'Index:'
  end
  object Bevel2: TBevel
    Left = 16
    Top = 8
    Width = 265
    Height = 169
    Shape = bsFrame
    Style = bsRaised
  end
  object Label5: TLabel
    Left = 48
    Top = 128
    Width = 29
    Height = 13
    Caption = 'Index:'
  end
  object Label4: TLabel
    Left = 24
    Top = 88
    Width = 61
    Height = 13
    Caption = 'Table Name:'
  end
  object Label3: TLabel
    Left = 48
    Top = 48
    Width = 25
    Height = 13
    Caption = 'Alias:'
  end
  object Bevel3: TBevel
    Left = 16
    Top = 192
    Width = 561
    Height = 201
    Shape = bsFrame
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 104
    Top = 16
    Width = 77
    Height = 13
    Caption = 'Source Table'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 400
    Top = 16
    Width = 101
    Height = 13
    Caption = 'Destination Table'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 224
    Top = 200
    Width = 131
    Height = 13
    Caption = 'Options/Error Handling'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 28
    Top = 336
    Width = 61
    Height = 13
    Caption = 'Batch Mode:'
  end
  object Label12: TLabel
    Left = 288
    Top = 232
    Width = 110
    Height = 13
    Caption = 'Changed Table Name: '
  end
  object Label13: TLabel
    Left = 272
    Top = 272
    Width = 128
    Height = 13
    Caption = 'Key Violation Table Name: '
  end
  object Label14: TLabel
    Left = 296
    Top = 312
    Width = 105
    Height = 13
    Caption = 'Problem Table Name: '
  end
  object Label11: TLabel
    Left = 256
    Top = 352
    Width = 145
    Height = 13
    Caption = 'Record Count (Leave 0 for all):'
  end
  object cmbxDestAlias: TComboBox
    Left = 400
    Top = 48
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Sorted = True
    TabOrder = 0
    OnChange = cmbxDestAliasChange
  end
  object cmbxDestTable: TComboBox
    Left = 400
    Top = 88
    Width = 145
    Height = 21
    ItemHeight = 13
    Sorted = True
    TabOrder = 1
    OnChange = cmbxDestTableChange
  end
  object cmbxDestIndex: TComboBox
    Left = 400
    Top = 128
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Sorted = True
    TabOrder = 2
    OnChange = cmbxDestIndexChange
  end
  object cmbxSourceAlias: TComboBox
    Left = 96
    Top = 48
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Sorted = True
    TabOrder = 3
    OnChange = cmbxSourceAliasChange
  end
  object cmbxSourceTable: TComboBox
    Left = 96
    Top = 88
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Sorted = True
    TabOrder = 4
    OnChange = cmbxSourceTableChange
  end
  object cmbxSourceIndex: TComboBox
    Left = 96
    Top = 128
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Sorted = True
    TabOrder = 5
    OnChange = cmbxSourceIndexChange
  end
  object cmbxMode: TComboBox
    Left = 96
    Top = 336
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Sorted = True
    TabOrder = 6
    OnChange = cmbxModeChange
    Items.Strings = (
      'Append'
      'Append Update'
      'Copy'
      'Delete'
      'Update')
  end
  object Button1: TButton
    Left = 230
    Top = 404
    Width = 131
    Height = 25
    Caption = 'Execute BatchMove'
    TabOrder = 7
    OnClick = Button1Click
  end
  object chkbxAbortKey: TCheckBox
    Left = 32
    Top = 232
    Width = 193
    Height = 17
    Caption = 'Abort on key violation'
    Checked = True
    State = cbChecked
    TabOrder = 8
    OnClick = chkbxAbortKeyClick
  end
  object chkbxAbortProblem: TCheckBox
    Left = 32
    Top = 264
    Width = 193
    Height = 17
    Caption = 'Abort on problem (data is truncated)'
    Checked = True
    State = cbChecked
    TabOrder = 9
    OnClick = chkbxAbortProblemClick
  end
  object chkbxTrans: TCheckBox
    Left = 32
    Top = 296
    Width = 193
    Height = 17
    Caption = 'Transliterate Characters'
    Checked = True
    State = cbChecked
    TabOrder = 10
    OnClick = chkbxTransClick
  end
  object edtChangedTable: TEdit
    Left = 416
    Top = 232
    Width = 121
    Height = 21
    TabOrder = 11
  end
  object edtKeyVioTbl: TEdit
    Left = 416
    Top = 272
    Width = 121
    Height = 21
    TabOrder = 12
  end
  object edtProbTbl: TEdit
    Left = 416
    Top = 312
    Width = 121
    Height = 21
    TabOrder = 13
  end
  object edtRecCount: TEdit
    Left = 416
    Top = 352
    Width = 121
    Height = 21
    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