!! 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....

[[Delphius]]

Empezado por BuRtOn

....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...

Me ha parecido una mala actitud que digas que no se te ayudó.
Se te ha comentado de opciones, distinto es que tu no te hayas molestado en pedir ayuda tras dos semanas.

Si tu hubieras aparecido y hubieras expuesto un "Disculpen, pero algo está fallando en mi código. Lo adjunto aquí para que pudieran darme recomendaciones" nosotros podríamos hacer un espacio en nuestro tiempo libre y tratar de ofrecerte ayuda.

No vengas aquí a dar falsos testimonios, se te quiso ayudar. Tu no diste tu parte.

Además, No es responsabilidad nuestra verificar si tus problemas se han resuelto. Son muchos hilos, y no estamos obligados a estar pendientes de cada hilo que se abre.
¿Crees que los demás sólo estamos sólo para ti?
El que quiere ayuda que demuestre seriedad y responsabilidad en resolver su problema. Viniendo en cuanto lo crea conveniente y necesario.

Hay muchos hilos que tras mucho tiempo no son revisados. Si no hay una actitud emprendedora por quien tiene la duda en llegar a una solución mucho no podemos hacer.
Por darte un ejemplo hace relativamente poco vino alguien pidiendo ayuda sobre un simulador. Ofrecí mi ayuda en el tema, pero tras estar unos días sin aviso de su parte puede que:
1. Haya encontrado una solución y/o sus dudas fueron resueltas.
2. No tenga tiempo de venir a informar de sus avances.
3. No le ha gustado nuestras recomendaciones.

Si no hay actitud por informar debidamente, yo (y creo que el resto también) estar pendiente. Cada día siguen apareciendo más hilos...

Empezado por BuRtOn

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....

Por la manera en que te haz estado expresando, pareciera que se ha tratado de tareas. Para ti puede ser práctica, o simple hobbie... para nosotros se nos convierte en una tarea.
Dices que se trata de colaborar, perfecto. ¿Haz colaborado tu con nosotros en llegar a una buena solución con tus problemas? A mi humilde punto de vista, creo que no.
¿Haz colaborado en hallar una solución o alternativa a otros hilos?

Me parece a mi, que estás mal interpretando la buena y desinteresada ayuda que aquí se ofrece.
El que viene aquí debe comprender que no se nos paga por esto. Lo hacemos en forma altruista y en la medida en que los tiempos nos lo permite.

¿Quieres ayuda BuRtOn? Entonces aprende a darla y recibirla. Se más responsable para con nosotros.

No tengo más que decirte.
Disculpa mi rudeza.

Saludos,

[BuRtOn]

Tranquilo, no se enoje, solo llegue con la ayuda a mi hilo, por que todo este tiempo, me demore elaborando y leyendo el codigo que necesitaria para esta tarea, y amigo, creeme que esto no es un hobbie, ocmo tu dices, es parte de mi proyecto de grado de tecnologo, me dan 1 año, para elaborar un Sistema de informacion tipo inventario, para droguerias, y con todos los modelados de UML, y ERS, entonces no es tarea, solo que me surgen cosas, y por eso las pregunto, y creeme que si no respondo mas hilos, es por que soy novato aun, y no soy tan bueno como usted, si ve esa es la diferemcia, donde supiera creeme que ayudaria mucho...y cuando pregunte, lo de los passwords, era por que no tenia ni remota idea de como hacerlo, que pena ser tan ignorante en esas cosas, pero lo vuelvo a reiterar soy novato, y puse el codigo que con tanto esfuerzo pude elaborar, para que alguien mas lo pueda utilizar, y se le facilite elaborar este tipo de funciones, entonces no veo el por que de tu rudeza en esa rspuesta, se que ser un duro en delphi, te hace subir al trono, pero hombre, tiene que comprender que hay gente que esta en '0' y no saben nada, asi que fijate bien lo que trato de expresar, y no lo mal interprete, por que no soy un peresoso, ni un inrresponsable, ni nada de esas cosas que me dijo, si estoy dando el codigo, es por que lo hice solo, y quiero aportar algo, asi si ya este ese mismo codigo en el club, no interesa, por que no todos son iguales, ni todos programan igual, asi que el mio puede ser un metodo mas corto, creo que esto es todo...

