Jhonas

O colega Maikel pediu para voce fazer uma pesquisa no forum ... habitue-se a usar a pesquisa .... veja os resultados obtidos para a palavra Processos. http://scriptbrasil.com.br/forum/index.php...hlite=processos abraço

Veja em alguns destes posts, duvida semelhante a sua http://scriptbrasil.com.br/forum/index.php...e=login+e+senha abraço

Verifique então o seu banco de dados, ou o campo onde voce digita. ( se for o caso troque-o para teste ) abraço

Veja se alguns destes posts ajuda http://scriptbrasil.com.br/forum/index.php...capturar+teclas abraço

Este arquivo faz parte de um Pacote de Exportação de banco de dados contém vários componentes por exportar dados de banco de dados a outros formatos. TKDatasetToText - dados de exportação de um dataset ativo em arquivo de texto; TKDatabaseToText - exportação e importação banco de dados inteiro para os arquivos de texto. Também são suportados campos memorando e campos BLOB; TKDatasetToHTML - exceto um dataset ativo como arquivo de HTML; TKDatasetToDBF - exceto um dataset ativo em tabela de DBase; TKDatasetToPrint - imprimir dataset; Veja este codigo: //<FLAG License> // Summary: // Export formular // // Description: // Export formular // // Internal: // // Todo: // // Bugs: // // History: // <pre> // <b>Version 01.00.00 (Released 20.04.2000)</b> // 20.04.2000 PBE Initial release // <b>Version 01.02.00 (Released )</b> // 02.09.2000 PBE Documentation for Doc-o-matic // </pre> // //## License: //## The contents of this file are subject to the Mozilla Public License //## Version 1.1 (the "License"); you may not use this file except in //## compliance with the License. You may obtain a copy of the License at //## http://www.mozilla.org/MPL/ //## //## Software distributed under the License is distributed on an "AS IS" //## basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the //## License for the specific language governing rights and limitations //## under the License. //## //## The Original Code is JEDI Database Desktop Export Plugin //## //## Initial Developer of the Original Code is Pascal Berger. //## Portions created by Beat Bucheli are Copyright 2000 by Pascal Berger //## All Rights Reserved. //## //## Contributors: - //## //## You may retrieve the latest version of this file at the JEDI Database //## Desktop home page, located at http://jedidbd.sourceforge.net //## unit DlgExport; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, kds2prn, kds2dbf, kds2html, kdb2text, RXSpin, DBTables, Placemnt; type TFrmExport = class(TForm) RGExportType: TRadioGroup; GBOptionsPrinter: TGroupBox; BtnExport: TButton; BtnClose: TButton; TextExport: TKDatasetToText; HTMLExport: TKDataSetToHTML; DBFExport: TKDataSetToDBF; PrinterExport: TKDatasetToPrinter; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; EditTitle: TEdit; MemoHeader: TMemo; EditLeftMargin: TRxSpinEdit; MemoFooter: TMemo; BtnPreview: TButton; GBOptionsHTML: TGroupBox; Label5: TLabel; Label6: TLabel; MemoHtmlHeader: TMemo; GBOptionsdBase: TGroupBox; GBOptionsText: TGroupBox; Label10: TLabel; SaveDialog: TSaveDialog; MemoHtmlFooter: TMemo; Label7: TLabel; Label8: TLabel; EditTopMargin: TRxSpinEdit; FormStorage: TFormStorage; CBDelimiter: TComboBox; BtnAbout: TButton; procedure RGExportTypeClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure BtnPreviewClick(Sender: TObject); procedure BtnExportClick(Sender: TObject); procedure BtnAboutClick(Sender: TObject); private { Private-Deklarationen } Table:TTable; procedure SetVisibleOptionBox(OptionBox:TGroupBox); public { Public-Deklarationen } IsAlias: boolean; DBName: string; TableName: string; end; var FrmExport: TFrmExport; implementation {$R *.DFM} uses uFileUtils, uGlobals; procedure TFrmExport.SetVisibleOptionBox(OptionBox:TGroupBox); begin GBOptionsText.Visible:=false; GBOptionsdBase.Visible:=false; GBOptionsHTML.Visible:=false; GBOptionsPrinter.Visible:=false; OptionBox.Visible:=true; end; procedure TFrmExport.RGExportTypeClick(Sender: TObject); begin case RGExportType.ItemIndex of 0: begin SetVisibleOptionBox(GBOptionsText); end; 1: begin SetVisibleOptionBox(GBOptionsdBase); end; 2: begin SetVisibleOptionBox(GBOptionsHTML); end; 3: begin SetVisibleOptionBox(GBOptionsPrinter); end; end; end; procedure TFrmExport.FormShow(Sender: TObject); var i:integer; begin Table:=TTable.Create(self); Table.DatabaseName:=DBName; Table.TableName:=TableName; Table.Open; TextExport.Dataset:=Table; dbfExport.DataSet:=Table; HTMLExport.DataSet:=Table; PrinterExport.Dataset:=Table; MemoHTMLHeader.Lines.Add('<h1>'); MemoHTMLHeader.Lines.Add(' <center>'); //Default values if IsAlias then begin EditTitle.Text:=':'+DBName+':'+TableName; MemoHTMLHeader.Lines.Add(' :'+DBName+':'+TableName); end else begin EditTitle.Text:=TableName; MemoHTMLHeader.Lines.Add(' '+TableName); end; MemoHTMLHeader.Lines.Add(' </center>'); MemoHTMLHeader.Lines.Add('</h1>'); for i:=33 to 255 do begin CBDelimiter.items.Add(Chr(i)+' (#'+IntToStr(i)+')'); CBDelimiter.ItemIndex:=9; end; end; procedure TFrmExport.FormDestroy(Sender: TObject); begin Table.Close; Table.Free; end; procedure TFrmExport.BtnPreviewClick(Sender: TObject); begin with PrinterExport do begin Title:=EditTitle.Text; //Footer and Header are exchanged in component!! Header:=MemoFooter.Lines; Footer:=MemoHeader.Lines; LeftMargin:=StrToInt(EditLeftMargin.Text); TopMargin:=StrToInt(EditTopMargin.Text); Preview; end; end; procedure TFrmExport.BtnExportClick(Sender: TObject); begin case RGExportType.ItemIndex of //Text export 0: begin SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.txt'; SaveDialog.DefaultExt:='txt'; SaveDialog.Filter:='All files (*.*)|*.*|Text files (*.txt)|*.txt'; SaveDialog.FilterIndex:=2; if SaveDialog.Execute then begin TextExport.Delimiter:=Chr(CBDelimiter.ItemIndex); TextExport.Transfer(SaveDialog.FileName); end; end; //dBase export 1: begin SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.dbf'; SaveDialog.DefaultExt:='dbf'; SaveDialog.Filter:='All files (*.*)|*.*|dBase files (*.dbf)|*.dbf'; SaveDialog.FilterIndex:=2; if SaveDialog.Execute then dbfExport.Transfer(SaveDialog.FileName); end; //HTML export 2: begin SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.html'; SaveDialog.DefaultExt:='html'; SaveDialog.Filter:='All files (*.*)|*.*|HTML files (*.html)|*.html'; SaveDialog.FilterIndex:=2; if SaveDialog.Execute then begin HTMLExport.Header:=MemoHTMLHeader.Lines; HTMLExport.Footer:=MemoHTMLFooter.Lines; HTMLExport.Transfer(SaveDialog.FileName); end; end; //Printer export 3: begin PrinterExport.Title:=EditTitle.Text; //Footer and Header are exchanged in component!! PrinterExport.Header:=MemoFooter.Lines; PrinterExport.Footer:=MemoHeader.Lines; PrinterExport.LeftMargin:=StrToInt(EditLeftMargin.Text); PrinterExport.TopMargin:=StrToInt(EditTopMargin.Text); PrinterExport.Print; end; end; end; procedure TFrmExport.BtnAboutClick(Sender: TObject); begin ShowAboutBox; end; end. Endereço para download do pacote, para as versões do delphi 2 a 5: http://gd.tuwien.ac.at/softeng/delphi/ftp/d20free/kdbexp.zip abraço

