salvar dados de um combobox

Question

Boa tarde galera,� o seguinte: eu coloquei um combobox aqui pra selecionar, durante o cadastro de empresas, pessoa f�sica ou jur�dica. Na tabela criei o campo pessoa como SmallInt e pensei em atribuir...

Bon Jovi · Answer

Se tiver usando Delphi basta usar um TDBLookupComboBox. E no VS tive q criar propriedades novas usando Combo normal.

Qto a base, nao existe uma tabela TIPO_PESSOA? Caso nao tenha seria melhor ter, por questoes de integridade e modelagem mais leg�vel.

Se nao tiver esses valores via tabela, ter� q preencher o dataset na mao:

//Tendo os TFields CODIGO (Integer) e NOME (String) criados em tempo de design

procedure TForm1.Adiciona(Codigo: integer; Nome: string);
begin
  ClientDataSet.Insert;
  ClientDataSet.FieldByName(�CODIGO�).AsInteger := Codigo;
  ClientDataSet.FieldByName(�NOME�).AsString := Nome;
  ClientDataSet.Post;
end;

procedure TForm1.PreencheCombo;
begin 
  ClientDataSet.CreateDataSet;

  DBLookupComboBox1.DataSource := DataSource1; //DataSource do DataSet-Query q grava
  DBLookupComboBox1.DataField := �PESSOA�; //Campo do DataSet-Query q grava
  
  DBLookupComboBox1.KeyField := �CODIGO�;
  DBLookupComboBox1.ListField := �NOME�;
  DBLookupComboBox1.ListSource := DataSource2; // DataSource de um DataSet em mem�ria (ClientDataSet no exemplo)

  //Se tivesse tabela no banco guardando isso bastaria fazer query e nao na m�o:
  Adiciona(0, �Jur�dica�);
  Adiciona(1, �F�sica�);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PreencheCombo;
end;

Wart · Answer

soh,mas e se eu criasse essa tabela com os camposCODIGOPESSOAcomo que eu faria para que, o final, eu tenha o DBLookupComboBox mostrando que o registro tal da tabela empresas tem pessoa f�sica ou jur�dica? eu teria que adicionar um campo ID_EMPRESA na tabela TIP_PESSOA e relacion�-lo com o mesmo da tabela empresas?Plz Help a Noob!! :wink:...

Wart · Answer

up!...

Bon Jovi · Answer

[quote:2a2628707f]eu teria que adicionar um campo ID_EMPRESA na tabela TIP_PESSOA e relacion�-lo com o mesmo da tabela empresas?[/quote:2a2628707f]Sim..CREATE TABLE TIPO_PESSOA(ID_TIPO_PESSOA INTEGER NOT NULL PRIMARY KEY,NOME VARCHAR(8)); INSERT INTO TIPO_PESSOA VALUES (1, �F�sica�);INSERT INTO TIPO_PESSOA VALUES (2, �Jur�dica�);CREATE TABLE PESSOA(ID_PESSOA INTEGER NOT NULL PRIMARY KEY,ID_TIPO_PESSOA INTEGER,NOME VARCHAR(50));ALTER TABLE PESSOA ADD CONSTRAINT FK_PESSOA_TIPO FOREIGN KEY (ID_TIPO_PESSOA) REFERENCES TIPO_PESSOA (ID_TIPO_PESSOA);No DBLookupComboBox basta usar as propriedades q j� mostrei no exemplo.ListSource = DataSource2 //DataSource pra query SELECT ID_TIPO_PESSOA, NOME FROM TIPO_PESSOAKeyField = ID_TIPO_PESSOAListField = NOMECaso esteja gravando via .Edit/.Post:DataSource = DataSource1 //DataSource da query SELECT ID_PESSOA, ID_TIPO_PESSOA, NOME FROM PESSOADataField = ID_TIPO_PESSOACaso esteja gravando na m�o, basta usar a propriedade KeyValue da combo....

Wart · Answer

soh, intendi cara...so q agora ta acontecendo um neg�cio aki: quando eu vo defini a chave estrangeira ali da um erro falando que o objeto TIPO_PESSOA ja esta sendo usado:---------- STATEMENT ----------alter table EMPRESASadd constraint FK_EMPRESASforeign key (ID_TIPO_PESSOA)references TIPO_PESSOA(ID_TIPO_PESSOA)---------- ERROR MESSAGE ----------This operation is not defined for system tables.unsuccessful metadata update.object TIPO_PESSOA is in use ....

Bon Jovi · Answer

Isso � um defeito do Interbase/Firebird. Ter� que dar shutdown na base pra poder realizar esta opera��o....

Wart · Answer

[b:0815010605]Bon Jovi[/b:0815010605]soh...Ae cara, brigad�o pela ajuda ae.......

Lucianols · Answer

Mto simples amigo...

Passe par dentro do campo o index da combo box...

veja

Qry.ParamByName(�Pessoa�).AsInteger := EdtPessoa.ItemIndex;

e pra ler.

EdtPessoa.ItemIndex := Qry.FieldByName(�Pessoa�).AsInteger;

se vc quiser mostrar o resultado em outro local pode usar a seguinte fun��o....

[b:fb9e1373c4]procedure iif(Condicao: Boolean, Verdadeiro, Falso: Variant): Variant;
begin
if Condicao then
Result := Verdadeiro
else
Result := False;
end;[/b:fb9e1373c4]

e pra chama-la e assim.

iif( Qry.FieldByName(�Pessoa�).AsInteger = 0, �Juridica�, �F�sica�);

Espero ter pudido ajudar.

F�rum salvar dados de um combobox #45426