|
Validar Datos
Hola tengo un problemita que no se como resorber, estoy haciendo un programa en el cual tengo un Form, el cual puedo digitar tres documento diferentes, tambien tengo un DBRadioGroup con dos campos 1-Solicitado y 2-Aprobado.
El programa hace los siguiente:
Cuando precioes el Boton de Insertar yo puedo seleccionar un tipo de documento y el el DBRadrioGroup hago un click el solicitado y luego imprimo el documento, eso esta muy bien.
Pero cuando el documento esta aprobado lo que quiero es cuando preciones el boton de modificar y haga un click en aprobado no me permita modificar los cambo esta es la rutina que uso.
if DBRadioGroup2.ItemIndex = 0 then begin
rb_tipo_documentos.Enabled := True;
DBEdit1.ReadOnly := True;
DBEdit2.ReadOnly := True;
DBEdit4.ReadOnly := True;
DBEdit8.ReadOnly := True;
DBEdit11.ReadOnly := True;
DBEdit3.ReadOnly := True;
DBEdit5.ReadOnly := True;
DBEdit7.ReadOnly := True;
DBEdit6.ReadOnly := True;
DBComboBox1.Enabled := True;
DBLookupComboBox1.Enabled := True;
DBLookupComboBox2.Enabled := True;
DBEdit9.Enabled := True;
DBEdit10.Enabled := True;
end
else
if DBRadioGroup2.ItemIndex = 1 then begin
rb_tipo_documentos.Enabled := False;
DBEdit1.ReadOnly := False;
DBEdit2.ReadOnly := False;
DBEdit4.ReadOnly := False;
DBEdit8.ReadOnly := False;
DBEdit11.ReadOnly := False;
DBEdit3.ReadOnly := False;
DBEdit5.ReadOnly := False;
DBEdit7.ReadOnly := False;
DBEdit6.ReadOnly := False;
DBComboBox1.Enabled := False;
DBLookupComboBox1.Enabled := False;
DBLookupComboBox2.Enabled := False;
DBEdit9.Enabled := False;
DBEdit10.Enabled := False;
mil gracias para dotos
Gracias Roman por el comentario
__________________
Edwin Simon
la Tierra del Merengure
Republica Dominicana
Última edición por edwin1 fecha: 07-10-2003 a las 20:37:12.
|