[delphi-br] SOCORRO: Gravar dados no Banco de Dados

2007-12-11 Por tôpico william.designer
tenho os seguintes componentes em um Data module, um SQLConection,
um SQLDataSet{SQLcadLista}, um DataSetProvider{DSPcadLista} e um
ClientDataset{CDScadLista}

Criei um formulario a partir dos campos do meu ClienteDataset...
e Criei um botão para Salvar e coloque o seguinte código no Onclick
do botão..

if DNNConexao.CDScadListaProgCOD.IsNull then
begin
DNNConexao.CDScadListaProgCOD.Value := 0;
DNNConexao.CDScadListaProg.ApplyUpdates(-1);
DNNConexao.CDScadListaProg.Open;
DNNConexao.CDScadListaProg.Close;
end
else
DNNConexao.CDScadListaProg.ApplyUpdates(-1);
Fechar:=true;
Close;

O primeiro registro ele salva normal...mas quando tenho cadastrar um
novo registro ele dá a seguinte mensagem...

Project NomeProjeto.exe raised exception class EDBClient with
message 'KeyViolation.'. Process stop. Use step or run to continue.

Será que alguem pode me ajudar onde eu estou errando...




[delphi-br] Excluir um Registro do BD - URGENTE

2007-12-11 Por tôpico william.designer
olá gostaria de saber como faço para excluir um registro selecionado 
em uma DBGRID.

será que alguém pode me dar um exemplo de como fazer isso.

Obrigado



[delphi-br] Re: Excluir um Registro do BD - URGENTE

2007-12-11 Por tôpico william.designer
Certo, mas gostaria de fazer isso através de um clique em um 
botão...quando eu clicasse no botão iria aparecer um pedido de 
confirmação e só apos confirmar o registro seria apagado...
será que pode me ajudar 

--- Em delphi-br@yahoogrupos.com.br, Nilson Chagas 
[EMAIL PROTECTED] escreveu

 apertando a tecla DELETE ou CTRL+DELETE.
 
 Verifique se a opção ConfirmDelete esta true nas Options do DBGrid.
 
 Em 11/12/07, william.designer [EMAIL PROTECTED] escreveu:
 
olá gostaria de saber como faço para excluir um registro 
selecionado
  em uma DBGRID.
 
  será que alguém pode me dar um exemplo de como fazer isso.
 
  Obrigado
 
   
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] URGENTE : Salvando dados no BD

2007-12-06 Por tôpico william.designer
tenho os seguintes componentes em um Data module, um SQLConection, 
um SQLDataSet{SQLcadLista}, um DataSetProvider{DSPcadLista} e um 
ClientDataset{CDScadLista}

Criei um formulario a partir dos campos do meu ClienteDataset...
e Criei um botão para Salvar e coloque o seguinte código no Onclick 
do botão..

if DNNConexao.CDScadListaProgCOD.IsNull then
  begin
  DNNConexao.CDScadListaProgCOD.Value  := 0;
  DNNConexao.CDScadListaProg.ApplyUpdates(-1);
  DNNConexao.CDScadListaProg.Open;
  DNNConexao.CDScadListaProg.Close;
  end
  else
  DNNConexao.CDScadListaProg.ApplyUpdates(-1);
  Fechar:=true;
  Close;

O primeiro registro ele salva normal...mas quando tenho cadastrar um 
novo registro ele dá a seguinte mensagem...

Project NomeProjeto.exe raised exception class EDBClient with 
message 'KeyViolation.'. Process stop. Use step or run to continue.

Será que alguem pode me ajudar onde eu estou errando...



[delphi-br] SOCORRO : Aplicação em primeiro plano

2007-12-05 Por tôpico william.designer
Olá a todos, estou com uma dúvida cruel...
estou criando um aplicativo que o usuário tem logar para ter acesso
a área de trabalho. quando o usuário loga na parte superior da tela
fica um pequeno formulario mostrando o nome do usuário, o relogio e
um contatador de tempo.

criei uma váriavel global
Fechar:Boolean=False
Coloquei no evento OnCloseQuery
CanClose:=Fechar;
Criei um botão Fechar e coloquei o seguinte codigo no Onclick
Fechar:=True;
Close;
fiz isso para evitar que a tela fosse fechada com ALT+F4

