bastard2003
Membros-
Total de itens
193 -
Registro em
-
Última visita
Tudo que bastard2003 postou
-
você poderia utilizar o proprio sql explorer do delphi... é pratico e leve! bom pra se usar!
-
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
-
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
-
Nem esquenta rapaz... tamo aqui pra isso... ajudar e ser ajudado! abraços e sucesso!
-
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!
-
Esse aqui é BEM bom.. so que é em ingles ne! axo que conteudo pra você estudar tem aos montes ai velho! Ate mais!
-
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!
-
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!
-
fala Zé... será que se você usar NOW não conseguiria pegar a data!?
-
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
-
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!?
-
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!
-
q banco você ta usando?!?! tem usa um decode decode(campo, null, 0) mas não garanto!
-
cara tem componentes que você poderia usar pra fazer isso... so que não me recordo o nome dele agora!
-
você ta querendo fazer uma tela de login de usuario?!!? isso?!?! dada uma olhada nesse aqui
-
Da uma olhada nesse tópico aqui!
-
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!
-
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!
-
te adicionei no MSN... mas so pra saber mesmo... qual o teu problema com eles??
-
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!
-
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!
-
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...
-
o esquema ta pronto.. quem quiser me manda um email! bastard2003@gmail.com PS: qm quiser invite do gmail... aproveita e pede! tenho sobrando!
-
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!
-
Ok amigo... esse fnd te mando os fontes dele!