amigos .... estou com a segte rotina
procedure TForm3.RzDBRadioGroup1Click(Sender: TObject);
begin
// 1
if (Form3.RzDBRadioGroup1.ItemIndex = 0) and // Probabilidade =
Altamente Improvável
(Form3.RzDBRadioGroup2.ItemIndex = 0)then // Gravidade = Levemente
Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex :=0; // Criticidade = Trivial
end;
// 2
if (Form3.RzDBRadioGroup1.ItemIndex = 0) and // Probabilidade =
Altamente Improvável
(Form3.RzDBRadioGroup2.ItemIndex = 1) then // Gravidade = Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 1; // Criticidade = Tolerável
end;
// 3
if (Form3.RzDBRadioGroup1.ItemIndex = 0) and // Probabilidade =
Altamente Improvável
(Form3.RzDBRadioGroup2.ItemIndex = 2) then // Gravidade = Levemente
Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 2; // Criticidade = Moderado
end;
// 4
if (Form3.RzDBRadioGroup1.ItemIndex = 1) and // Probabilidade =
Improvável
(Form3.RzDBRadioGroup2.ItemIndex = 0) then // Gravidade = Levemente
Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 1; // Criticidade = Tolerável
end;
// 5
if (Form3.RzDBRadioGroup1.ItemIndex = 1) and // Probabilidade =
Improvável
(Form3.RzDBRadioGroup2.ItemIndex = 1) then // Gravidade = Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 2; // Criticidade = Moderado
end;
// 6
if (Form3.RzDBRadioGroup1.ItemIndex = 1) and // Probabilidade =
Improvável
(Form3.RzDBRadioGroup2.ItemIndex = 2) then // Gravidade = Extremamente
Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 3; // Criticidade =
Substancial
end;
// 7
if (Form3.RzDBRadioGroup1.ItemIndex = 2) and // Probabilidade = Provavel
(Form3.RzDBRadioGroup2.ItemIndex = 0) then // Gravidade = Levemente
Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 2; // Criticidade = Moderado
end;
// 8
if (Form3.RzDBRadioGroup1.ItemIndex = 2) and // Probabilidade = Provavel
(Form3.RzDBRadioGroup2.ItemIndex = 1) then // Gravidade = Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 3; // Criticidade =
Substancial
end;
// 9
if (Form3.RzDBRadioGroup1.ItemIndex = 2) and // Probabilidade = Provável
(Form3.RzDBRadioGroup2.ItemIndex = 2) then // Gravidade = Extremamente
Prejudicial
Begin
Form3.RzDBRadioGroup3.ItemIndex := 4; // Criticidade =
Intolerável
end;
end;
o problema é q qdo escolho a opção o dbrádio grava no arquivo mas não mantém
a informação na tela ....
já analisei de todas as maneiras e não consigo encontrar o errro ... alguem
pode me ajudar
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Lima
Enviada em: sexta-feira, 25 de julho de 2008 11:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Bug muito serio DBExpress e SQLServer, truncando
números negativos.
Pessoal estou com um problema muito serio com DBExpress e campos
negativos do tipo FMTBCD*, *os valores estão sendo truncados
por exemplo:
No ClientDataSet -10 = Gravado no Banco -1 errado
-9 = -9 certo
-75 = -7 errado
-100 = -100 certo
-10.0 = -1 errado
-10.01 = -10.01 certo
Eu usei a ferramenta profiler do sql server, que loga todas as sql que o
banco executa e verifiquei que os updates/inserts já estão com valores
truncados.
Achei esse report http://qc.codegear.
<http://qc.codegear.com/wc/qcmain.aspx?d=49015> com/wc/qcmain.aspx?d=49015
que está
como fechado más não entendi ao certo se o problema foi resolvido ou não.
Obrigado a todos,
At.
Ricardo
[As partes desta mensagem que não continham texto foram removidas]