Nas propriedades do formulario retirei as bordas da janela;
até ai tudo bem...

porém também alterei o FormStyle para fsStayOnTop;
fiz isso para que esta janelinha fique aparecendo o tempo todo sobre
qualquer aplicativo que o usuario abrir no windows...
porém não está funcionando...alguem sabe me dizer se fiz algo errado
ou se deixei de fazer alguma coisa...

estou precisando muito desta informação,,, deste já agradeço a
todos...




[delphi-br] Re: SOCORRO : Aplicação em primeiro plano

2007-12-05 Por tôpico william.designer
Obrigado pela dica willer mas o meu problema não está em proibir que 
o form seja fechado, está parte está funcionando bem...
o problema está no FormStyle fsStayOnTop;
já coloquei isso mas meu formulário nao fica em primeiro plano, 
sempre que abro um aplicativo este fica por cima do meu formulário...




--- Em delphi-br@yahoogrupos.com.br, willer [EMAIL PROTECTED] escreveu

 //aqui funciona assim
 procedure TfrmLogin.FormClose(Sender: TObject; var Action: 
TCloseAction);
 begin
   if not Fechar then
 Action:=caNone;
 end;
 
 
   - Original Message - 
   From: william.designer 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Wednesday, December 05, 2007 1:44 PM
   Subject: [delphi-br] SOCORRO : Aplicação em primeiro plano
 
 
   Olá a todos, estou com uma dúvida cruel...
   estou criando um aplicativo que o usuário tem logar para ter 
acesso
   a área de trabalho. quando o usuário loga na parte superior da 
tela
   fica um pequeno formulario mostrando o nome do usuário, o 
relogio e
   um contatador de tempo.
 
   criei uma váriavel global
   Fechar:Boolean=False
   Coloquei no evento OnCloseQuery
   CanClose:=Fechar;
   Criei um botão Fechar e coloquei o seguinte codigo no Onclick
   Fechar:=True;
   Close;
   fiz isso para evitar que a tela fosse fechada com ALT+F4
 
   Nas propriedades do formulario retirei as bordas da janela;
   até ai tudo bem...
 
   porém também alterei o FormStyle para fsStayOnTop;
   fiz isso para que esta janelinha fique aparecendo o tempo todo 
sobre
   qualquer aplicativo que o usuario abrir no windows...
   porém não está funcionando...alguem sabe me dizer se fiz algo 
errado
   ou se deixei de fazer alguma coisa...
 
   estou precisando muito desta informação,,, deste já agradeço a
   todos...
 
 
 

 
   __ Informação do NOD32 IMON 2704 (20071205) __
 
   Esta mensagem foi verificada pelo NOD32 sistema antivírus
   http://www.eset.com.br
 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Re: SOCORRO : Aplicação em primeiro plano

2007-12-05 Por tôpico william.designer
Tenho uma tela de login e quando logo abre-se um pequeno formulario 
na parte superior...
quero que este pequeno formulario fique sobre qualquer aplicativo 
que seja aberto no windows
ja coloquei o fsStayOnTop mas não está funcionando...
me disseram para usar a API SetForegroundWindows...
só que nao sei como usar ou se realmente é necessário...

--- Em delphi-br@yahoogrupos.com.br, Claudio Marconi 
[EMAIL PROTECTED] escreveu

 pederia ser mais específico. O que não está funcionando ?
 
 Em 05/12/07, william.designer [EMAIL PROTECTED] escreveu:
 
Olá a todos, estou com uma dúvida cruel...
  estou criando um aplicativo que o usuário tem logar para ter 
acesso
  a área de trabalho. quando o usuário loga na parte superior da 
tela
  fica um pequeno formulario mostrando o nome do usuário, o 
relogio e
  um contatador de tempo.
 
  criei uma váriavel global
  Fechar:Boolean=False
  Coloquei no evento OnCloseQuery
  CanClose:=Fechar;
  Criei um botão Fechar e coloquei o seguinte codigo no Onclick
  Fechar:=True;
  Close;
  fiz isso para evitar que a tela fosse fechada com ALT+F4
 
  Nas propriedades do formulario retirei as bordas da janela;
  até ai tudo bem...
 
  porém também alterei o FormStyle para fsStayOnTop;
  fiz isso para que esta janelinha fique aparecendo o tempo todo 
