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
public
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; SQL.clear; consulta:='select * from tabla where usrcodigo= :cod and usrcontra= :cont'; SQL.add(consulta); ParamByName('cod').value := edtcodigo.text;
ParamByName('cont').value := edtcontrasena.text; open; if RecordCount = 1 then begin
First; nombre :=FieldByName('Usrnombre').AsString+' '+ FieldByName('Usrapellido').AsString; MessageDlg('Bienvenido '+nombre,mtinformation,[mbok],0);
if(FieldByName('Usrtipo').AsString='usuario') then
begin
frmprincipal.mnuprincipal.Items.find('Seguridad').Visible:=false; frmprincipal.bbtSeguridad.Enabled:=false; frmprincipal.imgSeguridad.Visible:=false; end;
if(FieldByName('Usrtipo').AsString='administrador') then
begin
frmprincipal.mnuprincipal.Items.find('Seguridad').Visible:=true; frmprincipal.bbtSeguridad.Enabled:=true; frmprincipal.imgSeguridad.Visible:=true; 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....