DBGrid en blanco después de consulta SQL.

[DarkByte]

Empezado por vtdeleon

Con respecto a tu duda, te aseguraste de que te devuelve algún resultado (por otro medio que no sea DBGRID). Puede ser que la consulta que realizas no devuelva registro alguno.

5 posts más arriba comento que hago una consulta nada más cargar el form, la cual si me devuelve datos. El problema está después de editar o dar de alta un dato, ya que entonces me deja de mostrar datos por más veces que llame al procedure Consultar.

[[Lepe]]

Tengo varias dudas, a ver que tal suenan.

dmVentas está asociado en diseño con el grid ¿no? ya que dices que al cargar el form, te da resultados, entonces, ¿para qué cambias el DBGrid.Datasource en el procedimiento consultar? deberías quitar esa linea si el datasource es el mismo siempre.

Si insistes en dejar la linea esa, prueba esto:

Código Delphi [-]
procedure TfrmDatosClienta.Consultar();
  begin
    dm.VentasSQL.Close; 
//    dm.VentasSQL.SQL.Clear;
// No hace falta la linea anterior, ya que escribir sobre SQL.TEXT borra lo 
// que haya en el TStrings de SQL
    dm.VentasSQL.SQL.Text := 'SELECT Cantidad, Fecha, Vendedora FROM Ventas WHERE Clienta='+QuotedStr(eNombre.Text);
    dm.VentasSQL.Open;
    DBGrid1.DataSource := dm.DVentasSQL;
  
    DBGrid1.Columns.Rebuildcolumns;
    // al cambiar el datasource, hacemos que recupere, del nuevo 
   // datasource, la definición de columnas que se ha de mostrar.

    DBGrid1.Columns.Items[0].Width := 50;
    DBGrid1.Columns.Items[1].Width := 100;
    DBGrid1.Columns.Items[2].Width := 150;

Por otra parte, no veo la relación entre GrabarVentas y Consultar, es decir, ¿desde donde llamas a grabarVentas? y ¿qué código usas? ... haber si tienes un DisableControls que despues no tiene su par EnableControls....

Dicho de otra forma, el problema lo tienes en el código que no nos muestras.



saludos

[DarkByte]

Código Delphi [-]
unit uDatosClienta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, Grids, DBGrids;

type
  TfrmDatosClienta = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    TabSheet5: TTabSheet;
    Label7: TLabel;
    mmRegalos: TMemo;
    Label8: TLabel;
    Label9: TLabel;
    mmObservaciones: TMemo;
    SpeedButton1: TSpeedButton;
    mmNotas: TMemo;
    Label10: TLabel;
    eNombre: TEdit;
    eDomicilio: TEdit;
    eProvincia: TEdit;
    eTelefono: TEdit;
    eMovil: TEdit;
    eEmail: TEdit;
    eVendedora: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    TabSheet2: TTabSheet;
    Label11: TLabel;
    eDe: TEdit;
    btBuscar: TButton;
    cbIndependiente: TCheckBox;
    Label12: TLabel;
    eOficina: TEdit;
    Label13: TLabel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure ModoEditar(Activo:boolean);
    function Comprobar:boolean;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure GrabarClienta(Nombre, De, Telefono, Movil, Oficina, Email, Domicilio,
      Provincia, Vendedora, Regalos, Observaciones, Notas:string);
    procedure btBuscarClick(Sender: TObject);
    procedure cbIndependienteClick(Sender: TObject);
    procedure eTelefonoKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Consultar();
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDatosClienta: TfrmDatosClienta;

implementation

uses uClientas, uDataModule, uInfoClienta, uInfoVendedora, uPrincipal,
  uPro, uVendedoras, uBusquedaVendedora, uDatosVendedora, uBusquedaClienta,
  uVenta, uSeleccionarFecha;

var
  Editar:boolean;

{$R *.dfm}

procedure TfrmDatosClienta.ModoEditar(Activo:boolean);
begin
  Editar := False;
  If Activo = True Then
  begin
    Editar := True;
    Self.Caption := 'Edición de Clienta';
    eNombre.Text := dm.ClientasNombre.Value;
    eDomicilio.Text := dm.ClientasDomicilio.Value;
    eProvincia.Text := dm.ClientasProvincia.Value;
    eTelefono.Text := dm.ClientasTelefono.Value;
    eMovil.Text := dm.ClientasMovil.Value;
    eEmail.Text := dm.ClientasEmail.Value;
    eDe.Text := dm.ClientasDe.Value;
    If eDe.Text = '(independiente)' Then
    begin
      cbIndependiente.Checked := True;
      btBuscar.Enabled := False;
    end;
    eVendedora.Text := dm.ClientasVendedora.Value;
    mmRegalos.Text := dm.ClientasRegalos.Value;
    mmObservaciones.Text := dm.ClientasObservaciones.Value;
    mmNotas.Text := dm.ClientasNotas.Value;
  end;
