Chip 2001 December/Chip_2001-12_cd1.bin/zkuste/delphi/kompon/d3456/ACF10CE.ZIP/NyBckTest.dfm/NyBckTest.txt

Text File | 2001-09-10 | 4.7 KB | 215 lines

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