AllJack

aii galera beleza, essa e pra quem tem a mãnha gostaria de saber de uma maneira de se alterar a página inicial do firefox pelo registro do windows. e se tiver de como se fazer isso com um VBScript da vida sei la so a título de conhecimento mesmo agradeco pela atençao flws

bem filho seja mais especifico qual banco banco de dados você pretende utilizar, quem teria acesso a este sistema primeiro de td e você passar pro papel o que você quer, aii depois pra programar fica facim facim, bele? falou!!

Primeiro, qual o delphi que tw usa... se for o D7 eu tenho uma source que funciona certim é so manda um email para allcomputers-08@hotmail que eu te passo vlw irmao

O rapaz tenta com o evento OnMouseMove pelo menos e o que eu sempre uso para este tipo de efeito falou!!

pow cara agradeço pela sua atenção,mais o fato e que queria por na barra de endereços mesmo, essa da barra de status eu pelo menos já conhecia porem não me interessa muito, por que não ficaria bem visivel ao usuario, eu tava tentando fazer isso com Vbscript alterando o registro do windows porem não obtive muito exito. Mas deve haver um jeito nem que se já pela famosa "gambiarra" rsrs mais alguém ..

pois é não é? andreia como eu sou novo por aqui estava em duvida de como excluir o post duplicado foi mal por qualquer incoveniente que eu tenha causado... mais aii ninguém podera me ajudar nessa empreitada falou

boa tarde pessoal estou desenvolvendo uma página em html com php para compra de produtos e gostaria de inovala copiando um texto pré definido por mim do tipo "bem vindo ao seu melhor site de compras" na barra de endereço do camarada só para ficar bem mais vísivel e gostaria de saber se existe alguma função do javascript, perl ou php que me ajude nesta empreitada agradecido flws

valeu cara pela sua atenção mais consegui resolver aqui o embrólio rsr coloquei este código aqui e ta funfando certim procedure TF_Login.BitBtn1Click(Sender: TObject); var PRIVILEGIO : string; begin SENHA:=0; F_Principal.Table1.Last; REGISTRO:=F_Principal.Table1.FieldByName('CODIGO').AsInteger; F_Principal.Table1.First; repeat if(F_Principal.Table1.FieldByName('USUARIO').AsString=Edit1.Text)and (F_Principal.Table1.FieldByName('SENHA').AsString=Edit2.Text)then begin if(F_Principal.Table1.FieldByName('ESTADO_USUARIO').AsBoolean=False)then begin MessageDlg('Sua conta encontra-se inativa no momento contate o administrador do sistema',MtWarning,[mbOk],0); Exit; end; if(F_Principal.Table1.FieldByName('PRIVILEGIO').AsString<>'Administrador')then begin PRIVILEGIO:=F_Principal.Table1.FieldByName('PRIVILEGIO').AsString; F_Login.Visible:=false; F_Principal.Show; F_Principal.Enabled:=true; F_Principal.Usurio1.Enabled:=false; F_Principal.StatusBar1.Panels[0].Text:='Usuário Logado : '+Edit1.Text+' Privilégios : '+PRIVILEGIO; F_Principal.Timer1.Enabled:=true; Exit; end else if(F_Principal.Table1.FieldByName('PRIVILEGIO').AsString='Administrador')then begin PRIVILEGIO:=F_Principal.Table1.FieldByName('PRIVILEGIO').AsString; F_Login.Visible:=false; F_Principal.Show; F_Principal.Enabled:=true; F_Principal.Usurio1.Enabled:=true; F_Principal.StatusBar1.Panels[0].Text:='Usuário Logado : '+Edit1.Text+' Privilégios : '+PRIVILEGIO; F_Principal.Timer1.Enabled:=true; Exit; end; end else F_Principal.Table1.Next; if(F_Principal.Table1.FieldByName('CODIGO').AsInteger=REGISTRO)then SENHA:=SENHA+1; until F_Principal.Table1.Eof; if SENHA<>0 then begin MessageDlg('Usuário ou Senhas Inválidos para o sistema',MtError,[mbOk],0); Exit; end; ta aii para quem tiver a mesma duvida que eu tive... ;) só uma dúvida cara.... como faço esta criptografia aii que tw falow pois eu tentei por este codigo que eu peguei em outro fórum var K : integer; begin K:=Ord(Key); K:=K+3; Key:=Chr(K); end; no evento onkeydown do dbedit da senha so que não funciona por que ele so vai acrescentar mais tres digitos em cada tecla digitada se a senha for ABC123 ele acrecentara mais tres ,ou seja CDE456 o que não seria muito legal pois gostaria que so na hora de visualizar a tabela a senha aparecece criptografada e não que modificasse a senha deu pra entender falou abraço

Salvem rapazeada, td belê com vocês é o seguinte.... estou desenvolvendo um sistema de diário escolar com uma tabela paradox com os campos CODIGO, NOME, SENHA e PRIVILEGIO onde nessa tabela devo efetuar um login, no caso com o nome e a senha, Até aii td perfeito porém eu tenho tmb que veficar o privilegio do camarada(Administrador, Professor e Outros) é aii que o bixo pega rsrsrs segue aii o código do botão Entrar procedure TForm1.BtnEntrarClick(Sender: TObject); var PRIVILEGIO1 : string; begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM USUARIO WHERE NOME = :USER AND SENHA = :PASSWD'); Query1.ParamByName('USER').AsString:=Edit1.Text; Query1.ParamByName('PASSWD').AsString:=Edit2.Text; Query1.Open; if(Form1.Query1.RecordCount)=1 then begin Query2.Close; Query2.SQL.Clear; Query2.SQL.Add('SELECT *'); Query2.SQL.Add('FROM USUARIO'); Query2.SQL.Add('WHERE PRIVILEGIO = :PRI'); Query2.ParamByName('PRI').AsString:=PRIVILEGIO1; if(PRIVILEGIO1='Administrador')then begin Form2.Show; Form2.Enabled:=true; Form1.Hide; end; if(PRIVILEGIO1='Professor')then begin Form2.Show; Form2.Enabled:=true; Form1.Hide; Form2.Usurio1.Enabled:=false;//Menu para cadastrar usuário no caso false para professores end; end else begin ShowMessage('Acesso Negado'); Exit; end; end; se alguém puder dar uma luz aii vlw rapazeada!!!!!