Ir para conteúdo
Fórum Script Brasil

danielrgoes

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    295

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por danielrgoes

  4. Erro de Incompatible column no Firebird

    em Delphi, Kylix

    Postado

    Bom dia Pessoal

    Sei que esse forum não é de Firebird porem o pessoal aki custuma a mexer muito com ele e acho que pode me ajudar

    eu criei uma tabela e com um tipo do campo errado

    campo= HORA_TESTE tipo = date

    esse campo era pra ser do tipo time

    dai o programa em delphi foi e salvou data em branco nele e data em barndo no delphi salva uma coisa mais ou menos assim 12/12/1989

    não sei como mais deixou salvar ai o que acontece

    eu vi que tava errado e fui e dei um drop field nesse campo e apaguei ele porem mesmo assim não consigo salvar coisas mais nessa tabela

    fica aparecendo a msg abaixo mesmo sem o campo

    Error Message:

    ----------------------------------------

    Incompatible column/host variable data type.

    Dynamic SQL Error.

    SQL error code = -303.

    conversion error from string "13-MAY-1905".

  7. Utilização do Inno

    em Delphi, Kylix

    Postado

    E ai pessoal

    preciso de uma ajuda fiz um executável de instalação usando o inno agora preciso fazer outro para atualizar o programa mais tem que possouir a seguinte caracteristicas

    Verificar se a versão anterior já está instalada na maquina

    se estiver da uma aviso que os dados serão apagados se continuar executando

    verificar se o programa esta aberto se estiver não conclui a instalação

  8. Duvida de Firebird

    em Delphi, Kylix

    Postado

    Pessoal gostaria da ajuda dos entendidos de Firebird do forum

    tenho 2 tabelas

    Tabela:TESTE

    COD_TESTE

    DATA_INCLUSAO

    STATUS

    Tabela: MOTIVO

    COD_TESTE

    MOTIVO

    preciso dar um select na tabela TESTE com o Status = 1

    SELECT * FROM TESTE WHERE STATUS = 1

    e os codigos que reteonarem fazer um select na tabela motivo e unir todos os campos

  13. Alinhar o QrLabel no Relatorio

    em Delphi, Kylix

    Postado

    Estou com um problema e gostaria de ver se voces tem uma solucao pra mim

    Tenho um relatorio no QR eu preciso alinhar o Qrlabel mais da seguinte forma

    suponhamos que o relatorio tenha uma tabela com 3 colunas e 50 linhas

    cada linha da 3º coluna tem uma QRlabelporem eu gostaria que esse Label ficasse no centro da celula

    como o escrito pode variar não da pra fazer a conta com o Width do label

    a minha tabela estou fazendo ela linha a linha com o QRShape

  16. Query com Valor multipliacado

    em Delphi, Kylix

    Postado

    Eu tenho um conjunto de componentes que ligam na minhatabela no banco e eta funcionado certinho

    porem tentei gerar uma frase SQL com multiplicação e da erro

    sql := 'SELECT COD_TESTE,'+

    'N_TESTE, '+

    'VAZAO * 4.403, '+

    'ALTURA, '+

    'TENSAO, '+

    'CORRENTE1, ' +

    'CORRENTE2, ' +

    'CORRENTE3, ' +

    'MEDIA_CORRENTE, ' +

    'POTENCIA_ENTRADA, ' +

    'V,HG,HV,TH,WHP,RENDM,RCONJ,RENDB,BHP, ' +

    'CALCULADO,PONTO_OPERACIONAL,FAIXA_OPERACIONAL ' +

    'FROM DESC_TESTE_DSC4 ' +

    'WHERE COD_TESTE = ' + IntToStr(modulo.cds_teste_dsc4COD_TESTE.Value) +

    ' AND N_TESTE = ' + IntToStr(modulo.cds_teste_dsc4N_TESTE.Value) +

    ' ORDER BY VAZAO' ;

    modulo.cds_desc_teste_dsc4.close;

    modulo.sql_desc_teste_dsc4.SQL.clear;

    modulo.sql_desc_teste_dsc4.SQL.Add(sql);

    modulo.cds_desc_teste_dsc4.Open();

    modulo.cds_desc_teste_dsc4.First;

    fala que o campo VAZAO não existe

    se eu executar essa Query direto no banco da certo então a frase esta correta

    como faço pra faze ela no delphi

  18. Saber se os dados foram alterados

    em Delphi, Kylix

    Postado

    e ai pessoal beleza?

    Seguinte to com uma duvida

    eu tenho um sistema como todos com um botao alterar e um salvar

    para alterar eu do um

    modulo.cd_tabela.edit;

    e para salrvar um

    modulo.cds_tabela.post;

    bom eu gostaria de sabe se por exemplo quando eu der um edit

    como saber se o usuario alterou ou não os dados

    Exemplo:

    tenho um campo NOME na minha tabela

    quando clico em alterar da um edit o uduario entra mais não muda o campo quando da um post eu sei que não foi alterado

    eu ando fazendo assim quando clica em altera guardo todas as informaçoes em variaveis depois comparo

    mais não se se essa é a melhor forma

  19. QRDbText com quebra de linha

    em Delphi, Kylix

    Postado

    Pessoal é o seguinte

    procurei na internet como quebrar linha no QRDBText quando a palavra é muito grande para não sair do relatorio

    achei varias coisas pra mudar as propriedades do AutoSize, WordWarp e AutoStresh mais nenhum deu certo

    o que que melhor fica é AutoSize = false , WordWarp = true e AutoStresh = true porem ate quebra a linha amis fica

    uma parte em cada pagina do relatorio

  20. Liberar pasta no FreeBSD

    em GNU/Linux

    Postado

    Boa tarde pessoal

    eu tenho um servidor com o FreeBDS e libero pasta com o chmod e tals

    porem eu gostaria de saber se eu tiver uma pasta: pasta1 e dentro desta pasta eu tiver varias pastas

    pasta1 - 1

    pasta1 - 2

    pasta1 - 3

    pasta1 - 4

    eu gostaria de liberar somente acesso a pasta1 - 3 para determinado usuario de outro grupo

    como eu faço

  21. Como pegar data de pastas

    em Delphi, Kylix

    Postado

    Bom dia pessoal

    Gostaria de saber como eu faço pra verificar dentre todas as pastas qual tem a data de criaçao amis antiga

    Ex:

    pasta C:\Teste

    subpastas

    C:\Teste\1\

    C:\Teste\2\

    C:\Teste\3\

    C:\Teste\4\

    C:\Teste\5\

    dentre as 1,2,3,4,5 qual tem a data de criaçao mais antiga

    para fazer isso pegando de arquivos eu sei fazer mais de pastas não

  23. DBgrid zebrado mais a item selecionado não muda de cor

    em Delphi, Kylix

    Postado

    exprimente assim:

    exemplo:

    procedure TFCadProd.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   If odd(TCadProd1.RecNo) then
      begin
         DBGrid1.Canvas.Font.Color:= clBlack;
         DBGrid1.Canvas.Brush.Color:= cl3DLight;
      end
   else
      begin
         DBGrid1.Canvas.Font.Color:= clBlack;
         DBGrid1.Canvas.Brush.Color:= clWhite;
      end;

   if (gdSelected in state) then
      DBGrid1.Canvas.Font.Color:= clred
   else
      DBGrid1.Canvas.Font.Color:= clBlack;

   DBGrid1.Canvas.FillRect(Rect);
   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

    abraço

    Jhonas ficou bom mais ainda não é exatamente o que eu quero

    pois apenas a celula selecinada fica vermelha

    fostaria que a linha toda do DBbrid ficase vermelha

  25. DBgrid zebrado mais a item selecionado não muda de cor

    em Delphi, Kylix

    Postado

    Boa Tarde

    eu estou zebrando o meu DBGrid dessa forma

    if Odd (modulo.cds_auxprojeto.RecNo) and ( modulo.cds_auxprojeto.State <> dsInsert) then

    begin

    DBGrid4.Canvas.Brush.Color:= clSkyBlue;

    DBGrid4.Canvas.FillRect(Rect);

    DBGrid4.DefaultDrawDataCell(Rect,Column.Field,State);

    end;

    Porem a linha em branco quando selecionada fica azul escura mais quando eu seleciono uma SkyBlue não fica azul escuro

    parecendo que esta selecionada

    como soluciono este problema

×
×
  • Criar Novo...