[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
