unit utileria;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  StdCtrls,DB,DBTables, Buttons, ExtCtrls,Dialogos;

type
  TFormaUtilerias = class(TForm)
    Lista: TListBox;
    BitBtn1: TBitBtn;
    TablaAuxiliar: TTable;
    Timer1: TTimer;
    BotonCrear: TSpeedButton;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BotonCrearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaUtilerias: TFormaUtilerias;

implementation

{$R *.DFM}

procedure TFormaUtilerias.FormActivate(Sender: TObject);
begin

  Lista.Clear;
  Session.GetTableNames('c:\proyecto\',
    '', True, False, Lista.Items);

end;

procedure TFormaUtilerias.BitBtn1Click(Sender: TObject);
var i:integer;
begin
timer1.Enabled:=True;

for i:=0 to Lista.Items.Count-1 do

begin

MuestraMensaje('indexando la tabla  '+Lista.Items[i]);
TablaAuxiliar.DataBaseName:='c:\sif2000\datos';
TablaAuxiliar.TableName:=Lista.Items[i];

TablaAuxiliar.IndexDefs.Update;

TablaAuxiliar.DeleteIndex(TablaAuxiliar.IndexDefs.Items[0].Name);

TablaAuxiliar.AddIndex('iiro', 'Clpro_i', [ixUnique]);


{Table1.IndexDefs.Create(Table1);
Table1.IndexDefs.Create(TDataSource.DataSet;'mindice'; Fields: string; ixUnique);
Table1.IndexDefs.Create}
end;

end;


procedure TFormaUtilerias.BotonCrearClick(Sender: TObject);
var
fuente,destino:PChar;
f:longbool;
begin
CopyFile('c:\proyecto\cliente.dbf','c:\respaldo\cliente.dbf',F);
CopyFile('c:\proyecto\comovinv.dbf','c:\respaldo\comovinv.dbf',F);
CopyFile('c:\proyecto\comprasd.dbf','c:\respaldo\comprasd.dbf',F);
CopyFile('c:\proyecto\comprase.dbf','c:\respaldo\comprase.dbf',F);
CopyFile('c:\proyecto\concepto.dbf','c:\respaldo\concepto.dbf',F);
CopyFile('c:\proyecto\conclie.dbf','c:\respaldo\conclie.dbf',F);
CopyFile('c:\proyecto\cuepagar.dbf','c:\respaldo\cuepagar.dbf',F);
CopyFile('c:\proyecto\facturad.dbf','c:\respaldo\facturad.dbf',F);

CopyFile('c:\proyecto\facturae.dbf','c:\respaldo\facturae.dbf',F);
CopyFile('c:\proyecto\inventar.dbf','c:\respaldo\inventar.dbf',F);
CopyFile('c:\proyecto\movinven.dbf','c:\respaldo\movinven.dbf',F);
CopyFile('c:\proyecto\multialm.dbf','c:\respaldo\multialm.dbf',F);
CopyFile('c:\proyecto\numserie.dbf','c:\respaldo\numserie.dbf',F);
CopyFile('c:\proyecto\poventas.dbf','c:\respaldo\poventas.dbf',F);
CopyFile('c:\proyecto\proveedo.dbf','c:\respaldo\proveedo.dbf',F);
CopyFile('c:\proyecto\vendedor.dbf','c:\respaldo\vendedor.dbf',F);

CopyFile('c:\proyecto\deta.db','c:\respaldo\deta.db',F);
CopyFile('c:\proyecto\detaminv.db','c:\respaldo\detaminv.db',F);
CopyFile('c:\proyecto\detacomp.db','c:\respaldo\detacomp.db',F);

TablaAuxiliar.DataBaseName:='c:\respaldo\';
TablaAuxiliar.TableName:='cliente.dbf';

TablaAuxiliar.IndexDefs.Update;

{TablaAuxiliar.DeleteIndex(TablaAuxiliar.IndexDefs.Items[0].Name);}

TablaAuxiliar.AddIndex('Clcli_c', 'Clcli_c', [ixUnique]);
end;

end.