end;
function TfrmDatosClienta.Comprobar:boolean;
var
  Mensaje:string;
begin
  Result := True;
  Mensaje := '';
  If eNombre.Text = '' Then Mensaje := 'nombre';
  If eDomicilio.Text = '' Then Mensaje := 'domicilio';
  If eProvincia.Text = '' Then Mensaje := 'provincia';
  If eTelefono.Text = '' Then Mensaje := 'telefono';
  If eVendedora.Text = '' Then Mensaje := 'clienta de...';
  If Mensaje <> '' Then
  begin
    Aviso('Falta por rellenar el campo '+Mensaje);
    Result := False;
  end;
end;
procedure TfrmDatosClienta.SpeedButton1Click(Sender: TObject);
begin
  If Preguntar('¿Realmente desea salir sin guardar los datos?') = True Then
    Close;
end;

procedure TfrmDatosClienta.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmDatosClienta.GrabarClienta(Nombre, De, Telefono, Movil, Oficina, Email, Domicilio,
  Provincia, Vendedora, Regalos, Observaciones, Notas:string);
begin
  //Buuuh!!
  dm.Clientas.Open;
  If not Editar Then dm.Clientas.Insert
  Else dm.Clientas.Edit;
  dm.ClientasNombre.Value         := Nombre;
  dm.ClientasDe.Value             := De; // ¡¡¡IMPLEMENTAR!!!
  dm.ClientasTelefono.Value       := Telefono;
  dm.ClientasMovil.Value          := Movil;
  dm.ClientasOficina.Value        := Oficina; // ¡¡¡IMPLEMENTAR!!!
  dm.ClientasEmail.Value          := Email;
  dm.ClientasDomicilio.Value      := Domicilio;
  dm.ClientasProvincia.Value      := Provincia;
  dm.ClientasVendedora.Value      := Vendedora;
  dm.ClientasRegalos.Value        := Regalos;
  dm.ClientasObservaciones.Value  := Observaciones;
  dm.ClientasNotas.Value          := Notas;
  dm.Clientas.Post;
  dm.Clientas.Refresh;
end;

procedure TfrmDatosClienta.SpeedButton3Click(Sender: TObject);
begin
  {*
   * Proceso de inserción de Datos
   *}
  If not Comprobar Then Abort;
  GrabarClienta(eNombre.Text, eDe.Text, eTelefono.Text,
    eMovil.Text, eOficina.Text, eEmail.Text, eDomicilio.Text, eProvincia.Text,
    eVendedora.Text, mmRegalos.Text, mmObservaciones.Text, mmNotas.Text);
  uPro.Mensaje('Operación realizada con éxito.');
  Close;
end;

procedure TfrmDatosClienta.SpeedButton2Click(Sender: TObject);
var
  frmBusquedaVendedora: TFrmBusquedaVendedora;
begin
  frmBusquedaVendedora := TfrmBusquedaVendedora.Create(nil);
  try
    If Editar Then frmBusquedaVendedora.nombre := eVendedora.Text;
    frmBusquedaVendedora.ShowModal;
    eVendedora.Text := frmBusquedaVendedora.Nombre;
  finally
    FreeAndNil(frmBusquedaVendedora);
  end;
end;

procedure TfrmDatosClienta.btBuscarClick(Sender: TObject);
var
  frmBusquedaClienta: TfrmBusquedaClienta;
begin
  frmBusquedaClienta := TfrmBusquedaClienta.Create(nil);
  try
    If Editar Then frmBusquedaClienta.nombre := eDe.Text;
    frmBusquedaClienta.ShowModal;
    eDe.Text := frmBusquedaClienta.Nombre;
  finally
    FreeAndNil(frmBusquedaClienta);
  end;
end;

procedure TfrmDatosClienta.cbIndependienteClick(Sender: TObject);
begin
  If cbIndependiente.Checked Then
  begin
    eDe.Text := '(independiente)';
    btBuscar.Enabled := False;
  end
  Else
  begin
    eDe.Text := '';
    btBuscar.Enabled := True;
  end;
end;

procedure TfrmDatosClienta.eTelefonoKeyPress(Sender: TObject;
  var Key: Char);
var 
   editor : TEdit;
begin
     editor := Sender As TEdit;
     if (key <> Char(VK_BACK)) then
        try
           StrToFloat(Editor.Text+Key+'0');
        except
              Key := #0
        end;

end;

