FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#6
|
|||
|
|||
Entiendo un poco tu preocupación pues en algún momento lo tuve.
Hace ya varios años escribi este codigo espero te sirva. Macana DContar : DataModulo donde esta la conexión de la tabla TUsuario : Tabla donde se encuentra los datos de CODIGO y CLAVE Edit1, Edit2 : son los Edit donde Recoges la información. espero te sirva y si algun problema estamos para servirte \\******************************************************** procedure TFClave.BitBtn1Click(Sender: TObject); begin With DContar.TUsuario do Begin Active:=True; Open; IndexName:=''; SetKey; FieldByName('CODIGO').AsString:=FClave.Edit1.Text; if Gotokey then Begin if (FieldByName('CLAVE').AsSTring = FClave.Edit2.Text) then Begin {close; } FClave.Hide; {ocultamos la forma de clave} FMenu.Show; end else Begin Application.MessageBox('Clave Incorrecta','Mensaje de Advertencia',0); FClave.Edit1.Text:=''; FClave.Edit2.Text:=''; FClave.Edit1.SetFocus; End; {if que verifica la clave} end else begin Application.MessageBox('Nombre de Usuario Incorrecto','Mensaje de Advertencia',0); FClave.Edit1.Text:=''; FClave.Edit2.Text:=''; FClave.Edit1.SetFocus; End; {if de busqueda del usuario} close; End; {Fin del with de Dcontar.TUsuario} end; procedure TFClave.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; |
|
|
|