A compilação ocorre sem erros. O erro aparece quando tento fazer o
login no programa
--- Em [EMAIL PROTECTED], "Aline Alves Soares"
<[EMAIL PROTECTED]> escreveu
>
> Em qual linha examente está dando o erro?
> ----- Original Message -----
> From: Michel Kafury Pael
> To: [EMAIL PROTECTED]
> Sent: Friday, November 26, 2004 2:35 AM
> Subject: [delphi-br] login com erro
>
>
>
> 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]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
>
>
>
------------------------------------------------------------------------------
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
