Douglas Soares

Opa, cria um campo no banco chamado Hoje, no seu programa faz um dbedit puxando esse campo hoje, insira uma data! e salve no banco é claro, rsrs Depois no oncreate do seu form, faça o seguinte: clientdataset.open; if date := clientdataset.fieldbyname('Hoje').asdatetime + 2 then ShowMessage('è hojeeee, uhuhuhuu'); clientdataset.fieldbyname('Hoje').asdatetime := date; clientdataset.applyupdate(0); Observação, o + 2 é o numero de dias é o tempo que quer q exiba, você pode trocar por uma variavel ou criar um campo no banco tambem para ele! creio que é isso Abraço

Eu usaria Firebird 1.5, essa é minha opnião :rolleyes: Abraço

Ae galera por favor eu te ficando doidao aqui na empresa da pra me ajudar? o sistema do backup online que eu fiz ta dando mts erros, queria me ajudassem a reformula-lo! olhem o que eu preciso, se puderem me auxilar agradeço mt, pois estou sendo mt cobrado aqui :angry: Preciso conectar no ftp usando o componente tidftp, depois checar se a pasta com o numero do cliente já existe!, o numero do cliente eu pego com isso: var numerodocliente : integer; begin frmBackupFb.cdsParam.open; numerodocliente := frmBackupFb.cdsParamCODIGO_I.AsString; end; se exister, entrar na pasta, se não existir, criar a pasta e entrar nela! depois disso eu envio o arquivo para a pasta!, depois eu preciso trazer para um stringlist todos os arquivos do tipo zip que estão no servidor! Após isso tenho que checar quantos arquivos estão no stringlist, e se for mais de 3 deletar o que tem a menor data! exemplo: if stringlist.Count > 2 then begin frmBackupFB.idftp1.Delete('Arquivo com a menor data no nome!'); end; porque o nome dos arquivos de backups são sempre assim: backup13072009.zip e eu precisava organizar pelo data que contem no nome, e não pela data do arquivo! rs tipo, eu poderia mudar o nome do backup para backup20090713.zip ou 20090713backup.zip porem na hora que eu exibir o nome desses arquivos na telinha de restore, eu teria que exibir o nome padrão que é backup13072009.zip huhuhuhuu Vlw pela atenção! Abraços!

Opa, faz o seguinte, no lugar do editnum coloque um DBEdit, e link-o no field correspondente. Já no Campo Status tente apaga-lo, e crio-o novamente, porem já coloque todas as configurações que necessita. Abraços

huahauhua, beleza, ve se controla a qualidade do leite certinho ai, hauhauhua ^^, precisando to aqui. abraços.

No evento OnNewRecord da tabela "secagens" insira o seguinte cdsanimais.open; cdsanimais.fieldbyName('situacao').text := seca; cdsanimais.applyupdates(0); Creio que é isso.... a propósito, que programa é esse?, pet shop?, huahuahaua Abraços...

Opa, a query que você usa na Thread, não foi cria na thread, ela foi criada em um form certo?, se for faça assim: SeuForm.clientdataset.refresh; rsrs Abraços

Ou você pode fazer assim: Declare 2 Procedures: Procedure YES; Procedure NO; em seguida o código delas: procedure TForm1.YES; begin Arquivar; DMConsultas.CDs_ListaMorador.Delete; DMConsultas.CDs_ListaMorador.ApplyUpdates(-1); DMConsultas.CDs_ListaMorador.Refresh; exit; end; procedure TForm1.NO; begin DMConsultas.CDs_ListaMorador.Delete; DMConsultas.CDs_ListaMorador.ApplyUpdates(-1); DMConsultas.CDs_ListaMorador.Refresh; exit; end; Após isso, na sua procedure TF_Condominio.Excluir1Click(Sender: TObject); insira o seguinte código: Case application.MessageBox('Deseja arquivar antes de excluir excluir este registro?', 'Exclusão', mb_yesnocancel) of IDNO : NO; IDYES : YES; IDCANCEL:; end; Só isso, rsrs, espero ter ajudado. Abraços!

Opa, tá a a sua solução ehehehe, coloque esse código em um Botão por exemplo: procedure TForm1.Button1Click(Sender: TObject); var total1, total2, contador1, contador2 : integer; teste : String; begin contador1 := -1; total1 := ListBox1.Items.Count-1; total2 := ListBox2.Items.Count-1; while contador1 < total1 do begin contador1 := contador1 + 1; teste := ListBox1.Items.Strings[contador1]; contador2 := -1; while contador2 < total2 do begin contador2 := contador2 + 1; if ListBox2.Items.strings[contador2] = teste then begin ListBox1.Items.Delete(contador1); contador1 := contador1 - 1; total1 := total1 -1; end; end; end; end; Espero ter ajudado. Abraços!

opa, no botão salvar você coloca no final dele isso aqui: dmdados.tblFerramentas.refresh; dmdados.tblFerramentas.last; se quando clicar em cancelar e der o mesmo problema, apenas coloque o código acima no cancelar tambem, rsrsrs, espero ter ajudado. Abraços

Jhonas eu fiz aki um form com webbrowser tudo certinho, e 2 edits, e no botao quando clico nele eu mando navegar pra pagina do orkut, e depois mando preencher e já enviar, porem da o erro invalid floating.................. mesmo quando eu preencho pelo webbrowser da o erro, o que seria isso? Abraços

