Buscar unidad Tutorial videoclub

buscarunidad

unit UBuscarUnidad;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Buttons, DB,
  IBCustomDataSet, IBQuery;

type
  TFBuscarUnidad = class(TForm)
    DataSource1: TDataSource;
    Panel4: TPanel;
    Panel1: TPanel;
    Panel3: TPanel;
    DBNavigator1: TDBNavigator;
    DBImage1: TDBImage;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    SBSalir: TSpeedButton;
    sbbuscar: TSpeedButton;
    sblimpiar: TSpeedButton;
    RGBus: TRadioGroup;
    Panel5: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Panel6: TPanel;
    Panel7: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    IBQUnidades: TIBQuery;
    procedure Image1Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure sblimpiarClick(Sender: TObject);
    procedure sbbuscarClick(Sender: TObject);
    procedure SBSalirClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RGBusClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure comprobar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FBuscarUnidad: TFBuscarUnidad;

implementation

{$R *.dfm}

uses UDM, Funciones;

procedure TFBuscarUnidad.comprobar;
//------------------------------------------------------------------------------
//************************************************************[ comprobar ]*****
//------------------------------------------------------------------------------
begin
   if FBuscarUnidad.Active then
   begin
      if not (DataSource1.DataSet.State in [dsEdit,dsInsert]) then
      begin
         if not ((DM.IBDUnidades.IsEmpty) or (IBQUnidades.Active=false )) then
         begin
            if DataSource1.DataSet.FieldByName('NOTAS').Value<>'' then Memo1.Lines.Text:=DataSource1.DataSet.FieldByName('NOTAS').AsString
                                                                  else Memo1.Lines.Clear;
         end;
      end;
   end;
end;

procedure TFBuscarUnidad.DataSource1DataChange(Sender: TObject; Field: TField);
//------------------------------------------------------------------------------
//******************************************************[ Cambia de datos ]*****
//------------------------------------------------------------------------------
begin
   comprobar;
end;

procedure TFBuscarUnidad.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
//------------------------------------------------------------------------------
//********************************[ Color según estado en nuestra rejilla ]*****
//------------------------------------------------------------------------------
var varbdispo:Boolean;
begin

    if ((DataSource1.DataSet.FieldByName('DISPONIBLE').Value='S') and
       (DataSource1.DataSet.FieldByName('VENDIDA').Value='N') and
       (DataSource1.DataSet.FieldByName('PERDIDA').Value='N')) then dbgrid1.Canvas.Brush.Color:=StringToColor(DM.IBDConfiguracionCOLOR_DISPONIBLE.value)
    else begin
       varbdispo:=True;
       if (DataSource1.DataSet.FieldByName('VENDIDA').Value='S') then
       begin
          dbgrid1.Canvas.Brush.Color:=StringToColor(DM.IBDConfiguracionCOLOR_BLOQUEADA.value);
          varbdispo:=False;
       end;
       if (DataSource1.DataSet.FieldByName('PERDIDA').Value='S') then
       begin
          dbgrid1.Canvas.Brush.Color:=StringToColor(DM.IBDConfiguracionCOLOR_BLOQUEADA.value);
          varbdispo:=False;
       end;
       if varbdispo then dbgrid1.Canvas.Brush.Color:=StringToColor(DM.IBDConfiguracionCOLOR_NO_DISPONIBLE.value);
    end;
    dbgrid1.Canvas.FillRect(Rect);
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


procedure TFBuscarUnidad.FormActivate(Sender: TObject);
//------------------------------------------------------------------------------
//**********************************************************[ On Activate ]*****
//------------------------------------------------------------------------------
begin
    comprobar;
    case RGBus.ItemIndex of
      0:Label1.Caption:='Título';
      1:Label1.Caption:='Código';
      2:Label1.Caption:='Código de barras';
    end;
end;

procedure TFBuscarUnidad.Image1Click(Sender: TObject);
//------------------------------------------------------------------------------
//************************************************************[ Subir uno ]*****
//------------------------------------------------------------------------------
begin
   DataSource2.DataSet.Prior;
end;

procedure TFBuscarUnidad.Image2Click(Sender: TObject);
//------------------------------------------------------------------------------
//************************************************************[ Bajar uno ]*****
//------------------------------------------------------------------------------
begin
   DataSource3.DataSet.next;
end;

procedure TFBuscarUnidad.Image3Click(Sender: TObject);
//------------------------------------------------------------------------------
//************************************************************[ Subir uno ]*****
//------------------------------------------------------------------------------
begin
   DataSource3.DataSet.Prior;
end;

procedure TFBuscarUnidad.Image4Click(Sender: TObject);
//------------------------------------------------------------------------------
//************************************************************[ Bajar uno ]*****
//------------------------------------------------------------------------------
begin
   DataSource2.DataSet.next;
end;

procedure TFBuscarUnidad.RGBusClick(Sender: TObject);
//------------------------------------------------------------------------------
//**************************************************************[ OnClick ]*****
// Si cambiamos el modo de búsqueda
//------------------------------------------------------------------------------
begin
    case RGBus.ItemIndex of
      0:Label1.Caption:='Título';
      1:Label1.Caption:='Código';
      2:Label1.Caption:='Código de barras';
    end;
end;

procedure TFBuscarUnidad.sbbuscarClick(Sender: TObject);
//------------------------------------------------------------------------------
//***********************************************************[ buscar por ]*****
//------------------------------------------------------------------------------
begin
   case RGBus.ItemIndex of
      0:ActQuery(IBQUnidades,'select * from UNIDADES WHERE UNIDADES.TITULO LIKE '+QuotedStr('%'+Edit1.Text+'%'));
      1:ActQuery(IBQUnidades,'select * from UNIDADES WHERE UNIDADES.CODIGO LIKE '+QuotedStr('%'+Edit1.Text+'%'));
      2:ActQuery(IBQUnidades,'select * from UNIDADES WHERE UNIDADES.CODIGO_BARRAS LIKE '+QuotedStr('%'+Edit1.Text+'%'));
   end;
end;

procedure TFBuscarUnidad.sblimpiarClick(Sender: TObject);
begin
  Edit1.Text:='';
  sbbuscarClick(Sender);
end;


procedure TFBuscarUnidad.SBSalirClick(Sender: TObject);
//------------------------------------------------------------------------------
//**************************************************************[ SBSalir ]*****
//------------------------------------------------------------------------------
begin
  varSBusqueda:=IntToStr(DataSource1.DataSet.FieldByName('ID').Value);
  IBQUnidades.Active:=False;
  Edit1.Text:='';
  Close;
end;

end.