Delphi no se une directamente a la base de datos tan aislado como datos de .NET para el control anterior, por ejemplo, es una provincia de la tabla de consulta, TComboBox el elemento se muestra como el nombre de las provincias, las provincias obtener el id correspondiente Después de seleccionar una provincia. Método Delphi no es tan fácil, consultó con un gran nivel de ganado Gran Dios, aprendió una manera muy fácil.
El primer paso en la creación de una clase
del tipo
THospitalClass = class (TObject)
privada
el Nombre: stirng; // Nombre
Id: Integer; // lo anterior Identificación del mencionado
End;
El segundo paso después de la creación de los objetos en una consulta de base de datos a cabo datos añadidos al control ComboBox
var
el obj: THospitalClass;
{comunicado de objeto creado, Delphi creado después de la nota debe tener la liberación}
DestoryHospital (cmbHospital);
Obj: = THospitalClass.Caeate;
obj.name:. = Query.FieldBYName ( 'nombre') AsString;
obj.Id:. = Query.FieldBYName ( 'nombre') AsInteger;
cmdHospital.Items.AddOBject (obj.id, Obj);
El tercer paso es obtener ID correspondiente a los hospitales seleccionados
var
Hospital: THospitalClass;
de hospital: = THospital (cmbhospital.Items.Object [cmbhospital.ItemIndex]);
hosopital.id es el id que necesitamos para operar
procedimiento DestoryHospital (AcomboBox: TComboBox)
var
i: Integer;
comenzar
para int i: = 0 en AcomboBox.Items.Count-1 no
si Asignado (AcomboBox.items.Object [i])
AcomboBox.Items.Object [i] .Destory;
AcomboBox.Clear;
Fin;
----------------
responsabilidad: Este artículo es RDCC blogger "artículo original RunNick', sigue el CC 4.0 BY-SA acuerdo de derecho de autor, que se reproduce, por favor incluya la fuente original y el enlace esta declaración.
fuente original: https: //blog.csdn.net/CSDNmyACCP_S2/article/details/52629644