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