Gracias por su tiempo prestado, y que pena hacerlo sentir mal, no es mi intension..

[[Delphius]]

BuRtOn,
Comprendo que seas un novato, yo lo soy también.
La gran diferencia aquí es que tu haz venido con la prepotencia afirmando de que no se te ha ayudado. Simplemente he remarcado eso, en ningún momento he criticado que seas novato o un experto.

No se trata de un asunto de ignorancia, ni de ser novato o experto. Se trata de responsabilidad.
Me parece perfecto que te dediques a tu trabajo de grado. Si estás haciendolo es porque ya pronto estarás por recibirte. Si así lo es... creería que si vas a faltar asi a un solución en la vida real, entonces vas mal.

Debes forjar mejor tu caracter ético. Yo he faltado al mio, al lanzar aquel comentario (y este). Y he pedido una disculpa, si la quieres dar, perfecto.. sino la quieres dar, tambien: perfecto. A mi poco me molesta.

La triste realidad es que el mundo, la calle pide compromiso... si no la haz demostrado aquí... ¿que puedo esperar cuando salgas?

He sido rudo... Muy extremadamente rudo. Lo tengo muy presente. Y merezco una sanción.

BuRtOn, bienvenido a la realidad: te encontrarás con diversas personas, de pensamientos, religiones, filosofía y personalidades distintas a las tuyas.
En ocasiones saltarán tus tapones.
Tus clientes querrán las cosas para el ayer, y se te exigirá mucho compromiso.

Este foro no es la excepción. Aqui el que viene, que asuma su parte y no diga algo falso.

No te acuso de ser novato, o ignorante... Sino tu falta de compromiso con el hilo. Porque fuieste tu el que inició el hilo, y eres tu quien al cabo de dos semanas apareces diciendo que no recibiste ayuda.

No me veas como un Moderador, no lo soy. Como he dicho en otro ocasión, soy un engranaje más de esta maquinaria. Y seamos o no moderadores hay que cumplir con las buenas prácticas de la guia de estilo. Cada uno debe dar su parte.

Hay gente que viene por ayuda y desaparece. Otros vuelven... Otros ni siquieran vuelven. Pero de cualquier manera hay que garantizar o al menos hacer el intento de llevar las cosas del mejor modo.
Este hilo quedó desvirtuado tras mis comentarios.

Yo te debo disculpas por mi modo de haber respondido. Eso lo tengo muy asumido, pero un "ya que nadie me ayudó" no me a hacer sentír lástima como para decir: "pobrecito, mejor lo ayudo".

No me veas como un experto que se ha sentado en el trono y que no pretende ayudar. Hago lo posible por ayudar. No soy el experto aquí... considero que me falta mucho para ser experto. De hecho, ni pretendo serlo.

Aqui seamos novatos, expertos, inciados... buscamos la manera de ayudar.
Yo destino buena parte de mi tiempo aquí a ayudar. Y no porque sea un gran conocedor, En lo que pueda y mi cerebro, con mi ignorancia a cuesta me arriesgo a ayudar.

¿Porqué no te pones en el lugar de quienes a diario ofrecen su ayuda? Dime... ¿Te agradaría ver, leer o recibir un comentario como el que emitiste?

En la vida en ocasiones se nos sale las cosas como vienen. Algunos prefieren hacer oidos sordos, otros buscan llegar a buenos términos, otros simplemente van a los golpes...

En fin, tu actitud, y la mia fueron desmedidas.

Saludos,

[BuRtOn]

Ok, ya sin broncas, perdon si ofendi con mi comentario, y se a que me tengo que enfrentar afuera, aunque no tenga experiencia, pero lo se, en fin, no volvere a hacer comentarios de ese tipo, y ya, creo que no es mas...

Gracias por su atencion prestada, y perdon las molestias delphius....