"list index out of bounds(8)" índice de lista fora da faixa (8) " Verifique com calma e usando tambem o debugger do delphi ( usando os breakpoints ) para achar qual é o indice que está fora da sua lista. O erro com certeza está em um dos selects. abraço

sugestões: verifique as configurações regionais do seu micro no painel de controle verifique se a definição de mascara é esta !99/99/0000;1;_ abraço

É bem simples. procedure TForm1.Image2Click(Sender: TObject); begin Image2.Visible := false; Image1.Visible := true; end; procedure TForm1.Image1Click(Sender: TObject); begin Image1.Visible := false; Image2.Visible := true; end; abraço

if ValidarDAta(mskdatainicial, mskdatafinal) then begin decodedate(strtodate(mskdatainicial.Text), ano, mes, dia); datainicial:= inttostr(mes) +'/'+ inttostr(dia) +'/'+ inttostr(ano); decodedate(strtodate(mskdatafinal.text), ano, mes, dia); datafinal:= inttostr(mes) +'/'+ inttostr(dia) +'/'+ inttostr(ano); if chktipos.Checked then begin if (cosub1.Text <>'') and (cosub2.Text='') then begin if optcliente.Checked then begin varsql:='SELECT Format(IIf([operacao]="Entrada",[total_operacao],""),"#####0.00") AS Entrada, Format(IIf([operacao]="Saída",[total_operacao],""),"#####0.00") AS Saida, L.Cod_lancamento, L.data, L.historico, L.operacao, Format(L.total_operacao,"###,##0.00"), '+ 'S2.Subtipo2, L.NF, S1.Subtipo FROM Subtipo1 as S1 INNER JOIN (lancamentos as L LEFT JOIN subtipo2 as S2 ON L.cod_subtipo2=S2.Cod_Subtipo2) ON S1.Cod_Subtipo1=L.cod_subtipo1 WHERE (((L.data) Between #'+datainicial+'# And #'+datafinal+'#) AND ((L.historico) Like "'+edtnome.Text+'%") '+ 'AND ((S1.Subtipo)="'+cosub1.text+'")) ORDER BY L.data, L.Cod_lancamento'; flag:=2; exit; /// sair aqui end else begin varsql:='SELECT FORMAT(IIf([operacao]="Entrada",total_operacao,""),"#####0.00") AS Entrada, FORMAT(IIf([operacao]="Saída",total_operacao,""),"#####0.00") AS Saida, lancamentos.cod_lancamento, lancamentos.data, lancamentos.historico,Lancamentos.NF, '+ 'lancamentos.operacao,FORMAT(lancamentos.total_operacao, "###,##0.00"), Subtipo2.Subtipo2 FROM (Subtipo1 INNER JOIN (lancamentos LEFT JOIN subtipo2 ON lancamentos.cod_subtipo2 = subtipo2.Cod_Subtipo2) ON Subtipo1.Cod_Subtipo1 = lancamentos.cod_subtipo1) ' + 'WHERE (Lancamentos.Data Between #'+datainicial+'# And #'+datafinal+'#) and (subtipo1.subtipo = "'+cosub1.Text+'") ORDER BY Lancamentos.Data, Lancamentos.Cod_lancamento'; flag:=2; exit; /// sair aqui end end else begin if (cosub1.Text<>'') and (cosub2.Text<>'') then begin if optcliente.Checked then begin varsql:='SELECT Format(IIf([operacao]="Entrada",[total_operacao],""),"#####0.00") AS Entrada, Format(IIf([operacao]="Saída",[total_operacao],""),"#####0.00") AS Saida, L.Cod_lancamento, L.data, L.historico, L.operacao, Format(L.total_operacao,"###,##0.00"), '+ 'S2.Subtipo2, L.NF, S1.Subtipo FROM Subtipo1 as S1 INNER JOIN (lancamentos as L LEFT JOIN subtipo2 as S2 ON L.cod_subtipo2=S2.Cod_Subtipo2) ON S1.Cod_Subtipo1=L.cod_subtipo1 WHERE (((L.data) Between #1/7/2008# And #7/30/2008#) AND ((L.historico) Like "'+edtnome.Text+'%") '+ 'AND ((S1.Subtipo)="'+cosub1.Text+'") AND ((S2.Subtipo2)="'+cosub2.Text+'")) ORDER BY L.data, L.Cod_lancamento'; flag:=3; exit; // sair aqui end else begin varsql:='SELECT FORMAT(IIf([operacao]="Entrada",total_operacao,""),"#####0.00") AS Entrada, FORMAT(IIf([operacao]="Saída",total_operacao,""),"#####0.00") AS Saida, L.cod_lancamento, L.data, L.historico, '+ 'L.operacao, L.NF, FORMAT(L.total_operacao, "###,##0.00") FROM (Subtipo1 as S1 INNER JOIN (lancamentos as L LEFT JOIN subtipo2 as S2 ON L.cod_subtipo2 = S2.Cod_Subtipo2) ON S1.Cod_Subtipo1 = L.cod_subtipo1) '+ 'WHERE (L.Data Between #'+datainicial+'# And #'+datafinal+'#) and (S1.subtipo = "'+cosub1.Text+'") and (S2.subtipo2 = "'+cosub2.Text+'") ORDER BY L.Data, L.Cod_lancamento'; flag:=3; exit; // sair aqui end; end else begin if cotipo.Text <> '' then begin if optcliente.Checked then begin varsql:='SELECT Format(IIf([operacao]="Entrada",[total_operacao],""),"#####0.00") AS Entrada, Format(IIf([operacao]="Saída",[total_operacao],""),"#####0.00") AS Saida, L.Cod_lancamento, L.data, L.historico, L.operacao, '+ 'Format(L.total_operacao,"###,##0.00") AS Expr1, S2.Subtipo2, S1.Subtipo, S2.Subtipo2, Tipo.Tipo FROM (Subtipo1 AS S1 INNER JOIN (lancamentos AS L LEFT JOIN subtipo2 AS S2 ON L.cod_subtipo2 = S2.Cod_Subtipo2) ON S1.Cod_Subtipo1 = L.cod_subtipo1) '+ 'INNER JOIN Tipo ON S1.Cod_tipo = Tipo.Cod_tipo WHERE (((L.data) Between #'+datainicial+'# And #'+datafinal+'#) AND ((L.historico) Like "'+edtnome.Text+'%") AND ((Tipo.Tipo)="'+cotipo.Text+'")) ORDER BY L.data, L.Cod_lancamento'; flag:=1; exit; // sair aqui end else begin varsql:='SELECT Format(IIf([operacao]="Entrada",[total_operacao],""),"#####0.00") AS Entrada, Format(IIf([operacao]="Saída",[total_operacao],""),"#####0.00") AS Saida, L.Cod_lancamento, L.data, L.historico, L.operacao, '+ 'Format(L.total_operacao,"###,##0.00") AS Expr1, S2.Subtipo2, S1.Subtipo, L.NF, Tipo.Tipo FROM (Subtipo1 AS S1 INNER JOIN (lancamentos AS L LEFT JOIN subtipo2 AS S2 ON L.cod_subtipo2 = S2.Cod_Subtipo2) ON S1.Cod_Subtipo1 = L.cod_subtipo1) '+ 'INNER JOIN Tipo ON S1.Cod_tipo = Tipo.Cod_tipo WHERE (((L.data) Between #'+datainicial+'# And #'+datafinal+'#) AND ((Tipo.Tipo)="'+cotipo.Text+'")) ORDER BY L.data, L.Cod_lancamento;'; flag:=1; end; end else begin showmessage('Escolha um tipo ou desmarque a opção'); exit; end; end end end else begin if optcliente.Checked then begin varsql:='SELECT Format(IIf([operacao]="Entrada",[total_operacao],""),"#####0.00") AS Entrada, Format(IIf([operacao]="Saída",[total_operacao],""),"#####0.00") AS Saida, L.Cod_lancamento, L.data, L.historico, L.operacao, '+ 'Format(L.total_operacao,"###,##0.00") AS Expr1, S2.Subtipo2, S1.Subtipo, L.NF FROM (Subtipo1 AS S1 INNER JOIN (lancamentos AS L LEFT JOIN subtipo2 AS S2 ON L.cod_subtipo2 = S2.Cod_Subtipo2) ON S1.Cod_Subtipo1 = L.cod_subtipo1) INNER JOIN Tipo '+ 'ON S1.Cod_tipo = Tipo.Cod_tipo WHERE (((L.data) Between #'+datainicial+'# And #'+datafinal+'#) AND ((L.historico) Like "'+edtnome.Text+'%")) ORDER BY L.data, L.Cod_lancamento'; flag:=1; exit; // sair aqui end else begin varsql:='SELECT Format(IIf([operacao]="Entrada",[total_operacao],""),"#####0.00") AS Entrada, Format(IIf([operacao]="Saída",[total_operacao],""),"#####0.00") AS Saida, L.Cod_lancamento, L.data, L.historico, L.operacao, '+ 'Format(L.total_operacao,"###,##0.00") AS Expr1, S2.Subtipo2, S1.Subtipo, L.NF FROM (Subtipo1 AS S1 INNER JOIN (lancamentos AS L LEFT JOIN subtipo2 AS S2 ON L.cod_subtipo2 = S2.Cod_Subtipo2) ON S1.Cod_Subtipo1 = L.cod_subtipo1) INNER JOIN Tipo '+ 'ON S1.Cod_tipo = Tipo.Cod_tipo WHERE (((L.data) Between #'+datainicial+'# And #'+datafinal+'#)) ORDER BY L.data, L.Cod_lancamento'; flag:=1; end; end; FRelatSint.QuickRep1.Preview; end; OBS: Coloque o FRelatSint.QuickRep1.Preview para ser executado nas saidas do codigo ( exit; ) abraço

