[RESUELTO] ZEOS Lib ZTable
#1
Escrito 20 abril 2010 - 05:30
Bueno me encuentro con que al poner en mi formulario el componente ZTable y agregar los campos dándole click derecho al mismo, puedo acceder a unas propiedades de cada campo, CustomConstraint, ConstraintErrorMessage, lo que deseo es que en la propiedad CustomConstraint de MI_CAMPO pongo MI_CAMPO IS NOT NULL, en ConstraintErrorMessage pongo debe digitar un valor para mi campo, pero al ingresar un registro no válida esto, al parecer la propiedad HasConstraint debe ir en True, el problema es que no me deja cambiar esta propiedad, por favor ayúdenme a encontrar una solución a esto, muchas gracias.
#2
Escrito 20 abril 2010 - 07:13
procedure CamposVacios(Data: TDatasource); var nIdx: Integer; begin for nIdx := 0 to Data.DataSet.FieldCount -1 do begin if (Data.DataSet.Fields[nIdx].Value = NULL) And (Data.DataSet.Fields[nIdx].Required = True) then begin Showmessage('La Casilla ' +Data.DataSet.Fields[nIdx].DisplayLabel+ ' está vacía.'); Data.DataSet.Fields[nIdx].FocusControl; Abort; end; end; end;
Saludos.
#3
Escrito 21 abril 2010 - 12:43
#4
Escrito 21 abril 2010 - 12:55
muchas gracias enecumene, es justo lo que necesito, ahora espero me puedas ayudar con esto, en donde debo meter este código, en que evento? para que al tratar de guardar en la base de datos salte el error, ya que si lo pongo en AfterInsert de la ZTable valida es cuando inserto pero no lo hace cuando le digo que lo guarde, no se si me expliqué bien, muchas gracias.
Estás guardando mediante el click de un botón o algo parecido ?... Podría ser en este evento, antes de hacer el Post de la tabla...
Saludox !
#5
Escrito 21 abril 2010 - 01:33
#6
Escrito 21 abril 2010 - 02:08
#7
Escrito 21 abril 2010 - 03:06
es exactamente lo que necesitaba.