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.
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
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;
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
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;