tive esse mesmo problema, abri o exemplo do delphi e compilei.... quando eu fui logar no orkut atravez dele dá esse erro, :unsure: o que fazer?

Amigo, faz assim declara uma procedure: procedure ProcessoGeral; em seguida faca a seguinte procedure abaixo: procedure ProcessoGeral; var i:integer; begin i := seuform.clientdataset. seuform.gauge1.progress := 0; seuform.gauge1.maxvalue := seuform.clientdataset.recordcount; while not seuform.clientdataset.eof do begin i := seuform.clientdataset.recno; //coloque o codigo que voce usava antes de fazer a thread, lembrando de colocar SeuForm.componente antes de cada componente, faca tudo que quiser aki eheheh //recomendo voce o usar o Gauge que fica na paleta sample ao invés de progressbar, em seguida faca assim nessa mesma procedure: Gauge1.Progress := i; seuform.clientdataset.next; end; end; abaixo do local escrito implementation voce escreve assim: uses //aqui voce coloca o nome do arquivo.pas do form que voce esta usando e depois um ponto e virgula ehehehe em seguida na procedure suathread.execute voce escreve o seguinte: synchronize(ProcessoGeral); acho que é isso..... admito que de gauge e progress bar eu sou nub, huahuahua faco esses trambiques, tipo esse pc aqui ta sem delphi e eu levei meia hora pra escreve isso tudo, hehehehe o que estiver errado me corrijam.... abracos!!!

assim que clicar em um item para baixar, ao mesmo tempo o jogue em uma listbox por exemplo, assim você vai saber que ele é o primeiro, e assim por diante, vá acrescentando os downloads um a um nessa lista..... lembrando que isso é um exemplo, você pode fazer com grid mais detalhadamente, etc. Abraços

Vlw jhonas, é mais ou menos isso ai, porem o meu amigão :wub: Churc, conseguiu resolver meu problema!, uhuuuuuuuuuu Abraços!

sei lá, fiz aqui deu certo, mas se fez funcionar ai beleza, ahahah Abraços

Nas options do DBGrid, coloque o dgMultiSelect para True, dai já da pra selecionar varios.... o resto eu num vo poder te ajudar... mals

ahahah o problema era q você tava botando seucds.astring, e na verdade era seucds.text, eu num sei a explicação lógica, mas é isso ai, ahuahuahua Abraços!

Tenta Assim: procedure TF_ImportaMorador.DBGrid1CellClick(Column: TColumn); begin if Column.ID = 0 then begin CDs_ImportaMorador.open; if DMConsultas.CDs_ImportaMorador.text = 'X' then begin DMConsultas.CDs_ImportaMorador.edit; DMConsultas.Q_ImportaMoradorarquivo.text := ''; DMConsultas.CDs_ImportaMorador.post; DMConsultas.CDs_ImportaMorador.ApplyUpdates(0); end else begin DMConsultas.CDs_ImportaMorador.Edit; DMConsultas.CDs_ImportaMorador.text := 'X'; DMConsultas.CDs_ImportaMorador.post; DMConsultas.CDs_ImportaMorador.ApplyUpdates(0); end; end; end. Abraços

vo tenta fazer algo aqui tambem <_< , se conseguir te falo, xD

cara, tanto que tentei fazer um programa de ftp, vou tentar........... te ajudar..... se tu conseguir passa as fontes pra mim, hauhauhau, vlw man Posta ai o Codigo disso que você fez abaixo..... ou você fez só com componentes visuais?, não usou nenhum codigo nisso ai abaixo? Abraços

eehhee, trecko, vlw pela força mais num é isso não, eu queria saber se podia colocar aqueles events na minha thread... num é que eu tava conseguindo e não ia andando o progresso.... se fosse isso eu iria por o processmessages mesmo....rsrsrs... mas vlw a dica, falou

Ae brigadaum pelas respostas.... já consegui fazer.... adoro vocês, hauhauhauhau Abraços

Vlw Jhonas vou tentar fazer isso... ehehe... é meu primeiro array.... mas você deu o caminho das pedras... espero conseguir..... e você daniel vlw tambem pela resposta, mas não posso mudar o nome pois o sistema já tem esse nome no backup faz uns 5 anos ou mais, e eu não posso mudar de uma hora pra outra... eheheh eu trabalho aqui.... num posso fazer tudo que queria, rsrsrs. Abraços ___________________________________________________________________________ editando.... buaaaaa, descobri que num sei faze array, hauhuhahua, se alguém puder me ajudar, disculpem pela minha ignorancia... eu so amador nisso, ehehheeh Abraços

Pessoal por favor me ajudem, como virou o mes, fui fazer o backup, porem ele da erro, porque ele vai no site e emvez de deletar o que tem a menor data, deleta o arquivo que acabei de enviar, pois o arquivo que enviei se chama, backup01082009.zip, e os outros 2 arquivos que estavão no ar se chamam, backup28072009.zip e backup27072009.zip, dai quando o listbox deu o sorted = true, ele orgazinou por nome, e não pela data...... por favor alguém me ajuda organizar esse listbox por data!!!!, mt obrigado!