Ir para conteúdo
Fórum Script Brasil

Douglas Soares

Veteranos
  • Total de itens

    864
  • Registro em

  • Última visita

Tudo que Douglas Soares postou

  1. Isso você faz via código: Query1.SQL.close; Query1.SQL.clear; Query1.SQL.Add('select nome'); Query1.SQL.Add('from usuario'); Query1.SQL.Add('where nome = ' + variavel); Query1.open; Abraços
  2. Instale o Inno Setup: http://www.baixaki.com.br/download/inno-setup.htm e depois o IS Tool: http://www.baixaki.com.br/download/istool.htm Em seguida veja esses links: http://www.vbweb.com.br/dicas_visual.asp?Codigo=3169 http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=694 http://www.firebase.com.br/fb/artigo.php?id=584 Abraços
  3. Entra nesse site: http://jvcl.delphi-jedi.org/ Baixe o instalador do pacote de componente JVCL e instale, dps é só ir na aba que citei acima! Abraços
  4. a Propriedade ProviderFlags fica no campo, você tem que clicar no campo que você adicionou e nele você terá essa opção. Abraços
  5. Veja esse link: http://www.devmedia.com.br/articles/viewcomp.asp?comp=886 Abraços
  6. Dá pra você especificar melhor e colocar um print desse programa com a string que quer alterar? Abraços
  7. Tenta o Cheat Engine http://www.cheatengine.org/ daí você clica no computadorzinho e seleciona o processo do jogo, depois você clica numa opção a direita escrita, enable speedhack, daí você pega e aumenta ou diminui ela conforme seu gosto eheheh Abraços
  8. kkkk, faculdade? rsrssr tenho 16 anos, eu to no segundo colegial ainda huhusauha, tem gente que nem acredita que eu programo :wacko: , qualquer dia nois marca um jogo de Left4Dead no garena!!! :P Abraços
  9. boa Micheus ;), precisando de ajuda amanha ainda to livre, rsrsrsrs Abraços
  10. Não vou te ajudar nesse momento pois cheguei da escola agora e vou dar uma jogadinha, rsrsrsrs, se ninguém te responder até amanha eu te dou uma força, tenho mt serviço amanha =/ mas no sabado to livre, rsrsrs então até lá! Abraços
  11. Você pode usar os componentes da biblioteca JediVcl, na aba JvWizard você conseguirá fazer o que quer! Abraços
  12. Certo então faz a mesma coisa com o WinExec DataConfigs.DataSet.Open; WinExec(PAnsiChar('cmd /c net use S: '+ DataConfigs.DataSet.FieldByName('PATH_FOTOS').AsString), SW_ShowNormal); Outra coisa, que comando é esse que você está querendo fazer??? net use S:... o que isso faz? Abraços -------------------------------------- Edit: Já saquei, você tá querendo mapear uma unidade de rede!
  13. Amigo, o q você pode tentar fazer é colocar um botão no form e tentar verificar se tem valor: ShowMessage(DataConfigs.DataSet.FieldByName('PATH_FOTOS').AsString); Abraços
  14. Acredito que o RaveReports seja por fora do delphi, veja esse link: http://www.devmedia.com.br/post-16432-Quic...ts-Parte-I.html Abraços
  15. Então muda isso de vez, coloca assim que creio que vai funcionar: WinExec(PAnsiChar('cmd /c net use Y: '+ CdsTeste.FieldByName('PATH_FOTOS').AsString), SW_ShowNormal); Abraços
  16. Ele dá Undeclared porque não achou o componente, pra isso você tem que clicar em File > Use Unit, e selecionar o seu datamodule...
  17. Mas existe um ClientDataSet num form... se esse form estiver aberto você deve usar ele pelo menos pra fazer um teste pois assim vamos saber se esse seu typecast não tá ferrando com o código... tenta aí: FrmTeste.CdsTeste.ApplyUpdates(0); Abraços
  18. Mas porque você faz isso? você não poderia simplesmente colocar o nome do seu ClientDataSet ali e aplicar as alterações??? qual a necessidade de referenciar ele através de um DataSource?
  19. Certo... não entendi o porque desse typecast do mal aí no seu código... Usa seu cds diretamente e ve se não dá mais erro... CdsTeste.ApplyUpdates(0); Abraços
  20. Posta o código do botão salvar e o SQL de uma possível query que você tem aí! Abraços
  21. Então você vai ter que colocar o seu ClientDataSet e não o seu datasource.dataset... se o seu cds chama CdsTeste você tem que usar ele, não importa quantos datasources você usa WinExec(PChar('cmd /c net use Y: '+ CdsTeste.FieldByName('PATH_FOTOS').Text), SW_ShowNormal); ou WinExec(PAnsiChar('cmd /c net use Y: '+ CdsTeste.FieldByName('PATH_FOTOS').Text), SW_ShowNormal); Abraços
  22. Se o seu campo é Varchar então faz assim que vai dar certo: WinExec(pChar('cmd /c net use Y: '+ DataConfigs.DataSet.FieldByName('PATH_FOTOS').Text), SW_ShowNormal); Abraços
  23. Faça assim no OnTileClick do DBGrid: procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin if 'a' + Column.FieldName = CDS_CaixaP.IndexName then CDS_CaixaP.IndexName := 'd' + column.FieldName else CDS_CaixaP.IndexName := 'a' + column.FieldName; end; E no OnCreate do form poe isso: procedure TForm1.FormCreate(Sender: TObject); var i : integer; begin for i := 0 to CDS_CaixaP.FieldCount - 1 do begin CDS_CaixaP.IndexDefs.Add('a' + CDS_CaixaP.Fields[i].FieldName, CDS_CaixaP.Fields[i].FieldName, []); CDS_CaixaP.IndexDefs.Add('d' + CDS_CaixaP.Fields[i].FieldName, CDS_CaixaP.Fields[i].FieldName, [ixDescending]); end; end; Abraços
  24. Vai ser uma tarefa dificil... procurei em todos os lugares mas também não encontrei, creio que só instalando uma versão "alternativa", rsrsrsrs não tenho certeza se expira não, mas é bom você verificar não é? :P Abraços
  25. Segue a dica pra quem quiser mover um form fsMDIChild pelo DBGRID: Adicione essa procedure em Private : procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest; depois coloque essa procedure depois de implementation procedure Tform1.WMNCHitTest(var Msg: TWMNCHitTest); begin inherited; if Msg.Result = htClient then Msg.Result := htCaption; end; Outra coisa, fazendo dessa forma você só poderia move-lo se tivesse clicando no form... como eu tenho um DBGrid no form inteiro eu preciso "enganar o sistema", é simples, basta ir no evento OnMouseDown do DBGrid ou de qualquer outro componente e adicione isso: ReleaseCapture; SendMessage(Self.Handle, WM_SYSCOMMAND, 61458, 0); Abraços
×
×
  • Criar Novo...