FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Login delPhi 7
Buenos dias Lo que quiero es saver como le ponco una validadcion a una edit me explicao mejor quiero que si el primer edit el del nombre de usuario esta en blanco me tire un mensaje que me diga que esta en blanco elte campo o ke este usuario no esiste que me hagauna comparacion del usuario. el codigo que tengo debajo me funciona perfeta mento lo unico es que si dejo el campo del edit un basio lo que yo quiero es que no me deje es cribir si no esta lleno correta mete el nombre del usuario el el edit 1 por que los otra me esta funcionando muy bien.
gracia espero que me puedad eyudar public { Public declarations } usuario1: boolean; end; var Flogin: TFlogin; implementation {$R *.dfm} procedure TFlogin.Button2Click(Sender: TObject); begin if usuario1=false then Application.Terminate; //else fLogin.close; end; procedure TFlogin.Button1Click(Sender: TObject); begin // Codigo para verificar los. if (edit2.text<>'') and (edit1.text<>'') then begin // Codigo pra verificar o igualdade dos campos Nombre y Clave. if (Edit1.text=adoquery1.FieldByName('usuario').AsString) and (edit2.text=adoquery1.FieldByName('clave').AsString) then begin fLogin.Close; edit1.Text:=''; usuario1:=true; end else begin messageBox(handle,'Clave Invalida','Cambiar!',MB_ICONERROR+mb_OK); edit1.Text:=''; edit2.text:=''; edit2.SetFocus; end; end else messageBox(handle,'Nombe de Usuário Inválida ','Cambiar!',MB_ICONERROR+mb_OK); edit1.Text:=''; end; end. |
#2
|
||||
|
||||
Coloca el edit del password ó edit2 con Enabled = false.
Programa el evento del Edit1 OnChange ó OnKeyPress con el código de validación del Edit1. Si validación == OK entonces Edit2->Enabled = true; else Mensaje de no validado..... Saludos. |
#3
|
||||
|
||||
No he entendido la pregunta. Es bastante difícil leer una letra tan grande (al menos para mi...) y creo que al código fuente le falta algo, ¿no?
¿Así se ve mejor? |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
quitar la ventana de database login en delphi aparecio de repente | thelibmx | Varios | 8 | 16-08-2012 20:33:38 |
login | maco2007 | .NET | 4 | 05-11-2007 17:21:29 |
Login-Delphi | TKW04 | OOP | 39 | 22-08-2007 05:08:55 |
Login via base de datos en Delphi | eudy.net | Conexión con bases de datos | 1 | 08-06-2007 07:28:14 |
Ayuda En Login Y Pass Para Ingresar En un programa creado en Delphi | Solojuegospc.tk | Conexión con bases de datos | 8 | 07-07-2005 03:18:28 |
|