Ir para conteúdo
Fórum Script Brasil

Samuelsjn

Membros
  • Total de itens

    38
  • Registro em

  • Última visita

Tudo que Samuelsjn postou

  1. Boa noite, Tenho um sistema pronto em delphi 7 acessando banco de dados postgres. Este sistema foi desenvolvido em um sistema operacional Windows XP e com componentes VCL. Agora que entra o problema. Instalei o delphi 7 como o mesmo banco de dados e componentes no Windows 7 64bits. Até ai tudo beleza. Mais quando eu mando compilar o projeto, me retorna vários erros de Duplicate resource. Reparei que a maioria dos erros se referem aos forms que utiliza o componente DBGrid. Pesquisando na internet descobri que eu teria que utilizar componentes CLX ao invés de VCL. Tem alguma maneira de reverter este problema sem ter que alterar o código fonte???? Ou se tiverem uma sugestão! Obrigado
  2. Boa tarde. Alguém por acaso conhece o componente ARWordReport que pode me dar uma luz ou me arrumar um tutorial. Abradecido
  3. Boa tarde pessoal, Após várias pesquisas na internet consegui achar o q eu estava precisando. Segue o código para pular para a próxima página do word utilizando o delhpi Word.Selection.EndKey(wdStory); //move o cursor para a última posição do documetno Word.Activedocument.Range(Word.Selection.Start,Word.Selection.Start).InsertBreak(); //insere uma quebra de página Word.Selection.EndKey(wdStory); //move o cursor para a última posição do documento Word.Selection.EndKey; //move o cursor para o final do arquivo e no uses adiciona word2000; Obrigado
  4. Bom dia Jhonas.... O relatório que estou desenvolvendo é direto, não utilizo nem quickreport, nem fortesreport e nem outro. Utilizo uma variavel do tipo variant >> Word : Variant; E vou montando esta varial ex: Word := CreateOleObject('Word.Application'); try Word.Documents.Add('Modelo.dot'); prgrsbrGeracaoRelatorio.Max := 100; prgrsbrGeracaoRelatorio.StepBy(10); Word.Selection.Font.Size := 18; Word.Selection.Font.Bold := True; Word.Selection.ParagraphFormat.Alignment := 1; Word.Selection.TypeText(Text:='ANEXO I'+Chr(13)+Chr(13)); Entendeu? Os relatórios já estão prontos e funcionando muito bem, só estou precisando mandar uma parte do relatório para a outra página, tipo uma quebra de página. Voce pode me ajudar?? Abraço
  5. Boa tarde Estou desenvolvendo um aplicativo onde os relatorios são enviados para o word. Ate ai tudo bem. Mas chegou um momento crítico. estou precisando continuar o relatório na outra página e não sei como fazer. Exemplo: Indice na primeira página; Introdução na segunda página ; Estou utilizando delphi 7 e montando o relatorio com a varialvel Word : Variant; esta tudo certo, só não estou conseguindo mudar a página.... alguém pode ajudar?????? Antes de mais nada obrigado
  6. Olá C.J. Então. Se o XPManifest faz com que os botões fiquem no estilo do Win Xp, qual componente deixa o panel,edit,label,form etc no mesmo estilo (caso houver) se não houver este componente, qual sugestão voce me daria para mudar o visual do sistema sem deixa-lo pesado. Obrigado pela ajuda
  7. Boa tarde, Gostaria de saber como faço para melhorar o visual do meu sistema. Estava utilizando o VCLSkin, mas testando em máquinas de clientes, percebi que o sistema ficou muito pesado. Fora alguns bugs de menu. Então pesquisando na Internet descobri um componente do proprio delphi, XPManifest, mas não consegui melhorar as opções de cores. Então gostaria da opinião de voces, qual a melhor forma para mudar o visual do sistema. Cor para forms e botoes... etc. Ajudemmmmmm Obrigado
  8. ahh ta entendi mas você que não explicou direito então, repara que você fala de "arquivo bat" e "como você faria com os parâmetros no seu projeto delphi" da impressão que você quis saber como chamar um arquivo bat e saber como passar os parametros pra ele :) No source do programa, menu "Project > View Source" voce adiciona var szParams: String = ''; procedure GetParams; var i: Integer; begin for i := 1 to ParamCount do if (i = 1) then szParams := ParamStr(i) else szParams := szParams + ' ' + ParamStr(i); end; logo após o begin você chama o GetParams; e depois em szParams está os parametros passados ao programa... begin GetParams; if Pos('bla', lowercase(szParams)) > 0 then bla; adapte da forma que desejar... seria isso? Olá Churc... Cara era isso mesmo que eu estava querendo. Valeu pela ajuda...
  9. Caro Churc, Acho q voce não entendeu minha pergunta. Este código que você postou, eu já conhecia. Eu queria saber como eu faria meus parametros para receber as informações vindas de parametros fora do sistema. Segue como exemplo o do postgres que o psql recebe o nome do banco, caminho, senha e etc de um arquivo bat cd C:\PASTA_DO_MEU_SISTEMA\src meu_sistema.exe -NOME_DO_PARAMETRO_DENTRO_DO_MEU_SISTEMA "c:\teste.txt" Isso que eu quero saber . Mesmo assim obrigado
  10. Ola pessoal, Gostaria de saber como faço para charmar um sistema um arquivo bat, sendo que neste bat teria que passar alguns paramentros.Como faço com os paramentros no projeto do delphi? Por exemplo: ---> cd C:\Arquivos de Programas\PostgreSQL\8.1\bin psql -h localhost -p 5432 -U postgres -d banco -f "C:\script.sql" Aqui estou chamando um sistema "psql" (do banco de dados postgres) e passando parametros como host,usuario,nome do banco e caminho do arquivo.***** Isso foi um exemplo. No meu caso preciso passar somente o nome do arquivo. Como declaro no meu projeto em delphi7 Obrigado pela atenção
  11. Samuelsjn

    PNGDelphi

    Jhonas, Muito obrigado.... Mais uma dúvida. O arquivo que fez o download foi o pngimage.zip, é este mesmo Se for deu certo... Vlw
  12. Samuelsjn

    PNGDelphi

    Ola pessoal, Teria como alguém me ajudar? Estou precisando do componente pngdelphi. Entrei no site mais ele não esta mais disponível. O site q entrei foi : https://sourceforge.net/users/pngdelphi/ Se alguém tiver este componente poderia me passar? Estou usando Delphi 7 Meu email é samuelsjn@yahoo.com.br ou me passem um link para download Obrigado
  13. Bom dia!!! Estou com uma dúvida em relação ao componente DataMemo do rave report 5.0. Estou utilizando o Rave Disigner. Eu gostaria de deixar o tamanho dele dinamico. O tamanho dele ira variar em relação as informações contidas no banco de dados. O meu relatorio já esta rodando, só esta faltando arrumar esta parte, pois esta muito esquisito. Exemplo: O campo da tabela item possui a coluna descrição o primeiro item possui uma descrição com 100 caracters e o segundo item possui uma descrição com 10 caracteres. Eu queria que o DataMemo aumentasse e diminuisse de tamanho em relação a descrição do item.... alguém pode me ajudar!!!! Obrigado
  14. Caro amigo Luis Ricardo; Valeu pela explicação, mais não era essa a minha dúvuda. Eu estava querendo que o scroll fosse para o final da minha listview, quando achasse o valor consultado. Mais eu consegui resolver. Essa foi o meio que desloquei a minha barra de rolagem: ListView1.Scroll(0,ListView1.Selected.Top-(ListView1.Height div 2)); Valeu
  15. Ola pessoal, Tenho um listview no meu formulário, ele forma a lista dos meus registros que se encontram em meu banco de dados. Nele eu faço uma consulta, mais não consigo abaixar a barra de rolagem vertical para mostrar a linha com o registro para o meu usuário Teria como fazer isso? Abraço
  16. Boa tarde Gostaria de saber se existe algum modo de melhorar a velocidade da consulta no postgresql. Estou desenvolvendo um sistema utilizando Delphi 7 com o postgres 8.1, a conexão eu utilizo ADO com ODBC. Quando faço uma consulta simples ( Select idfornecedor, nome, cnjp from fornecedor ) no pgAdmin III, o resultado volta muito rápido. Mas, quando faço no delphi (meu sistema) demora um pouco para preencher a listveiw. São mais ou menos 3900 registro que volta nesta consulta. alguém poderia me ajudar Antes de mais nada Obrigado
  17. Samuelsjn

    Rave Report

    Faça uma pesquisa no forum, já tem alguma coisa a respeito. http://scriptbrasil.com.br/forum/index.php...lite=justificar abraço Ola Jhonas, Cara eu já tinha pesquisado no Forum, dei mais uma olhado hoje com esse seu link, mais não resolveu o meu problema. Tem neste Forum, uma function JustificarText, eu testei ela aqui mais tambem não resolveu o meu problema. (Só para reforçar) " O meu problema é justificar um memo estático no Rave Report Design. " Valeu Jhonas obrigado pela ajuda
  18. Ola Jhonas, Os meus DataBand estão configurados da maneira que você falou. Eu só não entendi a parte de definir os campos. Em qual propriedade eu defino? É no DetailKey? O meu DataBand que esta como o BandStyle definido como Detail o qual mostra a quantidade, esta com o DataView apontando para o DataView2, sendo que o CalcOp esta utilizando o DataView2 e DataView3, será que isto esta interferindo? Obrigado pela ajuda
  19. Pessoal boa tarde, Estou desenvolvendo relatórios no rave report utilizando banco de dados Postgres e Delphi 7. A minha dúvida é a seguinte. Tenho que exibir o saldo da quantidade de item. Tenho uma tabela de estoque que possui tanto a entrada e saída dos itens. Faço uma consulta por item, outra somando a quantidade de entrada e outra consulta somando a quantidade de saída. Mando estas três consultas para o rave. Em um DataBand coloco a descrição e o código do item. Em outro DataBand utilizo o componente CalcOp para fazer a subtração da qauntidade dos itens. Src1DataField >> entrada Src1DataView >> DataView2 Src2DataField >> saida Src2DataView >> DataView3 Assim esta o meu CalcOp. o calculo esta correto; o problema que estou tendo e que um item esta recebendo todas as quantidades e esta repetindo para os outros itens. EX: Cod: 292 Desc: Caneta Quantidade: 5 Quantidade: 25 Quantidade: 80 Quantidade: 99 - - - - - - - - - - - - - - - - Cod: 293 Desc: Caneta Preta Quantidade: 5 Quantidade: 25 Quantidade: 80 Quantidade: 99 - - - - - - - - - - - - - - - Cod: 294 Desc: Caneta Vermelha Quantidade: 5 Quantidade: 25 Quantidade: 80 Quantidade: 99 - - - - - - - - - - - - - - - Cod: 295 Desc: Lapis Quantidade: 5 Quantidade: 25 Quantidade: 80 Quantidade: 99 - - - - - - - - - - - - - - - Eu gostaria que ficasse assim, Cod: 292 Desc: Caneta Quantidade: 5 - - - - - - - - - - - - - - - - Cod: 293 Desc: Caneta Preta Quantidade: 25 - - - - - - - - - - - - - - - Cod: 294 Desc: Caneta Vermelha Quantidade: 80 - - - - - - - - - - - - - - - Cod: 295 Desc: Lapis Quantidade: 99 - - - - - - - - - - - - - - - Em que parte estou errando? alguém poderia me ajudar? Obrigado
  20. Olá pessoal, A pedido do Micheus irei colocar a melhor maneira (pode ter outrar mais essa foi a minha escolhida) de formatar um valor flat no Rave Report. Estou utilizando o banco de dados Postgres e Delphi 7, neste delphi se encontra o Rave 5, o qual estou utilizando. Na arvore de componentes do Rave, possui uma opção de Data View Dictionary (Dicionário de dados), é nele que estão todos os atributos compostos da sua pesquisa de sql, repare que o ícone referente ao atributo mostra que tipo de dados foi recuperado pela consulta. Selecione o atributo com o tipo de dado "igual" a float e na aba de propriedades deste atributo irá possuir a opção DisplayFormat. Nesta opção coloque a máscara #,##0.00 (somente isto). Pronto o formato do float ira possuir duas casas decimais. Abraço
  21. Samuelsjn

    Senha no postges

    Ola Kandrade, Para mim tanto faz, estou precisando uma maneira de encontrar a senha atraves de comandos que irei inserir no meu projeto em Delphi.... Obrigado pela atenção
  22. Olá Pessoal, Tirem uma dúvida. Tem como através de linha de comando descobrir a senha do meu banco (ou usuario) no postgres. Pois estou precisando deixar alterar a senha do banco, mais so se souber a atual senha. Por isso queria comparar. Obrigado
  23. Pessoal muito obrigado, mais consegui resolver....
  24. Ola pessoal; Estou precisando criar uma lista (tipo excel) com linhas e colunas. A primeira coluna será a descrição do item, e as demais colunas serão os lances de cada fornecedor. Estava pensando em fazer com o listview, mais eu não sei se este componente possui esta função. Inserir diretamente nas suas células os valores do usuário (descrção do item e lance dos fornecedores). alguém poderia me ajudar? Caso o delphi 7 possuir outro componente teria como mandar um tutorial de como funciona. Muito obrigado.......
  25. Muito obrigado Micheus. Funcionou certinho e desculpe pela demora. Abraço
×
×
  • Criar Novo...