Douglas Soares

Aê churc, não pode colocar esse seu codigo amigo... porque tipo, no meu codigo, tem tipo umas flags, e já tem a flag overwrite, ele usa a shell do windows pra isso :wacko: , eu já testei... se o arquivo existir ele substitui sem perguntar... Abraços...

Editei, porque falei a maior besteira.......Desculpe...

Que bom que ajudei em alguma coisa, eheh! qual o componente que você está se referindo?, eu testei aqui, tem arquivos que não copia mesmo, pois são arquivos do proprio windows, e não temos permissões para copiar eles, procura no forum algo como: Dar permissões em pastas e arquivos.... é isso.... eehehe! Abraços!

Ae Amigo, Parabens pelo Tópico, se eu for unir esses codigos num programa, já da pra fazer um keylogger! ashaushuas :lol: Abraços!

Seguinte amigo, você está usando Edits?, se estiver tente usar DBEdits que ficam na paleta Data Controls, vai facilitar o seu trabalho... Abraços...

Você não explicou muito bem, mas se você quiser pode deixar invisivel todos os componentes do groupbox assim: GroupBox1.visible := False; Abrxx...

Seria esse? http://www.bestshareware.net/internet-component-suite.htm Abraços...

beleza, muito obrigado pela atenção ao meu post! ehehe! abraços!

Aê galera, fiz um pequeno programinha para o danielrgoes do forum, e resolvi postar para vocês! Segue o Link: http://www.4shared.com/file/108617837/3dc5...lizaeCopia.html Toma um ScreenShot: Aproveitem! Abraços!

eheheh! que bom que te ajudei, qualquer coisa é só falar! Abraços!

Ae Amigao, você tá com muita, muita sorte mesmo! como hoje estou de bom humor! ehehe!, passei o fimzinho de tarde para fazer o programinha especialmente para você e para quem mais quiser aproveitar! Ta do jeitinho que você pediu! Testa o programa ai e me fala ! http://www.4shared.com/file/108617837/3dc5...lizaeCopia.html Olha a Imagem dele: Agora cá entre nós, isso é mais do que uma ajuda eim?, eheheh! Abraços!!!! :P

Tem um Propriedade no DBEDIT, chamada CharCase, que por padrão vem ecNormal, altere isso para ecUpperCase, dai já ta feito! Abraços!

Muito Obrigado amigo :ninja: ehehe! Abraços!

Encontrei uma Rotina para Localizar todos os arquivos do tipo que você quiser, e exibir em um ListBox, entretanto, para copiar todos eles para um outro local, ainda vou fazer ake pra você... Segue o Codigo: public procedure AddFilesToList (Filter, Folder: string; Recurse: Boolean); end; var Form1: TForm1; implementation {$R *.dfm} procedure GetSubDirs (Folder: string; sList: TStringList); var sr: TSearchRec; begin if FindFirst (Folder + '*.*', faDirectory, sr) = 0 then try repeat if (sr.Attr and faDirectory) = faDirectory then sList.Add (sr.Name); until FindNext(sr) <> 0; finally FindClose(sr); end; end; procedure TForm1.AddFilesToList(Filter, Folder: string; Recurse: Boolean); var sr: TSearchRec; sDirList: TStringList; i: Integer; begin if FindFirst (Folder + Filter, faAnyFile, sr) = 0 then repeat lbFiles.Items.Add (Folder + sr.Name); // o lbFiles é o seu ListBox! until FindNext(sr) <> 0; FindClose(sr); if Recurse then begin sDirList := TStringList.Create; try GetSubDirs (Folder, sDirList); for i := 0 to sDirList.Count - 1 do if (sDirList[i] <> '.') and (sDirList[i] <> '..') then begin Application.ProcessMessages; AddFilesToList (Filter, IncludeTrailingPathDelimiter (Folder + sDirList[i]), Recurse); end; finally sDirList.Free; end; end; end; Para Testar, insira o listbox no form, 2 Edits, e um botão em seguida insira o nome do listbox la naquela linha de codigo: lbFiles.Items.Add (Folder + sr.Name); // no lugar do lbFiles e depois no botão insira esse codigo: ListBox1.Clear; AddFilesToList(Edit1.Text, Edit2.Text, True); no caso, no primeiro edit você escreve *.xls e no segundo edit você escreve C:\ e clica no botão que vai te listar tudo! Abraços!

Por nada!, estou aqui pra isso! ehehe! Abraços!