Esse erro acontece por falta ou excesso de parametros passados .... poste o seu codigo que fica mais facil te ajudar abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=452780 abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=509599 abraço

Simulador de Teclado http://www.nied.unicamp.br/~tflex/publicacoes/relat01.pdf uses ClipBrd; procedure DigitaTecla (const Letra: Char); begin ClipBoard.AsText := Letra; keybd_event ( VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0 ); keybd_event ( 64+22 {Tecla V}, 0, KEYEVENTF_EXTENDEDKEY, 0 ); keybd_event ( 64+22 {Tecla V}, 0, KEYEVENTF_KEYUP, 0 ); keybd_event ( VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 ); end; Leia o artigo e use a imaginação... não tem o que errar abraço

refaça o código do zero, observando todos os detalhes ... voce vai achar a solução. OBS: o codigo é para o delphi 7 abraço

Sempre em caso de erros ... use o brakpoint e o debugger do delphi, para tentar achar os erros. abraço

Dá uma olhada nestes posts http://scriptbrasil.com.br/forum/index.php...226&hl=jedi http://scriptbrasil.com.br/forum/index.php...598&hl=jedi http://scriptbrasil.com.br/forum/index.php...528&hl=jedi abraço

use o componente DirectoryListBox1 para exibir os diretorios e use o codigo abaixo para conta-los procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin Label1.Caption := INTTOSTR(DirectoryListBox1.Items.Count); end; abraço

