Jump to content
Fórum Script Brasil

Erso

Membros
  • Content Count

    164
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Erso

Perfil

  • Gender
    Male
  1. Erso

    tabela de banco

    você tera q criar uma tabela para orçamento e outra para os produtos, e vincula-las com uma chave estrangeira!
  2. pessoal... Utilizo o componente "TStoredProc" da paleta BDE para executar as procedures do banco de dados ( Oracle).... criei uma "package" no Oracle para organizar melhor essas procedures..., agora, quando vou tentar usar essas procedures no "TStoredProc" elas não são listadas na propriedade StoredProcName, as unicas procedures listadas são as q não estao dentro de "packages". porque sera? :blink: obrigado!
  3. você tera q setar os valores dos Edits: no evendo "AfterScroll" da sua Query ( ou ClientDataSet ) sete os valores dos edits Edit1.Text := Query.FieldByName('NOME_DO_CAMPO').AsString; Edit2.Text := Query.FieldByName('NOME_DO_CAMPO2').AsString; é uma forma de se fazer :mellow:
  4. Erso

    Report Buider com ADO

    opa!! no report builder você não precisa usar os pipeLine e querys para inserir sql, as instruções sql são colocadas dentro de proprio relatorio..., é um pouco complexo de inicio trabalhar com report builder seria melhor você observar os exemplos q vem junto o Report builter... se você não tiver esses exemplos deixe seu email q eu envio p você!!
  5. eder o colega Jhonas está certo, fiz o teste com o seu codigo e realmente é so mudar o sinal, porque 10 - 11 = -1, teste o codigo: var Saldo, Saida_Estoque : Integer; begin Saldo:=strtoInt(Edit1.text); Saida_estoque:=strtoInt(Edit2.text); Showmessage(Inttostr(Saldo-Saida_Estoque)); end;
  6. você já tentou executa sua aplicação fora do delphi?.... utilize novamento o "trys, execepts" e rode sua aplicação fora do delphi, pois o delphi entra em modo de debug mesmo utilizando o "trys, execepts", para q você visualiza a exceção ..., se fora do delphi sua aplicação rodar normalmente vá em "Tols -> debugOption...na aba language exceptions... desabulite a opção stop on Delphi Exception": assim o delphi não entra em modo de debug quando houver uma exceção.
  7. bom não sei se minha resposta vai servir mas... tb já tive esse problema estava fazendo um aplicativo de mensagens... resolvi o problema fazendo um protocolo proprio de comunicação com as strings, ex: defina palavras chaves de comunicação, depois passe sempre entre "[ ]" os seus parametros, sempre o que estiver entre os primeiro "[ ]" da sua mensagem você vai saber q é parametros internos do seu systema... foi assim q resolvi meu problema. espero ter ajudado opa! tive outra ideia para t ajudar: Estude estrutura "XML", ai você vai passar as informação por string respeitando o padão "XML", vo
  8. não sei qual componente de acesso você esta utilizando... mas, onde você indica o caminho do banco dedados, você deve indicar o caminho do servidor, colocando o ip do seu servidor ( onde esta o seu banco de dados ) ":" e o caminho vale lembrar q o "client" do FireBird deve estar instalado nas suas maquinas clientes
  9. Erso

    Campo calculado

    Você não vai conseguir usar a função sum na clausura "WHERE", a maneira é fazer um Sub-select Close; Sql.Text := ' select * from ' +' ( ' +' Select produto,decricao,preço,unidade , sum(sugestadecompra) SugCalc from produto ' +' Where produto=:codigo ' +' Group By produto,decricao,preço,unidade ' +' )x ' +' where x.SugCalc > 1 ' +' Order By x.produto,x.decricao,x.preço,x.unidade '; Open; você pode usar um select como se fosse uma tabela dando um select ... from ( select ... from minha_tab
  10. ola! pessoal! Trabalho com Delphi+Oracle conexão BDE. existe a possibilidade de vincular a sessão aberta pelo sistema a um ID( codigo do operador logado no meu sistema )? ex: Tenho uma trigger que gera logs de alteração nas principais tabelas, gravo esses log numa outra tabela, e gostaria de gravar qual opererador do meu sistema fez a alteração. Obrigado!
  11. talvez por causa do formato da data!!o banco espera o formato americano ('mm/dd/yyyy') e quando você tranforma em string essa data fica no formato brasileiro('dd/mm/yyyy') tente assim: agenda:= DateToStr (Date); label3.Caption:= agenda; DM.QueryAgenda_Consulta.Close; DM.QueryAgenda_Consulta.SQL.Clear; DM.QueryAgenda_Consulta.Sql.Add ('SELECT * FROM agendaconsulta'); DM.QueryAgenda_Consulta.Sql.Add ('WHERE Data_consulta = :AGENDA'); DM.QueryAgenda_Consulta.Params[0].AsDate := Date; DM.QueryAgenda_Consulta.Open;
  12. da uma olhada neste tutorial: WebBrowser
  13. Erso

    memo

    sim: você pode trocar seu DBEdit por um DBMemo
  14. você tb pode fazer assim: porque se já existir o item q você esta tentando inserir sera retornado o indice dele dendro do listbox, caso contrario retornará "-1" ai você insere
×
×
  • Create New...