[delphi-br] Erro de Acess Violation
Quando encerro o sistema esta dando acces violation, uso da seguinte forma: Close, no onclick do bitbtn. form := Nil, no onclose do form. Uso D7, e Windows XP, me deem uma luz se e uma falha minha ou do XP, visto que em algumas maquinas nao ocorre. sds auriston. -- 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] 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] Codigo de Teclas
No clipper tem a funcao ASC que me retorna o valor da tecla usada, queria saber se o no delphi tem semelhante, preciso saber o valor da combinacao da tecla CTRL com F1 ate F12. sds Auriston., -- 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] 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] Componente para enviar email pelo delphi
Estou precisando de um componente para enviar email, tanto na internet discada e na banda larga, alguem que ja usa e esta tendo sucesso, favor me dar uma dica. sds auriston -- 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] 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] Quick Report
Na opcao Forcecolumn do Quick, quando eu usei ele gerou os registros duplicados na coluna e um por pagina, preciso de uma dica para que ele imprima registros diferentes na coluna e nao salte pagina. sds auriston Exemplo Pagina 1 Codigo Nome Codigo Nome 1 teste 1 teste Pagina 2 2 teste 2 teste Gostaria que fosse assim Pagina 1 Codigo NomeCodigo Nome 1 teste 2 teste [As partes desta mensagem que não continham texto foram removidas] -- 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
Re: [delphi-br] *** AJUDAR UM INICIANTE ***
1.
Antes do TableBancos.Post, insira IF empty(DBEDITNOME.TEXT) THEN
DBEDITNOME.SETFOCUS;
* FUNCAO EMPTY
DEFINA
{ Verifica se a string esta vazia }
function Empty( Dados: string ): boolean;
** LISTAGEM DA FUNCAO
function Empty( Dados: string ): boolean;
begin
if ( Length( Trim( Dados ) ) = 0 ) or
( Trim( Dados ) = ' / /' ) then
Empty := True
else
Empty := false;
end;
*FIM DA FUNCAO
2.
EU UTILIZO A FUNCAO ABAIXO:
e_filtro:=InputBox('Filtragem por função','Informe o código da
função','');
espero que te ajude.
sds
Auriston
- Original Message -
From: Cristiano Rodrigo Gomes
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 10, 2005 2:15 PM
Subject: [delphi-br] *** AJUDAR UM INICIANTE ***
Pessoal, sou iniciante e estou prestes a concluir minha primeira rotina de
cadastro.
Tenhos duas dúvidas.
1 - No botão gravar, além dos comandos
TableBancos.Post;
BitBtnGravar.Enabled:=False
.
gostaria que nesse mesmo botão onde estão estes comandos, antes de gravar
ele verificasse se o DBEditNome está vazio ou não, para que ele não consiga
gravar o cadastro em branco.
2 - Coloquei do lado do DBEditCodigo, um botãozinho para que qdo o usuário
clique sobre ele, abra uma janela para que seja efetuada uma consulta caso
ele queira ir diretamente para um determinado código, li em alguma apostila
sobre InputQuery, como utilizo.
Espero ajudas
Obs: = Estou usando o Paradox.
Mais uma coisa, alguém de vcs possuem mais ícones para serem usados em
aplicações.
Cristiano.
[As partes desta mensagem que não continham texto foram removidas]
--
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] depurar SQL, tem como ?
dados os codigos abaixo pergunto: CREATE TRIGGER MovprodBI FOR Movprod ACTIVE BEFORE INSERT POSITION 0 AS declare variable ES Varchar(1); declare variable MOVIES Varchar(1); declare variable CANCELADA Varchar(1); BEGIN Select ES,MOVIES,CANCELADA from MOVPROD where COD_MAT = NEW.COD_MAT INTO :ES, :MOVIES, :CANCELADA; IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES = 'S')) THEN BEGIN UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE - NEW.SAIDAS) WHERE CODIGO = NEW.COD_MAT; END ELSE IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES = 'E')) THEN BEGIN UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE + NEW.ENTRADAS) WHERE CODIGO = NEW.COD_MAT; END END CREATE TRIGGER MovprodBU FOR Movprod ACTIVE BEFORE UPDATE POSITION 0 AS declare variable ES Varchar(1); declare variable MOVIES Varchar(1); declare variable CANCELADA Varchar(1); BEGIN Select ES,MOVIES,CANCELADA from MOVPROD where COD_MAT = OLD.COD_MAT INTO :ES, :MOVIES, :CANCELADA; IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES = 'S')) THEN BEGIN UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE + OLD.SAIDAS) - NEW.SAIDAS WHERE CODIGO = NEW.COD_MAT; END ELSE IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES = 'E')) THEN BEGIN UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE - OLD.ENTRADAS) + NEW.ENTRADAS WHERE CODIGO = NEW.COD_MAT; END END CREATE TRIGGER MovprodBD FOR Movprod ACTIVE Before DELETE POSITION 0 AS declare variable ES Varchar(1); declare variable MOVIES Varchar(1); declare variable CANCELADA Varchar(1); BEGIN Select ES,MOVIES,CANCELADA from MOVPROD where COD_MAT = OLD.COD_MAT INTO :ES, :MOVIES, :CANCELADA; IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES = 'S')) THEN BEGIN UPDATE ESTOQUE SET ESTOQUE = ESTOQUE + OLD.SAIDAS WHERE CODIGO = OLD.COD_MAT; END ELSE IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES = 'E')) THEN BEGIN UPDATE ESTOQUE SET ESTOQUE = ESTOQUE - OLD.ENTRADAS WHERE CODIGO = OLD.COD_MAT; END END^ SET TERM ;^ por que o evento delete funciona e os outros nao funciona, se alguem puder me ajudar, me socorra. fiz um teste com o ibexpert e os eventos funcionaram, so nao funciona na minha aplicacao, sera que tem uma maneira de depurar estes codigos, para que eu veja se ele realmente estao sendo chamados pelo BD ??? sds auriston [As partes desta mensagem que não continham texto foram removidas] -- 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
