Fórum Function para popular combobox #134583
09/04/2010
0
Estou querendo popular um combo com os dados de duas tabelas distintas, e possivel ?
Se for, gostaria de faze-lo atraves de uma function (para nao colocar codigo sql no form).
Grato pelo apoio
_osw
Curtir tópico
+ 0Posts
10/04/2010
Carlos Mazzi
UNION
(SELECT a FROM t2 WHERE a=11 AND B=2)
ORDER BY a LIMIT 10; Mas poste , a sua estrutura assim podemos ajudar melhor no método de popular o seu combo. Abraços++
Gostei + 0
12/04/2010
_osw
As tabelas são de estruturas diferentes.
Estou desenvolvendo um sistema simples de caixa/banco dentro de um sistema de contas a pagar/receber que já tinha uma tabela de banco/agência/conta corrente, criei uma tabela simples de caixa que tem a seguinte estrutura:
id integer (PK)
Codigo da empresa char(6)
descrição varchar (40) Unique
data de abertura date >> para apurar o saldo
saldo numeric(11,9) >> saldo até a data de abertura!
a tabela de conta corrente é assim:
Banco
Agência
empresa
numero da conta corrente
data de abertura da conta
saldo de abertura !
As estruturas são essas!
Grato pela força :)
Gostei + 0
12/04/2010
Emerson Nascimento
quais informações - e como - serão exibidas no combo?
Gostei + 0
12/04/2010
_osw
Gostei + 0
20/04/2010
Wesley Batista
Olá amigo, primeiramente você quer armazenar diversos valores certo ? Por que não cria um Objeto com a estrutura deseja e adiciona uma lista deste objeto no combobox ?
{Classe Cliente crie uma classe com a estrutura que você deseja armazenar no combobox. }
Type
TCliente = class
private
Fcodigo: String;
FSexo: String;
FNome: String;
procedure Setcodigo(const Value: String);
procedure SetNome(const Value: String);
procedure SetSexo(const Value: String);
published
public
property codigo : String read Fcodigo write Setcodigo;
property Nome : String read FNome write SetNome;
property Sexo : String read FSexo write SetSexo;
end;
{Agora implementando a rotina para armazenar no combobox}
{Agora implementando a rotina para armazenar no combobox
Observe que o combobox permite você adicionar objeto a ele, porém são referencias então dentro do loop da sua query, você terá que a todo momento que for ler um novo registro, não esqueça de criar o seu objeto novamente.
}
procedure TForm1.FormCreate(Sender: TObject);
Var
C : TCliente;
I: Integer;
begin
C := TCliente.Create;
C.codigo := '01';
C.Nome := 'Wesley';
C.Sexo := 'M';
ComboBox1.Items.AddObject(C.Nome, C);
C := TCliente.Create;
C.codigo := '02';
C.Nome := 'Batista';
C.Sexo := 'M';
ComboBox1.Items.AddObject(C.Nome, C);
{Lendo o conteudo utilizando TypeCast}
for I := 0 to ComboBox1.Items.Count - 1 do
begin
ShowMessage(TCliente(ComboBox1.Items.Objects[I]).codigo + #13 +
TCliente(ComboBox1.Items.Objects[I]).Nome + #13 +
TCliente(ComboBox1.Items.Objects[I]).Sexo + #13 );
end;
end;
Espero te ajudado, qualquer dúvida estamos ae !!
Um abraço
Wesley Batista
e-mail : wesley@tdstecnologia.com.br
site : www.tdstecnologiarj.com.br
Gostei + 0
24/04/2010
_osw
Obrigado pela dica!
Estou comecando a ver poo, e a sua dica foi bastante interessante!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)