Erro de violação de endereço no modulo Loja.exe procedure TFrmRelReceberVencer.SpbExibirClick(Sender: TObject); begin // DtmRelatorios.FxReceberVencer.LoadFromFile('c:\IzaLoja\Relatorios\RlReceberVencer.fr3'); DtmRelatorios.FxReceberVencer.ShowReport; end; OBS: // deixe como comentario e execute ... se não ocorrer o mesmo erro, saberá que o erro está na maneira de carregar o arquivo Sempre comente as linhas que estão com erro... fica mais facil de achar a solução abraço

O erro está parecendo que esta no IdMessage1.Recipients.Add.Address verifique se o seu combobox tem mais de um item .. se tiver, voce deve usar ponto e virgula para separa-los abraço

experimente mudar o codigo function AnsiUpperFirstChar(const S: string): string; var Temp: string[1]; begin Result := AnsiLowerCase(Pchar(S)); if S <> '' then begin Temp := Result[1]; Temp := AnsiUpperCase(Pchar(Temp)); Result[1] := Temp[1]; end; end; abraço

exemplo: de Laércio Martins Carpes - lcarpes@iap.org.br Ao usar um componente maskedit, quando você apaga a data e sai do campo ele dá a seguinte mensagem: Invalid input value. Use escape key to abandon changes. Para resolver isto basta : procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_back then maskedit1.clear; end; Outra maneira: unit DBDateEdit; interface uses DateUtils, MaskUtils, DB, SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrls; type TDBDateEdit = class(TDBEdit) private procedure DateComplete; public procedure ValidateEdit; override; end; procedure Register; implementation procedure Register; begin RegisterComponents('delphi.about.com', [TDBDateEdit]); end; { TDBDateEdit } procedure TDBDateEdit.DateComplete; begin // implementation end; procedure TDBDateEdit.ValidateEdit; var pos : integer; begin if (IsMasked) then if (Field.DataType = ftDateTime) OR (Field.DataType = ftDate) then begin if not Validate(Text, pos) then begin DateComplete; end; end; inherited; end; end. Outra maneira: Mascara = !99/99/9999;1;_ procedure TFrmBlMaster.MaskEdit1Exit(Sender: TObject); var data: TDate; x: string; begin x:=Copy(edit1.text,10,1); if x = ' ' then begin Showmessage('Formato da Data Inválida!!!'); Flag:=True; end else begin try data := StrToDate(Edit1.Text); except begin showmessage('Formato da Data Inválida!!!'); edit1.setfocus; end end; end; end; abraço

access 2000, ele tem q ter o access 2000 instalado na maq dele? de preferencia sim na hora de instalar na maq dele eu tenho q colocar o mesmo caminho? sim ... isso evita muitos problemas abraço

Bia .. já te passei a meneira de instalar componentes no delphi 2005 http://scriptbrasil.com.br/forum/index.php...st&p=499467 abraço

tem muitos instaladores na net, é só pesquisar http://www.inf.ufsc.br/~prass/opensource.html http://terrabrasil.softonic.com/ie/12648/I...ld_Professional no forum faça a pesquisa pela palavra installshield abraço

Isto não é um componente e sim uma função ... e ela está funcionando corretamente exemplo: function AnsiUpperFirstChar(const S: string): string; var Temp: string[1]; begin Result := AnsiLowerCase(S); if S <> '' then begin Temp := Result[1]; Temp := AnsiUpperCase(Temp); Result[1] := Temp[1]; end; end; procedure TForm1.Button1Click(Sender: TObject); begin label1.caption := AnsiUpperFirstChar(edit1.text); end; abraço