-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
procedure TForm1.Button1Click(Sender: TObject); var QUANT, QUANT2, NUM1, NUM2 : integer; begin NUM1 := 7; NUM2 := 3; QUANT:= NUM1 DIV NUM2; QUANT2:=NUM1 MOD NUM2; showmessage( 'QUANT = ' + inttostr(QUANT)); showmessage( 'QUANT2 = ' + inttostr(QUANT2)); end; abraço
-
QuickReport - Formulário de Projeto na Visualização
pergunta respondeu ao DanielR de Jhonas em Delphi, Kylix
è exatamente dessa maneira que tem que mostrar ... quando voce dá o preview o formulario do relatorio aparece na frente de outras janelas abertas no delphi... voce pode maximizar o formulario para encobrir as demais janelas. abraço -
banco de dados indisponível incapaz de abrir o banco de dados "Unavailable databse" refere-se ao Cliente não conseguindo conexão com o servidor. voce pode tentar: Ou ainda: ou pode ler esses artigos: http://www.destructor.de/firebird/gsec.htm http://www.cosmoverbal.net/firebird/altera...dows-e-no-linux abraço
-
Manipular registros resultantes de busca
pergunta respondeu ao Gabriel Cabral de Jhonas em Delphi, Kylix
Uma query nada mais é do que uma copia de sua tabela ( que voce pode trabalhar com todos os registros ou somente alguns... quando voce usa parametros, voce esta aplicando um filtro na sua tabela e somente os registros selecionados da sua tabela é que farão parte da query ) .... quando voce modifica os registros de uma query e depois da o comando Post e ApplayUpdates , voce atualiza a sua tabela com esses registros. isso só indica que voce não conhece tão bem o delphi e que precisa melhorar o aprendizado com mais leitura sobre o assunto. abraço -
Manipular registros resultantes de busca
pergunta respondeu ao Gabriel Cabral de Jhonas em Delphi, Kylix
voce consegue alterar registros usando table ou query. Voce tera um select para QueryCadCompras e tera um select para dm.ESTACMP passando os parametros de QueryCadCompras para dm.ESTACMP , dentro de um while como já esta fazendo. a unica diferença é que não vai precisar usar o locate, pois a cada passagem do while, somente um unico registro de dm.ESTACMP com os parametros selecionados é que será trazido por vez e que voce podera executar as modificações no registro dessa query ( dm.ESTACMP ) fica muito mais rapida a execução e menos trafego de registros no caso de ser em rede abraço -
O caminho ficaria assim: 192.6.1.4:c:\Banco\banco.fdb no evento onCreate do seu Form coloque:: try IBDatabase1.Connected := True; except ShowMessage('não foi possível realizar a conexão com o BD'); end; no OnClose ou OnDestroy do form coloque: try if IBTransaction1.InTransaction then IBTransaction1.Commit; IBDatabase1.Connected := False; except ShowMessage('erro de comunicação com o BD'); end; abraço
-
a conexão é remota ou local ?
-
Manipular registros resultantes de busca
pergunta respondeu ao Gabriel Cabral de Jhonas em Delphi, Kylix
tente esta mudança: QueryCadCompras.First; while not QueryCadCompras.Eof do begin nota := QueryCadCompras.FieldByName('CMPNOT').Value; prod := QueryCadCompras.FieldByName('CMPPRO').Value; dm.ESTACMP.First; if dm.ESTACMP.Locate('CMPNOT;CMPPRO', VarArrayOf([nota,prod]), []) then begin dm.ESTACMP.Open; dm.ESTACMP.Edit; dm.ESTACMPCMPNOT.Value := txtCadCompras_AuxNumNota.Text; dm.ESTACMPCMPDAT.Value := StrToDateTimeDef(txtCadCompras_Data.Text,0); dm.ESTACMPCMPFRE.Value := StrToFloatDef(txtCadCompras_Frete.Text,0); dm.ESTACMPCMPIPI.Value := StrToFloatDef(txtCadCompras_IPI.Text,0); dm.ESTACMPCMPACR.Value := StrToFloatDef(txtCadCompras_Acrescimo.Text,0); dm.ESTACMPCMPDSC.Value := StrToFloatDef(txtCadCompras_Desconto.Text,0); dm.ESTACMP.Post; end; QueryCadCompras.Next; end; OBS: Não é uma maneira muito correta, pois se o seu dm.ESTACMP contiver muitos registros, a performance cai muito com a utilização do locate ... entretanto de voce usar um Select com parametros [nota,prod], tambem para dm.ESTACMP, isso agilizaria muito o processo. abraço -
se voce limitar o tamanho do campo do registro colocado na banda Detail do report, ele mostrará como uma coluna vertical abraço
-
Deixar em negrito o nó do treview selecionado procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); begin with TreeView1.Canvas do begin if cdsSelected in State then begin Font.Color := CLBLUE; // cor azul Font.Style :=[FSBOLD]; // negrito Brush.Color := TreeView1.Color; end; end; end; abraço
-
Simulador de Balança Toledo Simula o protocolo de dados Toledo - P03 utilizado para comunicação entre balança e computador. (Produto para Desenvolvedores) http://www.igara.com.br/produto.php?cod_produto=48 abraço
-
Verificar se EmbeddedWB mudou/carregou site
pergunta respondeu ao LuloNet de Jhonas em Delphi, Kylix
quem faz o redirecionamento para outra pagina é o próprio site e não o compomnente abraço -
(Resolvido) Comunicar Delphi com porta RS232
pergunta respondeu ao LuloNet de Jhonas em Delphi, Kylix
Veja esses posts http://scriptbrasil.com.br/forum/index.php...;highlite=rs232 Um exemplo de uso: http://scriptbrasil.com.br/forum/index.php...st&p=581515 abraço -
Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=vk_control abraço
-
O site www.bsalsa.com está em manutenção e é lá que voce vai encontrar um tutorial sobre os eventos do componete EmbeddedWB. abraço
-
(Resolvido) Word com Delphi 7 - Como pular a página
pergunta respondeu ao Samuelsjn de Jhonas em Delphi, Kylix
que tipo de relatorio ? quickreport ou outro ? -
O que deve ser feito para obter o peso de um produto diretamente no computador? 1º Passo: A balança deve possuir uma saída serial para transmitir as informações sobre o peso. 2º Passo: A balança deve estar conectada ao computador através de um cabo serial. 3º Passo: No computador deve estar instalado um software que receba as informações transmitidas pela balança (Ex. Lebalanca.exe ou um software com pcscale.dll) 4º Passo: A balança deve estar configurada com os mesmos parâmetros de comunicação serial do software que recebe as informações. Comunicacao com a Balanca FILIZOLA http://www.filizola.com.br/suporte-ao-clie...-frequentes.php PC Scale .... Características: O PcScale reúne todas as informações e recurso necessário para efetuar a comunicação serial ou Ethernet das balanças com outros dispositivos. É principalmente uma ferramenta para facilitar o desenvolvimento de programas que necessitam ler as balanças. No pacote você encontrará: PROTOCOLOS: Protocolos de comunicação da interface RS-232 de cada modelo de balança. GUIAS DE COMUNICAÇÃO: Documentos com configurações e esquemas de cabos dos modelos de balança/indicadores. DOS: Exemplos de programação para DOS em linguagem Basic, C, Clipper com um programa executável que efetua a leitura das balanças e gera um arquivo texto com as informações transmitidas. UNIX: Exemplos de programação para UNIX em linguagem C. Win32: DLL para leitura das balanças em Windows (95,98,XP,NT,2000) com programas de exemplos em linguagem Delphi, CBuilder, C50 e Visual Basic. Downloads: PcScale – Instalação completa – Tamanho do download: 11,6 MB http://www.momixts.com.br/ftp/momix/pcscale_full_416.exe PcScale – Kit de Distribuição – Tamanho do download: 2,3 MB http://www.momixts.com.br/ftp/momix/pcscaledk_416.exe Manual de programação da DLL – Tamanho do download: 146 KB http://www.momixts.com.br/ftp/momix/pcscale_manual.pdf abraço
-
Este tipo de equipamento foi projetado para um trabalho de carga continua. existe um dispositivo eletrônico que desativa a carga de entrada quando a carga da bateria atinge um certo limite. então o fato de desligar o equipamento quando se desliga o PC, em nada influencia o seu funcionamento. as baterias tem um tempo de vida util.... ao findar esse tempo, voce nota que as baterias não aguentam o tempo ( autonomia ) que deveriam, indicando que é necessaria a sua substituição. abraço
-
o windows 7 trabalha na base de permissões... se o escaneamento de documento é feito através de um software, use o modo de compatibilidade ( clique com o botão direito do mouse no executavel e va em propriedades > compatibilidade ) e escolha windows XP ou em permissões de acesso total ao software abraço
-
2 sugestões: 1 - use o modulo de compatibilidade do windows 7 para faze-lo funcionar, emulando o XP 2 - de permissão total para o sw do pendrive abraço
-
[AJUDA] Criar imagem corel ao iniciar aplicativo
pergunta respondeu ao Rafael Pasc. de Jhonas em Delphi, Kylix
Experimento o SavePictureDialog1 procedure TCadastro01.SpeedButton9Click(Sender: TObject); begin with SavePictureDialog1 do begin if (Length(FileName) = 0) or (Sender = SaveAs1) then begin if Execute then begin OleContainer1.SaveToFile(SavePictureDialog1.FileName); end end else OleContainer1.SaveToFile(SavePictureDialog1.FileName); end; end; abraço -
Como não tenho esse componente estou te passando exemplos usando o componente MediaPlayer do delphi http://marcelo-severo-dp.blogspot.com/2010...-de-somvoz.html http://www.planetadelphi.com.br/dica/5236/...ne-com-o-delphi OBS: quanto a mostrar uma barra de progresso na gravação, voce vai encontrar a resposta em um desses posts ( terá que pesquisar ) http://scriptbrasil.com.br/forum/index.php...ite=MediaPlayer abraço
-
pra salvar o arquivo depois que você incluiu o RLPDFFilter é só colocar o nome do arquivo na propriedade Filename e no RLReport dar o comando: Rlpdffilter1.FileName := \'C:\\Relatorio.pdf\'; RLReport1.SaveToFile(\'C:\\Relatorio.pdf\'); pra imprimir sem visualizar só precisa dar um Print RLReport1.Print; abraço
-
Veja esse link http://www.fortesreport.com.br/index.br.htm você pode utilizar o componente RLPDFFilter do próprio Fortes Report. Após adicionar é só salvar o relatório e utlizar o filtro PDF que irá aparecer num combo na tela. http://www.fortesreport.com.br/lib/TRLPDFFilter.htm abraço
-
o phpmyadmin é um gerenciador do próprio site .... verifique se o provedor possibilita acesso remoto ao banco de dados. abraço