Jhonas

Dados.QryConsLanGas.ParamByName('Escola').AsString:= Edit1.Text; ficaria assim Dados.QryConsLanGas.ParamByName('Escola').AsString:= '%'+Edit1.Text+'%'; abraço

veja http://iappc.forumeiros.com/links-iappc-f4...-cid-10-t32.htm abraço

tente novamente http://scriptbrasil.com.br/forum/index.php...hlite=Processos abraço

ShowModal retorna um valor para a propriedade ModalResult quando o form é fechado outra solução e voce no Menu usar um controle tipo: var TipoForm : integer; procedure TFMenu.Funcionrios1Click(Sender: TObject); begin try if FCadFunc = Nil then FCadFunc := TFCadFunc.Create(self); except ShowMessage('Erro na criação do formulário !!'); exit; end; TipoForm := 0; FCadFunc.show; end; procedure TFMenu.Seguradoras1Click(Sender: TObject); begin try if FCadSeg = Nil then FCadSeg := TFCadSeg.Create(self); except ShowMessage('Erro na criação do formulário !!'); exit; end; TipoForm := 1; FCadSeg.showmodal; end; OBS: Voce testa a variavel TipoForm ... se for 0 é Show ... se for 1 é ShowModal abraço

ainda hoje leio muitas apostilas e faço muitas pesquisas e sempre testo uma dica, para saber se posso usar essa dica para solucionar os problemas que encontro nos meus projetos estou te indicando um caminho, se voce acha que é perca de tempo, talvez outro colega do forum possa ajudá-lo abraço

na verdade não ... mas por enquanto sugiro instalar o firebird no cliente tambem, vai evitar alguns problemas que voce ainda não saberá como resolver. abraço

o processo é praticamente o mesmo que voce já usou se os dados estiverem em tabelas diferentes , procure no forum referencia entre tabelas ou veja a clausula select usando UNION ou JOIN abraço

infelizmente não... Esses comandos são explanados ( descritos ) em detalhes na seção Referência de Comandos deste guia OBS: Melhor usar um tradutor da Net para poder entender o manual abraço

com pressa e sem entender o que voce esta fazendo, voce não aprende. não é para fazer um projeto completo, apenas um unico form que conterá os comandos e os acessos a um banco de dados e uma unica tabela, que voce precisa para entender o funcionamento. o Form Wizard monta praticamente tudo sem voce precisar digitar uma unica linha de programação a outra sugestão é ler apostilas .... me descuple, mas o meu serviço ta apertado, para poder responder com mais paciência abraço

Erro : Argumento invalido: ClinicaES como voce não postou o erro completo, pode ser referencia do executavel ao banco de dados abraço

voce leu o manual de programação ? http://www.dnautomacao.com.br/produtos/doc...Manual_ZPL2.pdf tem execicios e explicação disso no manual ... ( em ingles ) abraço

foi mal ... me confundi com outro componente na propriedade RequestLive = true abraço

vi que voce tambem não conseguiu uma resposta satisfatoria do outro forum ( Active Delphi ) essa captura teria que ser feita de outra maneira. assim que tiver um tempinho sobrando eu vejo o que pode ser feito .. ok ? abraço

"Qry : Cannot Modify a Read-Only DataSet" Não pode modificar um DataSet somente como leitura na propriedade ReadOnly da Query deixe como False; abraço

procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := false; // desabilitar o timer DeleteFile(PChar('C:\DADOS\BACKUP.BAK')); OU DeleteFile(AnsiChar('C:\DADOS\BACKUP.BAK')); // BACKUP DE ARQUIVO end; outra maneira Procedure TForm1.Button2Click(Sender: TObject); var SR: TSearchRec; I: integer; begin I := FindFirst('c:\DADOS\*.bak', faAnyFile, SR); while I = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then if not DeleteFile('c:\DADOS' + SR.Name) then ShowMessage('Não foi possível excluir c:\DADOS\' + SR.Name); I := FindNext(SR); end; end; abraço

isso é bem simples procedure TForm1.Timer1Timer(Sender: TObject); begin // Interval = 60000 1 minuto hora := now; if hora >= strtotime('18:00:00') then Button1.Click; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := false; // desabilitar o timer // BACKUP DE ARQUIVO end; abraço

vou te dar uma dica simples e que se voce entender fara qualquer coisa Va no Menu do delphi > Database > Form wizard... começe um projeto usando o assistente siga os passos até o final e voce vai ver como é facil programar abraço

