Ir para conteúdo
Fórum Script Brasil

bastard2003

Membros
  • Total de itens

    193
  • Registro em

  • Última visita

Tudo que bastard2003 postou

  1. você poderia utilizar o proprio sql explorer do delphi... é pratico e leve! bom pra se usar!
  2. eu não tenho mais o link direto mas entra no site do MySql (http://www.mysql.com) e procura por provider ODBC que você vai encontrar certamente. abraços
  3. eu utilizo sem problemas o MySql em casa... so que não utilizo o componente Zeos... tive MT problemas com ele.. por esse motivo to usando ADO, so que pra usar esse você vai ter q baxar uns provider, estes você encontra no proprio site do MySql
  4. Nem esquenta rapaz... tamo aqui pra isso... ajudar e ser ajudado! abraços e sucesso!
  5. Fala meu bruxo, beleza!? você pretende fazer isso com .ini!? beleza vamos la... primeiro declara no Uses: IniFiles ai por exemplo, eu uso um arquivo .ini pra salvar alguns dados de um formilario.. eu cri ele no onClose do meu form: procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction); var Arquivo: TIniFile; begin Arquivo := TIniFile.Create(ExtractFilePath(Application.ExeName) +'\ExcelToManutec.ini'); Arquivo.WriteString('Tempo','Intervalo', edtTempo.Text); Arquivo.Free; end; e no onShow do mesmo form eu uso assim: procedure TfrmPrincipal.FormShow(Sender: TObject); var Arquivo: TIniFile; begin Arquivo := TIniFile.Create(ExtractFilePath(Application.ExeName) +'\ExcelToManutec.ini'); edtTempo.Text := Arquivo.ReadString('Tempo','Intervalo', ''); Arquivo.Free; end; no caso ai... o edtTempo é o meu edit que receb os valor do arquivo .ini... espero ter ajudado abraços!
  6. bastard2003

    Tutorial Thread

    Esse aqui é BEM bom.. so que é em ingles ne! axo que conteudo pra você estudar tem aos montes ai velho! Ate mais!
  7. bastard2003

    Colorgrid

    Ta ai! so que na minha opnião seria ate melhor você escolher usar um color dialog porque tem mais opções de cores... mas você q sab.... pra usar o color dialog é so usar aquela função ali de cima e trocar o grid1 pelo nome do teu form Form1.Color := ColorGrid1.BackgroundColor;//botão direito do mouse Form1.Color := ColorGrid1.ForegroundColor; // botão esquerdo do mouse Espero ter ajudado!
  8. bastard2003

    Tutorial Thread

    Fala Fusco beleza!? cara. tava dando uma banda agora na net e encontrei algumas coisas bem legais! nesse link aqui link aqui tem um artigo bem bom sobre o assunto, aproveita e da uma olhada nos outros artigos dessa cara.. ele tem umas coisas bem SHOW! tem esse Site aqui... ele tem algumas coisas sobre o assunto incluindo uma apostila... so tem q se registrar, mas é free... Ve se esses artigos ai te ajuda velho... abraços!
  9. bastard2003

    Navegador

    fala Zé... será que se você usar NOW não conseguiria pegar a data!?
  10. bastard2003

    Tutorial Thread

    sempre tem um retardado pra falar alguma coisa pra desmotivar os outros! e nem corragem pra postar como usuario tem! Fusco eu não tenho nada ainda... mas da uma olhada no google ou em outros forum q deve ter velho... e se tiver alguma duvida... poste aqui... nesse forum tem MT pessoas que respeitam o conhecimento alheio! Abraços
  11. bastard2003

    Colorgrid

    Dai beleza?! não entendi MT bem qualquer você predente fazer.. mas se for so pra trocar a cor do grid todo... basta você colocar um componente ColorDialog q se encontra na palheta Dialogs ai você coloca um botão e coloca esse codigo ai: if ColorDialog1.Execute then Grid1.Color := ColorDialog1.Color; //Grid1 é o nome do Grid Seria isso ai!?
  12. bastard2003

    Iniciantes

    o gurizada... vamos manter o nivel né! concordo com o Daninho, pergunte no forum suas duvidas... mas antes de perguntas... de uma procurada pra ver se não existe um tópico com o mesmo assunto.. se ele existir mas não tiver a resposta que você espera basta responder nele que ele vem pros primeiros.. a tua duvida pode ser de outras pessoas tb.... era isso!
  13. q banco você ta usando?!?! tem usa um decode decode(campo, null, 0) mas não garanto!
  14. bastard2003

    Scanner

    cara tem componentes que você poderia usar pra fazer isso... so que não me recordo o nome dele agora!
  15. você ta querendo fazer uma tela de login de usuario?!!? isso?!?! dada uma olhada nesse aqui
  16. Da uma olhada nesse tópico aqui!
  17. bastard2003

    Problema

    faz assim: cria uma função que retorna um Boolean tipo: function TemNaBase(nome: String):Boolean; nela tu faz o select passando o nome que vem do txt inicia em em false e so passa true se a tua query no final for IsEmpty é no caso ela não axou nada... ai antes de tu inseir os dados tu coloca: if TemNaBase(nome) then ai o codigo pra inserir... se o resultado for false (o recordCount da qry foi > 1 ele não vai inserir). isso deve resolver teu problema! Agora comentando um poco... os comentarios que você deixou aqui... sinceramente... não eram necessarios... p****... se vem pedir ajuda no forum, não é se demora um poco pra responder q você pode se axar no direito de sair xingando todo mundo! foram apenas 3 pessoas ativas nesse post aqui... eu o kiko e Adriano... nossos comentarios... foram pra ajudar e não pra avacalhar com vc... se estamos no forum... estamos pra APRENDER... pois ninguém sabe tudo! não é so porque o cara é op que ele tem o dever de resolver todos os topicos... na minha opnião esse é um dos melhores (se não o melhor) forum de programação so país.... fica minha critica aqui... Abraços! bastard2003!
  18. bastard2003

    Dúvidas.

    Salve amigo... Eu abro a conexão com o banco quando inicio o programa e so finalizo quando fexo ele... nunca tive problemas com isso, so que eu sempre utilizo os componentes ADO pra fazer conexão com o banco! Isso você pode fazer da mesma maneira... você cria uma unit nova e coloca nela todas as funções que você vai querer utilizar no seu sistema (eu uso isso ) ai em todos os forms que você for utilizar ela basta você declarar ela no Uses que vai funcionar normalmente! era isso!? abraços e seja bem vindo!
  19. te adicionei no MSN... mas so pra saber mesmo... qual o teu problema com eles??
  20. Salve galera!!! seguinte... to com problema com esse componente ai... é o seguinte... vou usar ele pra fazer como se foc uma dialog pra me trazer a pasta de um diretorio e depois pra salva tb escolhendo um diretorio... so q o problema é q eu coloquei um botão de novo ai ele adiciona uma nova pasta, pra isso to usando esse codigo aqui MkDir(TreeViewDirectory.Path + '\Nova Pasta'); TreeViewDirectory.Refresh(TreeViewDirectory.Selected); beleza.. adiciona a pasta so que eu queria saber se tem como colocar o foco nessa pasta q eu criei e se der pra deixar ele pronta pra digita o nome da pasta, tipo quando você clinca no botão de nova pasta numa dialog qualquer, e ele cria a pasta e seta o foco nela dexando troca o nome.. sera que alguém pode me ajudar?!?! valeu!
  21. bastard2003

    Problema

    tenta assim: cria uma função que vai ler linha por linha o arquivo e vai buscar no banco pra ver se já existe.... se existir, passa pra outra linha e não grava, se não existir, grava e depois passa pra outra linha. você não falou,mas esse arquivo que você ta lendo, é de que tipo (txt, excel,...)? tenta essa ai, se não der posta de novo... PS: ele ta gravando os dados duplicados não o codigo ne? tipo: codigo - nome 1 - bastard 2 - bastard isso né? ou?? codigo - nome 1 - bastard 1 - bastard Ate!
  22. bastard2003

    Problema

    Oi Ana.. pelo que eu entendi... tu teria que verificar se os dados já existem na tabela... se existirem não importa... caso contrario importa...
  23. bastard2003

    Thumbmails

    o esquema ta pronto.. quem quiser me manda um email! bastard2003@gmail.com PS: qm quiser invite do gmail... aproveita e pede! tenho sobrando!
  24. Tenta essa: procedure Justify; const WM_USER = $400; EM_EXSETSEL = (WM_USER + 55); EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202); EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203); TO_ADVANCEDTYPOGRAPHY = $1; mZERO = $0; var x :tparaformat; L :LongInt; cp :charrange; begin x.cbSize := sizeof(x); if Form1.RichEdit1.SelLength = 0 then begin cp.cpMin := 0; cp.cpMax := length(Form1.RichEdit1.Text); SendMessage(Form1.RichEdit1.Handle,EM_EXSETSEL,mZERO,LPARAM(@cp)); end; L := SendMessageA(Form1.RichEdit1.Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY); if L = 1 then begin SendMessageA(Form1.RichEdit1.Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO); SendMessage(Form1.RichEdit1.Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x)); x.dwMask := PFM_ALIGNMENT; x.wAlignment := PFA_JUSTIFY; SendMessage(Form1.RichEdit1.Handle, EM_SETPARAFORMAT, mZERO, lparam(@x)); end; cp.cpMin := 0; cp.cpMax := 0; SendMessage(Form1.RichEdit1.Handle,EM_EXSETSEL,mZERO,lparam(@cp)); Form1.RichEdit1.WordWrap := true; end; ai é so chamar assim: Justify; Abraços!
  25. bastard2003

    Thumbmails

    Ok amigo... esse fnd te mando os fontes dele!
×
×
  • Criar Novo...