Class TCopia_Dbf (unit cp_s20en)

Inherits from

TForm

Constructors



Functions

procedure Acercade1Click(Sender: TObject);


procedure BBSQLClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);

and we show it in the controls disposed in the chip for such end

procedure BitBtn2Click(Sender: TObject);

Init BDE

procedure CBAliasChange(Sender: TObject);

To launch the procedures of data update

procedure CBAliasEnter(Sender: TObject);


procedure CBAliasExit(Sender: TObject);


procedure CBAliasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CBIndexChange(Sender: TObject);

Closed BDE

procedure CBIndexEnter(Sender: TObject);


procedure CBIndexExit(Sender: TObject);


procedure CBIndexKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CBTableChange(Sender: TObject);


procedure CBTableEnter(Sender: TObject);


procedure CBTableExit(Sender: TObject);


procedure CBTableKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CbTipoTablaEnter(Sender: TObject);

# Execute the data copy ## The component TBatchMove has some Bug and not always works well.

procedure CbTipoTablaExit(Sender: TObject);


procedure CbTipoTablaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CheckBox1Click(Sender: TObject);


procedure Directory1Change(Sender: TObject);

# Config and copy the table

procedure DirectoryEnter(Sender: TObject);


procedure DirectoryExit(Sender: TObject);


procedure DS1DataChange(Sender: TObject; Field: TField);

The specified record number is greater than the number of records in the table.

procedure EditFicKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

To configure the head-board of the SQL text and tables and fields information

procedure EditNearChange(Sender: TObject);


procedure EditRanStartKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Example of applying data filters

procedure Ejecutar1Click(Sender: TObject);

Message of result

procedure Empaquetar1Click(Sender: TObject);

Index all tables

procedure Estructura1Click(Sender: TObject);


procedure Explorer1Click(Sender: TObject);


procedure Filtros1Click(Sender: TObject);

To obtain the data related to each one from the index

procedure FiltroSQL1Click(Sender: TObject);

# The function of ordering SortTable() returns 1 if has sucess and 0 if defect

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure Imprimir1Click(Sender: TObject);

Data of the Query

procedure Indexar1Click(Sender: TObject);

{Example of calling to the function} Table1.

procedure MaskEdit1Change(Sender: TObject);


procedure PrintSqlClick(Sender: TObject);


procedure Query2Click(Sender: TObject);


procedure RbCopiarSoloDatosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure RbCopiarTodoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure RbCopySortKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure Salir1Click(Sender: TObject);

If the query didn't return any records, there's no point in displaying the form.

procedure SpeedButton1Click(Sender: TObject);

Example of applying search brandish accordant we wrote text

procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure Sql1Click(Sender: TObject);


procedure Tablaordebnada1Click(Sender: TObject);

# Execute the query copy

procedure TablaporunIndice1Click(Sender: TObject);

TableType Target

procedure TablasIndices1Click(Sender: TObject);

Ctrl.

procedure TablassinIndices1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure TN1Click(Sender: TObject);


function AlineaIzqda(Cadena: string;K:Integer): string;

Align to the Left filling spaces until completing length K

function Alltrim(Cadena: string): string;

# Eliminate the spaces to the left and right from a chain

procedure ChangeDataBaseName;

Get path only

function CopySort(Alias_S,Table_S,Index_S,Directory_T,Table_T :String; var Retorno :String; TableType_T : TTableType):Boolean;

# To happen the data of temporary table tmp.

function CopyTableFull(Alias_S, Table_S, Table_T: String; var Retorno :String): Boolean;


function fDbiPackTable(TblName : TTable; bRegenIdxs: Boolean; var Retorno : String): Boolean;


function fDbiRegenIndexes(TblName : TTable ; var Retorno : String): Boolean;

{Example of calling to the function} Table1.

function fDbiSortTable(SrcTbl, DestTbl: TTable; SortField: TField): longint;

This is the original function of the BDE that permits to order by a Field of table.