OK.. Pra rodar a sua aplicação em uma máquina cliente, basta a dll do firebird (fbclient.dll) abraço

o primeiro é melhor abraço

Faça busca no forum http://scriptbrasil.com.br/forum/index.php...IREBIRD+CLIENTE abraço

um exemplo: imagine uma Tabela contendo os seguintes campos: COD integer NOME varchar(50) 0001 ..................ANTONIO 0002...................PEDRO 0003...................JOAO 0004...................MARCOS abra um novo projeto coloque no form um componente Query, um DataSource, um DBgrid, um Edit e 2 Buttons ligue o datasource ao query e ao dbgrid na SQL da query por exemplo coloque: select * from tabela no Onclick do button1 voce ativa essa query query1.active := false; query1.active := true; devera aparecer no dbgrid todos os registros dessa tabela no button 2 vamos fazer nova seleçao só que dessa vez vamos restringir a pesquisa no Onclick do button 2 query1.active := false; query1.SQL.Clear; query1.SQL.append('Select * from Tabela where NOME = ' + ''''JOAO'''' ); query1.active := true voce devera ver no DBgrid apenas o registro do JOAO COD integer NOME varchar(50) 0003...................JOAO ---------------------------------------------------------------------- CONCLUSÃO : ao clicar no button 1 eu tenho todos os registros da minha tabela, ao clicar no button 2 eu selecionei um especifico que me interessava ... se eu tiver DBEdits com os respctivos campos da minha tabela, eu verei todos os dados desse resgistro. Isso é apenas um exemplo, voce deve seguir o mesmo raciocinio para o seu programa ... se tiver duvidas o forum dispõe de apostilas que o ajudarão a entender melhor abraço

Vamos aos problemas: Estou digitando no próprio browser no IE 8 e uso Win XP e Delphi 7 a partir do IE 7 existe uma diferença entre abrir < uma nova guia > e abrir < uma nova janela > ao abrirem-se novas guias, o endereço que aparece no combobox do IE mostra apenas a guia ativa... nesse sentido se a guia ativa não estiver direcionada para o yahoo por exemplo, voce não conseguira encontrar o titulo da janela para poder redirecionar para outra url no entanto, se voce tiver varias janelas ativas ( isso era padrão no IE 6 ) e sendo que uma delas estivesse direcionada para o yahoo, então seria possivel localizar o titulo dessa janela e fazer o redirecionamento para outra url peço a voce que faça um teste usando o código abaixo para comprovar o que estou escrevendo em um projeto novo, coloque um form e nesse form coloque um botão e um listbox abra o IE 8 e abra somente novas guias e deixe uma das guias ativas ... ao executar o programa, voce verá no listbox todas as janelas ativas do windows depois repita a teste, mas dessa vez abra novas janelas no IE 8 e veja o que aparece function EnumWindowsProc(Wnd: HWnd; Form:TForm1): Boolean; Export; {$ifdef Win32} StdCall; {$endif} var Buffer: Array[0..99] of Char; begin GetWindowText(Wnd, Buffer, 100); if StrLen(Buffer)>0 then Form.ListBox1.Items.Add(StrPas(Buffer)); Result :=true; end; procedure TForm1.Button1Click(Sender: TObject); begin EnumWindows(@EnumWindowsProc, LongInt(Self)); end; por isso o comando GetWindowText não vai encontrar a frase 'http://www.yahoo.com.br' se ela não estiver em uma janela ativa text := GetURL('IExplore'); GetWindowText(GetForeGroundWindow, S, SizeOf(S)); Site := StrPas(S); //Yahoo if StrPos(PChar(text), PChar('http://www.yahoo.com.br')) <> nil then Begin teriamos que estudar uma outra maneira de fazer isso abraço

tente fazer um download pelo Internet Explore, e no meio da operação feche o IE... o que acontece ? o download para não existe forma de fechar a aplicaçao e deixar os downloads continuando ...a não ser que ele fique minimizado ou voce crie uma nova instância abraço

já que foi voce que criou o componente, então procure pelo arquivos .dcu de seu componente e copie ele para a pasta LIB do delphi abraço

Depende do seu banco de dados ( Interbase, Firebird, Paradox, Mysql, Access ..etc e quais componente voce esta usando( ADO, DBExpress, Zeos, BDE ...etc ) OBS: sempre faça uma busca no forum ... existem duvidas como essa sua resolvidas http://br.answers.yahoo.com/question/index...21170737AAYVCfp http://scriptbrasil.com.br/forum/index.php...maquina+cliente abraço