Jhonas

provavelmente voce tem um arquivo dbx com problema ou corrompido.. voce pode apaga-lo ou renomea-lo esse arquivo será criado novamente quando voce usar o outlook ou pode tentar isso https://support.microsoft.com/pt-br/kb/2398839 abraço

a mensagem diz que voce tem que checar as configurações e opções do interpretador voce usou esse tutorial ? https://netbeans.org/kb/docs/php/project-setup_pt_BR.html

Eder, pense em trocar o delphi 4 pelo delphi 7 que tem muito mais recursos, inclusive nesse aspecto mas tente esses links http://www.devmedia.com.br/gerar-pdf-a-partir-do-quick-report/142 http://www.andrecelestino.com/delphi-exportando-relatorios-em-quickreport-para-pdf-com-o-synopse/ abraço

Similaridade entre os comandos Firebird Events (*) The standard Firebird mechanism for event notifications is used. To initiate an event, use the POST_EVENT <name> statement. For example: EXECUTE BLOCK AS BEGIN POST_EVENT 'Customers'; END; PostgreSQL Notifies (*) The standard event notification mechanism is used. To initiate an event, use the NOTIFY <name> statement. PostgreSQL 9.0 supports payload arguments, use NOTIFY <name> [, <paylod>]. For example: NOTIFY Customers http://bjorngylling.com/2011-04-13/postgres-listen-notify-with-node-js.html abraço

voce tem que configurar o interpretador do php https://www.google.com.br/search?q=tradutor&ie=utf-8&oe=utf-8&gws_rd=cr&ei=cc7QVuLwAYiHwQSOmqWgCg#q=configura%C3%A7%C3%B5es+de+interpretador+do+PHP+sobre+op%C3%A7%C3%B5es+ abraço

veja esse post ou esses links https://www.google.com.br/search?q=somar+valores+coluna+dbgrid+delphi&ie=utf-8&oe=utf-8&gws_rd=cr&ei=L6DPVqCRGcmXwASY_42ACg abraço

veja nesses links http://ffwebdesigner.blogspot.com.br/2012/07/componente-vcl-skin-full-120-skins.html http://www.planetadelphi.com.br/download/4778/arquivo/skins-para-sua-interface http://www.alphaskins.com/asdwnld.php abraço

Devo supor que voce fez a conexão com o banco de dados usando o componente para acesso ao MYSQL com o componente ZConnection1 e fez certo todas as configurações .. ok ? para as tabelas use os componentes: ZQuery, DataSetProvider, ClientDataSet e DataSource ( os 3 ultimos da paleta Data Access ) mesmo que voce tenha usando apenas o componente ZQuery, voce deve liga-lo ao componente DataSource para obter o resultado da pesquisa em um DBGrid e posteriormente em um Quick Report no código faça as correções: procedure TForm1.Button1Click(Sender: TObject); var D1,D2 : TDate; D3,D4,D5 :string; begin D1 := strtodate(edit2.Text); D2 := strtodate(edit3.Text); D3 := CBB1.Text; D4 := edit1.Text; D5 := edit4.Text; With ZQuery1 do begin Close; SQL.Clear; SQL.Add('Select * from tbpagar where datavencimento >= :D1 and datavencimento <= :D2 and Tipopgto = :D3 and (responsavel = :D4 or responsavel = :D5)'); Params.ParamByName('D1').AsDate := D1; Params.ParamByName('D2').AsDate := D2; Params.ParamByName('D3').Value := D3; Params.ParamByName('D4').Value := D4; Params.ParamByName('D5').Value := D5; ExecSQL; Open; end; end; OBS: Na passagem de parametros, atente para o tipos usados nos campos da sua tabela abraço

