home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 108
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'TNyBck Test Program.'
- ClientHeight = 372
- ClientWidth = 410
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Gauge1: TGauge
- Left = 64
- Top = 336
- Width = 321
- Height = 28
- BackColor = clNavy
- Color = clBtnFace
- ForeColor = clPurple
- MaxValue = 0
- ParentColor = False
- Progress = 0
- Visible = False
- end
- object Label1: TLabel
- Left = 8
- Top = 344
- Width = 48
- Height = 13
- Caption = 'Progres:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Visible = False
- end
- object Label2: TLabel
- Left = 56
- Top = 168
- Width = 69
- Height = 13
- Caption = 'Memo Field:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 56
- Top = 248
- Width = 82
- Height = 13
- Caption = 'Progres State:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object DBGrid1: TDBGrid
- Left = 56
- Top = 64
- Width = 321
- Height = 105
- DataSource = DataSource1
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- object DBNavigator1: TDBNavigator
- Left = 16
- Top = 24
- Width = 240
- Height = 25
- DataSource = DataSource1
- ConfirmDelete = False
- TabOrder = 1
- end
- object DBMemo1: TDBMemo
- Left = 56
- Top = 184
- Width = 321
- Height = 57
- DataField = 'Memofield'
- DataSource = DataSource1
- ScrollBars = ssVertical
- TabOrder = 2
- end
- object Memo1: TMemo
- Left = 56
- Top = 264
- Width = 321
- Height = 65
- ScrollBars = ssVertical
- TabOrder = 3
- end
- object Button1: TButton
- Left = 288
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Export'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 288
- Top = 32
- Width = 75
- Height = 25
- Caption = '&Import'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- OnClick = Button2Click
- end
- object Table1: TTable
- OnCalcFields = Table1CalcFields
- TableName = 'test.db'
- Left = 200
- Top = 160
- object Table1Alphafield: TStringField
- DisplayWidth = 11
- FieldName = 'Alpha field'
- Size = 10
- end
- object Table1Alpha2: TStringField
- DisplayWidth = 15
- FieldName = 'Alpha2'
- Size = 10
- end
- object Table1Integerfield: TFloatField
- DisplayWidth = 12
- FieldName = 'Integer field'
- end
- object Table1Memofield: TMemoField
- FieldName = 'Memofield'
- Visible = False
- BlobType = ftMemo
- Size = 240
- end
- object Table1Calcfield: TStringField
- DisplayWidth = 15
- FieldKind = fkCalculated
- FieldName = 'Calcfield'
- Calculated = True
- end
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 296
- Top = 160
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'Bck'
- Filter = 'Bck Files (*.Bck)|*.Bck'
- Left = 16
- Top = 128
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = 'Bck'
- Filter = 'BCK Files (*.Bck)|*.Bck'
- Left = 16
- Top = 88
- end
- object NyBck1: TNyBck
- Dataset = Table1
- Delimiter = '"'
- SilentImport = True
- FieldIndicator = '$'
- Seprator = ','
- CSVMap = '$Alpha field,$Alpha2,$integer field,$Memofield'
- BeforeOpenTable = NyBck1BeforeOpenTable
- AfterOpenTable = NyBck1AfterOpenTable
- BeforeCloseTable = NyBck1BeforeCloseTable
- AfterCloseTable = NyBck1AfterCloseTable
- BeforeImport = NyBck1BeforeImport
- AfterImport = NyBck1AfterImport
- BeforeExport = NyBck1BeforeExport
- AfterExport = NyBck1AfterExport
- ExportProgress = NyBck1ExportProgress
- ImportProgress = NyBck1ImportProgress
- OnAddRecord = NyBck1AddRecord
- ImportError = NyBck1ImportError
- Left = 376
- Top = 24
- end
- end
-