Como desactivar el boto ''Borrar'' cuando en una tabla no hay ningun registro ??
LA BD es de SQL server 2005 express
[RESUELTO] Como desactivar el boto ''Borrar'' cuando en una tabla no hay clientes
Comenzado por
lsedr
, oct 30 2010 06:39
4 respuestas en este tema
#1
Escrito 30 octubre 2010 - 06:39
#2
Escrito 30 octubre 2010 - 06:49
Hola Isedr,
¿Que tipo de botón es? ¿Es un TButton común o es el botón delete de un DBNavigator? Si te refieres a un DBNavigator supuestamente se desactivan/habilitan de forma automática dependiendo del cursor y/o de si el dataset está abierto o cerrado.
Si es botón normal basta con poner la propiedad Enabled en false. No recuerdo bien si los componentes ADO tienen el método IsEmpty, en código debería ser así:
;
IsEmpty es un método que regresa true si el dataset está vacio, false en caso contrario. Como en este caso deseamos poner en false cuando sea un resultado true, debemos negar la expresión, de allí el NOT.
Espero que se entienda.
Saludos,
¿Que tipo de botón es? ¿Es un TButton común o es el botón delete de un DBNavigator? Si te refieres a un DBNavigator supuestamente se desactivan/habilitan de forma automática dependiendo del cursor y/o de si el dataset está abierto o cerrado.
Si es botón normal basta con poner la propiedad Enabled en false. No recuerdo bien si los componentes ADO tienen el método IsEmpty, en código debería ser así:
delphi
Button1.Enabled := NOT ADOTable1.IsEmpty
;
IsEmpty es un método que regresa true si el dataset está vacio, false en caso contrario. Como en este caso deseamos poner en false cuando sea un resultado true, debemos negar la expresión, de allí el NOT.
Espero que se entienda.
Saludos,
#3
Escrito 30 octubre 2010 - 06:49
Puede que te funcione con el RecordCount del DataSet, algo como:
MiBoton.Enabled := (MiDataSet.RecordCount <> 0)
Saludos!
MiBoton.Enabled := (MiDataSet.RecordCount <> 0)
Saludos!
#4
Escrito 30 octubre 2010 - 06:52
O para el caso de ADO, sería mas sano la propuesta de Delphius.
Saludos!
Saludos!
#5
Escrito 01 noviembre 2010 - 09:04
Pues..
delphi
if ADOTable1.isEmpty then btnBorrar.Enabled := False else btnBorrar.Enabled := True;