[delphi-br] login com erro

Michel Kafury Pael Thu, 25 Nov 2004 20:35:40 -0800


Bom, sou novo no grupo e já estou precisando de uma ajuda :)
Não sei o que tem errado em meu código que valida o nome de usuario e
senha. Vejam abaixo:
Cannot set database while database is connected


// inicio do fonte
unit un_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
  Dialogs, StdCtrls, TFlatButtonUnit, TFlatEditUnit, ExtCtrls;

type
  Tfrm_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatButton1: TFlatButton;
    Timer1: TTimer;
    procedure FlatButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation

uses unmain, undm;

{$R *.dfm}

procedure Tfrm_login.FlatButton1Click(Sender: TObject);
begin
//conecta com o banco
dm.conexao.Connected := true;

//habilita o timer
Timer1.Enabled := true;

end;

procedure Tfrm_login.Timer1Timer(Sender: TObject);
begin
dm.query.Close;
dm.query.SQL.Clear;
dm.query.SQL.Add('select * from manager where usuario = ' +
flatedit1.Text);
dm.query.TableName := 'manager';
dm.query.Open;

if ((dm.query.RecordCount) > 1) then
   begin
   Timer1.Enabled := false;//desabilita o timer
   frm_main.Show;//abre form principal
   frm_main.StatusBar1.Panels[1].Text := 'Padrão';
   frm_login.Hide;//esconde o form de login

   end
else
   begin
   Timer1.Enabled := false;
   ShowMessage('Usuário ou Senha incorretos!');
   end;
end;

procedure Tfrm_login.FlatEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
  begin
  FlatButton1.Click;
  end;
end;

end.






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

[delphi-br] login com erro

Responder a