Class TCopia_Dbf (unit cp_s20en) |
Inherits from
TForm
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
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;
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
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;