Class TForm1 (unit DemoForm)

Inherits from

TForm

demo of DBcvt VCL use} 1.2 2/11/95 - compiled and tested with version 1.4 of DBcvt 1.5 9/1/96 - compiled and tested with version 1.5 of DBcvt - added export test - Revison of DBcvt is now show in upper right corner - released with DBcvt 1.5 2.0 10/30/96 - tested to work with DBcvt 2.0.

Constructors



Functions

procedure Ascii2DB1Parse(Sender: TObject; var ParsedList: TList; aRecord: string; var NumberOfFields: LongInt);

Change string to upper case} {in OnParse, we must edit the parsedList's (TFieldStream) FieldString value

procedure BtnCloseClick(Sender: TObject);

quite demo app

procedure BtnGetDataClick(Sender: TObject);

Get data from ASCII file

procedure Btn_SaveClick(Sender: TObject);

save (and overwrite) source.

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure FormCreate(Sender: TObject);

set things up so it will work no matter where installed

Properties

Events

Variables

Ascii2DB1 : TAscii2DB;


BtnClose : TButton;


BtnGetData : TButton;


Button1 : TButton;


Button2 : TButton;


CkbxNames : TCheckBox;


DataSource1 : TDataSource;


DB2Ascii1 : TDB2Ascii;


DBGrid1 : TDBGrid;


DBMemo1 : TDBMemo;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


LblError : TLabel;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Table1 : TTable;


Table1TAlpha : TStringField;


Table1TBCD : TBCDField;


Table1TCalc : TFloatField;


Table1TDate : TDateField;


Table1TLogical : TBooleanField;


Table1TLongInt : TIntegerField;


Table1TMemo : TMemoField;


Table1TMoney : TCurrencyField;


Table1TNumber : TFloatField;


Table1TShort : TSmallintField;


Table1TTime : TTimeField;


Table1TTimeStamp : TDateTimeField;


Table2 : TTable;


Table2TAlpha : TStringField;


Table2TAutoIncrement : TIntegerField;


Table2TBCD : TBCDField;


Table2TDate : TDateField;


Table2TLogical : TBooleanField;


Table2TLongInt : TIntegerField;


Table2TMemo : TMemoField;


Table2TMoney : TCurrencyField;


Table2TNumber : TFloatField;


Table2TShort : TSmallintField;


Table2TTime : TTimeField;


Table2TTimeStamp : TDateTimeField;



Constructors


Functions


procedure Ascii2DB1Parse(Sender: TObject; var ParsedList: TList; aRecord: string; var NumberOfFields: LongInt);

Change string to upper case} {in OnParse, we must edit the parsedList's (TFieldStream) FieldString value


procedure BtnCloseClick(Sender: TObject);

quite demo app


procedure BtnGetDataClick(Sender: TObject);

Get data from ASCII file


procedure Btn_SaveClick(Sender: TObject);

save (and overwrite) source.txt


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure FormCreate(Sender: TObject);

set things up so it will work no matter where installed


Properties


Events


Variables


Ascii2DB1 : TAscii2DB;


BtnClose : TButton;


BtnGetData : TButton;


Button1 : TButton;


Button2 : TButton;


CkbxNames : TCheckBox;


DataSource1 : TDataSource;


DB2Ascii1 : TDB2Ascii;


DBGrid1 : TDBGrid;


DBMemo1 : TDBMemo;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


LblError : TLabel;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Table1 : TTable;


Table1TAlpha : TStringField;


Table1TBCD : TBCDField;


Table1TCalc : TFloatField;


Table1TDate : TDateField;


Table1TLogical : TBooleanField;


Table1TLongInt : TIntegerField;


Table1TMemo : TMemoField;


Table1TMoney : TCurrencyField;


Table1TNumber : TFloatField;


Table1TShort : TSmallintField;


Table1TTime : TTimeField;


Table1TTimeStamp : TDateTimeField;


Table2 : TTable;


Table2TAlpha : TStringField;


Table2TAutoIncrement : TIntegerField;


Table2TBCD : TBCDField;


Table2TDate : TDateField;


Table2TLogical : TBooleanField;


Table2TLongInt : TIntegerField;


Table2TMemo : TMemoField;


Table2TMoney : TCurrencyField;


Table2TNumber : TFloatField;


Table2TShort : TSmallintField;


Table2TTime : TTimeField;


Table2TTimeStamp : TDateTimeField;