Trabajando con DBComboBox

[roman]

Una opción podría ser usar el evento OnGetText del campo que te permite alterar el valor que se muestra sin alterar el campo original.

// Saludos

[Tino]

Pues hacerlo, sin escribir código, de esta manera:

1. Crea una tabla maestra con mínimo dos campos: código y descripción. En el 1er. campo iría 1, 2, 3, ... en el 2o. campo Técnico, Estudiante, Obrero,...
2. Usa el compo TDBLookupComboBox en vez del TDBComboBox. Modifica sus propiedades: DataSource y DataField igual que con el TDBComboBox. ListSource a una nueva fuente de datos de la tabla maestra. KeyField el campo de referencia. ListField el campo "descripción" de la tabla maestra.

Es mejor que uses una tabla maestra que codificarlos en el programa porque si tuvieras que añadir una nueva categoria solo tendrías que añadir un nuevo registro, sin tener que volver a compilar.

Saludos.

[roman]

Desde luego la opción de Tino es la ideal pero bueno, pensé que si no te dejaban modificar un campo chiquitito mucho menos te permitirían agregar toda una tabla.



// Saludos

[JFdez]

SI me pudieras explicar mejor como hacerlo ... (OnGetText)
Ese procedimiento consta de dos variables una es DisplayText: Boolean, y la otra Text: String, pero no se como jugar con ellas ...

Muchas grasias Tino por tu respuesta pero Roman tiene razón

En espera de sus respuesta un servidor ..
grasias

[StartKill]

Holas,

Este es un pequeño ejemplo, en lo personal trabajo con query's pero debe ser lo mismo.

Código Delphi [-]
procedure TForm1.IBQuery1FCOD_PROFGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  //  text:=ibquery1FCOD_PROF.AsString+'-'+ibquery1FDES_PROF.AsString;
  text:=sender.asString+'-'+ibquery1FDES_PROF.AsString;
end;

Espero te sirva,

your Friend

StartKill
Lima-Perú

[JFdez]

Lo siento amigo pero a desir verdad ahora entiendo menos por favor AYUDENMEEEEEEEEE ...

Espero por su respuesta ....


grasias

[jachguate]

Hola.

No hace falta gritar tan alto.

Basta presionar F1 dentro del IDE.

Empezado por delphi help

Occurs whenever the DisplayText or Text properties of the field are referenced.

type TFieldGetTextEvent = procedure(Sender: TField; var Text: string; DisplayText: Boolean) of object;
property OnGetText: TFieldGetTextEvent;

Description

Write an OnGetText handler to perform custom processing for the DisplayText and Text properties. Use OnGetText to format the Value of the field differently when it must be edited from the format used when simply displaying the value, or use OnGetText to display something other than the field’s value when it is displayed.

The Sender parameter is the field component. The Text parameter receives the formatted text that is used by the DisplayText or Text property. The DisplayText parameter indicates whether the text will be used for display purposes only, or whether the string will be used for editing purposes.

If there is no OnGetText handler, the value of the DisplayText and Text properties is simply the value of the AsString property.

Hasta luego.