FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Funciones para bloqueo/desbloqueo en paradox
Hola a todos, estoy realizando un aplicacion en delphi 6 con tablas paradox, y la quiero poner en red, ya me lei el articulo de paradox en red y todo lo que indica ya lo tengo pero lo que no he podido conseguir es obtener el bloqueo de registros, aqui es donde estoy batallando porque no se como hacerle para bloquear o desbloquear registros en paradox , alguien me puede decir como le puedo hacer.
Agradeceria si alguien me ayuda saludos... |
#2
|
||||
|
||||
Un registro queda bloqueado cuando un usuario lo está editando. En este caso lo que puedes hacer, es usar un mensaje para informarlo.
Para bloquear y desbloquear he encontrado esto, pero hasta ahora no he visto bajo que circunstancia funciona (falta de tiempo) Código:
function TDTM.RegistroBloqueado(Table1 : TTable): Boolean; var Blokeado:LongBool; begin with Table1 do begin UpdateCursorPos; DbiIsRecordLocked(Handle,Blokeado); end; result:=blokeado; end; procedure TDTM.ExpulsaUsuario(Table1 : TTable); begin with Table1 do begin UpdateCursorPos; try Check( DbiRelRecordLock(handle,FALSE) ); except showmessage('No se ha podido expulsar al usuario de la Base de Datos.'); end; end; end; |
#3
|
|||
|
|||
Gracias Lepe me ha servido de mucho tu ayuda, ahora ya puedo bloquear y desbloquear registros, nos vemos.
saludos. |
|
|
|