sobre
  qualquer aplicativo que o usuario abrir no windows...
  porém não está funcionando...alguem sabe me dizer se fiz algo 
errado
  ou se deixei de fazer alguma coisa...
 
  estou precisando muito desta informação,,, deste já agradeço a
  todos...
 
   
 
 
 
 
 -- 
 Cláudio Marconi
 Delphi/DirectShow Developer
 55 61 8406-6451
 
 
 [As partes desta mensagem que não continham texto foram removidas]





RES: [delphi-br] Re: SOCORRO : Aplicação em primeiro plano

2007-12-05 Por tôpico william.designer
Você sabe me dizer como faço para usar esta função

SetForeground(hwnd:HWND)

o que siginifica estes parametros e como faço para colocar o meu 
form como sendo estes parametros
se puder me ajudar agradeço muito.


--- Em delphi-br@yahoogrupos.com.br, Sérgio T. Uetanabaro [EMAIL PROTECTED] 
escreveu

 A funcao da API eh a SetForegroundWindow se nao me engano. Ela 
traz a janela
 do handle passado para o primeiro plano.
  
  
 []´s
  
 Sergio Uetanabaro
 
   _  
 
 De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED] Em
 nome de edersonecris
 Enviada em: quarta-feira, 5 de dezembro de 2007 16:06
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] Re: SOCORRO : Aplicação em primeiro plano
 
 
 
 Se não me engano existe uma função do windows que faz isso, mas 
não 
 estou lembrado qual é
 
 william.designer escreveu:
 
  Obrigado pela dica willer mas o meu problema não está em proibir 
que
  o form seja fechado, está parte está funcionando bem...
  o problema está no FormStyle fsStayOnTop;
  já coloquei isso mas meu formulário nao fica em primeiro plano,
  sempre que abro um aplicativo este fica por cima do meu 
formulário...
 
  --- Em [EMAIL PROTECTED] mailto:delphi-br%
40yahoogrupos.com.br
 os.com.br 
  mailto:delphi-br%40yahoogrupos.com.br, willer willer@ 
escreveu
  
   //aqui funciona assim
   procedure TfrmLogin.FormClose(Sender: TObject; var Action:
  TCloseAction);
   begin
   if not Fechar then
   Action:=caNone;
   end;
  
  
   - Original Message -
   From: william.designer
   To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
 os.com.br 
  mailto:delphi-br%40yahoogrupos.com.br
   Sent: Wednesday, December 05, 2007 1:44 PM
   Subject: [delphi-br] SOCORRO : Aplicação em primeiro plano
  
  
   Olá a todos, estou com uma dúvida cruel...
   estou criando um aplicativo que o usuário tem logar para ter
  acesso
   a área de trabalho. quando o usuário loga na parte superior da
  tela
   fica um pequeno formulario mostrando o nome do usuário, o
  relogio e
   um contatador de tempo.
  
   criei uma váriavel global
   Fechar:Boolean=False
   Coloquei no evento OnCloseQuery
   CanClose:=Fechar;
   Criei um botão Fechar e coloquei o seguinte codigo no Onclick
   Fechar:=True;
   Close;
   fiz isso para evitar que a tela fosse fechada com ALT+F4
  
   Nas propriedades do formulario retirei as bordas da janela;
   até ai tudo bem...
  
   porém também alterei o FormStyle para fsStayOnTop;
   fiz isso para que esta janelinha fique aparecendo o tempo todo
  sobre
   qualquer aplicativo que o usuario abrir no windows...
   porém não está funcionando...alguem sabe me dizer se fiz algo
  errado
   ou se deixei de fazer alguma coisa...
  
   estou precisando muito desta informação,,, deste já agradeço a
   todos...
  
  
  
  
  
   __ Informação do NOD32 IMON 2704 (20071205) __
  
   Esta mensagem foi verificada pelo NOD32 sistema antivírus
   http://www.eset. http://www.eset.com.br com.br 
