Ir para conteúdo
Fórum Script Brasil

Carloda

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Sobre Carloda

Carloda's Achievements

0

Reputação

  1. Carloda

    Dúvidas Sobre Skins

    me passa teu email que lhe enviarei os skin sem DEMO. MEU....carlosg@herval.com.br
  2. Pessoal preciso copiar uma tabela inteira, do tipo precos para precos2, por favor vocês conhecem algum comando que posso usar, estou trabalhando com firebird 1.5
  3. Carloda

    Rave Report

    Preciso do rave report, alguém conhece um site para download ?
  4. Pessoal estou com problemas no login, aglguém pode me ajudar? Estou criando um pequeno aplicativo, já montei as tabelas e estou usando o Interbase. legal só que não consigo me logar... Será que estou esquecendo de alguma coisa? program CGS; uses Forms, frmMenuPrin in 'frmMenuPrin.pas' {menuPrin}, frmCalendario in 'frmCalendario.pas' {Calendario}, frmDM in 'frmDM.pas' {DM: TDataModule}, frmLogin in 'frmLogin.pas' {login}; procedure TLogin.Button1Click(Sender: TObject); var strSqlLog: string; begin strSqlLog:= 'SELECT * FROM USUARIO,PERFIL WHERE USUARIO.nivel= PERFIL.id '; strSqlLog:= strSqlLog + 'AND fantasia = ' + #39 + (valorNome.text) + #39 ; strSqlLog:= strSqlLog + 'AND senha = ' + #39 + (valorSenha.text) + #39; menuPrin.QueryLogin.Close; menuPrin.QueryLogin.SQL.Clear; menuPrin.QueryLogin.sql.Add(strSqlLog); menuPrin.QueryLogin.Open; if(menuPrin.QueryLogin.RecordCount) = 1 then begin menuPrin.StatusBar1.Panels[2].text:= '' + 'USUARIO: ' + login.ValorNome.Text + ' - ' + menuPrin.QueryLogin.FieldByName('dpto').AsString; login.Close; end; end;
×
×
  • Criar Novo...