Jhonas

Procure por programação delphi para eletronica OBS: vai encontrar a maioria dos codigos em C, Assembly e outros poucos em Qbasic, Hexa e Delphi http://www.sabereletronica.com.br/downloads.asp http://www.eletronicatotal.com.br/downloads.htm OBS: Voce pode tentar converter C para delphi. abraço

Colega ... da uma olhada neste endereço, existe o componente TUsers http://www.toolsandcomps.com/port/products_tusers_v2x.htm abraço

Oi Eder ... este endereço tem a solução para este problema http://www.techtips.com.br/2007/08/ abraço

Modulo.MESROMCAR1.SQL.Add('Select codfortra,datsai,numromcar from mesromcar where numromcar='+#39+edit1.Text+#39); numromcar='+#39+edit1.Text+#39); voce esta jogando o conteudo do edit1.text ( string ) num campo numérico sem fazer a conversão que tal tentar numromcar='+#39+strtoint(edit1.Text)+#39); abraço

SQL Parse ERRO: Nome de Paramentro esperado Este erro acontece quando um nome de tabela ou coluna é esperado. 'where codprod =:'+#39+IntToStr(TblProdCODPROD.AsInteger)+#39; voce colocou um numero como parametro e não um nome que vai receber este numero exemplo 'where codprod =:COD; abraço

mas voce já esta fazendo isto DM_agenda.ZQry_consulta.SQL.Add('select * from eventos where data =:date order by horario asc'); esta selecionando os registro por data e ordenando os horarios use uma variavel que pegue o tempo atual para comparar com o campo horario da sua tabela var hora : TTime; hora := now; // atribui a variavel hora a hora atual e ela é passada como parametro para a SQL como faz com a data DM_agenda.ZQry_consulta.SQL.Add('select * from eventos where data =:date and horario > :hora order by horario asc'); OBS: uma idéia para controlar os eventos da tabela, seria uma varredura no arquivo atraves de um componente timer, onde voce poderia especificar de quanto em quanto tempo esta varredura seria feita, para verificar se existissem eventos a serem realizados abraço

realmente é assim que deve funcionar ... ao clicar numa pagina do pagecontrol voce habilita todos os componentes que fazem parte desta pagina exemplo // se a pagina 2 ( PageControl1 neste caso tem o numero 1 ) estiver habilitada ele vai limpar o edit1 e jogar o foco nele, caso contrario, ele joga o foco no BitBtn1 que esta em outra pagina. if PageControl1.ActivePageIndex = 1 then begin edit1.Clear; edit1.SetFocus; end else BitBtn1.SetFocus; abraço

este erro significa: o Dataset não esta em modo de edição ou inserção de registros. Processo parado então voce deve deixar o codigo assim procedure TForm1.ToolButton4Click(Sender: TObject); begin with DM.Tabela1 do begin //if Locate('CampoMes', 'Março', []) then // pode ser assim tambem if Locate('CampoMes', 'Março', [loCaseInsensitive]) then begin DM.Tabela1.Edit; // o edit so deve vir depois que ele achar o registro DM.Tabela1Valor.Value := strtofloat(Edit1.Text); DM.Tabela1.Post; end; end; end; abraço

Voce pode usar o comando Locate para isto: Definição Procura o dataset para um registro especificado e faz para aquele registro o registro atual. function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override; Descrição Use Locate para procurar um dataset para um registro específico e posicionar o cursor nele. KeyFields é uma string contendo uma lista delimitada por ponto-e-vírgula, de nomes de campo em que deve procurar. KeyValues é uma Variante contendo os valores para procurar nos campos fundamentais. Se KeyFields listar um único campo, KeyValues representa o valor de procura por aquele campo. Se KeyFields listar campos múltiplos, passe uma ordem Variante como o parâmetro de KeyValues. Você pode construir uma ordem variante ( array ) que usa a rotina de VarArrayOf rapidamente. Por exemplo: with NomedaTabela do begin if Locate('CampoMes', 'Março', [loPartialKey]) then NomedaTabela.Valor := 10,00; end; Mai informações no help do delphi abraço

Oi Eder... esta procedure é pra fazer exatamento isto ... para cada pagina do QR criar uma imagem veja: procedure TFORM1.QrpToImg(QR: TQuickRep; Path: string; Tipo: Integer); for i := 1 to QR.QRPrinter.PageCount do // este for criará o numero de imagens, quantas forem as paginas do seu QR e quando ele salva. é o caminho mais o titulo ( Pagina1.jpg ... Pagina2.jpg .... Pagina3.jpg ... etc ) isto para cada pagina que vier a ser gerada pelo QR if Tipo = 0 then BMP.SaveToFile(Path + 'Pagina' + IntToStr(i) + '.bmp') else if Tipo = 1 then JPG.SaveToFile(Path + 'Pagina' + IntToStr(i) + '.jpg'); se não me engano o Micheus já postou algo que pode te servir.. da uma pesquisada no forum http://scriptbrasil.com.br/forum/index.php...st&p=411536 abraço

Colega ... este componente não sumiu da internet Duck Barcode - Data : 10 de Fevereiro de 2003 - 15:16 Excelente componente para gerar código de Barras e em quase todos os formatos Tamanho: 209 KB Categoria: VISUAL Versão: 1.0 Data de Postagem: 11/11/2001 Autor: Desconhecido Licença: FREEWARE Com Fontes?: SIM Sistema: D3, D4, D5, D6 endereço para download http://www.guiadodelphi.com.br/compdelphi/Duck.ZIP outros http://www.adbaaz.com/?dn=www.ducktech.com...StYXaF1Ow%3D%3D http://www.delphi32.com/vcl/2831/download,xid,2831.asp http://www.freesoft411.com/freeware/duck-barcode.html http://www.delphi-files.com/Vcl/Miscellane...ode-v-1-2D.html abraço

estou usando delphi 3, 5 e 7 ... funciona voce pode tentar desta outra maneira Edit1.Text := 'Total Dep. Projetos : R$ ' + FormatFloat('#,##0.00',valComp0); Edit2.Text := 'Total Dep. Zeladoria : R$ ' + FormatFloat('#,##0.00',valComp1); procure no help do delphi por Format strings abraço

tudo bem ... então tenta este Edit1.Text := 'Total Dep. Projetos ) : R$ ' + format('%8.2f',[valComp0]); Edit2.Text := 'Total Dep. Zeladoria) : R$ ' + format('%8.2f',[valComp1]); acho que agora vai funcionar abraço

tente desta maneira Parameters.ParamByName('XDT_VENCIMENTO').Value := '''' + FormatdateTime('yyyy-mm-dd',StrToDate(edtDtVencimento.Text)) + ''''; ou ainda Parameters.ParamByName('XDT_VENCIMENTO').Value := '''' + FormatdateTime('yyyy/mm/dd',StrToDate(edtDtVencimento.Text)) + ''''; ou ainda de uma olhada nest post do Micheus sobre este assunto http://scriptbrasil.com.br/forum/index.php...st&p=421910

Modifique desta maneira procedure TForm1.ToolButton4Click(Sender: TObject); var i : integer; valComp0, valComp1 : real; begin valComp0 := 0; valComp1 := 0; for i := 1 to DM.Q1.recordcount do begin if DM.Q1Departamento.Value = Edit3.Text then valComp0 := valComp0 + DM.Q1Valor.Value; if DM.Q1Departamento.Value = 'ZELADORIA' then valComp1 := valComp1 + DM.Q1Valor.Value; DM.Q1.Next; end; Edit1.Text := 'Total Dep. Projetos ) : R$ ' + format('%d',[valComp0]); Edit2.Text := 'Total Dep. Zeladoria) : R$ ' + format('%d',[valComp1]); end; abraço

da uma olhada nesta post http://scriptbrasil.com.br/forum/index.php...st&p=459861 abraço

Até o Delphi 7, o help testava os limites do formato WinHelp. WinHelp já era um formato ultrapassado, sem melhorias ou suporte, inclusive não funcionando diretamente em uma instalação padrão do Windows Vista hoje em dia. Quando foi impossível incluir mais conteúdo sem estourar esse limite, uma alternativa teve que ser encontrada. A solução foi passar para o formato HTML Help 2, que tinha que comportar as mais de 38mil páginas de documentação que compõe o Help. Essa migração afetou a qualidade da documentação, que perdeu a praticidade que existia nas consultas do help anterior, e parte do conteúdo. O Delphi 2007 para Win32 teve como um dos principais focos a melhoria da documentação, tanto no conteúdo, na sua apresentação, e na integração com a IDE. O processo foi árduo, mas teve resultados que são bastante visíveis. A microsoft vai adotar um novo padrão de Help no Windows Vista, e esse novo help usa o .NET Framawork e o Help do Delphi já está nesse padrão. Microsoft Releases a Vista patch for Delphi 7 support in Vista Microsoft Vista Esta atualização também inclui correções que estão contidas na actualização 929427. These fixes improve support in Windows Vista for the following applications: “ And then it lists a bunch of programs including CDs and multimedia apps and in the very middle is “Delphi 7 Professional”. If anyone else can find more details on the exact issue, I’ll gladely update this article. Estas correções vão melhorar o apoio no Windows Vista para as seguintes aplicações: "E então, enumera uma série de programas, incluindo " Delphi 7 Professional " . abraço

de acordo com este erro esta faltando ( Nenhum argumento ) passar a string; procedure TDmDentalita.FollowUp(cod_cliente : integer ; chamador : String); de acordo com esta procedure, voce tem que passar 2 parametros, o codigo do cliente e este chamador que é uma string .... mas tambem não se esquece de verificar como esta o seu banco de dados Sugestão: Quando comigo acontece isto que voce reportou, ou seja, faço uma modificação no programa e ai começam aparecer erros, eu desfaço todas as modificações, rodo o programa para saber se voltou a funcionar corretamente, ai então parto novamente para as modificações, prestando mais atenção ao que estou fazendo, e tento novamente, até solucionar o problema. abraço

colega.. mesmo que voce tenha limitado a visualização do dbgrid em 13 linhas, ao usar a barra de rolagem, a posição do registro muda... então voce não vai ter sempre a linha 1 como sendo o registro 1, mas na linha 1 visualizada no dbgrid pode estar o registro 2 ou 3 ou 5, ou 10.... etc... a linha do dbgrid reflete a linha do registro na tabela No DbGrid não é possvel mas se usar o stringgrid é possivel fazer o que voce esta querendo abraço

colega ... se voce acrescentou o campo vendedor no dbgrid usando o editor de colunas do dbgrid, e não definiu este campo na select ou não importou o campo para dentro do dataset, este erro pode acontecer. muito provavelmente o erro acontece quando voce abre (open) o dataset ou a select... verifique abraço

amigo ... o raciocínio é o mesmo ( é só adaptar a idéia ao seu código ) .... não tem mistério procedure TForm1.Button1Click(Sender: TObject); var i : integer; valComp0, valComp1 : real; begin valComp0 := 0; valComp1 := 0; for i := 1 to QDepart.recordcount do begin if QDepartDepartamento.Value = 'Projeto' then valComp0 := valComp0 + QDepartValor.Value; if QDepartDepartamento.Value = 'Zeladoria' then valComp1 := valComp1 + QDepartValor.Value; QDepart.Next; end; Edit1.Text := 'Total das Compras (Departamento Projetos) : R$ ' + format(%d,[valComp0]); Edit2.Text := 'Total das Compras (Departamento Zeladoria) : R$ ' + format(%d,[valComp1]); end; OBS: existem outras maneiras de se obter o mesmo resultado abraço

voce tentou este ? {Desligar o Windows} procedure TForm1.Button1Click(Sender: TObject); begin ExitWindowsEx(EWX_SHUTDOWN,0); end; abraço

acho que ficou meio vago esta resposta da uma olhada neste post, é uma dúvida igual a sua http://scriptbrasil.com.br/forum/index.php...st&p=461450 abraço

Vai um exemplo bem simples ... digamos que a minha query se chama QDepart, e que na minha tabela tenha os campos : compras e vendas procedure TForm1.Button1Click(Sender: TObject); var i : integer; valComp, valVend : real; begin valComp := 0; valVend := 0; for i := 1 to QDepart.recordcount do begin valComp := valComp + QDepartCompras.Value; valVend := valVend + QDepartVendas.Value; end; Edit1.Text := 'Total das Compras : R$ ' + format(%d,[valComp]); Edit2.Text := 'Total das Vendas : R$ ' + format(%d,[valVend]); end; OBS: isto é apenas uma idéia de como fazer.... abraço

voce pode usar um componente Ibquery para isto, onde a instrução SQL ficaria assim: select * from ocorrencia where codigo = 'codigo do aluno' order by codigo ou ainda select * from ocorrencia where codigo = :cod order by codigo neste caso voce passaria o codigo do aluno como parametro ---------------------------------------------------------------------- exemplo Alunos_IB.Active := false; CDS_Alunos.Active := false; CDS_Alunos.Params[0].AsInteger := 34; Alunos_IB.Active := true; CDS_Alunos.Active := true; select * from ocorrencia where nome = 'nome do aluno' order by nome ou ainda select * from ocorrencia where nome = :nom order by nome neste caso voce passaria o nome do aluno como parametro ---------------------------------------------------------------------- exemplo Alunos_IB.Active := false; CDS_Alunos.Active := false; CDS_Alunos.Params[0].AsString := 'José Fanscisco'; Alunos_IB.Active := true; CDS_Alunos.Active := true; abraço