Putz, tava desde de cedo me matando para descobrir isso pra você, eu consegui, se precisar tá aqui: modulo.cds_funcionario.close; modulo.sql_funcionario.SQL.clear; modulo.sql_funcionario.SQL.Add('SELECT CODIGO, USUARIO, SENHA, TIPO, DT_ANIVERSARIO, extract(day from dt_aniversario) as dia, extract(month from dt_aniversario) as mes ' + 'FROM ' + 'FUNCIONARIO ' + 'WHERE ' + 'extract(day from dt_aniversario) = :c_dia ' + 'and extract(month from dt_aniversario) = :c_mes'); modulo.cds_funcionario.FetchParams; modulo.cds_funcionario.Params.ParamByName('c_dia').AsInteger := strtoint(copy(datetostr(date),1,2)); modulo.cds_funcionario.Params.ParamByName('c_mes').AsInteger := strtoint(copy(datetostr(date),4,2)); modulo.cds_funcionario.Open; Obs: ali no SELECT, você tem que especificar todos os seus fields, eu coloquei * mas não funcionou, porcausa do extract.... se precisar usa ae, ehehe! Abraços!

Amigo, não conheço o componente Zeus, eu uso DBExpress, mas creio que o tal possui um item clientdataset, ou TZMysqlCDS? eheh!, então veja se tem esse componente, e muda ai! Vou procurar uma solução! Abraços!

Veja mais sobre Quick Report nesse link: http://scriptbrasil.com.br/forum/index.php?showtopic=90140 Abraços

Então, como o proprio Jhonas disse, isso é um código generico!, testa ai, se mesmo assim encontrar dificuldades, é só falar! que iremos tentar te ajudar da melhor forma possivel! Vlw!

:wacko: Legal... eehehe! bota um (Resolvido) no começo do post, vlw parceiro! Abraços

beleza Cara!, posta o codigo ai pro pessoal ver! ehehe! Abraços!

E ae... tenta assim... if DBGrid1.Columns[0].Title.Caption = 'SEUTITULO' then DBGrid1.Columns[0].Visible := False; Qualquer coisa fala ai! Abraços!

Ae Amigo, uhhuhu, toma ai o que você precisa! Coloque essa procedure: procedure OrdenaDataSetGrid( var CDS: TClientDataSet; Column: TColumn; var dbgPrin: TDBGrid); const idxDefault = 'DEFAULT_ORDER'; var strColumn : string; i : integer; bolUsed : boolean; idOptions : TIndexOptions; begin strColumn := idxDefault; if Column.Field.FieldKind in [fkCalculated, fkLookup, fkAggregate] then Exit; if Column.Field.DataType in [ftBlob, ftMemo] then Exit; for i := 0 to dbgPrin.Columns.Count -1 do dbgPrin.Columns[i].Title.Font.Style := []; bolUsed := (Column.Field.FieldName = CDS.IndexName); CDS.IndexDefs.Update; for i := 0 to CDS.IndexDefs.Count - 1 do begin if CDS.IndexDefs.Items[i].Name = Column.Field.FieldName then begin strColumn := Column.Field.FieldName; case (CDS.IndexDefs.Items[i].Options = [ixDescending]) of true : idOptions := []; false : idOptions := [ixDescending]; end; end; end; if (strColumn = idxDefault) or (bolUsed) then begin if bolUsed then CDS.DeleteIndex(Column.Field.FieldName); try CDS.AddIndex(Column.Field.FieldName, Column.Field.FieldName, idOptions, '', '', 0); strColumn := Column.Field.FieldName; except if bolUsed then strColumn := idxDefault; end; end; try CDS.IndexName := strColumn; Column.Title.Font.Style := [fsbold]; except CDS.IndexName := idxDefault; end; end; e depois vá até o DBGrid on TitleClick e coloque isto: OrdenaDataSetGrid(ClientDataSet, Column, DBGrid1); Abraços!

Depois que você fez a variavel cmdsql, e tentou adicionar no seu adq filtro, não deve ter funcionado aquele comando adqfiltro.sql.add(cmdsql) porque tem que dar um clear. Tenta fazer assim adqfiltro.close; adqfiltro.sql.clear; adqfiltro.sql.add(cmdsql); adqfiltro.open; beleza. ve ai o que você faz, se não for isso, me avisa! Abraços

Faz o Seguinte, no você deve ter um datasource no seu DBGrid, e respectivamente deve ter um ClientDataSet (cds), então segue ai: if dbgridTarefas.Columns[4].Field.Value = dados_usuario.id then begin ClientDataSet.open; ClientDataSet.edit; dbgridTarefas.Columns.Items[4].Field.text := 'SEU TEXTO AQUI'; ClientDataSet.ApplyUpdates(0); end; Tenta ai!, se não for isso o que você quer fala ae! Abraços!