9 replies to this topic

[Ayla]

Hola a todos!

Trabajo con delphi 7 y con Firebird.

Tengo un DBGrid donde visualizo, añado y modifico datos.  Tengo un campo cantidad (entero),  quiero limitar la longitud a 6 caracteres.  Lo tengo controlado con una excepción pero esta no es la manera que más me gusta 

En el Onvalidate de campo cantidad tengo lo siguiente :

delphi

procedure TfMantenimiento.IBLCANValidate(Sender: TField);
begin
  if Sender.AsFloat > 999999 then
    Raise Exception.Create('La cantidad no puede ser mayor de 999.999');
end;

No sé si se puede pero me gustaría que basicamente funcionara como undbedit al que en su propiedad le ponemos, por ejemplo, el MaxLength = 6 y ya no te deja digitar más de 6 carácteres.

¿Existe algúna manera de implementarlo para un dbgrid? o mejor me olvido y lo dejo tal cual 

Muchas gracias. Un saludo!

[Delphius]

Hola Ayla,
Hace tiempo que no se te veía por aquí.

No se si habría posibilidad de llevar un MaxLength a un DBGrid, se podría quizá diseñar una clase que cuente con esta posibilidad o quizá ver si ya alguno de los DBGrids de terceros ya cuento con eso.

Quizá por ser un DBGrid y sabiendo que se escribe demasiado y está pensado para ir moviendose con mucha fluidez, yo en vez de arrojar la excepción para mostrar al usuario un cartelote dispondría un diseño menos "agresivo". ¿Porqué no por ejemplo que existe un panel de aviso y allí presentar el error? Si el usuario debe ingresar cada dos por tres y recibe en cada intento ese cartel, se espantaría y seria un poco incómodo.
Como extra, o añadido, alteraría el valor ingresado por el mayor número posible aceptado.

Saludos,

[Sergio]

Yo probaría a crear una variable a nivel del form del tipo string, OldValue por ejemplo, luego almacenas el valor inicial del campo al entrar al editar el record, OnScroll del DataSet haces OldValue:= FloatToStr(MiCampo.AsFloat), y finalmente, en el evento OnKeyPress del TDBEdit del campo (el OnValidate no salta con cada pulsación de la tecla), si el valor nuevo excede tu límite, lo igualo al valor incial, y si no lo supera, actualizas el valor incial al nuevo para dejarlo preparado para la siguiente:

delphi

procedure TfMantenimiento.MiDBEditOnKeyPress(Sender: TComponent);
begin
  if StrToFloat(DBEdit.Text) > 999999 then
    DBEdit.Text:= OldValue
  else
    OldValue:= DBEdit.Text;
end;

Lo escribo de memoria, igual toca cambiar algo para que funcione 

...aunque pensándolo mejor, tú querías limitar por número de caracteres, no por un valor numérico:

delphi

procedure TfMantenimiento.MiDBEditOnKeyPress(Sender: TComponent);
begin
  if Length(DBEdit.Text) > 6 then
    DBEdit.Text:= OldValue
  else
    OldValue:= DBEdit.Text;
end;

[Wilson]

1. Agrega un DBEdit  a tu form y coloca su propiedad visible a false y su propiedad MaxLength a 6 o lo que desees. Además de enlazarlo con el DataSource y con el campo como corresponda. No importa el tamaño ni el lugar en donde lo pongas, pues este nunca se verá por fuera del DBGrid.

2. Intercepta el evento OnDrawColumnCell del DbGrid y coloca este código:

delphi

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = DBEdit1.DataField) then
    with DBEdit1 do
    begin
      Left := Rect.Left + DBGrid1.Left + 2;
      Top := Rect.Top + DBGrid1.Top + 2;
      Width := Rect.Right - Rect.Left;
      Height := Rect.Bottom - Rect.Top;
      Visible := True;
    end;
  end
end;

3. Intercepta el evento OnColExit del DbGrid y coloca esto:

delphi

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if DBGrid1.SelectedField.FieldName = DBEdit1.DataField then
    DBEdit1.Visible := False
end;

4. Intercepta el evento ONKeyPress del DBgrid y coloca este código, para que el dbEdit agarre dicho evento.

delphi

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = Chr(9)) then Exit;
  if (DBGrid1.SelectedField.FieldName = DBEdit1.DataField) then
  begin
    DBEdit1.SetFocus;
    SendMessage(DBEdit1.Handle, WM_Char, word(Key), 0);
  end
end;

Espero te sirva.

Saludos

PD: Adjunto ejemplo, solo configura la ruta de la base de datos de Access.

[Delphius]

Y el ganador es Wilson 

Vaya no se me hubiera ocurrido la idea de meterle un BDEdit dentro de un DBGrid.

Saludos,

[Fenareth]

Y el ganador es Wilson 

Vaya no se me hubiera ocurrido la idea de meterle un BDEdit dentro de un DBGrid.

Saludos,

Es lo bueno de DA que siempre cuando a alguien ya no se le ocurren más ideas, llega otro alguien con una genialidad !!! 

Gracias amigo Wilson, es una idea que nos puede ayudar bastante a más de uno

Saludox ! 

[Ayla]

Wow!!!! Wilson, no se me hubiera ocurrido hacer eso nunca, muchas gracias, creo que lo implementaré de ese modo.

Gracias también a Delphius y Sergio por sus respuestas.

Un saludo a todos.

[cadetill]

Buenas,

Ya que usas FB, yo voy a proponerte otra solución a nivel de base de datos y es crear una excepción a nivel de FB.

CREATE EXCEPTION BIG_ENTERITO 'No puede entrar números superiores a 999999';

Ahora sólo quedaría programar los triggers pertinentes (before insert y before update) de la tabla en cuestión y lanzar la excepción si el dato introducido es mayor al que queremos

CREATE OR ALTER trigger MiTrigger0 for MiTabla
active before insert or update position 0
AS
begin
  if (new.enterito > 999999) then
   exception big_enterito;
end

La única "pega" es que no se lanzará la excepción hasta el post del registro

Espero te sirva

Nos leemos

PD: la solución de Wilson me gusta más que ésta, era sólo para dar otra opción

[Marc]

Hola.

¿ Habéis probado a poner el EditFormat del campo persistente a #####0 ?. El DbGrid tendría que utilizarlo (aunque no la he probado ya que siempre uso la QuantumGrid).

Saludos.

[Ayla]

Hola chicos,

Xavi me parece interesante tu solución pero lo que no quiero es precisamente que me salte una excepción ya sea a nivel de base de datos o de delphi. Aunque esto me ha dado ideas para cambiar otras cosas de mi aplicación  gracias!!!

Marc en el EditFormat del campo persistente tengo ###, ##0 pero le da lo mismo, pasa olimpicamente 

Así que me quedo con la solución de Wilson 

Saludos!!