function GetFieldType(Tipo: TFieldType): string;

Index upon ending, True o False

function GotoRecNo(Tabla : TTable; Registro : Longint; var Retorno : String): Boolean;

raise exception if it's not a Paradox or dBASE table} // raise EDatabaseError.

procedure HandleExcepcion(Sender: TObject; E: Exception);


procedure InicioCopia;

Tipo de Tabla a copiar

function Ltrim(Cadena: string): string;

# Eliminate the spaces to the left from a string

procedure Mensaje(Escribe : String);


function Recno(ATable: TTable): Longint;


function Rtrim(Cadena: string): string;

# Eliminate the spaces to the right from a chain

function SortTable(Alias_S,Table_S,Index_S :String; var Retorno :String):Boolean;


function Space(I: Integer): string;

Insert i spaces

Properties

Events

Variables

Acercade1 : TMenuItem;


ArchivoConfiguracion : TEdit;


BasesDatos : TEdit;


BBSql : TBitBtn;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BMove1 : TBatchMove;


Buffer : TEdit;


CBAlias : TComboBox;


CBIndex : TComboBox;


CBTable : TComboBox;


CbTipoTabla : TComboBox;


CheckBox1 : TCheckBox;


Clientes : TEdit;


Compartir : TEdit;


Controladores : TEdit;


ControladorLenguaje : TEdit;


Copiar1 : TMenuItem;


Cursores : TEdit;


Database1 : TDatabase;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBGrid2 : TDBGrid;


DBNavigator1 : TDBNavigator;


DBNavigator2 : TDBNavigator;


Directory1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


DS1 : TDataSource;


DS2 : TDataSource;


Edit1 : TEdit;


Edit2 : TEdit;


EditAlias : TEdit;


EditDirectory : TEdit;


EditFic : TEdit;


EditIndex : TEdit;


EditNear : TEdit;


EditRanEnd : TEdit;


EditRanStart : TEdit;


EditRecordQuery : TEdit;


EditRegistro : TEdit;


EditRegistros : TEdit;


EditTable : TEdit;


Ejecutar1 : TMenuItem;


Empaquetar1 : TMenuItem;


Estructura1 : TMenuItem;


Exportar1 : TMenuItem;


Filtros1 : TMenuItem;


FiltroSQL1 : TMenuItem;


GroupBox1 : TGroupBox;


Heap : TEdit;


Imprimir1 : TMenuItem;


Indexar1 : TMenuItem;


IndexInfo : TComboBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


MainMenu1 : TMainMenu;


MaskEdit1 : TMaskEdit;


Memo1 : TMemo;


Memo2 : TMemo;


N1 : TMenuItem;


NombreUsuario : TEdit;


OpenDialog1 : TOpenDialog;


Ordenar1 : TMenuItem;


Panel1 : TPanel;


PrintSql : TBitBtn;


Query1 : TQuery;


Query2 : TMenuItem;


Salida1 : TMenuItem;


Salir1 : TMenuItem;


Sesiones : TEdit;


SGrid1 : TStringGrid;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


Sql1 : TMenuItem;


SQL2 : TMenuItem;


Tablaordebnada1 : TMenuItem;


TablaporunIndice1 : TMenuItem;


TablasIndices1 : TMenuItem;


TablassinIndices1 : TMenuItem;


Table1 : TTable;


Table2 : TTable;


Timer1 : TTimer;


TipoRed : TEdit;


TN1 : TTabbedNotebook;


Utilidades1 : TMenuItem;


Ver1 : TMenuItem;


Alias_S : String;


Contador : Integer;


Directory_T : String;


Index_S : String;


k : Integer;


NTablas : Integer;


Retorno : String;


TableType_T : TTableType;


Table_S : String;


Table_T : String;



Constructors


Functions


procedure Acercade1Click(Sender: TObject);


procedure BBSQLClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);

and we show it in the controls disposed in the chip for such end


procedure BitBtn2Click(Sender: TObject);

Init BDE


