Jhonas

Eder.. tente desta maneira: procedure TForm1.Button1Click(Sender: TObject); var NewString: string; ClickedOK: Boolean; DataEmissaoRecibo:Tdate; begin NewString := ' / / '; ClickedOK := InputQuery('CP - Emissão de Recibo','Digite a Data do Recibo:(Ex.: 20/11/2008)', NewString); if ClickedOK then DataEmissaoRecibo := strtodate(NewString); label1.Caption := NewString; // NewString recebe o valor digitado end; abraço

Antonio .. voce está usando um componente QuickReport dentro do seu form ... fiz uns testes aqui e realmente não mostra a somatória na banda rbGroupFooter, mas mostra na banda rbSummary. troque para rbSummary, depois dou uma verificada melhor para descobrir o motivo. abraço

Oi Micheus .. voce não está errado não... se utilizar o gosth em um HD que já tenha informações, elas serão perdidas. abraço

Voce pode usar assim Ou ainda desta maneira //Download da Internet com Barra de Progresso para o Delphi 7 //Coloque um ProgressBar no form e declare a unit ExtActns na cláusula uses: uses ExtActns type TfrMain = class(TForm) ... private procedure URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean); ... implementation ... procedure TfrMain.URL_OnDownloadProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean); begin ProgressBar1.Max:= ProgressMax; ProgressBar1.Position:= Progress; end; function DoDownload(vURL, vArquivo : String): Boolean; begin with TDownloadURL.Create(self) do try URL:= vURL; FileName := vArquivo; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(nil); finally Free; end; end; //Utilize assim: procedure TForm1.Button1Click(Sender: TObject); begin DoDownload('http://www.activedelphi.com.br/programas/art06file01.zip','C:\exemplo.zip'); end; abraço

apostilas de delphi http://www.scribd.com/search?previous_quer...apostila+delphi http://www.scribd.com/search?previous_quer...p;x=36&y=10 Veja tambem em Tutorias e Dicas Delphi http://scriptbrasil.com.br/forum/index.php?showforum=69 abraço

voce deve usar este componente na banda rbGroupFooter ou rbSummary entretanto voce terá que ter o Dataset dentro do Report, caso contrario , voce pode trabalhar com variáveis internas para fazer a soma e mostrar o resultado em um QRLabel dentro do report abraço

Voce pegou o componente timer e colocou no seu form ? ele está na paleta System abraço

2 sugestões: 1 - de 2 clics em um arquivo .dpk e use o botao Add para adicionar todas as outras units ou as .dcus ... quando voce clicar em Install todos os componentes serão instalados de uma só vez. 2 - voce pode usar o gosth para fazer uma imagem do seu hd para o do outro pc. abraço

Configuração do meu micro abraço

fica dessa maneira procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Interval := 30000; // executar o timer a cada 30 segundos Timer1.Enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event(VK_RETURN, 0, 0, 0); // simulando o precionar da tecla enter keybd_event(VK_F9, 0, 0, 0); // simulando o precionar da tecla F9 end; Correção: cada 1000 corresponde a 1 segundo abraço

o OutLine, é um componente parecido com o Treeview, esse componente existe até hoje no Delphi para manter compatibilidade com as versões antigas. Ou seja , o que voce prentende fazer com o Outline, o componente Treeview faz e melhor. Faça uma busca no forum pela palavra Treeview http://scriptbrasil.com.br/forum/index.php...ghlite=Treeview abraço

procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Interval := 2000; // executar o timer em 2 min Timer1.Enabled := true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event(VK_F9, 0, 0, 0); // simulando o precionar da tecla F9 keybd_event(VK_RETURN, 0, 0, 0); // simulando o precionar da tecla enter Timer1.Enabled := false; end; OBS: A propriedade Enabled do timer tem que ficar inicialmente como false; Ao clicar no botão, é definido o tempo em que o timer iniciará o seu evento e é dado o comando para iniciar o relogio No tempo determinado ( 2 minutos ) será efetuado o pressionamento automático das teclas F9 e ENTER e o relogio será paralizado novamente A cada clique do botão o processo se repetirá. Mundando-se o interval voce muda o tempo em que o processo deverá se iniciar. Cada 1000 representa 1 segundo. abraço

