Ver Mensaje Individual
  #1  
Antiguo 25-10-2017
jose zuñiga jose zuñiga is offline
Registrado
NULL
 
Registrado: oct 2017
Posts: 1
Reputación: 0
jose zuñiga Va por buen camino
Smile ingresar en login si ya se ha registrado

he estado haciendo una aplicacion para una enfermeria ycree un login y registros de enfermeros, medicos y pacientes y se como al registrase se guarde el regitro y pero no se como hacer que al entrar al login los valores registrados sean los mismos y si lo son entrar y si no mandar un mensaje que diga el usuario o la contraseña son incorrectos

*Cree unas Tablas en mysql que son loginadministrador, enfermero, paciente, medico y registro paciente, medico y enfermero
en los logines
coloque tres campos:
1)id el cual defini como INT
2)user_name es de tipo char y 25 de longitud,
3)password es de tipo char y 25 de longitud

*En mi formulario principal (el de Login) coloque 3 Labels etiquetados como Id, Usuario y Contraseña, 3 Edit uno para id; user_name y otro para password, 2 Botones uno para ACEPTAR y para CANCELAR coloque un componente ADOConecction1, ADOQuery1

*conecte el ADOQuery al ADOConecction

*En el Botón de ACEPTAR le coloque el siguiente Codigo para realizar la validación de el user_name y el Password, la validación la realice localizando en la base de datos el texto escrito en los edit realizando la busqueda en el campo correspondiente, para una mejor idea aqui les pongo el codigo:



codigo delphi del boton ACEPTAR:
Código Delphi [-]
procedure TLogin_pacientes.Button1Click(Sender: TObject);
var
insertar: string;
begin
insertar:= 'insert into proyect_aula.loginpaciente values ("'+user_name.Text+'", "'+password.Text+'")';
showMessage(insertar);
ADOQuery.SQL.Add(insertar);
ADOQuery.ExecSQL;
showMessage('inicio de sesion correctamente');
Paciente.Show;
end;
Responder Con Cita