Código Botão do Delphi 7 para um outro código botãoDelphiPHP
08/06/2007
0
Olá povo, blz??
é o seguinte... estou tentando fazer um sistema de login no delphi for php... Visualizando o código do botão ´Logar´ num sistema do delphi 7, vou tentando fazer em php, no delphi4php...
Esse é o código:
//Para contar as tentativas de login
BtnLogar.Tag:=BtnLogar.Tag+1;
//Fechar a Consulta
cdsLogin.Close;
//Passar o login digitado para o paramêtro da consulta
cdsLogin.Params.ParamValues[´USUARIO´] := edtLogin.Text;
//Abrir a consulta
cdsLogin.Open;
//Testar se usuário com login existe
If cdsLogin.RecordCount > 0 Then
//Se existir usuário testar se a senha está correta
If cdsLogin [´SENHA´] = edtSenha.Text Then
Begin
//Se senha estiver correta testar Nível Administrador
//If cdsLogin[´TIPO´]= ´Administrador´ Then
btnLogar.Tag :=1000;
Dados.SENHA :=cdsLogin [´CODUSUARIO´];
Close;
End
Else
MessageDLG(´Senha Incorreta!´, mtinformation,[mbok], 0)
Else
MessageDLG (´Usuário não Existe!´,mtinformation, [mbok],0);
//Limpar Edits
edtSenha.Text:=´´;
edtLogin.SetFocus;
//Testar o numero de tentativas
//Se for igual a 4 Terminar a Aplicação
If BtnLogar.Tag=4 Then
Application.Terminate;
//colocar a data no status bar
frmPrincipal.StatusBar1.Panels[0].Text:=
datetostr(date);
//colocar o nome do usuario
frmPrincipal.StatusBar1.panels[1].text:=´Usuario Logado: ´+
CdsLogin.fieldbyname(´nome´).asstring;
//Colocar tipo de usuário
frmPrincipal.StatusBar1.panels[2].Text:=´´+
CdsLogin.fieldbyname(´tipo´).AsString;
------------------------------------------------------------------------------------
Comecei a fazer no Delphi for PHP, e ficou assim... mas deu pau... heheh
$this->Button2->Tag = $this->Button2->Tag+1;
$this->tbusuarios1->Close();
$params.value(´USUARIO´) != $this->Edit1->Text;
$this->tbusuarios1->Open();
If $this->tbusuarios1->RecordCount > 0
{
If $this->tbusuarios1 (´SENHA´) = $this->Edit2->Text;
}
deu pau no primeiro if... alguém poderia me ajudar?? seria útil à todos no futuro... eu acho, hehe
Grato...
é o seguinte... estou tentando fazer um sistema de login no delphi for php... Visualizando o código do botão ´Logar´ num sistema do delphi 7, vou tentando fazer em php, no delphi4php...
Esse é o código:
//Para contar as tentativas de login
BtnLogar.Tag:=BtnLogar.Tag+1;
//Fechar a Consulta
cdsLogin.Close;
//Passar o login digitado para o paramêtro da consulta
cdsLogin.Params.ParamValues[´USUARIO´] := edtLogin.Text;
//Abrir a consulta
cdsLogin.Open;
//Testar se usuário com login existe
If cdsLogin.RecordCount > 0 Then
//Se existir usuário testar se a senha está correta
If cdsLogin [´SENHA´] = edtSenha.Text Then
Begin
//Se senha estiver correta testar Nível Administrador
//If cdsLogin[´TIPO´]= ´Administrador´ Then
btnLogar.Tag :=1000;
Dados.SENHA :=cdsLogin [´CODUSUARIO´];
Close;
End
Else
MessageDLG(´Senha Incorreta!´, mtinformation,[mbok], 0)
Else
MessageDLG (´Usuário não Existe!´,mtinformation, [mbok],0);
//Limpar Edits
edtSenha.Text:=´´;
edtLogin.SetFocus;
//Testar o numero de tentativas
//Se for igual a 4 Terminar a Aplicação
If BtnLogar.Tag=4 Then
Application.Terminate;
//colocar a data no status bar
frmPrincipal.StatusBar1.Panels[0].Text:=
datetostr(date);
//colocar o nome do usuario
frmPrincipal.StatusBar1.panels[1].text:=´Usuario Logado: ´+
CdsLogin.fieldbyname(´nome´).asstring;
//Colocar tipo de usuário
frmPrincipal.StatusBar1.panels[2].Text:=´´+
CdsLogin.fieldbyname(´tipo´).AsString;
------------------------------------------------------------------------------------
Comecei a fazer no Delphi for PHP, e ficou assim... mas deu pau... heheh
$this->Button2->Tag = $this->Button2->Tag+1;
$this->tbusuarios1->Close();
$params.value(´USUARIO´) != $this->Edit1->Text;
$this->tbusuarios1->Open();
If $this->tbusuarios1->RecordCount > 0
{
If $this->tbusuarios1 (´SENHA´) = $this->Edit2->Text;
}
deu pau no primeiro if... alguém poderia me ajudar?? seria útil à todos no futuro... eu acho, hehe
Grato...
Lucas_spohr
Curtir tópico
+ 0
Responder
Posts
15/02/2008
Xtreme
If ($this->tbusuarios1->RecordCount > 0){ If ($this->tbusuarios1 (´SENHA´) == $this->Edit2->Text){ } }
if (){
}
no php = é o := do object pascal, e == a =
ahh sim e nos ifs coloque sempre entre ()
Responder
Clique aqui para fazer login e interagir na Comunidade :)