![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#7
|
||||
|
||||
Servicomp Ayuda...
No tengo datamodule, y no entiendo que era el Fclave, lo modifique de esta forma corrio pero no sirvio.. que esta mal ? xD
procedure TFClave.BitBtn1Click(Sender: TObject); begin With table1 do Begin Active:=True; Open; IndexName:=''; SetKey; FieldByName('Login').AsString:=Edit1.Text; if Gotokey then Begin if (FieldByName('Password').AsSTring = Edit2.Text) then Begin {close; } Form1.Hide; {ocultamos la forma de clave} Form2.Show; end else Begin Application.MessageBox('Clave Incorrecta','Mensaje de Advertencia',0); Edit1.Text:=''; Edit2.Text:=''; Edit1.SetFocus; End; {if que verifica la clave} end else begin Application.MessageBox('Nombre de Usuario Incorrecto','Mensaje de Advertencia',0); Edit1.Text:=''; Edit2.Text:=''; Edit1.SetFocus; End; {if de busqueda del usuario} close; End; {Fin del with de Dcontar.TUsuario} end; |
|
|
![]() |
|