unit FDLGAREASAUX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBCtrls;

type
  TDLGAREASAUX = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    bcancelar: TBitBtn;
    bok: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
   private
    { Private declarations }
    function GetCodigo:string;
    procedure SetCodigo(cod:string);
  public
    { Public declarations }
    CERRARDATASET:BOOLEAN;
    property codigo:string read GetCodigo write SetCodigo;
  end;

var
  DLGAREASAUX: TDLGAREASAUX;

implementation

uses UDm;

{$R *.DFM}

function TDLGAREASAUX.Getcodigo:string;
begin
//    result:=dm.AREASid_area.asstring;
    result:=dmst.cdsq_fdlgareasAUXid_area.asstring;
end;

procedure TDLGAREASAUX.Setcodigo(cod:string);
begin
{    if cod='' then dm.AREAS.first
              else dm.AREAS.locate('id_area',cod,[locaseinsensitive]);
}
//Implements a virtual method for searching a dataset for a specified record and making it the active record.

{   if cod='' then dm3.cdsAREAS.first
               else dm3.cdsAREAS.locate('id_area',cod,[locaseinsensitive]);
//loCaseInsensitive	Key fields and key values are matched without regard to case.
}
 end;


procedure TDLGAREASAUX.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var x:string;
begin
{    x:=key;
//    dm.areas.locate('id_area',x,[locaseinsensitive,lopartialkey]);
    dm3.cdsareas.locate('id_area',x,[locaseinsensitive,lopartialkey]);
    key:=#0;
}
end;

////************************************************************/////
procedure TDLGAREASAUX.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
 if dmst.cdsq_fdlgareasAUX.Eof then
 try // para evitar el error de memoria bloqueada en el server.
     dmst.cdsq_fdlgareasAUX.GetNextPacket;
 except
 end;
end;

procedure TDLGAREASAUX.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 if dmst.cdsq_fdlgareasAUX.Eof then
 try // para evitar el error de memoria bloqueada en el server.
     dmst.cdsq_fdlgareasAUX.GetNextPacket;
 except
 end;
end;
procedure TDLGAREASAUX.DBGrid1DblClick(Sender: TObject);
begin
    bok.click;
end;

procedure TDLGAREASAUX.FormShow(Sender: TObject);
begin
   dbgrid1.setfocus;
end;
procedure TDLGAREASAUX.FormCreate(Sender: TObject);
begin
 IF NOT dmst.cdsq_fdlgareasAUX.Active THEN
     dmst.cdsq_fdlgareasAUX.OPEN;
 datasource1.DataSet := dmst.cdsq_fdlgareasAUX;
 cerrardataset := true;
end;

procedure TDLGAREASAUX.FormDestroy(Sender: TObject);
begin
 datasource1.DataSet := nil;
 if cerrardataset then
   dmst.cdsq_fdlgareasAUX.close;
end;

end.