[delphi-br] combobox vx dbgrid

2006-03-08 Por tôpico cidwillame
como ajustar dois componentes diferentes?
ao selecionar uma linha no dbgrid, todas as informações da linha do
dbgrid devem ser repassadas para os outros componentes como edits,
labels e combobox.
So que ao chegar no combobox não consigo fazer com que o mesmo coloque
como default a informação que venha do dbgrid, sem perder as demais
informações ali existentes...
Toda esta ação é para uma edição de dados...





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] calculos com horas

2006-03-08 Por tôpico cidwillame
dados:
hora inicial, hora final, e um intervalo.
preciso saber a quantidade de horas entre a inicial e a final
o resultado dividir pelo intervalo, isto para saber quantos intervalos
vai existir entre estas duas(hora inicial e hora final)
a quantidade de horas entre a inicial e a final foi adquirida, no
entando não estou conseguindo obter a quantidade de intervalos, que
podem vir a existir:
exemplo:
hora inicial: 6:00
hora final: 12:00
quantidade de horas entre estas: 6:00
o intevalo solicitado é de 00:20 min
pelo excel consigo a quantidade de 18 intervalos, mas como fazer o
mesmo calculo no delphi...
uso coponentes masqedit para receber as horas iniciais e finais, e um
para receber o intervalo, o resultado do calculo pode ser exibido em
um label ou edit...





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] insert

2006-02-16 Por tôpico cidwillame
estou usando sql server 2000 + delphi 7, tenho a intenção de unir
valores entre 4 tabelas
1. cadastro de clientes
2. cadastro de convenios
3. tabstatus
4. tabtipo

cada uma destas, em comun, sao os campos
codigo
descrição

a ideia basica:
formar o movimento de um paciente onde, deve ser informado:
codigo do cliente
codigo do convenio
tipo convenio
status convenio

sabe-se que o paciente pode ter diversos convenios, sendo que os que
são comuns a todos são:
particular
sus
plano economico

o que preciso fazer, automatizar o cadastro destes sempre que se
concluir o cadastro de um cliente.
assim que o operador for cadastrar o convenio da amil por exemplo ja
vai existir os 3 acima citados, o problema é que o sistema não esta
executando de forma normal a linha do sql que corresponde a isto é:

DM.ADOQueryAux.Close;
DM.ADOQueryAux.SQL.Clear;
DM.ADOQueryAux.SQL.Text:='INSERT INTO COMPCADCLIENTESCONVENIOS'+
'(CODCLIENTE, CODCONVENIO'+
', TPCONVENIO, STCONVENIO, USUARIO, VERSAO)'+
' SELECT CADCLIENTES.CODIGOCLIENTE, CADCONVENIOS.CODIGOCONVENIO'+
', TABTIPO.CODIGOTIPO, TABSTATUS.CODIGOSTATUS'+
', '+QuotedStr(frmLogon.usuario_logado)+
', '+IntToStr(0)+
' FROM CADCLIENTES'+
', CADCONVENIOS, TABTIPO, TABSTATUS WHERE'+
' (((CADCLIENTES.CODIGOCLIENTE) = '+
pk+
')'+
' AND'+
' ((CADCONVENIOS.PADRAOCONVENIO) = '+QuotedStr('S')+'))';
DM.ADOQueryAux.ExecSQL;

O problema é que ele esta multiplicando a informação, o que deveria
ser 3 convenios para cada paciente, apresenta 20, repetindo de 3 em 3
os convenios para cada novo paciente...

estou procurando sujestões para solucionar a situação.






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html