procedure CBAliasChange(Sender: TObject);

To launch the procedures of data update


procedure CBAliasEnter(Sender: TObject);


procedure CBAliasExit(Sender: TObject);


procedure CBAliasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CBIndexChange(Sender: TObject);

Closed BDE


procedure CBIndexEnter(Sender: TObject);


procedure CBIndexExit(Sender: TObject);


procedure CBIndexKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CBTableChange(Sender: TObject);


procedure CBTableEnter(Sender: TObject);


procedure CBTableExit(Sender: TObject);


procedure CBTableKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CbTipoTablaEnter(Sender: TObject);

# Execute the data copy ## The component TBatchMove has some Bug and not always works well. In some occasions and in the same conditions not copy nothing.


procedure CbTipoTablaExit(Sender: TObject);


procedure CbTipoTablaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure CheckBox1Click(Sender: TObject);


procedure Directory1Change(Sender: TObject);

# Config and copy the table


procedure DirectoryEnter(Sender: TObject);


procedure DirectoryExit(Sender: TObject);


procedure DS1DataChange(Sender: TObject; Field: TField);

The specified record number is greater than the number of records in the table.


procedure EditFicKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

To configure the head-board of the SQL text and tables and fields information


procedure EditNearChange(Sender: TObject);


procedure EditRanStartKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Example of applying data filters


procedure Ejecutar1Click(Sender: TObject);

Message of result


procedure Empaquetar1Click(Sender: TObject);

Index all tables


procedure Estructura1Click(Sender: TObject);


procedure Explorer1Click(Sender: TObject);


procedure Filtros1Click(Sender: TObject);

To obtain the data related to each one from the index


procedure FiltroSQL1Click(Sender: TObject);

# The function of ordering SortTable() returns 1 if has sucess and 0 if defect


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure Imprimir1Click(Sender: TObject);

Data of the Query


procedure Indexar1Click(Sender: TObject);

{Example of calling to the function} Table1.Close; Table1.Exclusive := True; Table1.Open; if not fDbiRegenIndexes(Table1, Retorno) then ShowMessage(Retorno);


procedure MaskEdit1Change(Sender: TObject);


procedure PrintSqlClick(Sender: TObject);


procedure Query2Click(Sender: TObject);


procedure RbCopiarSoloDatosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure RbCopiarTodoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure RbCopySortKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure Salir1Click(Sender: TObject);

If the query didn't return any records, there's no point in displaying the form. In that event, raise an exception.


procedure SpeedButton1Click(Sender: TObject);

Example of applying search brandish accordant we wrote text


procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure Sql1Click(Sender: TObject);


procedure Tablaordebnada1Click(Sender: TObject);

# Execute the query copy


procedure TablaporunIndice1Click(Sender: TObject);

TableType Target


procedure TablasIndices1Click(Sender: TObject);

Ctrl. Directory Target


procedure TablassinIndices1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure TN1Click(Sender: TObject);


function AlineaIzqda(Cadena: string;K:Integer): string;

Align to the Left filling spaces until completing length K


function Alltrim(Cadena: string): string;

# Eliminate the spaces to the left and right from a chain


procedure ChangeDataBaseName;

Get path only


function CopySort(Alias_S,Table_S,Index_S,Directory_T,Table_T :String; var Retorno :String; TableType_T : TTableType):Boolean;

# To happen the data of temporary table tmp.dbf-Table2 to Table1


function CopyTableFull(Alias_S, Table_S, Table_T: String; var Retorno :String): Boolean;


function fDbiPackTable(TblName : TTable; bRegenIdxs: Boolean; var Retorno : String): Boolean;


function fDbiRegenIndexes(TblName : TTable ; var Retorno : String): Boolean;

{Example of calling to the function} Table1.Close; Table1.Exclusive := True; Table1.Open; {Solo para tablas dBase. para Paradox, adaptarlo} if not fDbiPackTable(Table1, True, {Index upon ending, True o False} Retorno) then ShowMessage(Retorno);


