Jhonas

Um exemplo de como usar var valor : real; begin valor := 1234.56; QRlabel1.Caption := formatfloat('#,##0.00',valor); end; abraço

Fiz um teste com este codigo e está funcionando... verifique se voce modifou estas linhas qryLogin.SQL.Append('SELECT * FROM TB_FUNCIONARIOS WHERE LOGIN = (:login) AND SENHA = (:senha)'); qryLogin.Params.ParamByName('login').Value:=edtLogin.Text; qryLogin.Params.ParamByName('senha').Value:=edtSenha.text; abraço

experimente modulo.sql_descbombas.sql.Add('SELECT DISTINCT CAMPODATABELA FROM DESC_BOMBA '); onde campodatabela é o campo da sua tabela que voce quer fazer o distinct abraço

Coloque o seu codigo para podermos descobrir onde está o erro abraço

O erro está aqui: procedure TForm1.Button1Click(Sender: TObject); begin qryLogin.Close; qryLogin.SQL.Clear; qryLogin.SQL.Append('SELECT * FROM TB_FUNCIONARIOS WHERE LOGIN = (:login) AND SENHA = (:senha)'); qryLogin.Params.ParamByName('login').Value:=edtLogin.Text; qryLogin.Params.ParamByName('senha').Value:=edtSenha.text; qryLogin.Open; if qryLogin.Recordcount = 0 then begin showmessage('Usuário não encontrado'); edtLogin.Text:=''; edtSenha.Text:=''; edtLogin.SetFocus; end else begin frmMenu.ShowModal; //close; end; end; OBS: Voce digita nos edits o login e senha, depois voce clica no botão para executar a SQL abraço

Quando o cursor está na ultima linha do DbGrid e voce tecla tab, só será aberta mais uma linha de registro se existir algum comando para tal, caso contrário o cursor permanece na ultima linha pulando de campo em campo do registro. exemplo : procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #9 then // tecla TAB begin if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount - 1) then begin //selectedindex := selectedindex + 1; CDS_Fundos.Edit; case selectedindex of 1 : CDS_FundosCODCLI.AsInteger := CDS_CadcliCOD.AsInteger; 2 : CDS_FundosDATA.Value := now; 3 : /// 4 : /// end; CDS_Fundos.Post; CDS_Fundos.Append; /// neste ponto é incluida uma nova linha de registro selectedindex := 0; end; end; end; abraço

faça esta modificação procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d : real; r : real; begin a:=strtoint(Edit1.Text); b:=strtoint(Edit2.Text); c:=strtoint(Edit3.Text); d:=strtoint(Edit4.Text); r:=(a+b+c+d)/4; Label1.Caption:=floattostr(r);{modifique} end; abraço

edtLogin.Text:=''; edtSenha.Text:=''; Voce tem que colocar valores nos edits antes de executar a SQL exempo: edtLogin.Text:='USERNAME'; // voce deve digitar o login e senha antes edtSenha.Text:='XYZ'; qryLogin.Close; qryLogin.SQL.Clear; qryLogin.SQL.Add('SELECT * FROM TB_FUNCIONARIOS WHERE LOGIN = (:login) AND SENHA = (:senha)'); qryLogin.Parameters.ParamByName('login').Value:=edtLogin.Text; qryLogin.Parameters.ParamByName('senha').Value:=edtSenha.text; qryLogin.Open; if qryLogin.Recordcount = 0 then begin showmessage('Usuário não encontrado'); edtLogin.Text:=''; edtSenha.Text:=''; edtLogin.SetFocus; end else begin frmMenu.ShowModal; //close; end; abraço

Para fazer o Delphi funcionar no windows Vista voce tem baixar uma atualização da microsoft se não me engano é o KB943202.. verifique no site da microsoft abraço

Marcos ... verifique se a hora gravada ( 619 ) corresponde a minutos ... se for fica facil fazer uma conversão exemplo : 619 min = 10:19 hr abraço

Veja se isto resolve http://viniciuscanto.blogspot.com/2008/04/...de-usurios.html http://info.abril.com.br/forum/forum.php?tópico=213504 abraço

