Ir para conteúdo

Chrnos

Members
  • Total de itens

    1.546
  • Registro em

  • Última visita

  • Dias vencidos

    4

Chrnos venceu o dia em Setembro 15 2014

Teve o conteúdo mais curtido

Reputação

30 Levemente Bom

Sobre Chrnos

  • Classificação
    Analista Programador
  • Data de Nascimento 03-03-1980

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    São Paulo - SP
  • Interesses
    Desenvolvimento de sistemas, jogos online, RPG, animes, futebol, churrasco, bom chimarrão, fandango, trago e mulher.... hehehehe

Últimos Visitantes

3.010.087 visualizações
  1. Boteco iMasters

    Sei de nada, estou aqui quase num coma alcoólico jogado num canto do boteco só observando a zuera kkkkk
  2. Boteco iMasters

    Foi eu ficar um tempo sem aparecer que o A. Jr. virou empresário? Vish, se eu sumir de novo será o apocalipse zumbi pelo jeito... seria bom, desde que antes eu tenha já meu tanque e minha AK-47 huahuahauhauha. Bora beber que a vida anda difícil.
  3. Form Pesquisa

    Use o filtro do clientdataset... dê uma olhada neste tópico já resolvido aqui do fórum pra ter uma idéia de como fazer: http://forum.imasters.com.br/topic/268056-resolvido-filtrar-registros-de-dataset-sem-fazer-outro-select/
  4. Insert direto na query

    De cara já vejo dois possíveis problemas aqui: um é a sintaxe que está errada, pois está faltando inserir no seu sql os parênteses após o values... outro, que você está montando o insert como se fosse um update... lembre-se que qualquer insert é feito seguindo a regra abaixo: insert into tabela (campo1, campo2, ..., campoN) values (valor1, valor2, ..., valorN) Se observar seu código, seu sql está gerando um insert do tipo abaixo: INSERT INTO EMPRESA VALUES CODIGO = '4', --Considerando-se aqui que o valor do campo CODIGO.text seja 4 'RAZAO = 'RAZAO', Logo, já vemos de cara que não irá funcionar... um outro possível problema que terá com o insert desta forma é: se algum campo da tabela não for do tipo caracter, dará erro de conversão. Dê uma revisada, há inúmeros exemplos de como montar inserts dinâmicos passando os valores como parâmetro. Qualquer coisa retorne!
  5. Veja se este link consegue lhe ajudar: http://anaprogramadorajunior.blogspot.com.br/2013/10/fastreport-no-delphi.html Depois dá um retorno se conseguiu ou quais são as dúvidas.
  6. DBGrid

    Poderia ilustrar o que procura com um exemplo? Não consegui entender qual é o problema.
  7. Alterar Cor de Linha do Dbgrid

    Amigo, se tivesse feito uma pesquisa no fórum teria encontrado este tópico com a solução do seu problema. Só que tem um porém: você até pode gravar as cores no seu BD, mas tem que fazer um parse com as cores no padrão do delphi, pois no delphi, por exemplo, não existe a cor vermelho, mas o clRed. http://forum.imasters.com.br/topic/368229-alterar-cor-das-linhas-do-dbgrid/
  8. Impressão no componente fast report

    Faz tempo que não uso o fast report ... mas o problema não seria porque está dando um show no relatório antes de reabrir o componente de conexão neste ponto do código? Até onde me consta, para o relatório ter dados a ser exibidos ele precisa ter, antes de ser chamado, ter dados para exibir carregados.... DataModule3.frxReport.ShowReport; DataModule2.IBDatabase.Connected:= true;
  9. ShowModal

    O problema de usar o showmodal é que ele troca o foco de execução do form atual para o form chamado... em geral, neste tipo de situação, eu criava um form padrão com um gif animado com um "por favor aguarde" e dava um show neste form no início do processamento e um close nele após o término. Pelo menos visualmente o usuário não ficará sem informação... outra alternativa seria por um statusbar na sua aplicação e ir informando ao usuário por mensagens o status atual do processamento na própria tela (talvez usando junto um progressbar).
  10. Problemas com Função

    Ficaria algo como o postado a seguir.... só não lembro se o comando DirectoryExists funciona com endereço de rede não mapeado agora. var diretorio: String; bExclusaoOk : Boolean; begin //Flag auxiliar para verificar se conseguiu remover o diretório bExclusaoOk := True; //Diretório a ser verificado para exclusão diretorio := '\\server\listagem\images\' + DBid.caption; //Testa se existe o diretório if DirectoryExists(diretorio) then bExclusaoOk := RemoveDir(diretorio); //Se não conseguir excluir o diretório, retornar FALSO //Como a auxiliar foi inicializada como TRUE, só não irá executar o bloco abaixo caso não consiga //excluir o diretório da foto if bExclusaoOk then begin //exclui do BD o caminhos das fotos with dm.q_fotos do begin Close; sql.Clear; sql.Add('delete from tbl_fotos where id_ligar like '''+ f_incluir_imoveis.db_id.Text +'%'''); try ExecSQL; except on E:Exception do ShowMessage('Ocorreram erros durante a execução: ' + E.Message); end; end; end; end;
  11. Problemas com Função

    Seu problema está neste ponto... if RemoveDir(diretorio) then Se não existir um diretório para remover, você não entra no bloco que executa o delete, e o delete deveria ser executado de forma independente do diretório existir correto? Um tratamento que poderia usar é só chamar o RemoveDir se existir um diretório a ser excluído e executar o delete da mesma forma. Para garantir que os dois sejam excluídos juntos, poderia criar uma flag por exemplo para só permitir o delete se excluiu o diretório, inicializar ela como true e, caso não consiga excluir o diretório, torná-la falsa e só permitir a exclusão com ela true por exemplo.
  12. Prog errada?

    Vamos por partes... veja o código que postou com um pouco mais de atenção... nele você está dizendo ao programa para: a) Converter o valor digitado no edit1 e por na variável dist. B) Inserir no texto do edit2 o valor da variável tarifa (que não foi inicializada e pode ser qualquer coisa) c) Fazer o teste desejado e atribuir a variável tarifa o valor 12 se true ou a mensagem de erro se falso. d) Fim do programa Note que você inseriu o valor sem testar no edit2 e sem inicializar, por isso o erro. Tente assim: dist:=strtofloat(edit1.text); if (combobox1.text='programada') and (dist>4) then edit2.text:= '12' else Showmessage('errado');
  13. Erro "Is not a valid integer values"

    Pela mensagem apresentada, algum dos seus campos numéricos está recebendo um valor não numérico... por exemplo, um espaço em branco não é um número... reveja a forma como está preenchendo os dados no formulário e confira se o problema não está na conversão de algum dos dados de string para número.
  14. Boteco iMasters

    Dos dias que citou vou estar na escala só dia 26.... saio de férias dia 05/01, mas por estar na escala dia 26 agora vou emendar do dia 01/01 já em férias hahahahaha.... 20 dias longe de tudo aqui hehehehe... mas será bom pra recuperar, só as baladas deste final de semana me deixaram destruído huahuahuahuhauahuhaa.... virar a noite em uma e depois ir pra outra é legal, mas destrói o peão no fim da noite kkkkk. Pra recuperar, manda uma dose de absinto ai... e deixa a garrafa kkkkk
  15. Erro

    E qual a dúvida mesmo? Postar o código pedindo pra ver o que tem errado num tópico escrito ajuda sem dizer nem o que está tentando fazer e nada é a mesma coisa meu amigo... formule melhor o post explicando a sua dúvida e, numa próxima, coloque no título do tópico mais explicativo ok?
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

Este projeto é mantido e patrocinado pelas empresas:
Hospedado por: