Ventana de Logeo para ingreso al Sistema

[jpcancino]

Mita thecarlos, esto es más o menos lo que hice yo con mi ventana de login:

procedure TLogin.Button1Click(Sender: TObject);
begin

categoria:=edit1.text;
if edit1.text='' then
   begin
    application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet    ','Error',MB_OK or MB_ICONHAND);
    form1.Close;
   end;
if edit2.text='' then
   begin
    application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet    ','Error',MB_OK or MB_ICONHAND);
    form1.Close;
   end;
try
zmysqldatabase1.Connect;
except
end;
if edit1.text=dbedit1.Text then
   if edit2.text=dbedit2.Text then
      begin
        zmysqldatabase1.Disconnect;
        login.close;
      end
   else
     begin
        application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet    ','Error',MB_OK or MB_ICONHAND);
        form1.close;
     end
   else
     begin
        application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet    ','Error',MB_OK or MB_ICONHAND);
        form1.close;
     end;

end;



procedure TLogin.ZMySqlDatabase1AfterConnect(Sender: TObject);
var mysql:string;
begin
mysql:='SELECT * FROM users WHERE username='+#39+edit1.text+#39;
zmysqlquery1.Sql.Clear;
zmysqlquery1.Sql.Add(mysql);
zmysqlquery1.Open;
end;

Espero te sirva

Saludos