Faça uma pesquisa nestes posts, vai encontrar o download do componente dspack http://scriptbrasil.com.br/forum/index.php...highlite=dspack outros componentes http://scriptbrasil.com.br/forum/index.php...st&p=520769 abraço

Voce pode montar uma instrução SQL somente com as opções que o usuário escolher para realizar a pesquisa quanto as opções para o usuário escolher, voce pode usar um RadioGroup1 ou CheckBox1 ou ComboBox1 ou ListBox1 etc... Se tiver dificuldade em montar uma instrução SQL veja este post http://scriptbrasil.com.br/forum/index.php...st&p=520800 abraço

Não sei se é exatamente isto que está querendo, mas voce pode ir no menu do delphi clicar em File - New - Console Application. Voce terá uma tela parecida com está program Project2; {$APPTYPE CONSOLE} uses SysUtils; begin // Insira o código de usuário aqui end. OBS: O código em pascal que voce inserir entre o begin e end será executado em modo Console. abraço

Isso porque o código está correto Voce está usando um dbgrid para visualizar os registros ? Linke o DataSouce da sua tabela à propriedade DataSource do DBGrid. abraço

Eder.. voce não vai encontrar esse programa na sua máquina, por isso postei o código todo dele. Como eu disse.. se voce souber usar os recursos do delphi, voce modifica e recompila este programa e substitui os qrprev.dcu, qrprev.dfm da sua máquina pelos que foram modificados. a outra sugestão é voce montar o seu preview usando práticamente todo o código da unit que te passei, então o modifica a seu gosto, depois bastaria voce apenas trocar o seu preview pelo do delphi, que é coisa facil de se fazer. abraço

Xafam .. procure seguir sempre uma sequencia lógica para implementar o código 1 - use botões de ação, para incluir, alterar, excluir, ver/imprimir, salvar e cancelar ( Registros ) 2 - use botões de navegação, para poder navegar entre os registros da tabela ( primeiro, anterior, próximo, ultimo ) No botão incluir, voce abre a sua tabela e faz o ponteiro ir para o ultimo registro. exemplo procedure TForm1.BitBtn1Click(Sender: TObject); begin // BOTAO INCLUIR // tabela TAB_FROM_VIEW18_VOTO with DMSISRET.Q_TAB_FROM_VIEW18_VOTO do begin Close; SQL.Clear; SQL.Add('select * from TAB_FROM_VIEW18 where mt_analistaalteracao = ' + FrmSenha.Edit1.Text + ' ORDER BY mt_analistaalteracao'); Open; end; // tabela Qvoto with DMSISRET.Qvoto do begin Close; SQL.Clear; SQL.Add('select * from dbo.tbvoto where mt_analista = ' + FrmSenha.Edit1.Text + ' ORDER BY mt_analista'); Open; end; TAB_FROM_VIEW18.Last; // ir para o ultimo registro TAB_FROM_VIEW18.Append; // adicionar novo registro TAB_FROM_VIEW18.Edit; // editar o registro dbo.tbvoto.Last; dbo.tbvoto.Apend; dbo.tbvoto.Edit end; No botão Alterar, voce deve fazer uma tela para pesquisar e selecionar um registro que deverá ser alterado procedure TForm1.BitBtn2Click(Sender: TObject); begin // BOTAO ALTERAR // Montar rotina para pesquisar e selecionar o registro para alteração end; No botão Excluir, voce deve fazer uma tela para pesquisar e selecionar um registro que deverá ser excluído procedure TForm1.BitBtn3Click(Sender: TObject); begin // BOTAO EXCLUIR // Montar rotina para pesquisar e selecionar o registro para exclusão end; No botão Ver/imprimir, voce deve colocar os comandos para dar um preview no relatório ou imprimir procedure TForm1.BitBtn4Click(Sender: TObject); begin // BOTAO VER/IMPRIMIR // Montar rotina para visualizar o relatório ou imprimi-lo end; No botão Salvar ou OK , voce deve colocar os comandos para salvar o registro incluido ou modificado procedure TForm1.BitBtn5Click(Sender: TObject); begin // BOTAO SALVAR TAB_FROM_VIEW18.Post; dbo.tbvoto. Post; end; No botão Cancelar , voce deve colocar os comandos para cancelar o registro incluido ou modificado procedure TForm1.BitBtn6Click(Sender: TObject); begin // BOTAO CANCELAR TAB_FROM_VIEW18.Cancel; dbo.tbvoto.Cancel; end; Nos botões de navegação ( DBNavigator ) voce coloca o codigo O DBNavigator deve ser linkado através da propriedade DataSource da sua tabela procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin if button = nbFirst then begin // Ir para o primeiro registro da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.First; DMSISRET.Qvoto.First; end; if button = nbPrior then begin // Voltar para o primeiro o registro anterior da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.Prior; DMSISRET.Qvoto.Prior; end; if button = nbNext then begin // Ir para o primeiro o proximo registro da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.Next; DMSISRET.Qvoto.Next; end; if button = nbLast then begin // Ir para o ultimo registro da tabela DMSISRET.Q_TAB_FROM_VIEW18_VOTO.last; DMSISRET.Qvoto.Last; end; end; OBS: Procure ler mais sobre o delphi ... veja tambem na seção de Tutoriais e Dicas de delphi no forum Este exemplo servirá para voce programar de maneira correta o seu código... mas quem define a lógica é voce. abraço

