Jhonas

Fiz um teste simples aqui e funcionou ... sugiro a voce fazer o mesmo em uma outra aplicação para ver onde está errando artigo sobre como usar uma stored procedure http://www.oficinadanet.com.br/artigo/177/...ored_procedures http://msdn.microsoft.com/en-us/library/ms189915.aspx abraço

Fiz o teste e esta funcionando unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; StatusBar1: TStatusBar; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin StatusBar1.Panels[0].Text:=''+FormatDateTime('hh:nn:ss',now);//17:10:00 StatusBar1.Panels[0].Text:= StatusBar1.Panels[0].Text + ' '+FormatDateTime('dddd"," dd" de "mmmm" de "yyyy',now); end; end. abraço

Leia este artigo: http://www.ramosdainformatica.com.br/ser_n...CN=946&WQ=0 abraço

No meu trabalho tambem era assim, e acabei convencendo o meu chefe que, se existe um recurso ( componente pronto e gratuito ) que resolve prontamente o problema, por que não usar ? hoje utilizo mais de 600 componentes prontos e tenho um arquivo com mais de 1500 componentes, para todo o tipo de situação. esse negócio de usar somente componentes nativos é do passado ( não reinvente a roda ) abraço

experimente trocar a function por procedure e veja o que acontece abraço

Fazer engenharia reversa ou descompilar um executavel é considerado pirataria de software o objetivo do forum é tirar dúvidas sobre programação e não ensinar a ser hacker ... desculpe companheiro tópico fechado

insert into teste (codigo, descricao) values (:pcodigo, :pDescricao); loSp.ParamByName('PCODIGO' ).AsInteger := StrToInt(edtCodigo.Text); loSp.ParamByName('PDESCRICAO' ).AsString := edtDescricao.Text; me referi a isso .. do mesmo jeito que colocar na clausula insert colocar tambem no ParamByName mas se ainda assim estiver dando erro, acompanhe a execução das linhas de comando com o debugger do delphi abraço

Gostaria de saber se é necessária alguma manutenção de servidores em termos de hardware ou outra situação Faça uma pesquisa http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= abraço

veja as propriedade ListSourse, ListField e KeyField do DBLookupComboBox o DbGrid é linkado a sua tabela atraves da propriedade DataSource ( Ex: o componente DataSource1 ligado a um componente Query1) Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ghlite=KeyField abraço

exemplo da sintaxe INSERT INTO CLIENTE(C1, C2, C3) VALUES ( :par0, :par1, :par2);" ParamByName('par0').AsInteger := 10; ParamByName('par1').AsString := 'par1'; ParamByName('par2').AsString := 'par2'; ou seu código insert into teste (codigo, descricao) values (:pcodigo, :pDescricao); loSp.ParamByName('PCODIGO' ).AsInteger := StrToInt(edtCodigo.Text); loSp.ParamByName('PDESCRICAO' ).AsString := edtDescricao.Text; Nesta condição esta me retornando o mesmo erro: Paramentro PCodigo não encontrado procure ver se o motivo não é a colocação de caracteres maiusculos e minusculos .... não me recordo agora abraço

Faça ma busca no forum http://scriptbrasil.com.br/forum/index.php...lite=EmbeddedWB http://scriptbrasil.com.br/forum/index.php...ite=Twebbrowser abraço

fica dificil adivinhar o que voce esta querendo, seja mais detalhista na formulação da sua dúvida se quiser possiveis soluções abraço

Já que voce postou e voce mesmo achou o problema, não gostaria de compartilhar a solução desse problema com os colegas do forum ? abraço

de acordo com a imagem , basta selecionar < Não exibir este aviso novamente > e clicar no botão OK http://www.siteclaro.com.br/limpar-senha-d...-no-computador/ abraço

sqlExce: O Parametro DATAFERIADO não foi encontrado e não o campo da tabela chamado DATAFERIADO sqlExec.ParamByName('DATAFERIADO').AsDate := edtData.Date; experimente mudar o nome do parametro e veja se o erro permanece abraço

