unit UCatalogos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, Mask,
  DB, ADODB, Buttons, DBGrids;

type
  TFCatalogos = class(TForm)
    Tcomodin: TADOTable;
    DSComodin: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    LCBAreas: TDBLookupComboBox;
    TAreas: TADOTable;
    DSAreas: TDataSource;
    DBMemo1: TDBMemo;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FCatalogos: TFCatalogos;

implementation

uses Udm, Uconexion;

{$R *.dfm}

procedure TFCatalogos.FormCreate(Sender: TObject);
begin
InitButtons(DBNavigator1, 'Arial')
end;

procedure TFCatalogos.BitBtn1Click(Sender: TObject);
begin
close
end;

end.