phelipe ... voce precisa ler mais sobre os comandos do dephi uses Printers; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin For I :=0 to Printer.Fonts.Count - 1 do ListBox1.Items.Append(Printer.Fonts.Strings[i]); end; procedure TForm1.ListBox1Click(Sender: TObject); begin Edit1.Text := ListBox1.Items.Strings[ListBox1.itemindex]; end; abraço

OK... fico no aguardo abraço

Como eu aposentei o delphi 3 faz tempo ... não me lembro onde está ... veja se encontra na aba midas procure porque o delphi 3 também tem. caso não encontre ainda pode ser usando desta maneira: procedure TForm1.Button1Click(Sender: TObject); begin Query1.Active := false; Query1.Params[0].AsDate := DateTimePicker1.Date; // parametro Dataini 01/02/2008 Query1.Params[1].AsDate := DateTimePicker1.Date; // parametro Datafim 31/12/2008 Query1.Prepare; Query1.Active := true; end; Neste caso não esqueça de definir o tipo do parametro no componente query OBS: Se voce for usar o ClientDataSet1, voce em que adicionar os parametros neste componente usando a propriedade Params do próprio componente e definindo o tipo. abraço

Use este código uses Printers; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin For I :=0 to Printer.Fonts.Count - 1 do ListBox1.Items.Append(Printer.Fonts.Strings[i]); end; abraço

Manoel .. tenho um cadastro de produtos com aproximandamente 90.000 itens e cada registro tem 18 campos... preferi usar o componente TTable com uso de indices TCadProd1.IndexDefs.Clear; TCadProd1.IndexName := 'CODPROX'; // nome do indice para o código do produto TCadProd1.IndexDefs.Update; a carga dos registros ( 90.000 )... leva 1 segundo para trazer os registros para o dbgrid... e para pesquisa usei o comando: TCadProd1.FindNearest([trim(Edit1.Text)]); este tempo está em torno de 100 milisegundos Desta maneira o seu usuário pode escolher qualquer opção de pesquisa, desde que esta opção esteja usando um indice correspondente ao campo. abraço

Antonio ... somente para exemplificar o uso: Na propriedade SQL da Query teria esta instrução: Select * from Tabela Where NomeClube <> ' ' and NomeEscalao <> ' ' and ( data >= :DataIni and Data <= :DataFim ) Order by NomeClube, NomeEscalao então para fazer uso do DateTimePicker para Dataini e DataFim, voce teria que usar 2 DateTimePicker, um para a data inicial da pesquisa e outro para a data final da pesquisa, atribuindo os seus valores aos parametros e consequentemente passando os valores para a instrução SQL exemplo: procedure TForm1.Button1Click(Sender: TObject); begin Query1.Active := false; ClientDataSet1.Active := false; ClientDataSet1.Params[0].AsDate := DateTimePicker1.Date; // parametro Dataini 01/02/2008 ClientDataSet1.Params[1].AsDate := DateTimePicker1.Date; // parametro Datafim 31/12/2008 Query1.Prepare; Query1.Active := true; ClientDataSet1.Active := true; end; Procure pesquisar no forum ... já tem muita coisa a respeito do assunto abraço

Existe sim .... basta utilizar a instrução select para fazer a pesquisa exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=520800 OBS: Além de ficar rapido por trazer menos registros, voce pode atualizar somente os registros escolhidos abraço