Como voce desenvolveu o software utilizando recursos da empresa, voce não tem o Direito de Propriedade, mas tem o Direito Intelectual ou Autoral e nesse caso voce pode assinar o seu nome no software http://www.ecad.org.br/pt/direito-autoral/o-que-e-direito-autoral/Paginas/default.aspx e voce pode registrar isso no INPI http://www.inpi.gov.br/ veja : Resolução INPI n° 58/98 (Registro de programas de Computador) https://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=7&cad=rja&uact=8&ved=0ahUKEwjwh-frv4HLAhXFgZAKHSDsBrcQFghiMAY&url=http%3A%2F%2Fwww.wipo.int%2Fedocs%2Flexdocs%2Flaws%2Fpt%2Fbr%2Fbr082pt.pdf&usg=AFQjCNGp26PX1v_Yk0-FipNe7FmbpSDUWg abraço

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ContactsFullName : TStringList; ContactsEmail : TStringList; implementation {$R *.dfm} uses Comobj; procedure CreateDistributionList; const olFolderContacts = $0000000A; var myOlApp, myNameSpace, myContact, myDistList, myMailItem, myRecipients, ContactsFolder : OleVariant; WStr : WideString; i : Word; begin //Conectar ao Outlook try myOlApp := GetActiveOleObject('Outlook.Application'); except myOlApp := CreateOleObject('Outlook.Application'); end; myNameSpace:=myOlApp.GetNameSpace('MAPI'); //Obter pasta de contatos raiz ContactsFolder := myNameSpace.GetDefaultFolder(olFolderContacts); // Cria o item de lista de distribuição myDistList:=myOlApp.CreateItem(7); // Nomear o Grupo de Contatos myDistList.DLName:='Grupo de Trabalho Teste'; // O MailItem é necessário para // criar a coleção de destinatários myMailItem:=myOlApp.CreateItem(0); myRecipients:=myMailItem.Recipients; i := 0; while i < ContactsFullName.Count do begin // Cria o novo contato myContact:=myOlApp.CreateItem(2); WStr := ContactsFullName.Strings; myContact.FullName := WStr; WStr := ContactsEmail.Strings; myContact.Email1Address := WStr; myContact.Save; // Um contato com o seguinte endereço de e -mail // deve existir para o método trabalhar com AddMembers WStr := ContactsFullName.Strings; myRecipients.Add(WStr); myRecipients.ResolveAll; myDistList.AddMembers(myRecipients); myContact.Delete; Inc(i); end; myDistList.Save; myOlApp := Unassigned; end; procedure TForm1.Button1Click(Sender: TObject); begin ContactsFullName := TStringList.Create; ContactsEmail := TStringList.Create; // Esses dados podem ser tirados de uma tabela do // banco de dados // NOMES DOS CONTATOS ContactsFullName.Add('TESTE1'); ContactsFullName.Add('TESTE2'); ContactsFullName.Add('TESTE3'); ContactsFullName.Add('TESTE4'); ContactsFullName.Add('TESTE5'); // ENDEREÇO DE EMAILS DOS CONTATOS ContactsEmail.Add('username1@bol.com.br'); ContactsEmail.Add('username2@bol.com.br'); ContactsEmail.Add('username3@bol.com.br'); ContactsEmail.Add('username4@bol.com.br'); ContactsEmail.Add('username5@bol.com.br'); CreateDistributionList; end; end. ====================================================== OBS: o teste foi feito para o Outlook 2002 - 2007 Para outras versões, usem : var Form1: TForm1; implementation {$R *.dfm} {$IFDEF SYN_COMPILER_6} uses ComObj, Outlook2000; {$ELSE} uses ComObj, Outlook8; {$ENDIF} ======================================================== abraço

veja esse Tópico abraço

a idéia esta meio vaga.... se as informações do Firebird já são os contatos que voce cria no outlook , então voce pode criar uma tabela com esses contatos se não for isso, veja http://windows.microsoft.com/pt-br/windows/create-contact-groups-mailing-lists#1TC=windows-7 abraço

ok.. então vamos começar do começo 1° - leia esse artigo ... http://imasters.com.br/artigo/3405/mysql/delphi_zeus_e_mysql/ essa ferramenta vai ajuda-lo muito com o MYSQL http://www.superdownloads.com.br/download/100/mysql-front/ abraço

filtro por intervalo de datas, e por cidade, depois do filtro realizado preciso filtrar novamente por bairro, so que o bairro eu preciso filtrar dinâmico exemplo de select usando parametros ( datas inicial e final e a cidade ) Select * from Tabela where data >= :dataini and data <= :datafin and cidade = :cid agora incluindo um bairro Select * from Tabela where data >= :dataini and data <= :datafin and cidade = :cid and bairro = :bair agora incluindo mais de um bairro Select * from Tabela where data >= :dataini and data <= :datafin and cidade = :cid and (bairro = :bair or bairro = :bair1) voce deve passar por parametros ( dataini, datafin, cid, bar e bar1 ) a informação para a instrução Select OBS: voce sabe montar a select no componente ZQuery ? os dados que aparecerem no DBgrid, são os mesmos que voce pode jogar dentro do Quick Report abraço

qual a versão do delphi ? qual o banco de dados ? que componentes de tabela voce esta usando ? o relatório é usando o Quick Report ?

for i := 0 to total - 1 do begin haStock:=1; lblsku.Caption:=zquery2.FieldByName('sku').AsString; lblatual.Caption:=inttostr(i); lblatual.Refresh; sleep(500); lHTTP := TIdHTTP.Create(nil); OBS: isso vai mostrar o valor de lblatual.Caption, mas vai aumentar o tempo de processamento abraço

OBS: Todos os links do primeiro post estão perdidos, isso foi causado pela mudança de versão do forum somente o autor do post pode refazer os links outros links que contenham o endereço da pagina sem ( ... ) poderão ser copiados e colados na pesquisa do Google abraço

