unit Comovinv;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls,checa, Grids,
  DBGrids, Buttons,Apertura;

type
  TFormacomovinv = class(TForm)
    ScrollBox: TScrollBox;
    Navegador: TDBNavigator;
    Panel1: TPanel;
    Fuentetablacomovinv: TDataSource;
    Panel2: TPanel;
    Tablacomovinv: TTable;
    Bevel1: TBevel;
    uno: TLabel;
    dos: TLabel;
    Detalle: TDBGrid;
    Shape1: TShape;
    Panel3: TPanel;
    Bevel20: TBevel;
    Bevel21: TBevel;
    Bevel22: TBevel;
    Panel4: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    BotonNuevo: TSpeedButton;
    BotonGuardar: TSpeedButton;
    BotonEliminar: TSpeedButton;
    BotonSalir: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BotonNuevoClick(Sender: TObject);
    procedure BotonGuardarClick(Sender: TObject);
    procedure BotonEliminarClick(Sender: TObject);
    procedure BotonSalirClick(Sender: TObject);
    procedure DetalleKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Formacomovinv: TFormacomovinv;

implementation

{$R *.DFM}
{function ruta(linea:integer):String;
var
arch:TextFile;
aux:string;
i:integer;

begin
AssignFile(arch,leeempresa);
Reset(arch);
for i:=1 to linea do
Readln(arch,aux);
CloseFile(arch);
ruta:=aux;

end;}

procedure rutas;
var
  I: Integer;
begin

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

end;




procedure TFormacomovinv.FormCreate(Sender: TObject);
begin
  {rutas;
  Tablacomovinv.Open;}
end;

procedure TFormacomovinv.FormActivate(Sender: TObject);
begin
if FormaComovinv.Tag=0 then
begin
rutas;
end;
FormaComovinv.Tag:=1;
Detalle.SetFocus;
end;



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

procedure TFormacomovinv.Panel3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Formacomovinv.Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TFormacomovinv.Label6MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Formacomovinv.Handle, WM_SYSCOMMAND, $F012, 0);
end;




procedure TFormacomovinv.BotonNuevoClick(Sender: TObject);
begin
Tablacomovinv.Insert;
end;

procedure TFormacomovinv.BotonGuardarClick(Sender: TObject);
begin
Tablacomovinv.Post;
end;

procedure TFormacomovinv.BotonEliminarClick(Sender: TObject);
begin
Tablacomovinv.Delete;
end;

procedure TFormacomovinv.BotonSalirClick(Sender: TObject);
begin
Close;
end;

procedure TFormacomovinv.DetalleKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=13 then
begin
if Detalle.SelectedIndex=2 then
Detalle.SelectedIndex:=0
else
Detalle.SelectedIndex:=Detalle.SelectedIndex+1;
end;
end;

end.