FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Copiar registro
Hola
Ante mano darles las grasias por disponer de su tiempo para tratar de aclararme la duda. De veras que les estaré muy agradecido. Les explico ... tengo una tabla en acces con los sgtes campos( Usuario, Clave, a, b, c) todos de tipo cadena; donde a, b, c son accesos que le doy al usuario y lo que necesito es a la hora de registrar un nuevo usuario tener la opcion de duplicar los accesos de otro usuario, digamos por ejemplo que estoy registrando al Usuario jose y quiero darle los mismos accesos que tiene uno ya registrado llamado josé. procedure TDuplicarForm.FormShow(Sender: TObject); var i : integer; begin TRY DM.ADOTblAcc.Open; for i :=1 to (DM.ADOTblAcc.RecordCount) do begin ComboBox1.Items.Add(DM.ADOTblAccUsuario.AsString); DM.ADOTblAcc.Next; end; FINALLY DM.ADOTblAcc.Close; END; end; procedure TDuplicarForm.Button1Click(Sender: TObject); begin {a qui es donde trato de hacer lo que antes les explique per no lo llego a conseguir} DM.ADOTblAcc.Open; If DM.ADOTblAcc.Locate('Usuario',ComboBox1.Text,[loCaseInsensitive]) then begin DM.ADOTblAcc.Append; DM.ADOTblAccUsuario.AsString := UsuariosForm.Edit1.Text; DM.ADOTblAccClave.AsString := UsuariosForm.Edit2.Text; DM.ADOTblAcca.AsString := DM.ADOTblAcca.AsString; DM.ADOTblAccb.AsString := DM.ADOTblAccb.AsString; DM.ADOTblAccc.AsString := DM.ADOTblAccc.AsString; DM.ADOTblAcc.Post; end; end; Pero a desir verdad no es lo que consivo. me da un error .. Bueno miles de grasias ... Ledian |
|
|
|