Recife

Obg Jhonas problema resolvido.

Ola Pessoal, Estou realizando uma aplicação bastante simples, onde tenho uma interface que tem a entrada de dados de cliente e do bem a ser financiado. Estes dados irão compor as partes do contrato a ser preenchido dentro de um QRMemo(com Quick Report), porém não estou conseguindo dar quebra de linha no texto. Realizei outra forma com um Memo(sem Quick Report), neste consegui dar a quebra de linha porém não consigo impressão. Obs: Não estou utilizando banco de dados, pois não é necessário armazenamento de dados. Utilizo Delphi 7.

pessoal estou com um setença em oracle que é a seguinte: DECODE(COD_PROFISSAO,''TECE'',''1'',''TECR'',''1'',''AUXE'',''1'',''TECH'',''1'',''0'')EH_TEC com esta sentença ficaria em sqlserver??

O caminho é mais ou menos por aqui: var i: Integer; begin for i := 0 to (ListBox1.Items.Count - 1) do begin if ListBox1.Selected[i] then begin ListBox2.Items.Add(ListBox1.Items[i]); end; end; end; Mais uma vez obrigado Micheus, RESOLVEU.

Pessoal, estou precisando de um rotina em que tenho um listbox1 na esquerda com itens carregado dinamicamente. Poderei selecionar tudo, so um ou alguns itens. Após isto ao clicar no respectivo botão deverá ser passado os itens selecionados para outro listbox2(direita). Estou utilizando delphi 5.

Bom dia, Estou precisando centralizar dados que são passados para o caption de um label dentro de um panel. Este label fica no topo do panel e dependendo dos dados enviados para o caption ele deve ficar no meio do panel. Estou usando delphi 5 e banco oracle.

obg pessoal problema resolvido

Ola Pessoal, Estou precisando ler um arquivo .TXT e seu conteudo exibir em um RichEdit. Porem, quando estou adicionando no add esta dando erro de compatibilidade text para string. Com faço para converte???

Jhonas, muito obrigado mesmo a informação serviu e o sistema rodou conforme solicitado pelo cliente.

Boa Tarde pessoal, Estou dando manutenção em tela de cadastro em um sistema em que utilizo um componente do tipo TRadiogroup e o mesmo a iniciar a tela não deve vir checado. Porém, quando saiu do componente antecessor(TMaskEdit) ele foca no radio group, mas para o usuário comum não sabe que esta focado pois não mudada nada, para mim sei que esta focado face programação. Como fazer para que no momento do foco no componete fique evidente para o usuário que o curso esta setado nele(radio group) ?

oi arthur, conforme foi citado depende da capacidade do seu sistema. Usualmente utilizo ou firebird ou interbase 6.5.

concordo com o erso, o firebird é bastante legal de se trabalhar, o delphi já traz aas ferramentas nativas pra conexão e tem otimas ferrametas para gerenciar banco, como ibexpert e iboconsole. O mysql e legal, porém tem algumas versões não possuem chaves estrangeiras, dai tendo que fazer relacionamentos atraves de chaves primarias. Se for utilizar pára web mysql e mais leve pois ira ficar em um servidor. espero ter contribuido. Abraços

Valeu Jhonas, resolveu beleza. Tava martelando fazia horas e um erro tão besta. Ao invés de passar parametro passei o valor diretamenta para a senteça. Ccorrigindo o codigo que coloquei: with DM.QryDML do begin try Close; SQL.Clear; SQL.Text := 'update tbproduto '+ 'set qtdestprod = qtdestprod -('+DBGrid1.Fields[2].AsString+') '+ 'where codprod ='+IntToStr(TblProdCODPROD.AsInteger); ExecSQL; DM.IBTransaction1.CommitRetaining; except DM.IBTransaction1.RollbackRetaining; ShowMessage('Estoque não atualizado!'); Abort; end;

