Fórum Galera por favor me ajudem com meus problemas !!! #193592
07/11/2003
0
As duvidas sao:
1ª eu tenho um listbox e queria somar os intes q ele contem, sao numeros mas como estao dentro do Listbox estao como string,e q aparecesse num edit; ja tentei varias formas mas nao consegui.
2ªComo relacionar um tabela com a outro , Ex:
A hora q eu seleciono um campo[processador] numa tabela[equipamentos] ja puxo direto outro campo[preço processador] em outra tabela[preço]
Caso venho a ter ms duvidas eu post aki ok!!
Vlw Abraços a todos ....
Raizen
Curtir tópico
+ 0Posts
07/11/2003
Cps.art
Não tenho muita pratica no Delphi, mas a 2ª questão acho que posso te ajudar.
Se você tem os 2 componentes [b:3b436373ee]Table[/b:3b436373ee] no Form, um para a tabela [b:3b436373ee]Equipamentos[/b:3b436373ee] e outro para a tabela [b:3b436373ee]Preço[/b:3b436373ee] é só você, no Object Inspector do Table da tabela Preço, selecionar no [b:3b436373ee]MasterSource[/b:3b436373ee] o DataSource1 (que corresponde à tabela Equipamentos) e selecionar tambem o [b:3b436373ee]MasterField[/b:3b436373ee] (nome do campo da tabela equipamentos) que suponho seja o código da peça. Esse código deve estar na tabela Preços, mesmo que seja com outro nome de campo, e é por ele que a tabela Preços deve estar indexada.
Isso significa que quando vc. apontar para um registro de uma peça na tabela Equipamentos, o ponteiro, na tabela Preços, irá apontar para o registro que tenha o mesmo código, e vai mostar os dados que vc. quer num DBEdit ou DBGrid.
Espero ter ajudado.
Gostei + 0
07/11/2003
Marcelo.c
var i, soma:integer; begin for i:= 0 to ListBox1.Items.Count - 1 do soma:=soma+strtoint(ListBox1.Items.Strings[i]); Edit1.Text:=InttoStr(soma); end;
Na propriedade MasterSource da tabela preço indique o DataSource da tabela equipamentos.
Na propriedade MasterField faça a ligação dos campos coincidentes.
Gostei + 0
08/11/2003
Raizen
var i, soma:integer;
begin
for i:= 0 to ListBox1.Items.Count - 1 do
soma:=soma+strtoint(ListBox1.Items.Strings[i]);
Edit1.Text:=InttoStr(soma);
end;
Eu fiz igualzinho antes de perguntar aki pra voces eu ate citei que tinha tentado e foi este codigo q eu tentei e mole e nao deu certo , deve ter faltado alguma coisinha em algum outro lugar;Mas ta blz funciono agora perfeito
Ah eu sou como vcs quando ta dentro do meu conhecimento sempre procuro ajudar pq eu penso q [color=red:b6e664db80]ensina e aprender 2 vezes[/color:b6e664db80] .So tenho a agradecer a vcs 2 abraços e Muita felicidades a vcs e suas familias.Se precisar e tiver dentro do meu alcançe estamos ae Ok!
Abraços ...
Gostei + 0
11/11/2003
Raizen
É o seguinte depois do toke do marcelo e do cps.art eu montei um relacionamento da minha tabela ,usando um DBLookupComboBox , mas tem o seguinte uma das tabelas (equipamentos) e mostrada num DBLookupComboBox e quando selecionado o item no DBLookupComboBox este item e adicionado em um Listbox pelo codigo:
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
if DBLookupComboBox2.ListFieldIndex >=0 then
listbox1.Items.Add(DBLookupComboBox2.Text);
end;
mas neste mesmo codigo queria saber como fazer para adicionar o item linkado correspondente num Listbox2 .
Ahe outra eu fui fazer este msm processo de relacionamento, pelo Databasedesktop pelo Referencial Integrity eu so consegui quando coloquei os campos das tabelas iguais , (sei q nao posso colocar tipos como Memo, formatted memo, graphic, binary, OLE, ...) e entao coloquei todos campos como Alpha ai passo mas na hora que fui da um Save apareceu o seguinte erro :
Foreign and primary key do not match
O que seria isso?como resolver?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)