Isto é um problema na configuração do mikrotik abraço

Existe um software para esta aplicação http://www.cezeo.com/help/lantalk-net/ abraço

Acho que voce não vai encontrar os codigos fontes abertos, mas vai um endereço de algumas informações muito uteis sobre este protocolo http://www.rnp.br/_arquivo/sci/2003/trafego_medidas.pdf abraço

Veja nestes endereços http://www.clubedohardware.com.br/printpage/1150 http://tecnologia.uol.com.br/guia-produtos...lt2880u381.jhtm http://www.sti.fflch.usp.br/cimpr.htm http://www.microsoft.com/brasil/windowsxp/...ressora_xp.mspx http://www.boadica.com.br/layoutdica.asp?codigo=557 http://ci.ufpel.edu.br/treinamento/apostil...ranca/redes.pdf http://info.abril.com.br/forum/forum.php?tópico=612294 abraço

Veja nestes endereços http://www.vivaolinux.com.br/artigo/Instal...-MRTG-no-Linux/ http://www.vivaolinux.com.br/artigo/SNMP-e...amento-no-Cacti http://www.istf.com.br/vb/archive/index.php?t-9461.html http://under-linux.org/forums/adm-em-geral...rando-snmp.html http://lie-br.conectiva.com.br/pipermail/l...ary/038264.html http://luciano.wordpress.com/2006/07/28/pr...p-do-seu-linux/ abraço

o problema é justamente esse ... ao formatar o notebook, alem da instalação do windows e do oficce, voce deve instalar os outros drives que acompanham o notebook ( CDs de instalação da placa mãe, placa de som, placa de video, placa de rede, etc um ponto de interrogação amarelo significa que o dispositivo ( controlador de Ethernet) ou não esta instalado ou está em conflito. a solução do problema é instalar os drives restantes.... caso voce não possua esses drives, tente baixa-los da internet do proprio site do fabricante. abraço

Tem sim ..... e o fato de estar caindo toda hora é justamente pela falta de configuração correta Veja neste endereço ... vai trazer alguns esclarecimentos http://www.guiadohardware.net/comunidade/r...r-modem/296541/ abraço

Vai o endereço de alguns Tutoriais: http://www.localintranet.com.br/lin/duvida...ocal_no_windows http://www.gdhpress.com.br/hardware/leia/i....php?p=intro-11 http://imasters.uol.com.br/artigo/1991/ser...o_uma_intranet/ http://www.guiadohardware.net/tutoriais/se..._2/pagina2.html http://members.netmadeira.com/ffcs/planeam...ste%2016-11.pdf abraço

Sem problemas, basta fazer a configuração para rede Wireless http://www.americanas.com.br/AcomProd/35217/648081 abraço

Não tenho certeza, mas verifique a opção Tools do delphi 2007. E tambem por ser uma versão Teste não deve ter todas as funcionalidades. abraço

A impressão usando o Fortes Report numa impressora matricial sempre é considerada como Gráfico, desta maneira se existem no relatório muitas linhas, caracteres ou figuras a serem impressas, realmente será um pouco demorado. para saber se o componente TRLDraftFilter está influenciando em alguma coisa, retire-o e imprima novamente o relatório e veja se ocorre alguma diferença. abraço

Os resultados sempre serão diferentes ao se fazer um JOIN entre tabelas, pois qualquer registro que seja diferente em relação a condição especificada antes e de depois do Where, trará os registros das duas tabelas que pelo menos satisfaçam alguma das condições. tbl_cons.cd_localidade = tbl_loc.cd_localidade, WHERE tbl_cons.codcur = tbl_cur.codcur AND tbl_cons.codprof = tbl_prf.codprof Desta maneira voce teria um numero muito maior de registros como resultado da consulta. voce vai encontrar muitos posts com a palavra JOIN ... faça uma pesquisa http://scriptbrasil.com.br/forum/index.php...p;highlite=JOIN abraço

Basta setar a propriedade dos dois ( align = AlNone ) e posicionar o statusbar logo acima do dbgrid abraço

tente: lblnum.Caption:= lblnum.Caption + inttostr(vetnum) + ' ; ' ; abraço