Ayuda :: Login

[eudy.net]

Hola que tal,

Esta es como la tercera vez que hago esta pregunta; ¿por qué la tercera? sencillo cada vez que pregunto me dan un link que al fin y al cabo no encuentro lo que ando buscando. Si alguien pudiera darme el ejemplo en este mismo hilo se lo agradecería en el alma. :)

Aquí les hago mi pregunta:

Quiero hacerle un Login a mi programa. Mi base de datos está hecha en SQL server 2000. Hice una tabla a la cual la llamé Tlogin, dicha tabla tiene dos campos:

Nombre, char, 10 (no acepta nulos)
Password, char, 10 (no acepta nulos)

Ahh por cierto, la conexión al programa la hice con ADO connection (no sé si sea inconveniente, si lo es me lo avisan).
Por favorrr, denme un ejemplo de como poder hacerle un login en el cual si coinciden los campos me de un mensaje o algo, de lo demas me encargo yo :cool: .

¡¡¡ Gracias Anticipadas !!!

eudy.net

"Si lloras por haber perdido al sol, las lagrimas te impedirán ver las estrellas"

[Caral]

Hola
Pregunto: Que link te han dado?
Para no darte el mismo y ver en que se te puede ayudar.
Saludos

[Delphius]

eudy.net, a menos de que te hayan borrado un hilo por ser repetido (lo cual está contemplado en la guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)) Yo veo que sólo que dos veces (contanto ésta) haz elevado esta pregunta.

Concretamente, la vez anterior en que haz hecho esta pregunta está aqui (http://www.clubdelphi.com/foros/showthread.php?t=44524).
En aquella oportunidad te remitieron a una búsqueda. ¿La hiciste? ¿No te quedaste conforme con los resultados? ¿Las pruebas y/o el código que se muestran en los hilos de los resultados te arrojan un error?

Esta pregunta te la hago debido a que como dices que te mandan un link y yo no veo ninguno:confused:. Sólo veo que la respuesta de vtdeleon hace referencia a la búsqueda.

Si nos puedes indicar que probaste, y/o que no probaste podemos evaluar tu problema. Sería muy oportuno que nos muestres el código que tu haz logrado hacer y de allí podremos guiarte.

Por otro lado está la wiki de clubdelphi (http://wiki.clubdelphi.com/), en donde vas a encontrar muchos ejemplos. Entre ellos uno (http://wiki.clubdelphi.com/wiki/index.php/Tutorial_Programa_Ejemplo_Ado%2C_MsAccess_%28Novatos%29) en como hacer un Login. Si bien es con Access, la lógica es la misma.

Y disculpa que lo diga tan abiertamente pero no me agrada mucho el tono con que dices:

Esta es como la tercera vez que hago esta pregunta; ¿por qué la tercera? sencillo cada vez que pregunto me dan un link que al fin y al cabo no encuentro lo que ando buscando.
Tu forma de decir las cosas nos hace parecer como si nosotros fueramos los culpables de que no te funciones las cosas a tu gusto. Recuerda que la solución te la estamos dando a ti y al resto de la comunidad. Si tu no pones de tu parte para hacerte explicar detalladamente cuáles son tus problemas, inconvenientes y/o dudas poco podremos ayudarte.

Hasta que no des muestra de consideración y esfuerzo y seriedad en explicar correctamente tu situación no creo que alguien pueda ofrecerte su ayuda.

Saludos,

[loquillo3]

eudy.net puedes probar con este codigo,a mi me ha funcionado hasta el momento.



procedure Tflogin.BitBtn1Click(Sender: TObject);
var
consulta : string;
begin
consulta := '';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
if Edit1.Text = '' then
begin
ShowMessage('Digite su Nombre de usuario ');
Edit1.SetFocus;
exit;
end
else if Edit2.Text = '' then
begin
ShowMessage('Digite su contraseña ');
Edit2.SetFocus;
exit;
end
else
consulta := 'SELECT * FROM login WHERE nombre = ' +
QuotedStr(edit1.Text) + ' AND password = ' +
QuotedStr(edit2.Text);
ADOQuery1.SQL.Add(consulta);
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
Application.MessageBox('Usuario No Encontrado ó Contraseña Incorrecto ','Aviso ',MB_OK + MB_ICONerror);
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
exit;
end
else
begin
Edit1.Clear;
Edit2.Clear;
Fmenu.ShowModal;
end;




:)Salu2:)

[eudy.net]

Muchas gracias loquillo3 me sirvió de muuucho tu ayuda, ya lo logré :D

En lo concerniente a Delphius, disculpa pero con esta fue la tercera vez que pregunté (tal vez si, la primera vez hace mucho y lo hayan borrado), pero de todos modos disculpame si me expresé de mala manera :p No era mi intención

Se despide,

eudy.net

"Si en la vida todo fuese bueno, sin duda que no sería vida"