1

Tenho um DBLookupComboBox que captura os dados da tabela Espécie para que o usuário selecione o que precisa, após isso esses dados são salvos na tabela Animal.

Minha dúvida é como consigo fazer para permitir ao usuário adicionar um novo registro no DBLookupComboBox em tempo de execução e que esse seja salvo no banco de dados após o usuário confirmar que deseja fazer isso.

9
  • Vamos dizer que você tem um animal, e na hora de escolher o a especie no dblookcombobox não existe a relativa, então você quer que o usuário possa cadastrar uma nova especie, escolher-la e então cadastrar o animal? Commented 14/03/2015 às 22:40
  • @Artur_Indio, eu quero que ele digite no proprio combo e já cadastre.
    – Giovani
    Commented 14/03/2015 às 23:55
  • 1
    Programaticamente tem muitas formas de fazer isso, usar os componentes DBLookupComboBox ou DBComboBox não vai dar pois não se pode editar neles. Você pode usar um Combobox e então carregar os item do dataset pra ele e então deixar o usuário editar e colocar um novo, quando clicar no botão salvar você faz uma forma de salvar tambem a tabela espécie, a forma que você salvar e gerar o id vai ser o id que vai para animal. Commented 15/03/2015 às 1:17
  • @Artur_Indio, eu teria que setar alguma propriedade para permitir ao usuario editar? Formula isso numa resposta que acredito que vai resolver meu problema :D
    – Giovani
    Commented 15/03/2015 às 5:32
  • 1
    Eu acho que como dito por Qmechanic73 não da, pq você tem que salvar o ID da Especie antes, para então salvar o Animal usando o ID da Especie, a tabela Animal tem chave estrangeira pra Especie certo? Commented 15/03/2015 às 17:15

1 Resposta 1

1

Se a sua ideia é fazer com que o usuário possa editar o conteúdo selecionado no DBLookupComboBox, isso pode não ser possível, pois o objetivo desse controle é listar os dados de uma tabela conforme especificado na propriedade ListSource.

Se é isso o que você quer fazer, talvez o DBComboBox possa servir melhor para esse caso.

O que você pode fazer para contornar isso é através do evento onClick de um botão.

const
MSG1 = 'Digite uma nova espécie:';
MSG2 = 'Tem certeza que deseja gravar a espécie %s no banco?';
var
 Entrada: string;
begin
Entrada := InputBox(Caption, MSG1, '');
if Length(Entrada) = 0 then Exit;
if MessageDlg(Format(MSG2, [Entrada]), mtConfirmation, [mbYes, mbNo], 0) = mrNo then Exit;

Tabela1.Append;
Tabela1.FieldByName('Campo1').AsString := Entrada;
...

É necessário vincular a propriedade ListSource do DBLookupComboBox ao DataSource da tabela desejada.

1
  • 1
    Obrigado pela resposta :D
    – Giovani
    Commented 15/03/2015 às 17:25

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .