FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Como evaluo si se producira un error para poder antes mostrar un mensaje
Hola a todos, necesito ayuda para lo siguiente:
tengo una aplicación multiusuario donde uso mysql, cada usuario accede con su usuario y contraseña y cada uno de ellos tiene diferentes permisos. Lo que necesito es que cuando un usuario intente por ejemplo modificar un registro sobre una tabla para la cual no tiene permiso, en lugar de que me aparezca el mensaje de error de delphi que dice:"SQL Error: SELECT command denied for user xx@yy to table 'tareas'", yo pueda colocar un mensaje alertando al usuario que no tiene permiso para realizar esa operación. Espero haberme explicado, y si alguien sabe y puede ayudarme, se lo agradecería. Muchas gracias.... Saludos.. |
#2
|
||||
|
||||
Hola
Este es un pedazo de codigo para que mas o menos te des cuenta de como se hace lo que necesitas. Código:
procedure TFOrdProd.Button5Click(Sender: TObject); begin If MessageDlg('¿Está seguro que desea eliminar la pieza # '+QOrdenProdCompraCodParte.AsString+' de la orden ',mtConfirmation,[mbYes,mbNo],0) = mrYes then begin DataModule1.AC1.BeginTrans; try QTemp.SQL.Text := 'Delete * from OrdenProdCompra where Numero = '+QOrdenProdCompraNumero.AsString; QTemp.ExecSQL; DataModule1.AC1.CommitTrans; except on E:Exception do begin DataModule1.AC1.RollbackTrans; MessageDlg('Se ha producido un error, por favor contacte al administrador.',mtError,[mbok],9); end;//on end; //try QOrdenProdCompra.Close; QOrdenProdCompra.Open; end; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como ejecutar un evento antes de mostrar un form | hperez | Varios | 5 | 18-05-2007 07:12:25 |
Error al querer mostrar mensaje con JS | YaninaGenia | .NET | 0 | 27-07-2006 16:00:45 |
Capturar eventos en un directorio (antes para poder evitarlos ) | Wonni | API de Windows | 6 | 17-07-2006 19:48:58 |
COmo genero un mensaje antes de un Sysutils.Abort | Bitbanner | Conexión con bases de datos | 19 | 16-02-2005 17:41:58 |
que usar o como para poder imprimir? | mrmanuel | Impresión | 4 | 30-03-2004 09:20:31 |
|