Eu gostaria de fazer um LookUpCombobox
em Delphi que se comportasse da seguinte maneira:
- Quando o usuário clicasse escolhendo naturalidade: Brasileira ou Brasileira, Nascido no Exterior ou Naturalizado, outro
LookUpCombobox
fosse automaticamente selecionado como o pais Brasil e ficasse indisponível para alteração. - Quando o usuário selecionasse Estrangeiro, o outro
LookUpCombobox
ficaria em branco e o usuário teria a opção de escolher o país, mas não pudesse escolher Brasil.
Quando eu clico em Post para salvar os valores, o campo Pais fica em branco e não salva quando é Brasil. Eu fiz um showmessage()
na variável e ela retorna o código correto do país que é 76.
Segue o código:
procedure TformCadastroEstudantes.DBLookupComboBoxNacionalidadeCloseUp(
Sender: TObject);
var nacionalidade : Integer;
var pais : Integer;
var enabled : Boolean;
begin
nacionalidade := DBLookupComboBoxNacionalidade.KeyValue;
pais := DBLookupComboBoxPais.KeyValue;
enabled := True;
AtualizaPaises(nacionalidade, pais, enabled);
DBLookupComboBoxPais.KeyValue := pais;
DBLookupComboBoxPais.Enabled := enabled;
end;
Segue o código do procedimento:
procedure AtualizaPaises(var nacionalidade : Integer; var pais: Integer; var enabled : Boolean);
begin
if ((nacionalidade = 1) OR (nacionalidade = 2)) then
begin
pais := 76;
enabled := False;
with dm.sqlPaises do
begin
Close;
SQL.Clear;
SQL.Add('select * from PAISES');
SQL.Add('where CODIGO_PAIS like ''76''');
SQL.Add('order by NOME_PAIS');
Open;
end;
end
else
begin
pais := 0;
enabled := True;
with dm.sqlPaises do
begin
Close;
SQL.Clear;
SQL.Add('select * from PAISES');
SQL.Add('where CODIGO_PAIS not like ''76''');
SQL.Add('order by NOME_PAIS');
Open;
end;
end;
end;