DBGrid en blanco después de consulta SQL.

[DarkByte]

Por si ayuda...

Código Delphi [-]
procedure TfrmVenta.GrabarVenta(Clienta, Vendedora, Modelo, Fecha, Cantidad, Regalo:string);
begin
  dm.Ventas.Open;
  If Editar Then dm.Ventas.Edit;
  If not Editar Then dm.Ventas.Insert;
  dm.VentasClienta.Value := Clienta;
  dm.VentasVendedora.Value := Vendedora;
  dm.VentasModelo.Value := Modelo;
  dm.VentasFecha.Value := Fecha;
  dm.VentasCantidad.Value := Cantidad;
  dm.VentasRegalo.Value := Regalo;
  dm.Ventas.Post;
  dm.Ventas.Refresh;
end;

[vtdeleon]

Saludos

Código Delphi [-]
procedure TfrmVenta.GrabarVenta(Clienta, Vendedora, Modelo, Fecha, Cantidad, Regalo:string);
begin
with db do begin
  Ventas.Open;
  If Editar Then 
    Ventas.Edit
  else 
    Ventas.Insert;
...
...
...

Qué tal.???

[DarkByte]

¿Cúal es la diferencia? Esa es una manera diferente de poner el código que escribe las miasmas lineas... lo que necesito es saber qué cambio puede conseguir que no se me quede en blanco.. no otras maneras diferentes de presentar el código.

Muchas gracias

[vtdeleon]

Saludos

¿Cúal es la diferencia? Esa es una manera diferente de poner el código que escribe las miasmas lineas...

Creo que la diferencia es clara.
La tuya evalua "Editar" dos veces, mientras la mía solo una vez.

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.

Código Delphi [-]
rocedure TfrmDatosClienta.Consultar();
  begin
    dm.VentasSQL.Close;
    dm.VentasSQL.SQL.Clear;
    dm.VentasSQL.SQL.Text := 'SELECT Cantidad, Fecha, Vendedora FROM Ventas WHERE Clienta=:enombre'
    dm.VentasSql.ParamByName('enombre').AsString:=eNombre.Text;

No estoy seguro si es String o Integer el dato, pero ahí va
SUerte

[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.