Cita:
Empezado por Caral
Hola
El exit es para salir del programa, osea si no ingresa el nombre o el usuario correctos, el programa se cerrara.
Pareciera que le falta un end, pero tambien parece que falta un pedazo de codigo.
Saludos
|
Si falta codigo, pero es q estoy haciendo mi propio programa, con mis pocos conocimientos.
este es mi codigo
Código Delphi
[-]begin
if (usuario.Text='')or (Pass.Text='') then
begin
MessageDlg('Debes ingresar tu Nombre de usuario y contraseña
para continuar',mtError, [mbok], 1);
usuario.setfocus;
end;
else
DM.TUsuarios.Locate('Usuario',usuario.Text,[]);
If (Dm.TUsuarios.fieldName('contraseña').Astring = pass.Text then
De encontrar el Usuario y q coincida con el pass q recien acceda y de ahi validare permisos y otras cosas.
Pero q pasa si el usuario no existe?
Por otro lado como puedo hacer para q un en un ComboBox me muestre la lista de los usuarios existentes?
Uso delphi 7 y mysq 5.0 conectado por odbc