UpperCase en DBGrid

[roman]

Pero estamos hablando de cosas distintas. Una cosa es armar la consulta SQL en mayúsculas y otra que al editar el DBGrid sólo se acepten mayúsculas; y esto último es lo que hacía el código al que se refiere Jose Roman, sólo que él utiliza un derivado de TDBGrid que desconozco.

// Saludos

[ecfisa]

Si roman, esa me pareció la finalidad del código del primer mensaje. Sin embargo esta parte del texto no se condecía con él:

Resulta que necesito que un bsSkinDBGrid (componente de Business Skin Form adquirido hace mas de dos años) me muestre en mayusculas los campos...

De modo que si era sólo mostrarlos en mayúsuculas bastaba hacerlo desde la consulta. Pero es claro que si necesita pasar a mayúsculas lo que va ingresando no le va a servir mi mensaje...

Saludos

[Jose Roman]

Gracias a todos por su respuesta, creo que lo de ecfisa me puede servir, les comunicare mi avance, gracias de nuevo.

[Jose Roman]

Les informo que funciono el codigo sugerido por ecfisa, solo unas modificaciones para aquellos que estamos trabajando con XE en adelante, en vez de SysUtils.ShortMonthNames deben utilizar FormatSettings.ShortMonthNames y la parte donde se busca el campo con la fecha debe declararse despues de abrir la tabla ya que genera un error al no encontrar el campo, entonces el codigo fuente queda asi:

Código Delphi [-]
const
  MNAME: array[1..12] of string = ('ENE','FEB','MAR','ABR',
    'MAY','JUN','JUL','AGO','SEP','OCT','NOV','DIC');
var
  AuxMonth: array[1..12] of string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  move(FormatSettings.ShortMonthNames, AuxMonth, SizeOf(FormatSettings.ShortMonthNames));
  move(MNAME,FormatSettings.ShortMonthNames, SizeOf(MNAME));
  Database.Connected := True;
  Transaction.StartTransaction;
  tbKardex.Open;
  TDateField(tbKardex.FieldByName('ID_FEC')).DisplayFormat:= 'dd/mmm/yy';
end;

[Jose Roman]

Empezado por Jose Roman

Les informo que funciono el codigo sugerido por ecfisa, solo unas modificaciones para aquellos que estamos trabajando con XE en adelante, en vez de SysUtils.ShortMonthNames deben utilizar FormatSettings.ShortMonthNames y la parte donde se busca el campo con la fecha debe declararse despues de abrir la tabla ya que genera un error al no encontrar el campo, entonces el codigo fuente queda asi:

Código Delphi [-]
const
  MNAME: array[1..12] of string = ('ENE','FEB','MAR','ABR',
    'MAY','JUN','JUL','AGO','SEP','OCT','NOV','DIC');
var
  AuxMonth: array[1..12] of string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  move(FormatSettings.ShortMonthNames, AuxMonth, SizeOf(FormatSettings.ShortMonthNames));
  move(MNAME,FormatSettings.ShortMonthNames, SizeOf(MNAME));
  Database.Connected := True;
  Transaction.StartTransaction;
  tbKardex.Open;
  TDateField(tbKardex.FieldByName('ID_FEC')).DisplayFormat:= 'dd/mmm/yy';
end;

Ahora me surgio la duda, ¿Y para mostrar AM o PM en lugar de am o pm?

[Caminante]

Hola a todos.

Si la finalidad es solo visualizar los datos en mayusculas ¿no basta con el evento ongettext?

Saludos

[ecfisa]

Hola Jose Roman.

Empezado por Jose Roman

Ahora me surgio la duda, ¿Y para mostrar AM o PM en lugar de am o pm?

Estimo que bastaría agregarlo a la cadena de formato:

Código Delphi [-]
 TDateField(FibDataSet1.FieldByName('FECHA')).DisplayFormat:= 'dd/mmm/yy h:m:s AM/PM';

Saludos