Alexandre ......
Tenho essa rotina ai
Num form tenho 3 DBRadio, escolho o item no primeiro e no segundo e a opção
do terceiro DB é setada automaticamente, dependendo do que foi setado nos 2
anteriores ...
Tudo isso coloquei no evento OnClik do botão salvar
O problema é q quando eu escolho a opção 0 ou 2 do DB 2 e mando salvar o
registro ... ele é salvo mas o ítem setado no DB2 fica em branco ...
Já tentei de tudo ...
Se no DB2 eu escolher a opção 1 tudo certo ... o registro é salvo e a opção
fica setada corretamente ....
Aproveitando oportunidade ....
Como faço para abrir um form dentro de outro ...
Quero q o form2 fique preso dentro do form1 ...
Desde já agradeço as dicas que vc me passou ...
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;
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade
[As partes desta mensagem que não continham texto foram removidas]
