Delphi não se ligam directamente para a base de dados como isolado como dados .NET para o controlo acima, por exemplo, é uma província da tabela de consulta, TComboBox o item é apresentado como o nome da província, províncias obter o ID correspondente Depois de seleccionar uma província. método Delphi não é tão fácil, consultou um grande gado de nível Grande Deus, aprendi uma maneira muito fácil.
O primeiro passo na criação de uma classe
do tipo
THospitalClass = classe (Tobject)
privada
do Nome: stirng; // Nome
Id: Integer; // o acima indicado do ID
Fim;
O segundo passo depois de criar os objectos de uma consulta da base de dados para dados adicionados ao controlo de caixa de combinação
var
o Obj: THospitalClass;
{objeto liberação criado, Delphi criado após a nota deve ter livramento}
DestoryHospital (cmbHospital);
Obj: = THospitalClass.Caeate;
obj.name:. = Query.FieldBYName ( 'nome') AsString;
obj.Id:. = Query.FieldBYName ( 'nome') AsInteger;
cmdHospital.Items.AddOBject (obj.id, Obj);
O terceiro passo é a obtenção de ID correspondente ao hospitais seleccionado
var
Hospital: THospitalClass;
hospitalar: = THospital (cmbhospital.Items.Object [cmbhospital.ItemIndex]);
hosopital.id é o id que precisamos para operar
procedimento DestoryHospital (AcomboBox: TComboBox)
var
i: Integer;
começar
por int i: = 0 em AcomboBox.Items.Count-1 não
se afectadas (AcomboBox.items.Object [i])
AcomboBox.Items.Object [i] .Destory;
AcomboBox.Clear;
End;
----------------
Aviso: Este artigo é CSDN blogger "artigo original RunNick', siga o CC 4.0 BY-SA acordo de direitos autorais, reproduzido, por favor anexar a fonte original e ligação esta declaração.
link original: https: //blog.csdn.net/CSDNmyACCP_S2/article/details/52629644