Converta horas em segundos e calcule a diferença depois converta segundos em hora e mostre o resultado exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} // CONVETER HORAS EM SEGUNDOS function Hora_Seg( Horas:string ):LongInt; Var Hor,Min,Seg:LongInt; begin Horas[Pos(':',Horas)]:= '['; Horas[Pos(':',Horas)]:= ']'; Hor := StrToInt(Copy(Horas,1,Pos('[',Horas)-1)); Min := StrToInt(Copy(Horas,Pos('[',Horas)+1,(Pos(']',Horas)-Pos('[',Horas)-1))); if Pos(':',Horas) > 0 then Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,(Pos(':',Horas)-Pos(']',Horas)-1))) else Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,2)); Result := Seg + (Hor*3600) + (Min*60); end; // CONVERTER SEGUNDOS EM HORAS function Seg_Hora( Seg:LongInt ):string; Var Hora,Min:LongInt; Tmp : Double; begin Tmp := Seg / 3600; Hora := Round(Int(Tmp)); Seg := Round(Seg - (Hora*3600)); Tmp := Seg / 60; Min := Round(Int(Tmp)); Seg := Round(Seg - (Min*60)); Result := FormatFloat( '00', Hora )+ ':' + FormatFloat( '00', Min ) + ':' + FormatFloat( '00', Seg ); end; procedure TForm1.Button1Click(Sender: TObject); var horatrab, cargahora, horaextra : LongInt; tempo : string; begin horatrab := Hora_Seg('193:49:00'); cargahora := Hora_Seg('180:00:00'); horaextra := horatrab - cargahora; tempo := Seg_Hora(horaextra); showmessage('Horas Extras : '+ tempo); end; end. ================================================================= outro exemplo mais simples unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function DifHoras(HoraTrab, CargaHora :String):String; var hh, mm :integer; vHora, vMinuto :integer; begin hh:= StrToInt(Copy(HoraTrab, 1, 3)) - StrToInt(Copy(CargaHora, 1, 3)); mm:= StrToInt(Copy(HoraTrab, 5, 2)) - StrToInt(Copy(CargaHora, 5, 2)); vMinuto:= mm mod 60; vHora:= hh + (mm div 60); Result:= FormatFloat('00:', vHora) + FormatFloat('00', vMinuto); end; procedure TForm1.Button1Click(Sender: TObject); begin SHOWMESSAGE('Horas Extras : '+DifHoras('193:49','180:00')); end; end. ==================================================== abraço

quando o forum foi reformulado, muitos links deixaram de funcionar nesses casos, voce deve marcar o link ( em azul ) e dar um Ctrl+C de depois colocar na pesquisa do Google link correto: https://www.scriptbrasil.com.br/forum/topic/105207-banco-de-dados-aprender/ abraço

o erro ocorre em qual linha do código ?

Refatoração (do inglês, Refactoring) é o processo de alterar o código fonte de uma maneira que não altere seu comportamento externo e ainda melhore a sua estrutura interna. É uma técnica disciplinada de limpar e organizar o código, e por consequência minimizar a chance de introduzir novos Bugs Refatorando Código http://docwiki.embarcadero.com/RADStudio/XE5/en/Refactoring_Code AQtime for Delphi XE5 http://cc.embarcadero.com/item/29525 para fazer isso, voce vai precisar do FIREDAC http://www.embarcadero.com/br/products/rad-studio/firedac con := TFDConnection.Create(nil); query := TFDQuery.Create(con); http://stackoverflow.com/questions/28489504/firedac-query-not-reading-large-integers-correctly exemplo // Criar uma consulta e uma conexão fFireDACQuery := TFDQuery.Create(nil); fFireDACConnection := TFDConnection. Create(nil); // Fazer a Conexão. fFireDACQuery.Connection := fFireDACConnection; // Conectar ao database; fFireDACConnection.Params.Clear; fFireDACConnection.Params.Add('DriverID=SQLite'); fFireDACConnection.Params.Add('Database=C:\testedb.db'); fFireDACConnection.Open; fFireDACQuery.SQL.Text := 'SELECT * from tabela where campo = :vcamp'; fFireDACQuery.ParamByName('vcamp').AsString := 'nome'; fFireDACQuery.Open; abraço

veja esse post abraço

faltou voce postar o código, para que os outros possam entender a lógica do jogo abraço

se voce está usando o windows 7, pode corrigir isso pelo msconfig.exe (botão iniciar / Pesquisar programas e arquivos) na aba serviços ou pode desinstalar o MYSQL, depois usar o CCleaner para limpar os registros do Windows instalar novamente o MYSQL e configurar novamente abraço

exemplos https://www.google.com.br/webhp?sourceid=chrome-instant&rlz=1C1RLNS_pt-BRBR672BR672&ion=1&espv=2&ie=UTF-8#q=auto%20relacionamento%20mysql abraço