Faça uma pesquisa no Google http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= abraço

Veja estes posts http://scriptbrasil.com.br/forum/index.php...p;highlite=HKEY ou http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=140 abraço

Virtual Treeview component Ele é freeware e permite fazer TreeViews dinâmicos e ligados a bancos de dados http://www.delphi-gems.com/index.php?optio...2&Itemid=38 abraço

Veja esses links http://www.linhadecodigo.com.br/Artigo.aspx?id=2129 http://blog.delphi-jedi.net/ abraço

Join estoque on (ENTPROD_CODPRODUTO = EST_PRODUTO) Ou voce muda o tipo de ENTPROD_CODPRODUTO de integer para string ou voce muda o tipo de EST_PRODUTO de string para integer abraço

menssagem de erro na lista do indice... de duplo clik no StatusBar para abrir o editor do painl do StatusBar, depois clique na 1ª pasta para inserir um paniel ( StatusBar1.Panels[0] ) e faça a modificação no código procedure TForm1.Timer1Timer(Sender: TObject); begin StatusBar1.Panels[0].Text:=''+FormatDateTime('hh:nn:ss',now);//17:10:00 StatusBar1.Panels[0].Text:= StatusBar1.Panels[0].Text + ' '+FormatDateTime('dddd"," dd" de "mmmm" de "yyyy',now); end; abraço

Observe o código .... voce esta fazendo um while nos registros de modestoque.tbDetPed mas faltou um next para fazer rolar o proximo registro da tabela procedure TfrmPedidos.SpeedButton1Click(Sender: TObject); begin modestoque.tbDetPed.First; while not modestoque.tbDetPed.Eof do begin modestoque.tbProduto.first; // mandar para o primeiro registro sempre que fizer um locate if modestoque.tbProduto.Locate('CodPro',modestoque.tbDetPedCodPro.Value,[]) then begin if modestoque.tbDetPedBaixa.Value<> true then begin modestoque.tbProduto.Edit; modestoque.tbProdutoQuantEst.Value:=modestoque.tbProdutoQuantEst.Value - modestoque.tbDetPedQuantidade.Value; modestoque.tbProduto.Post; modestoque.tbDetPed.Edit; modestoque.tbDetPedBaixa.Value:=True; modestoque.tbDetPed.Post; end; modestoque.tbDetPed.next; /// faltou este comando end else begin showmessage('Registro não encontrado !'); exit; end; end; end; OBS: se ainda estiver travando, use o debugger do dephi (usando o break point ) para saber onde está o problema abraço

Veja o Blind Guardian ( componente ) http://www.utilmind.com/delphi1.html abraço

Simplificar ma fração... basicamente consiste em dada uma determinada fração exemplo: imagine que voce digite em um Edit a seguinte fração: 18/6 A fração será o objeto e terá duas propriedades, o numerador e o denominador... então deverá cria duas variaveis, uma para o numerador ( ex: num ) e outra para o denominador ( ex: den ) ambas deverão ser do tipo integer. agora basta separar os numeros da fração para cada uma das variaveis ex: num := 18 e den := 6 para fazer a separação voce deve retirar da string ( '18/6') o 18 e o 6 ignorando a barra o princípio que norteia a simplificação de frações é: uma fração não se altera quando dividimos seus termos por um mesmo número diferente de zero. agora basta montar um simples rotina onde os termos da fração serão divididos por um mesmo numero Ou seja, a forma irredutuvel da fração será dois numeros primos entre si. então uma simples divisão de cada um dos numeros ( num e den ) por numeros primos resultará a fração simplificada veja se consegue montar ... é mais facil do que parece. só precisa usar um pouco a massa cinzenta... rs abraço

flavioavilela... imagino que voce não saiba montar o código ... na verdade é mais simples do que parece, acho que com umas 10 linhas de código seria suficiente para resolver o seu problema. se voce não conseguir ( mas tente fazer ) depois posto o código para simplificar uma fração até a forma irredutivel abraço