Array
(
)

Código Botão do Delphi 7 para um outro código botãoDelphiPHP

Lucas_spohr
   - 08 jun 2007

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...


Lucas_spohr
   - 11 jun 2007

up!!

pelo menos pra ver o q deu de errado no if!!


Xtreme
   - 15 fev 2008

#Código

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 ()