function fDbiSortTable(SrcTbl, DestTbl: TTable; SortField: TField): longint;

This is the original function of the BDE that permits to order by a Field of table. It is included in the example, but is not used


function GetFieldType(Tipo: TFieldType): string;

Index upon ending, True o False


function GotoRecNo(Tabla : TTable; Registro : Longint; var Retorno : String): Boolean;

raise exception if it's not a Paradox or dBASE table} // raise EDatabaseError.Create('Not a Paradox or dBASE table');


procedure HandleExcepcion(Sender: TObject; E: Exception);


procedure InicioCopia;

Tipo de Tabla a copiar


function Ltrim(Cadena: string): string;

# Eliminate the spaces to the left from a string


procedure Mensaje(Escribe : String);


function Recno(ATable: TTable): Longint;


function Rtrim(Cadena: string): string;

# Eliminate the spaces to the right from a chain


function SortTable(Alias_S,Table_S,Index_S :String; var Retorno :String):Boolean;


function Space(I: Integer): string;

Insert i spaces


Properties


Events


Variables


Acercade1 : TMenuItem;


ArchivoConfiguracion : TEdit;


BasesDatos : TEdit;


BBSql : TBitBtn;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BMove1 : TBatchMove;


Buffer : TEdit;


CBAlias : TComboBox;


CBIndex : TComboBox;


CBTable : TComboBox;


CbTipoTabla : TComboBox;


CheckBox1 : TCheckBox;


Clientes : TEdit;


Compartir : TEdit;


Controladores : TEdit;


ControladorLenguaje : TEdit;


Copiar1 : TMenuItem;


Cursores : TEdit;


Database1 : TDatabase;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBGrid2 : TDBGrid;


DBNavigator1 : TDBNavigator;


DBNavigator2 : TDBNavigator;


Directory1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


DS1 : TDataSource;


DS2 : TDataSource;


Edit1 : TEdit;


Edit2 : TEdit;


EditAlias : TEdit;


EditDirectory : TEdit;


EditFic : TEdit;


EditIndex : TEdit;


EditNear : TEdit;


EditRanEnd : TEdit;


EditRanStart : TEdit;


EditRecordQuery : TEdit;


EditRegistro : TEdit;


EditRegistros : TEdit;


EditTable : TEdit;


Ejecutar1 : TMenuItem;


Empaquetar1 : TMenuItem;


Estructura1 : TMenuItem;


Exportar1 : TMenuItem;


Filtros1 : TMenuItem;


FiltroSQL1 : TMenuItem;


GroupBox1 : TGroupBox;


Heap : TEdit;


Imprimir1 : TMenuItem;


Indexar1 : TMenuItem;


IndexInfo : TComboBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


MainMenu1 : TMainMenu;


MaskEdit1 : TMaskEdit;


Memo1 : TMemo;


Memo2 : TMemo;


N1 : TMenuItem;


NombreUsuario : TEdit;


OpenDialog1 : TOpenDialog;


Ordenar1 : TMenuItem;


Panel1 : TPanel;


PrintSql : TBitBtn;


Query1 : TQuery;


Query2 : TMenuItem;


Salida1 : TMenuItem;


Salir1 : TMenuItem;


Sesiones : TEdit;


SGrid1 : TStringGrid;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


Sql1 : TMenuItem;


SQL2 : TMenuItem;


Tablaordebnada1 : TMenuItem;


TablaporunIndice1 : TMenuItem;


TablasIndices1 : TMenuItem;


TablassinIndices1 : TMenuItem;


Table1 : TTable;


Table2 : TTable;


Timer1 : TTimer;


TipoRed : TEdit;


TN1 : TTabbedNotebook;


Utilidades1 : TMenuItem;


Ver1 : TMenuItem;


Alias_S : String;


Contador : Integer;


Directory_T : String;


Index_S : String;


k : Integer;


NTablas : Integer;


Retorno : String;


TableType_T : TTableType;


Table_S : String;


Table_T : String;