Responder sim oou não

[wilsoncrescencio 1]

Sistema sendo desenvolvido em Delphi7 + BD ACCESS + ADO ConnectionEu gostaria de quando o usuário aperta-se um botão de saída do sistema aparece-se a seguinte mensagem:"Você quer mesmo sair do sistema" e aparecesse as opções: Sim ou NãoIsso é possivel ou apenas yes or not?Se só yer or not... como devo fazer?Em SQL ou Não!

[Hugo Slepicka 0]

//Confirma a Saida e Sai...If (Application.MessageBox('Deseja Realmente Sair do Sistema?!','Confirmação',mb_YesNo or mb_iconExclamation)=idyes) thenbegin	   Application.Terminate;End;

 

Bom, a respeito de Tradução... bom, ai não sei.... mas se eu encontrar um jeito te informo, mas no momento ta ai como é que faz!!!

 

 

flw aew!!

 

Abraço! http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[wilsoncrescencio 1]

Valeu de novo Hugo... muito obrigado

[Hugo Slepicka 0]

Estamos aki!!!precisando...é só postar...

[wilsoncrescencio 1]

Agora se ao invés de fechar o aplicativo eu queira que o usuário escolha se sim ou não para repetir os dados gravados em uma tabela para vários DBEdits. a resposta é a mesma?

[Hugo Slepicka 0]

a resposta é a mesma?

Como assim Morpheu???não entendi... http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[wilsoncrescencio 1]

Gostaria de criar uma variavel, alguma coisa mais ou menos assim:procedure TMATRICULA.Button23Click(Sender: TObject);beginresultado(esta seria a variavel):= false;If (Application.MessageBox('O aluno pertence a Segunda Série?!','Confirmação',mb_YesNo or mb_iconExclamation)=idyes) thenresultado:= true;dbedit98.Text := dm1.VALORESANUIDADE2.Text;dbedit99.Text := dm1.VALORESANUIDADE_EXT2.Text;dbedit87.Text := dm1.VALORESINTEGRAL2.Text;dbedit100.Text := dm1.VALORESINTEGRAL_EXTE2.Text;dbedit88.Text := dm1.VALORESMENSALIDADE2.Text;dbedit101.Text := dm1.VALORESMENSALIDADE_EXT2.Text;end;end;Seria isso uma variação para minha primeira pergunta. Ao invés de fechar, repetir os dados da tabela valores nas dbedits.Se o que fiz ta certo onde e como crio a variavel?

[Hugo Slepicka 0]

Ué... ainda não entendi...se era isso que você queria fazer você conseguiu...no caso não vejo nem a necessidade da variável Boolean que você chamou de Resultado...ta certinho.. se o aluno for da segunda série, ai ele joga os valores no edit...

[wilsoncrescencio 1]

Mas tá acontecendo assim:Quando respondo sim... preenche todos os DBEdits... o q é o correto, tá belezinha.Quando eu respondo não... ele não preenche apenas o DBEdit98 mas preenche todos ous outros, o que está errado. A resposta não, deveria manter todos os DBEdits em branco.Ou isso só acontece com Edit e não com DBEdit?

[Hugo Slepicka 0]

Boa Noite...

 

Bom, no caso o DBEdit ´ligado a tabela e transfere para si os dados da mesma...

 

procedure TMATRICULA.Button23Click(Sender: TObject);begin   If (Application.MessageBox('O aluno pertence a Segunda Série?!','Confirmação',mb_YesNo or			mb_iconExclamation)=idyes) then   BEGIN	  dbedit98.Text := dm1.VALORESANUIDADE2.Text;	  dbedit99.Text := dm1.VALORESANUIDADE_EXT2.Text;	  dbedit87.Text := dm1.VALORESINTEGRAL2.Text;	  dbedit100.Text := dm1.VALORESINTEGRAL_EXTE2.Text;	  dbedit88.Text := dm1.VALORESMENSALIDADE2.Text;	  dbedit101.Text := dm1.VALORESMENSALIDADE_EXT2.Text;   end;end;

Aliás, só agora que notei...

 

no seu code estava faltando um BEGIN após o if do messagebox...

 

beleza???

 

 

to esperando um resultado...

 

abraço! http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

 

----------------------------------------------EDITADO-------------------------------------------------

 

Morpheu...

 

seu problema está mesmo no BEGIN citado acima...

 

pois no if ele interpreta apenas a primeira linha por não ter o begin e o end...

 

ta certo???

 

 

Flw aew...

 

Abraço! http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[wilsoncrescencio 1]

Pô Hugo... muito obrigado pela sua atenção... valeu cara... valeu mesmo... resolveu.... um abraço!

[Hugo Slepicka 0]

Opa, estou aqui para ajudar, precisando...

 

 

é só postar...

 

 

flw aew!!!

 

Feliz Ano novo e bla bla bla!!! hehe!!! http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif