Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-02-2007
Avatar de BlackDaemon
BlackDaemon BlackDaemon is offline
Miembro
 
Registrado: dic 2006
Ubicación: Bolivia - Santa Cruz
Posts: 206
Poder: 18
BlackDaemon Va por buen camino
Duda sobre ZQuery ( Zeoslib )

Bueno hola.. estoy haciendo una agenda comercial y ya tengo casi todo listo.. es por niveles uno administrador y otro usuario, "usuario" pueden ser desde uno hasta cienes de usuarios agregados por el admin. los usuarios son los empleados que tienen su agenda comercial, la aplicación trabaja en red sin problema alguno con delphi 7 + MySQL 4.1
Bueno pero ese no es el problema.. ahora lo de los niveles es pues para que el admin. pueda ver "todas" las demas agendas de todos los usuarios y el nivel usuario pues solo pueden ver, editar, agregar, etc SOLO su agenda.. y solo pueden ver las tareas pendientes que tienen que hacer o las hicieron..o como también agregar una nueva pero SOLO de ellos, bueno ahora tengo un form desde donde un usuario agrega sus tareas, un 5 botones para Administración de los mismos y estos son:

Nuevo, Guardar , Editar, Cancelar , Eliminar

Bueno ahora para esto uso un ZTable que cuando clickean en el boton "Nuevo" lo que hay dentro del boton es este código.

Código Delphi [-]
procedure TFrmMisUsuarios.SBNuevoClick(Sender: TObject);
begin
  modoEditar(True);
  DM.ZTUsuarios.Append;
  DBENombres.SetFocus;
  DM.ZTUsuarios.fieldbyName('NivelAcceso').AsInteger := DM.ZTPerfiles.RecordCount-1;
end;

EL cual deja todos los TDBEdit donde escriben en modo listos para almacenar datos , el modoeditar(True) es solo para cambiar los colores de los TDBEdit's pero no tiene nada que ver
Bueno ahora cuando le dan en el botón Editar pues hace casi lo mismo

Código SQL [-]
procedure TFrmMisUsuarios.SBEditarClick(Sender: TObject);
begin
  DM.ZTUsuarios.Edit;
  modoEditar(True);
  DBENombres.SetFocus;
end;

y lo mismo para el botón Guardar:

Código SQL [-]
procedure TFrmMisUsuarios.SBGuardarClick(Sender: TObject);
begin
    DM.ZTUsuarios.Post;
    ModoEditar(False);
end

y aparte tengo 4 botones para navegar por todas las actividades que agregaron algo así

Código Delphi [-]
procedure TFrmMisUsuarios.SBPrincipalClick(Sender: TObject);
begin
  FrmAdministrador.Show;
  Close;
end;

procedure TFrmMisUsuarios.SBAnteriorClick(Sender: TObject);
begin
  DM.ZTUsuarios.Prior;
end;

procedure TFrmMisUsuarios.SBSiguienteClick(Sender: TObject);
begin
  DM.ZTUsuarios.Next;
end;

Bueno y pues cuando es USUARIO y se pone a navegar puede ver TODAS las actividades de los demas usuarios hasta del mismo adminostrador
Ahora para impedir eso quiero cambiar los ZTable por un ZQuery para poder un WHERE ID_usuario = Su_id_del_user

Osea para que me muestre SOLO las actividades que ese user registró, no se si es una buena idea hacer lo que piendo o hay alguna mas facil ???

Si no la hay o es que esta está bién como saben que soy bién newbie en esto de delphi quisiera saber como hago para poner un ZQuery en modo "insercion de datos" como en el ZTable era un simple " append "o para editar era un simple "Edit" y lo mismo para "Post" ahora quisiera saber como se le hace con un ZQuery todo eso ????
Intenté un:

DM.ZQMisUsuarios.Append;

Pero se que es una mala idea como esto xDD

DM.ZQMisUsuarios.Edit ; xDD

Bueno creo que escribí mucho para una simple pregunta pero bueno.. espero alguna respuesta y gracias por adelantado

SALudos

PD ya me duelen las manos de escribir xD
Responder Con Cita
  #2  
Antiguo 01-02-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Bueno BlackDaemon
Para empezar creo que cada usuario tiene que tener un numero o contraseña para entrar a ver su agenda en particular.
Una vez que el usuario entre con su contraseña, esta debe aparecer en algun lado para que el sistema la pueda identificar.
Despues de esto se podra hader un zquery indicando que si el usuario es igual al Numero 1 (por ejemplo) entonces tendra acceso a x parte del programa.
Analiza ese programa, que es parte de uno en el que ayude.
Es un control de asistencia.
Aqui esta, se llama C_asistencia
ftp://196.40.62.225/
Saludos
Responder Con Cita
  #3  
Antiguo 02-02-2007
Avatar de BlackDaemon
BlackDaemon BlackDaemon is offline
Miembro
 
Registrado: dic 2006
Ubicación: Bolivia - Santa Cruz
Posts: 206
Poder: 18
BlackDaemon Va por buen camino
Hola caral.. si ese es el prográma en el que me ayudaste xd

Pero bueno.. los usuarios SI tienen un número que los identifica como usuarios o administradores pero mi pregunta es solo sobre como hacer el Post , Append, Delete y Open pero eso sería con tablas y con un query como se hace ?

solo eso saludos.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Insertar con Zquery + ZUpdate Pekador MySQL 7 04-02-2007 19:01:59
Duda sobre DFS enrique_84 Varios 2 08-06-2006 11:53:40
ZTable vs ZQuery quade Conexión con bases de datos 1 01-06-2004 18:18:38
Una duda sobre ADO PTW Conexión con bases de datos 1 13-04-2004 23:33:14
Duda sobre BDE vs IBX ESA Firebird e Interbase 3 04-03-2004 17:20:07


La franja horaria es GMT +2. Ahora son las 03:50:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi