Jump to content
Fórum Script Brasil

Pu££3y

Membros
  • Posts

    14
  • Joined

  • Last visited

About Pu££3y

Pu££3y's Achievements

0

Reputation

  1. ai Churc Valeww Pela Dica funcionou Direitinho Usei Um Form mesmo pois Tenho que fazer algumas Restrições De inserção no Edit + Achei Legal Tambem pelo Outro metodo o "InputBox" não Sabia Dele Waleuuuuu Amigo muito Obigadooo......
  2. ai galera Tudo Bem ?? é o Seguinte Tenho Um Formulário de Cadastro de Venda, uso um DbLookupComboBox para selecionar os itens de produto e colocar num StringGrid ...beleza... Ate ai só Que Queria que no Evento OnCloseUp do ComboBox, chamasse outro FormularioZinho com um Edit só para Informar a Quantidade de itens Que ele Quer Comprar.. Tem Como, Quando Esse FormularioZinho Fechar ele retornar o Valor que O Cara Digitou no Edit dele e usar No Formulári principal de Venda???? Valeu Galera esPeranDu....
  3. beleza valeu Pela Correção.... Por Isso que eu Buscava e aparecia Alguns Clientes Indesejados..... Procurei a Propiedade Params E não Tem Uso a ADOQuery... só tem Parameters Msmo A mensagem é essa [Error] Unit11.pas(39): Undeclared identifier: 'AsString' Acho que não existe esse Metodo....
  4. BLZZ VOh dá Uma Olhada NAunTinah Pensado Em cocatenar direto Mais Tambem Encontrei Uma Maneira.... Olha só DataModule2.Q_pessoa.SQL.Add('SELECT pessoa.*, cliente.limite, cliente.data_cad, cliente.situacao FROM pessoa INNER JOIN cliente ON pessoa.cod_pessoa = cliente.cod_pessoa WHERE pessoa.nome LIKE :filtro'); e na Hora de atribuir O valor Do Parameto DataModule2.Q_pessoa.Parameters.ParamByName('filtro').Value:='%'+edit1.Text+'%'; O Percent faz o Papel De Aspas Simples...... resolveu Direitinho...... valeu entaumm MICHEUS Abraçossss.....
  5. DataModule2.Q_pessoa.Parameters.ParamByName('filtro').AsString:=edit1.Text; não Compila ... A PArte do execSQL nem Tinha Me Ligado .... faço Outas Consultas Usando O OPEn só que Nessa Me esqueci... você Disse que fica Por Conta Do Drive Tem que Instalar AlGum Componete Adicional??? Tem Como Inserir Por Codigo ASCI tipo #31 que é o enter qual é o Do ASpas simples???? ... Ow já Toh viajando D+
  6. não pois O valor Eu Recebo De Um edit O valor Texto que o cara digita no edit pego no Evento OnKeyPress pra fazer um filtro tipo uma Busca.... procedure Tlist_cli.Edit1KeyPress(Sender: TObject; var Key: Char); begin DataSource1.DataSet.Close; DataModule2.Q_pessoa.SQL.Clear; DataModule2.Q_pessoa.SQL.Add('SELECT pessoa.*, cliente.limite, cliente.data_cad, cliente.situacao FROM pessoa INNER JOIN cliente ON pessoa.cod_pessoa = cliente.cod_pessoa WHERE pessoa.nome LIKE :filtro'); DataModule2.Q_pessoa.Parameters.ParamByName('filtro').Value:=edit1.Text; ShowMessage(DataModule2.Q_pessoa.SQL.Text); DataModule2.Q_pessoa.ExecSQL; DataSource1.DataSet.Open; end; não Funcionou daquela Maneira..... Tem Outro jeitO?????
  7. Aii galera tenho um Duvida na Hora de fazer o seguinte comando SQL: SELECT pessoa.*, cliente.limite, cliente.data_cad, cliente.situacao FROM pessoa INNER JOIN cliente ON pessoa.cod_pessoa = cliente.cod_pessoa WHERE pessoa.nome LIKE ':parameto'; mais Na Hora de atribuir esse valor para a query: Q_pessoa.SQL.Add('SELECT pessoa.*, cliente.limite, cliente.data_cad, cliente.situacao FROM pessoa INNER JOIN cliente ON pessoa.cod_pessoa = cliente.cod_pessoa WHERE pessoa.nome LIKE :parameto'); não tem Como colocar as aspas simples LIKE ':parameto'; Como faço pra fazer o Comando tipo select * from pessoa where nome like 'pulley'; lá No delphi???? Flwss galera esperanduuu Valeuuu Abraçosss.... ahh URGENTE se não Toh No SAL...
  8. Ahi galera Descobrii Fica assim... procedure TFORM1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Key in ['0'..'9',#13,'.',',']) then begin end else Key := #0; end; Agora não Me Lembro Qual o Caracter Representa o Backspace e o Delete se alguém Souber Responde Ahi beleza...... Valeuuu
  9. Ai Galera Como faço que um "Edit" Receba apenas Numeros.... alem dos caracteres "Enter" "," "TAB" "." URGENTE!!!!... Flwsss Galera Abraçossss... :o
  10. TiRei As Includess só são Codigos de conexao e estao certos Na verdade quando atribuo os dados que vieram pelo metdo POST para a Session As Vaariaves de SESION não pegam o Valor acho que foi um erro quando instalei o PHP vou Instalar dnovo e testar alguém tem um php.ini do php4 configurado Certinho ????? sepuder manda aeeee.... Vlwssss
  11. Usa A função ATOI... $inteiro=Atoi($caracter); FLwssss......
  12. Esse e o LOGIN.PHP <?php include('include/inicio.php'); include('include/conecta.php'); // Na Conect esta os codigos de conexão tipo pg_connect Conecta beleza // e na Inicio Inicializa As sessões session_start().... function voltar($url){ print("<script language='javascript'>window.open('".$url."','_parent');</script>"); } function msg($msg){ print("<script language='javascript'>window.alert('".$msg."');</script>"); } if(!$bdcon) echo "Erro ao Conectar o baco de dados"; else { $form_senha['login'] = pg_escape_string($_POST['login']); $form_senha['senha'] = pg_escape_string($_POST['senha']); $form_senha['bt_entrar'] = pg_escape_string($_POST['bt_entrar']); if((!empty($form_senha['login'])) && (!empty($form_senha['senha']))){ $sql="SELECT * FROM usuario ". "WHERE login='".$form_senha['login']."' AND senha='".$form_senha['senha']."'"; $res=pg_query($bdcon,$sql); $log=0; $row=pg_fetch_assoc($res); if(($row['login']==$form_senha['login']) && ($row['senha']==$form_senha['senha']) ) { //echo msg('Seja Bem Vindo '.$form_senha['login'].'!!'); $_SESSION['user_nome'] = $form_senha['login']; $_SESSION['user_id'] = $row['id_usuario']; echo msg('Seja Bem Vindo '.$_SESSION['useu_nome'].'!!'); $log=1; voltar("index.php"); } if($log==0) echo msg('Login e/ou Senha Incoreto(s)!!!!!....'); } else echo msg('Digite Seu Login e Senha!!!!!....'); desconecta($bdcon); } ?> Index.PHP <? include("include/inicio.php"); include('include/conecta.php'); function voltar($url){ print("<script language='javascript'>window.open('".$url."','_parent');</script>"); } if (empty($_SESSION['user_nome']) && empty($_SESSION['user_id']) ){ echo alert('ACESSO NEGADO!!!!'); echo voltar('login.php'); } ?> Mais Acho que o Erro é Devido aquele Warning...... Sabe o Que é?????
  13. Tirei Todos os Echo e prints Mas Continua Dando o ERRO Será que é Um erro no PHP.INI ??????
  14. Tenho uma pagna de login que pega no banco o login e a senha digitado beleza e Funciona..... mais quando atribui o variavel que tem o login a session não pega... OBs.. $_SESSION['user_nome'] = $form_senha['login']; $form_senha['login'] possui o login pegado do banco !!!!!!!CERTEZA QUE SIM!!!!!!!! então quando inicializo os dados da sessão no Index.php ele diz que a variavel $_SESSION['user_nome'] está vazia OLHA if (empty($_SESSION['user_nome']) && empty($_SESSION['user_id']) ) { echo alert('ACESSO NEGADO!!!!'); echo voltar('login.php'); } e dá o seginte warning... Warning: session_start(): Cannot send session cache limiter - headers already sent (output started at D:\ley\intranet\index.php:2) in D:\ley\intranet\include\inicio.php on line 9 se algem souber por favor Me ajodemmm ValeUUUU....
×
×
  • Create New...