http://www.eset.
 http://www.eset.com.br com.br
  
  
   [As partes desta mensagem que não continham texto foram 
removidas]
  
 
  
 
 -- 
 Éderson Cassiano Bologna
 edersoncassiano@ mailto:edersoncassiano%40terra.com.br 
terra.com.br
 sKYPE: edersoncassiano
 MSN: edersoncassiano@ mailto:edersoncassiano%40hotmail.com 
hotmail.com
 www.microtechshop.com
 
 
 
  
 
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: Res: [delphi-br] Manter a aplicação em Foreground

2007-11-30 Por tôpico william.designer
Já tentei fazer desta forma Jefferson mas não deu certo quando abro 
o meu aplicativo ele fica normal, mas se abro qualquer outro 
programa, o meu arquivo fica por tras...
alem de ativar a propriedade FormStyle eu devo fazer mais alguma 
coisa???...

se souber de outra forma agradeço muito

--- Em delphi-br@yahoogrupos.com.br, Jefferson Bompadre 
[EMAIL PROTECTED] escreveu

 Basta colocar na propriedade FormStyle do formulário a opção: 
fsStayOnTop
 
 
 - Mensagem original 
 De: william.designer [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Sexta-feira, 30 de Novembro de 2007 12:16:29
 Assunto: [delphi-br] Manter a aplicação em Foreground
 
 alguém sabe me dizer como faço para manter minha aplicação criada 
em 
 delphi por cima de qualquer outro programa que se abra no windows 
xp, 
 
 Quando o usuário entra no word por exemplo meu pequeno formulario 
fica 
 por tras da tela do word...
 Será que não tem um jeito do usuário usar o word normalmente mas 
com a 
 minha janelinha aparecendo no topo ou na base da janela...
 
 Desde já agradeço...
 
 
 
 
 
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço 
para armazenamento!
 http://br.mail.yahoo.com/
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Manter a aplicação em Foreground

2007-11-30 Por tôpico william.designer
alguém sabe me dizer como faço para manter minha aplicação criada em 
delphi por cima de qualquer outro programa que se abra no windows xp, 

Quando o usuário entra no word por exemplo meu pequeno formulario fica 
por tras da tela do word...
Será que não tem um jeito do usuário usar o word normalmente mas com a 
minha janelinha aparecendo no topo ou na base da janela...

Desde já agradeço...



[delphi-br] Re: Fechar um programa

2007-11-30 Por tôpico william.designer
É Verdade ederson, mas é que sou novato em delphi e por isso tantas 
duvidas...quanto a minha dúvida consiga o que queria criando um 
porcesso para vericarprocessoexsitente e outro para fechar o 
processo existente entao ficou tudo certo...

agradeço pelo dica...


--- Em delphi-br@yahoogrupos.com.br, edersonecris [EMAIL PROTECTED] 
escreveu

 Bem Willian a resposta a sua pergunta eu naum sei, mas na minha 
humilde 
 opnião, não ficaria mais fácil definir o timer para 30 segundos 
(3 
 milisegundos) ao invés de fazer um decodetime?
 
 
 william.designer escreveu:
 
  quero verificar se um programa esta aberto a cada 30 segundos e 
se
  ele estiver aberto que ele seja fechado. criei o seguinte código
  dentro de um timer
 
  var hh,mm,ss,mmm:word;
  begin
  DecodeTime(time,hh,mm,ss,mmm) ;
  if (ss=00)or(ss=30)then
  begin
  if FindWindow('Opusapp',nil)  0 then
  PostMessage(FindWindow(nil, 'Documento1 - Microsoft Word'),
  WM_CLOSE,0,0);
  end;
  end;
 
  funcionaou porem a linha de comando para fechar só funciona se eu
  colocar o caption da janela exatamente como é escrito, nao tem 
como
  eu fechar a partir do nome do executável por exemplo? pois se o
  usuario nao pode usar o word, mas abre um documento com o nome de
  texto por exemplo este codigo nao vai funcionar, pois na barra de
  título vai estar 'texto - Microsoft Word'.
 
  Alguem pode me ajudar por favor...é muito urgente
 
   
 
 
 -- 
 Éderson Cassiano Bologna
 [EMAIL PROTECTED]
 sKYPE: edersoncassiano
 MSN: [EMAIL PROTECTED]
 www.microtechshop.com





[delphi-br] Fechar um programa

2007-11-29 Por tôpico william.designer
quero verificar se um programa esta aberto a cada 30 segundos e se 
ele estiver aberto que ele seja fechado. criei o seguinte código 
dentro de um timer

var hh,mm,ss,mmm:word;
begin
DecodeTime(time,hh,mm,ss,mmm) ;
 if (ss=00)or(ss=30)then
 begin
 if FindWindow('Opusapp',nil)  0 then
   PostMessage(FindWindow(nil, 'Documento1 - Microsoft Word'), 
WM_CLOSE,0,0);
  end;
end;

funcionaou porem a linha de comando para fechar só funciona se eu 
colocar o caption da janela exatamente como é escrito, nao tem como 
eu fechar a partir do nome do executável por exemplo? pois se o 
usuario nao pode usar o word, mas abre um documento com o nome de 
texto por exemplo este codigo nao vai funcionar, pois na barra de 
título vai estar 'texto - Microsoft Word'.

Alguem pode me ajudar por favor...é muito urgente



[delphi-br] Bloqueando acesso à executaveis

2007-11-28 Por tôpico william.designer
estou criando um programinha de login que se inicializa ao iniciar o 
windows, é preciso senha e login para entrar na área de trabalho...
porém quando o usuário logar quero bloquear algum programas para que 
ele naõ tenha acesso...quero que o menu iniciar só apareça os 
programas permitidos e quero bloquear alguns icones de atalhos...

alguém pode me ajudar com o script para fazer isso...

desde já agradeço...



[delphi-br] SOCORRO URGENTE:: Travar teclas e desligar

2007-11-27 Por tôpico william.designer
Olá pessoal estou precisando de ajuda criei um formulario que 
inicializa quando se inicia o windows, tenho alguns botões dentre eles 
está o botão desligar alguem pode me passar um código para quando 
clicar neste botão desligar o computador. outra coisa é que o usuário 
nao podera fechar o formulario usando ALT+F4, CTRL+ALT+DEL, TECLA 
WINDOWS, ALT+TAB, 
será que alguem pode me ajudar nesta dúvida o pior é que tenho apenas 
uma semana para entregar o meu projeto e nem sei por onde começar
se puderem me ajudar



[delphi-br] Re: SOCORRO URGENTE:: Travar teclas e desligar

2007-11-27 Por tôpico william.designer
Primeiro criei uma variavel global 
Fechar:Boolean=False

depois criei o seguinte procedimento no OnCloseQuery

procedure TFrmNome.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
canclose:=Fechar;
end;

isto impede o uso do alt+f4, mas nao consigo bloquear o 
alt+ctrl+del, o alt+tab.

será que pode me ajudar quanto a isso...
Outra coisa será que alguem pode me passar um script para desligar o 
computador.preciso deste script para colocar em um botão
se alguem puder me ajudar agradeço muito.



--- Em delphi-br@yahoogrupos.com.br, Guionardo Furlan 
[EMAIL PROTECTED] escreveu

 Hmm
 Vc pode começar pelo evento OnCloseQuery do form.
 
 Em 27/11/07, william.designer [EMAIL PROTECTED] escreveu:
 
 
  Olá pessoal estou precisando de ajuda criei um formulario que
   inicializa quando se inicia o windows, tenho alguns botões 
dentre eles
   está o botão desligar alguem pode me passar um código para 
quando
   clicar neste botão desligar o computador. outra coisa é que o 
usuário
   nao podera fechar o formulario usando ALT+F4, CTRL+ALT+DEL, 
TECLA
   WINDOWS, ALT+TAB,
   será que alguem pode me ajudar nesta dúvida o pior é que tenho 
apenas
   uma semana para entregar o meu projeto e nem sei por onde 
começar
   se puderem me ajudar
 
 
 -- 
 Timeo hominem unius libri
 Cogito ergo sum - Carpe diem
 
 []s
 Guionardo Furlan
 http://guionardo.blogspot.com