unit rescxc;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls,
  checa;

type
  TFormaResumen = class(TForm)
    Table1NUFAC_CC: TFloatField;
    Table1STATU_CC: TStringField;
    Table1CLCLI_CC: TStringField;
    Table1NUREF_CC: TFloatField;
    Table1FEAPL_CC: TDateField;
    Table1FEVEN_CC: TDateField;
    Table1IMCUE_CC: TFloatField;
    DBGrid1: TDBGrid;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Table1: TTable;
    Shape1: TShape;
    Panel3: TPanel;
    Bevel20: TBevel;
    Bevel21: TBevel;
    Bevel22: TBevel;
    Panel4: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormaResumen: TFormaResumen;

implementation

{$R *.DFM}

{function ruta(linea:integer):String;
var
arch:TextFile;
aux:string;
i:integer;

begin
AssignFile(arch,'c:\Proyecto\Sistema\General.cnf');
Reset(arch);
for i:=1 to linea do
Readln(arch,aux);
CloseFile(arch);
ruta:=aux;

end;}

procedure rutas;
var
  j: Integer;
begin

with FormaResumen do
begin
  for j := 0 to ComponentCount -1 do
    begin
     if Components[j] is TTable  then
       begin
       TTable(Components[j]).DatabaseName:=ruta(8);
       TTable(Components[j]).Open;
       end;
    end;
end;

end;


procedure TFormaResumen.FormCreate(Sender: TObject);
begin
  {rutas;
  Table1.Open;}
end;

procedure TFormaResumen.FormActivate(Sender: TObject);
begin
if FormaResumen.Tag=0 then
rutas;
end;



procedure TFormaResumen.Panel4Click(Sender: TObject);
begin
Close;
end;

end.