Ir para conteúdo
Fórum Script Brasil

fraudinha

Membros
  • Total de itens

    133
  • Registro em

  • Última visita

Posts postados por fraudinha

  1. Olá pessoal,

    numa pagina que estou desenvolvendo preciso fazer um upload de um arquivo flash, até ai sem problemas mas

    antes de fazer esse upload de arquivo preciso verificar a altura e a largura desse arquivo flash alguém sabe como posso fazer isso?

    sei que se fosse uma imagem eu poderia usar a classe Drawing para poder capturar esse atributos mas ela não funciona para flash alguém sabe se existe alguma classe que capture esses atributos?

    desde já grato!

  2. Ae galera utilizo como servidor na minha empresa o windows 2000 professional com cerca de 18 computadores interligado pela rede em alguns momento quando tentamos acessar o servido ele da uma mensagem dizendo que já existem tantas conecções qnt ele pode suportar ,isso significa q ele não está conseguindo gerenciar o numero de computadores ok? tem alguma maneira de se reverter essa situação sem ter q trocar o windows 2000 professional pelo server?

  3. Estou fazendo um form de login e no click do botão OK tem seguinte código:

    DataModule3.SDSLOGIN.Close;

    DataModule3.SDSLOGIN.CommandText:='SELECT * FROM LOGIN WHERE USUARIO=:USUARIO AND SENHA=:SENHA';

    DataModule3.SDSLOGIN.Params[0].Value:=edit1.Text;

    DataModule3.SDSLOGIN.Params[1].Value:=edit2.Text;

    IF not DataModule3.SdsLogin.Eof then

    begin

    ShowMessage('usuario encontrado');

    end

    else

    begin

    ShowMessage('Usuário e/ou senha invalidos!!');

    end;

    end;

    mas só q ele não esta lendo os dados do bd pois sempre da usuario invalido meu bd é firebird 1.5 conecção via dbExpress podem me ajudar???

  4. código form login:

    procedure Tfrmlogin2.Button1Click(Sender: TObject);

    begin

    DataModule1.ADODataSet1.Close;

    DataModule1.ADODataSet1.CommandText:='SELECT * FROM login WHERE USUARIO=:senha AND SENHA=:senha';

    DataModule1.ADODataSet1.Parameters[0].Value:=edit1.Text;

    DataModule1.ADODataSet1.Parameters[1].Value:=edit2.Text;

    DataModule1.ADODataSet1.Open;

    if DataModule1.ADODataSet1.Eof then

    ShowMessage('Usuário ou senha invalidos')

    end;

    procedure Tfrmlogin2.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

    if DataModule1.ADODataSet1.Eof=true then

    Application.Terminate

    else

    begin

    Application.CreateForm(TfrmPrincipal,frmPrincipal);

    frmPrincipal.Show;

    end;

    end;

    procedure Tfrmlogin2.Button2Click(Sender: TObject);

    begin

    Application.Terminate;

    end;

    end.

    código form evento on show principal:

    procedure TfrmPrincipal.FormShow(Sender: TObject);

    begin

    frmlogin2:=Tfrmlogin2.Create(self);

    frmlogin2.ShowModal;

    frmlogin2.Release;

    end;

    end.

  5. pus o seguinte código no close do formulario login:

    procedure Tfrmlogin2.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

    if DataModule1.ADODataSet1.Eof=false then

    Application.Terminate;

    action:=cafree;

    end;

    tudo bem o problema do alt+f4 que quando fechava o form de login ia para o form principal resolveu mas agora o click do ok não funciona mais ou seja mesmo q o login esteja certo ele não abre o form principal ficando só no form login o q está errado?

  6. só html se liga só

    <html>

    <head>

    <title>Formul&aacute;rio Professor </title>

    <script language="javascript">

    function validaForm(){

    d=document.professor;

    if (d.codigo.value ==""){

    alert("O campo " + d.codigo.name + " deve ser preenchido!");

    d.codigo.focus();

    return false;

    }

    if (d.matricula.value==""){

    alert("O campo " + d.matricula.name + " deve ser preenchido!");

    d.matricula.focus();

    return false;

    }

    if (d.curso.value ==""){

    alert("O campo " + d.curso.name + " deve ser preenchido!");

    d.curso.focus();

    return false;

    }

    {

    alert("Dados Enviados");

    return true

    }

    }

    </script>

    </head>

    <body>

    <form name="professor" action="" method="post" onSubmit="return validaForm()">

    <table cellspacing="2" cellpadding="2" border="2" >

    <tr>

    <td>C&oacute;digo</TD>

    <td><input name="codigo" align="left" size="10" maxlength="10" > </TD></TR>

    <tr>

    <td>Matricula</TD>

    <td><input name="matricula" align="left" size="3" maxlength="3" ></TD></TR>

    <tr>

    <td>Curso</TD>

    <td><input name="curso" align="left" size="20" maxlength="20" ></TD></TR>

    <tr>

    <td height="30" colspan="2">

    <div align="center">

    <input name="enviar" type="submit" value="Enviar">

    <input name="limpar" type="reset" value="Limpar"></div></td>

    </TR>

    </TABLE>

    </FORM>

    </body>

    </html>

  7. O CÓDIGO não ESTÁ VALIDANDO O ULTIMO CAMPO NO CASO CURSO:

    EIS O CÓDIGO

    function validaForm(){

    //valida código

    d = document.Aluno;

    if (d.codigo.value ==""){

    alert("O campo " + d.codigo.name + " deve ser preenchido!");

    d.codigo.focus();

    return false;

    }

    if (d.matricula.value==""){

    alert("O campo " + d.matricula.name + " deve ser preenchido!");

    d.matricula.focus();

    return false;}

    if (d.curso.value=""){

    alert("O campo " + d.curso.name + " deve ser preenchido!");

    return false;

    }

    return true

    }

    alguém PODE ME DIZER O Q TENHO Q FAZER?

×
×
  • Criar Novo...