Fórum Login no Delphi7 #507357

olá pessoal?


no meu programa ele está pronto ,me pediram para eu mudar o nome do login ,até ai tranquilo,fui olhar o codigo (está embaixo),não achei onde eu mudo o nome do login alguém poderia me dizer se tem outro lugar ou não é no codigo que coloca o nome do usuário de login??


unit UnLogin;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Mask, DB, DBTables, Menus;

const
nMaxLogFail = 3;

type
TfrmLogin = class(TForm)
lblUsuario: TLabel;
lblSenha: TLabel;
edtUsuario: TMaskEdit;
edtSenha: TMaskEdit;
btnOK: TBitBtn;
btnCancelar: TBitBtn;
btnSair: TBitBtn;
dbLogin: TDatabase;
qryLogin: TQuery;
PopupMenu1: TPopupMenu;
InventrioSoftware1: TMenuItem;
procedure btnSairClick(Sender: TObject);
procedure btnCancelarClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure InventrioSoftware1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmLogin: TfrmLogin;

implementation

uses UPrincipal;

{$R *.DFM}

procedure TfrmLogin.btnSairClick(Sender: TObject);
begin
lAbort := True;
Application.Terminate;
end;

procedure TfrmLogin.btnCancelarClick(Sender: TObject);
begin
edtUsuario.Text := '';
edtSenha.Text := '';
edtUsuario.SetFocus;
end;

procedure TfrmLogin.btnOKClick(Sender: TObject);
var lOK : boolean;
procedure Falha(nMsg : integer);
const m1 = 'Ocorreu um dos seguintes erros:' + #13 + #13 +
' · Usuário Não Existente' + #13 +
' · Senha Incorreta' + #13 +
' · Falha ao conectar com Banco de Dados' + #13;
m2 = 'Falha de Autorização !' + #13 + #13 +
'Esse Usuário Não Possui Privilégios' + #13 +
'Para Rodar Aplicativos Neste Ambiente' + #13 + #13 +
'Favor Contactar o Depto. Informática';
begin
case nMsg of
1: MessageDlg(m1, mtError, [mbOK], 0);
2: MessageDlg(m2, mtError, [mbOK], 0);
end;
nLogFail := nLogFail + 1;
if nLogFail = nMaxLogFail then Application.Terminate;
end;
begin
lAbort := True;
if edtUsuario.Text <> '' then begin
if edtSenha.Text <> '' then begin
dbLogin.Connected := False;
with dbLogin.Params do begin
Clear;
Add('SERVER NAME=SOCRATES');
Add('NET PROTOCOL=TNS');
Add('USER NAME=' + edtUsuario.Text);
Add('PASSWORD=' + edtSenha.Text);
end;
lOK := False;
try
dbLogin.Connected := True;
lOK := True;
except
Falha(1);
end;
if lOK then begin
Close;
cUsuario := edtUsuario.Text;
cSenha := edtSenha.Text;
with qryLogin do begin
// 1º passo: testar a existência da VIEW
close;
SQL.clear;
SQL.add('SELECT VIEW_NAME FROM ALL_VIEWS');
SQL.add('WHERE VIEW_NAME = ' + #39 + 'VI_'+cUsuario + #39);
open;
if fields[0].AsString = '' then
Falha(2) else
lAbort := false;
end; // with
end; // lOK
end else begin
MessageDlg('Digite a Senha !', mtError, [mbOK],0);
edtSenha.SetFocus;
end;
end else begin
MessageDlg('Digite o Nome do Usuário !', mtError, [mbOK],0);
edtUsuario.SetFocus;
end;
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

procedure TfrmLogin.InventrioSoftware1Click(Sender: TObject);
begin
lsoftinv := true;
Close;
end;

end.