FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Realizar varias operaciones con un mismo formulario
Hola estoy desarrollando un sistema y me gustaría usar un formulario para registrar, editar y eliminar registros, para evitar cargar el sistema de form, ya lo estoy haciendo de la manera mas artesanal que se me ocurrio y quisiera su opinión si es la manera mas optima o si hay alguna otra manera.
en la unidad del Form cree una variable tipo string llamada rol.
y en la unidad principal le paso el valor en el evento clic del menu Registrar:
Modificar:
Eliminar:
En El Evento del Formulario Procesar:
Hasta ahora no me da error solo quisiera saber si es la manera mas optima y ademas de ser asi puede servirle a alguien que necesite esto. Saludos. |
#2
|
||||
|
||||
Así, de primeras, se me ocurre cambiar el tipo de Rol de un string a un tipo
En la misma unit dle formulario, justo antes de declarar el formulario Código:
TRol = (rRegistro, rEditar, rEliminar) Código:
Var Rol: TRol; Código:
With formconsolidadores do Begin Caption:='Registrar Líderes'; rol:= rRegistro; ShowModal; end; Código:
With formconsolidadores do Begin Caption:='Registrar Líderes'; rol:= rEditar; ShowModal; end; Código:
With formconsolidadores do Begin Caption:='Registrar Líderes'; rol := rEliminar; ShowModal; end; Código:
begin case rol of rRegistro: AccionRegistrar; rEditar: AccionEditar; rEliminar: AccionEliminar; end; end; Código:
var lRol: String; begin case rol of rRegistro: lRol := 'Registrar'; rEditar: lRol := 'Editar'; rEliminar: lRol := 'Eliminar'; end; MessageDlg(lRol, mtCustom, [mbOK], 0); end; Código:
begin MessageDlg(Rol, mtCustom, [mbOK], 0); end;
__________________
La Madurez se llama... ~~~Gaia~~~ |
#3
|
|||
|
|||
Listo voy a probar este método una consulta y las diferentes operaciones donde las hago, osea la de guardar o editar
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
realizar varias busquedas con locate | gonza_619 | Varios | 1 | 01-10-2010 23:54:29 |
Realizar Varias tareas en un solo boton | ronald_tro | Varios | 5 | 26-04-2010 18:24:41 |
Realizar cambios en varios Tmemo al mismo tiempo | PaFernan99 | OOP | 5 | 26-05-2008 15:35:15 |
realizar 2 operaciones en QRExpr1 | Renees | Impresión | 3 | 20-04-2005 19:16:18 |
Realizar varias sentencias SQL a la vez | walace_soy | SQL | 3 | 23-09-2004 12:15:17 |
|