!! Crear cuentas de usuarios con passwrods con el maskedit

[BuRtOn]

Listo amigos, ya resolvi mi gran incognita, aki les dejo este fragmento de codigo, donde, puedes crear diferentes usuarios, con passwords, y determinar los tipos, limitado o administrador, dejo en claro que se tiene que crear la bd, primero, y ahi si se hace las conexiones, pero hay una nueva variante que es el query, ya que permite ejecutar consultas SQL, de seleccion de registro (select)....bueno aqui dejo este codigo, que funciona, ya que nadie me ayudo, a respondes este paradigma...aqui tienen el codigo, para que alguien que lo necesite lo analise y lo aplique...

Código Delphi [-]
unit yfrmacceso;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  Tfrmacceso = class(TForm)
    lblcodigo: TLabel;
    edtcontrasena: TEdit;
    edtcodigo: TEdit;
    lblcontrasena: TLabel;
    btnaceptar: TButton;
    btncancelar: TButton;
    procedure btnaceptarClick(Sender: TObject);
    procedure btncancelarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmacceso: Tfrmacceso;
implementation
uses udtmdatos, ufrmprincipal;
{$R *.dfm}
procedure Tfrmacceso.btnaceptarClick(Sender: TObject);
    var consulta, nombre : string;
begin
   with dtmdatos.qryacceso do
   begin
        close;// cerras la consulta
        SQL.clear;//borra las consultas que hay
        consulta:='select * from tabla where usrcodigo= :cod and usrcontra= :cont'; //se crea la consulta
        SQL.add(consulta);// se agrega la consulta
        ParamByName('cod').value := edtcodigo.text;
        ParamByName('cont').value := edtcontrasena.text;//envio de datos al parametro
        open;//abre la consulta
        if RecordCount = 1 then // si existe genera un registro
        begin
        First;// posicione en el registro
        nombre :=FieldByName('Usrnombre').AsString+' '+ FieldByName('Usrapellido').AsString;//nos muestra en el mensage el nombre y el apellido de el usuario
        MessageDlg('Bienvenido '+nombre,mtinformation,[mbok],0);
        if(FieldByName('Usrtipo').AsString='usuario') then
        begin
        frmprincipal.mnuprincipal.Items.find('Seguridad').Visible:=false;//desactiva la opcion en el menu
        frmprincipal.bbtSeguridad.Enabled:=false; //desactiva el boton de seguridad
        frmprincipal.imgSeguridad.Visible:=false;//desactiva la imagen
        end;
        if(FieldByName('Usrtipo').AsString='administrador') then
        begin
        frmprincipal.mnuprincipal.Items.find('Seguridad').Visible:=true;//activa la opcion en el menu
        frmprincipal.bbtSeguridad.Enabled:=true; //activa el boton de seguridad
        frmprincipal.imgSeguridad.Visible:=true;//muestra la imagen
        end;

        frmprincipal.ShowModal;
        end
        else
        MessageDlg('ACCESO denegado',mtinformation,[mbok],0);
        close;
        
   end;
end;
procedure Tfrmacceso.btncancelarClick(Sender: TObject);
begin
Application.Terminate;
end;
end.

Buerno creo que esto es todo, bye amigos, seguire creciendo en delphi, jejeje...espero que sea de ayuda a proximas personas que necesiten este tipo de informacion, y esto no es hacer las tareas, es colaborar, para que se hagan a la idea de como funciona esto , y tengan puntos de donde partir, para lograr elaborar grandes cosas....