if not (DM.Tab_Usuarios.Locate('UsuApelido', FrmLogin.Edtapelido.Text, [loParialKey])) or (DM.Tab_UsuariosUsuSenha.Value <> FrmLogin.EdtSenha.Text) then
begin
MessageDlg('Nome e/ou Senha Inválidos!' + #13 + #13 + 'Se Você esqueceu sua Senha, Consulte' + #13 + 'o administrados do Sistema', mterror, [mbOk],0);
Pergunta
Guest --Márcio --
Boa noite,
ao usar uma tela d login e implementar o cod dá o seguinte erro:
[Error] ULogin.pas(39): Missing operator or semicolon
O que poso fazer para resolver ??
Cod do FrmLogin:
unit ULogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TFrmLogin = class(TForm)
Image1: TImage;
GrpBxLogin: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edtapelido: TEdit;
EdtSenha: TEdit;
BtnOk: TBitBtn;
BtnCancelar: TBitBtn;
procedure BtnOkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmLogin: TFrmLogin;
implementation
uses UDM, UMenuPrin;
{$R *.dfm}
procedure TFrmLogin.BtnOkClick(Sender: TObject);
begin
DM.Tab_Usuarios.Open;
FrmMenuPrin.StatusBar1.Panels[0].Text := 'Usuário' + FrmLogin.Edtapelido.Text + '-' Dm.Tab_UsuariosUsuDpto.AsString;
if not (DM.Tab_Usuarios.Locate('UsuApelido', FrmLogin.Edtapelido.Text, [loParialKey])) or (DM.Tab_UsuariosUsuSenha.Value <> FrmLogin.EdtSenha.Text) then
begin
MessageDlg('Nome e/ou Senha Inválidos!' + #13 + #13 + 'Se Você esqueceu sua Senha, Consulte' + #13 + 'o administrados do Sistema', mterror, [mbOk],0);
EdtSenha.Clear;
EdtSenha.SetFocus;
end
else
begin
FrmLogin.Hide;
FrmMenuPrin.ShowModal;
FrmLogin.Release;
FrmLogin := Nil;
end;
end.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.