procedure TfrmDatosClienta.Button1Click(Sender: TObject);
var
  frmVenta : TFrmVenta;
begin
  frmVenta := TFrmVenta.Create(Self);
  frmVenta.ModoEditar(False, '','','','');
  frmVenta.ShowModal;
  Consultar;
end;

procedure TfrmDatosClienta.Button2Click(Sender: TObject);
var
  frmVenta : TFrmVenta;
begin
  frmVenta := TFrmVenta.Create(Self);
  frmVenta.ModoEditar(True, dm.VentasVendedora.Value, dm.VentasModelo.Value, dm.VentasFecha.Value,dm.VentasCantidad.Value);
  frmVenta.ShowModal;
  Consultar;
end;

procedure TfrmDatosClienta.Button3Click(Sender: TObject);
begin
  If (Preguntar('¿Realmente desea borrar este registro?') = True) and (DBGrid1.SelectedRows.Count <> 0)  Then
    dm.Ventas.Delete;
  Consultar;
end;

procedure TfrmDatosClienta.Consultar();
begin
{  dm.VentasSQL.Close;
  dm.VentasSQL.SQL.Clear;
  dm.VentasSQL.SQL.Text := 'SELECT Cantidad, Fecha, Vendedora FROM Ventas WHERE Clienta='+QuotedStr(eNombre.Text);
  dm.VentasSQL.Active := True;
  dm.DVentasSQL.Enabled := True;
  DBGrid1.DataSource := dm.DVentasSQL;
  DBGrid1.Columns.Items[0].Width := 50;
  DBGrid1.Columns.Items[1].Width := 100;
  DBGrid1.Columns.Items[2].Width := 150;}
    dm.VentasSQL.Close;
    dm.VentasSQL.SQL.Text := 'SELECT Cantidad, Fecha, Vendedora FROM Ventas WHERE Clienta='+QuotedStr(eNombre.Text);
    dm.VentasSQL.Open;
    DBGrid1.DataSource := dm.DVentasSQL;
  
    DBGrid1.Columns.Rebuildcolumns;
    DBGrid1.Columns.Items[0].Width := 50;
    DBGrid1.Columns.Items[1].Width := 100;
    DBGrid1.Columns.Items[2].Width := 150;
end;

procedure TfrmDatosClienta.FormCreate(Sender: TObject);
begin
  Consultar;
end;

end.

[[Lepe]]

Código Delphi [-]
procedure TfrmDatosClienta.SpeedButton3Click(Sender: TObject);
begin
  {*
   * Proceso de inserción de Datos
   *}
  If not Comprobar Then Abort;
  GrabarClienta(eNombre.Text, eDe.Text, eTelefono.Text,
    eMovil.Text, eOficina.Text, eEmail.Text, eDomicilio.Text, eProvincia.Text,
    eVendedora.Text, mmRegalos.Text, mmObservaciones.Text, mmNotas.Text);
  uPro.Mensaje('Operación realizada con éxito.');
  Close;
end;

¿Despues de insertar se cierra la ventana? Pues me dejas croki, porque eso lo deberías detectar la primera vez que das de alta una clienta ... a menos que desde otra ventana vuelvas a llamar a esta ventana... cosa que lia bastante.

Lo cierto es que, en lugar de hacer un Close, se debería llamar a Consultar.

saludos

[DarkByte]

El consultar lo hago en el otro form.

Desde el primer form llamo al segundo, para añadir la venta.

Lo llamo en ShowModal, de forma que no avanza en el código hasta que no cierra la ventana, y cuando la cierra, hago el consultar. En el OnClose del form segundo (Ventas) tengo puesto el caFree para liberarlo.

[[Lepe]]

Este tipo de error es imposible detectarlo en un foro, es un caso claro de F8 y puntos de ruptura.

Cuando llamas a frmVentas le pasas un parámetro booleano y despues.... sabe dios que es dm.VentasVendedora.Value, si ese dato no coincide con eNombre.text, entonces jamás aparecerá nada en Consultar.

Por otra parte, tampoco queda claro eso de Consultar lo llames desde otro form, ya que Consultar pertenece a este form (TfrmDatosclienta), y si el valor que tiene eNombre.text ha cambiado, tampoco encontrará nada.

Verifica que en todos los formularios y llamadas, al cerrar la ventana en cuestión, se tenga en eNombre.text el valor que se acaba de insertar, modificar o lo que sea. No digamos si pulsas el Button3, porque a partir de ahí ya se complica más, (no se puede saber si habrá resultados o no), al menos yo, desde mi sillón no puedo saberlo.

saludos

[DarkByte]

Me dejaís alguno algún lugar para subir las fuentes? No uso ningún componente de terceros..