Componentes.Terceros.jvcl/official/3.32/examples/JvDBExplorer/SRCTAB.DFM

253 lines
5.9 KiB
Plaintext

object SrcTableDlg: TSrcTableDlg
Left = 279
Top = 161
BorderStyle = bsDialog
Caption = 'Import to %s'
ClientHeight = 284
ClientWidth = 420
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Expanded: TBevel
Left = 412
Top = 0
Width = 8
Height = 280
Shape = bsLeftLine
Visible = False
end
object TopPanel: TPanel
Left = 0
Top = 0
Width = 420
Height = 153
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 8
Width = 94
Height = 13
Caption = '&Select source table:'
FocusControl = SrcNameEdit
end
object Label4: TLabel
Left = 8
Top = 104
Width = 61
Height = 13
Caption = 'Import &mode:'
FocusControl = ModeCombo
end
object RecordCountBox: TGroupBox
Left = 8
Top = 53
Width = 315
Height = 44
Caption = ' &Record count to import '
TabOrder = 0
object Label2: TLabel
Left = 268
Top = 20
Width = 38
Height = 13
Caption = 'records '
FocusControl = RecordCntEdit
end
object FirstRecsBtn: TRadioButton
Left = 153
Top = 18
Width = 48
Height = 17
Caption = ' &First '
TabOrder = 1
OnClick = AllRecsBtnClick
end
object AllRecsBtn: TRadioButton
Left = 17
Top = 18
Width = 96
Height = 17
Caption = ' &All records'
Checked = True
TabOrder = 0
TabStop = True
OnClick = AllRecsBtnClick
end
object RecordCntEdit: TJvValidateEdit
Left = 204
Top = 17
Width = 55
Height = 21
CheckChars = '01234567890'
CriticalPoints.CheckPoints = cpNone
CriticalPoints.ColorAbove = clBlue
CriticalPoints.ColorBelow = clRed
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnFace
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxValue = 2147483647.000000000000000000
ParentColor = True
ParentFont = False
PasswordChar = #0
TabOrder = 2
Text = '0'
Value = 0
end
end
object ModeCombo: TComboBox
Left = 8
Top = 120
Width = 161
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
Items.Strings = (
'Append'
'Update'
'AppendUpdate')
end
object SrcNameEdit: TJvFilenameEdit
Left = 8
Top = 24
Width = 315
Height = 21
AddQuotes = False
DefaultExt = 'DB'
Filter =
'Paradox or DBase files (*.db; *.dbf)|*.DB;*.DBF|ASCII files (*.t' +
'xt)|*.TXT|All files (*.*)|*.*'
DialogOptions = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
DialogTitle = 'Browse files'
ButtonHint = 'Browse tables|'
ButtonFlat = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = SrcNameEditChange
end
object OkBtn: TButton
Left = 335
Top = 13
Width = 77
Height = 25
Caption = 'OK'
Default = True
Enabled = False
TabOrder = 3
OnClick = OkBtnClick
end
object CancelBtn: TButton
Left = 335
Top = 45
Width = 77
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 4
end
object MapBtn: TButton
Left = 335
Top = 80
Width = 77
Height = 25
Enabled = False
TabOrder = 5
OnClick = MapBtnClick
end
end
object BottomPanel: TPanel
Left = 0
Top = 153
Width = 420
Height = 131
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Label3: TLabel
Left = 8
Top = 2
Width = 73
Height = 13
Caption = '&Field mappings:'
end
object MapGrid: TJvDBGrid
Left = 8
Top = 18
Width = 315
Height = 105
DataSource = dsMappings
Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'SRC_NAME'
ReadOnly = True
Visible = True
end
item
Expanded = False
FieldName = 'DST_NAME'
Visible = True
end>
end
end
object FormStorage: TJvFormStorage
Options = []
StoredProps.Strings = (
'SrcNameEdit.InitialDir'
'RecordCntEdit.Value')
StoredValues = <>
Left = 344
Top = 124
end
object TableFields: TJvTableItems
Left = 344
Top = 152
end
object MappingsTab: TJvBDEMemoryTable
TableName = 'MAPTAB'
Left = 344
Top = 180
object MappingsTabSRC_NAME: TStringField
DisplayLabel = 'Source'
DisplayWidth = 23
FieldName = 'SRC_NAME'
Size = 50
end
object MappingsTabDST_NAME: TStringField
DisplayLabel = 'Destination'
DisplayWidth = 24
FieldName = 'DST_NAME'
OnGetText = MappingsTabDST_NAMEGetText
OnSetText = MappingsTabDST_NAMESetText
Size = 50
end
end
object dsMappings: TDataSource
DataSet = MappingsTab
Left = 372
Top = 180
end
end