[delphi-br] que duvida!!!!!
Boa tarde a todos. Eu sei que a pergunta é um tanto fora do padrão. Mas peço permissão a todos para faze-la. É que deu um branco aqui no veio. Vamos lá! Certa vez vi uns forms feitos em delphi que utilizavam uma ferramenta que modificava a aparencias de um dbgrid e do proprio form. Inclusive di bisistemMenu,biMenu,biMaximize colocando umas pequenas esferas . Já procurei, mas não consegui localizar este tipo de ferramenta na net. PERGUNTA? Alguem conhece o nome desta ferramenta? Obrigado didi
Re: Res: [delphi-br] que duvida!!!!!
Boa tarde Carlos. Ajudou e em muito. Inclusive encontrei em um dos sites que voce passou um skin com a imagem que eu procurava. Mais uma vez, eu gostaria de agradecer a todos do grupo. Eu não trabalho com Delphi, mas sou um grande simpatizante desta linguagem. E sempre que tenho uma duvida sempre sou rapidamente atendido. Infelizmente não tenho grande experiencia para poder ajudar a outros colegas. Simplesmente por que qdo tento ajudar algum expert já deu a resposta melhor que a minha. Um dia, ainda consigo ser mais rapido que essa turma.(sonhar não paga nada hi.hi.hi.) Obrigado. Didi
[delphi-br] Re: Exclusão dbgrid!!
Douglas bom dia. Para que voce possa pegar o conteudo de uma celula de uma dbgrid utilize o seguinte comando mcampo := frmFORM1.DbgCadUF.Columns.Items[0].Field.text; Lembrando que a primeira columa começa com zero ai no comando sql basta usar a variavel mcampo. SQL.ADD('SELECT * FROM TABELA WHERE T_COD = ''' + MCAMPO + ''' '); with DataModule.SQLQuery do begin close; sql.Clear; SQL.Add('DELETE FROM TABLE WHERE CPF = '+QuotedStr(mcampo)+' '); ExecSQL; espero ter ajudado. já aprendi muito nesta lista e a ajuda que tive de todos. Eu é que agradeço. Abraços didi.
[delphi-br] Oracle e delphi
Bom dia a todos! Espero que tenham tido um otimo Natal e um ano novo sem Bugs. Bem recebi ajuda aqui na lista e venho postar o resultado que até agora consegui. Com o Delphi 5 e Delphi 7 a chamada de uma stored procedure estava ocasionando erros devido ao tipo do data type informado. No MSSQL eu não precisei preocupar com isso mas com o Oracle é necessario informar o data type. Por exemplo um campo na stored informado como varchar2 in era reconhecido no delphi como ftblob trocando por string funcionou. Este procedimento foi feito tanto em delphi 5 como em delphi 7 com BDE 5.11. Quero deixar tambem meus agradecimentos ao Leonardo que me atendeu em PVT dispendendo de seu precioso tempo. Mais uma vez obrigado. No momento estou apanhando com isto que funcionava perfeitamento no MSSQL with sqlARQ do begin Close; SQL.Clear; SQL.Add('Select * from ARQUIVO Where UPPER(CAMPONOME) LIKE (:1 + ''%'') '); Params[0].AsString := Self.EDIT.Text; Open; end; MENSAGEM 0ra-01722 INVALID NUMBER. Mas não entreguei o jogo ainda. Uma coisa eu tenho certeza EU SOU TEIMOSO! Abraços a todos Didi. (não sou o anão da Branca de neve não).
[delphi-br] Agressividade!
Bom dia a todos. Sabemos o quanto é chato termos que responder uma pergunta que para nos é a pergunta mais obvia do mundo. Eu pensava assim também. Cara como é absurdo. ORRA meu que tal um pouco de bom senso e ir dando uma pesquisada? Mas as coisas não acontecem assim. Algum tempo atrás caiu a ficha, quando pedi para que um usuario fizesse o back-up dos seus arquivos. O cara abriu uns olhos enormes para mim. Acho que ele pensou que eu tinha falado mal da mamãe dele. Ai, disse. Voce tem que fazer a copia das suas planilhas em disco. Resposta? Simples e muito simples. Disse ele -- AH! eu tenho tudinho aqui neste CDROM. E uma outra coisa, sabe aquelas perguntas cretinas? Pois é essas mesmas que fazem rodar a baiana ou ficar muito P.. dentro das cuecas? São essas que nos fazem lembrar de certas rotinas. Um professor disse uma vez. Voces não sabem como eu aprendo quando ensino. A voces professores aqui da lista, o que é simples para um é muito mas muito complicado para outros inclusive para mim. Não quero causar aqui uma polemica com o grupo. Mas gente eu que nã conheço muito desta linguagem principalmente de delphi com oracle porque estou tomando uma surra danada. Uma vez ou outra aprendo e muito com aquelas perguntinhas simples . Grande abraço a todos. Que tenham um otimo natal. E obrigado a todos por estarem aqui nesta lista dispostos a mutiplicar seus conhecimentos dividindo-os com os outros. Obrigado Didi
[delphi-br] delphi mais delfi.
Boa tarde. Sou eu de novo. Alguem está lendo e pensando (ô cara chato). Que posso fazer só quero aprender(preciso). Já procurei e encomendei livros(minha primeira opçao) mas ainda não sai do impasse. Vamos lá! Mas por favor sem agressividade! (risos) Instalei um delphi 7 aqui para testes com oracle 10g. E não consegui sair do impasse, este apresenta o mesmo erro capability not supported. (informando: estou pesquisando na web faz mais de uma semana. sou persistente isso não posso negar) Peço a algum colega sua ajuda. MINHA STORED exemplo: CREATE OR REPLACE PROCEDURE TESTE1 ( tipo char, -- tipo recebe parametro campo1 in out number -- este campo como char dá erro. campo envia ) is ---campo char(4); begin campo := 'espe'; IF TIPO = 'I'THEN campo1 := '44'; END IF; IF TIPO = 'A' THEN CAMPO1 := '55'; END IF; End teste1; Chamo a procedure no delphi StoredProc1.Close; StoredProc1.Prepare; StoredProc1.ParamByName('TIPO').Value := 'I'; StoredProc1.ExecProc; StoredProc1.UnPrepare; StoredProc1.Close; Edit1.text := storedProc1.ParamByName('CAMPO1').value; Para esta stored procedure acontece a mesma coisa:(CAPABILITY NOT SUPPORTED) CREATE OR REPLACE PROCEDURE teste2 (p_COD IN SA1010.A1_COD%TYPE, p_NOME OUT SA1010.A1_NOME%TYPE) IS BEGIN ---SELECT P_COD INTO p_comp_codigo FROM DUAL ; SELECT A1_NOME INTO P_NOME FROM SA1010 WHERE A1_COD = P_COD; P_NOME := 100; --somente um teste END TESTE2; Evidentemente postei esta em outros grupos. Porque Ajuda é sempre bom receber. E ajudar é gratificante. Desde já agradeço a todos. Didi.
[delphi-br] Re: Oracel x Delphi
Boa tarde! Quer agradecer pela ajuda. Agora já tenho uma luz no fim do tunel e vou tentar resolver. De qualquer forma, irei postar aqui na lista os reultados de minhas experiencias. Muito obrigado a todos. Foi a minha primeira pergunta a esta lista e a velocidade com que os colegas responderam foi algo digno de multa. Didi. Obrigado.
[delphi-br] Oracel x Delphi
Boa noite a todos. Eu pesquisei, aqui na lista como sempre faço. E devo dizer que sempre encontrei sem precisar incomodar aos colegas. Mas desta vez sou obrigado a postar minha duvida. Uso o Delphi 5 e BDE 5.01 e Oracle 10g. Os acessos atraves das QUERYS estão funcionando mas quando tento através da Storedproc esta me devolve um erro CAPABILITY NOT SUPPORTED. Seria a versão do BDE que não é compativel com o oracle 10g? Bem fico na esperança que algum colega possa me orientar. E enquanto isso vamos a mais e mais pesquisa na web. Obrigado! Didi.
[delphi-br] duvida em sql e retorno de uma select vazio
duvida em sql Sendo a tabela a e a tabela b (Eduardo Galvão) Voce pode fazer assim. SELECT A.ANO,A.SEM,A.TIPO FROM TABELAA A, TABELAB B WHERE A.ANO = B.ANO AND A.SEM = B.SEM AND A.TIPO = B.TIPO DÁ PARA MELHORA? cOM CERTEZA VOCE PODE USAR O JOIN RETORNO DE SELECT VAZIO. (TONI) IF(SELECT COUNT(*) FROM SC6010 WHERE C6_FILIAL = '01' AND C6_NUM = @P_NUM AND [EMAIL PROTECTED] AND C6_LOJA = @P_LOJA AND D_E_L_E_T_ '*' ) = 0 BEGIN -- RAISERROR('TENTE NOVAMENTE' ,16,1) SET @P_SIT='1' GOTO FIMERRO END Uso o if com o select pois desta forma se o conteudo da select for igual a zero o registro não existe na tabela. Sei que não exatamente isto que voce está querendo. O que me pareceu é que voce quer saber se um campo possui valor. Neste caso voce poderia fazer um select e perguntar se o campo é nulo ou se é igual a zeros. Com o esquema acima voce o alteraria colocando no caso estoque=0 se isto for verdade voce pode usar o update Estou postando este exemplo para que todos possam dar uma olhada e caso for darem uma melhorada. SEI QUE AQUI É DELPHI, mas me desculpem delphi usa sql CERTO?. Se esta certo fico satisfeito. Abraços Didi. -sp -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ajuda iniciante
cristiano rodrigo gomes Cristiano bom dia. Estou te enviando esta rotina para tentar resolver a sua duvida. Eu não trabalho com delphi sou apenas um curioso e simpatizante desta linguagem. A qual acho muito boa. A rotina. If (length(Trim(EdLogin.Text)) = 0) then begin table1.cancel end Else table1.Post; end;} Neste if voce verifica se o campo possui algum conteudo se a length for igual a zero entao o campo esta vazio. Ai se voce entrou com append basta (table1.cancel) Se a lenght voltar maior que zero então o campo contem algum conteudo. espero ter lhe ajudado. Um abraço Didi. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] como saber se um registro esta bloqueado!
Eu pergunto novamente sobre o caso abaixo! Em paradox já descobri como fazer isso mas em SQL-SERVER o procedimento e tratamento é diferente. O que realmente gostaria de fazer era o de não deixar o usuario entrar neste registro. Alguem já teve este problema? Obrigado novamente! Didi Boa tarde a todos! Quando um resgistro está sendo editado pelo usuario A e o usuario B tenta acessar este registro tanto como consulta e ou alteração gostaria de poder enviar ao usuario B a mensagem de que o reg. está sendo alterado ou em uso. A base de dados em questao é SQL-SERVER da microsoft. Obrigado. Didi. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] como saber se um registro está bloqueado!
Boa tarde a todos! Quando um resgistro está sendo editado pelo usuario A e o usuario B tenta acessar este registro tanto como consulta e ou alteração gostaria de poder enviar ao usuario B a mensagem de que o reg. está sendo alterado ou em uso. A base de dados em questao é SQL-SERVER da microsoft. Obrigado. Didi. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html