Olá pessoal, estou com uma dúvida numa rotina de um código para atualizar estoque de um sistema em delphi 7 e bd firebird 2.0, segue o código abaixo: with DM.QryDML do begin try Close; SQL.Clear; SQL.Text := 'update tbproduto '+ 'set qtdestprod = qtdestprod -('+#39+DBGrid1.Fields[2].AsString+#39+') '+ 'where codprod =:'+#39+IntToStr(TblProdCODPROD.AsInteger)+#39; ExecSQL; // neste ponto acusa o seguinte erro: SQL Parse ERROR: Paraments name expected DM.IBTransaction1.CommitRetaining; except DM.IBTransaction1.RollbackRetaining; ShowMessage('Estoque não atualizado!'); Abort; end; Passo o valor que esta contido na coluna quantidade do dbgrid diminuindo da quantidade da tabela produto(qtdestprod), afim de atualizar a quantidade em estoque do produto na referida tabela(produto) após realizar uma venda.

No trecho do seu codigo: Parameters.ParamByName('XDT_VENCIMENTO').Value := FormatdateTime('yyyy"-"mm"-"dd',StrToDate(edtDtVencimento.Text)); Já tentou utilizar: Parameters.ParamByName('XDT_VENCIMENTO').asdatetime := FormatdateTime('yyyy"-"mm"-"dd',StrToDate(edtDtVencimento.Text));

Te encaminhei um email, manda pelo mesmo os dados para analisar e tentarmos começar a solução. Pois estamos aqui para isto.

Oi Cassios, Não sei como você montou sua tabela no BD, o cod. do equipamento não pode ser chave primária, e você deve deixar o campo cod equipamento livre para digitar o codigo, tendo atenção para criar rotina de verificação dos codigos do cliente e equipamento. você tmabém deve atentar para não ter nenhum generator de codigo de equipamento. Se cod cliente já existe faça cod equipamento + 1 senão cod equipamento recebe novo cod Deve aprimorar mais esta pequena rotina mostrando mensagens. Recife.

Fala felipe, você não acharia melhor adicionar a sua tabela mais campos, hentradaprimeiroperiodo, hsaidaprimeiroperiodo, e para tarde a mesma coisa so que segundo periodo. Pois desta forma você teria um melhor controle sobre a entrada e saida. Poderia se pensar em dois totais por periodos. Dai você poderia dentro do select trabalhar so com os totais de periodos e poder calcular as horas extras. Entenda esta não é a solução do seu problema, porem é uma forma de comecarmos a descascar este pepino.

procura no site que o jhonas te indicou, uma apostila delphi c/s(client/servidor) muito boa. Recife.

procura usar application.messagebox('messagem que você quer passar para o usário','titulo da caixa de mensagem',mb_algumacoisa+mb_tipo de botão).

Micheus, Só tenho à agradecer pela solução, conseguir fazer rodar a rotina no sistema como uma luva. Problema Resolvido

Micheus, obrigado pela sua resposta. Porém não conseguir rodar o projeto que você postou, não estou conseguindo o caminho para o databasename.Aparece a seguinte mesangem:Database Engine Error. Invalid directory. Directory: C:\Teste.DB

teu componente ZQSldAtual esta na mesma unit ou você fez referencia ao data module onde esta o componente, pode ser isto que esta dando access violation. Pois ao cahamar a função o componente não esta criado, ou seja não tem acesso.

Micheus, é exatamente isto. dividi o qreport em duas colunas, coloquei uma band detail e dentro da bando um qrexprmemo. Quando rodo e chamo este relatório, apresenta o primeiro registro na primeira fila da coluna, o segundo registro no final da fila da coluna, o terceiro na primeira fila da segunda coluna, o quarto registro no final da fila da segunda colunda. dai, passa-se para uma nova pagina e segue-se a mesma rotina descrita. Não sei como resolver este problema.

Oi pessoal, Estou precisando imprimir etiquetas, em uma rotina de um sistema que estou desenvolvendo. Utilizo Delphi 7, BD Firebird 1.5. Os dados das etiquetas são conseguidos de uma setença SQL através de uma query, onde filtro clientes por data de aniversário(informado pelo usuário - dia do nascimento / mes do nascimento). Coloquei um QRExprMemo dentro de uma band Detail. Porém, quando existe mais de um cliente o primeiro registro sai certo, o segundo registro sai no final da página da primeira coluna, o terceiro irá sair na primeira linha da segunda coluna(obs: dividi o quick em duas colunas) o quarto sai no final da pagina da segunda coluna e assim sucessivamente.