Ir para conteúdo
Fórum Script Brasil

rickayron

Membros
  • Total de itens

    679
  • Registro em

  • Última visita

Tudo que rickayron postou

  1. ola comando sql agrupando por mes levando em consideraçao que você tenha um campo data no mysql $sql=mysql_query("select * from noticia where month(data) = '$mes'"); sql por data $sql=mysql_query("select * from noticia where data='$data'"); sql por periodo $sql=mysql_query("select * from noticia where data>='$data1' && data<='$data2'"); qualquer duvida post ai
  2. eu tambem sou iniciante em java tem o netbeans, no caso do netbeans não é dos
  3. $valor = extenso("$total",1,$caixa="alta"); agora o resultado da function está na varialves $valor
  4. inputs do formulario ao banco "~isso seria possivel no delphi não no php, pelo menos nunca vi "; ola rafael exemplo simples de uma form para você ter uma ideia este é o formulario salve como texte.php os dois arquivos deve ficar na mesma pasta <HTML> <HEAD> <TITLE>Form</TITLE> <script type='text/javascript'> function verificar(Form){ var Oformios=document.getElementById(Form).elements; for(var i=0; i<Oformios.length; i++){ if (Oformios[i].value==''){ alert('O campo '+Oformios[i].name+' deve ser preenchido!'); return false; } } return true; } </script> </HEAD> <BODY> <form name='id' id='id' method='Get' action = 'processa.php' Onsubmit="return verificar(this.name)"> <table name='form' align='center' width='60%'> <tr> <Td>Nome</td><Td><input type='text' id='Cli_nome' name='Nome' size='60'></td> </tr> <tr> <td>Endereço</td><td><input type='text' id='Cli_endereco' Name='Endereco' size='60'></td> </tr> <Tr> <td>Complemento</Td><Td><input type='text' id='Cli_complemento' Name='Complemento' size='60'></td> </tr> <tr> <td>Bairro</td><Td><input type='text' id='Cli_bairro' Name='Bairro' size='60'></td> </tr> <Tr> <Td>Referencia</td><Td><input type='text' id='Cli_referencia' Name='Referencia' size='60'></td> </tr> </table> <Table name='finalizar' id='finalizar' align='center' width='100%'> <tr align='center'><td align='center'><input type='submit' value='Cadastrar usuario' size='30'></td></tr> </table> </BODY> </HTML> salve este como processa.php <?php $nome=trim($_GET['Nome']); $end=trim($_GET['Endereco']); $com=trim($_GET['Complemento']); $ref=trim($_GET['Referencia']); $Bai=trim($_GET['Bairro']); if (!empty($nome) && !empty($end) && !empty($com) && !empty($ref) && !empty($Bai) ){ //conectar é interessante voce faze o arquivo de conexao e chamalo $conectar=mysql_connect("localhost", "root", ""); $banco=mysql_select_db("texte"); $sql=mysql_query("insert into texte(nome,endereco,complemento,referencia,bairro) values('$nome', '$end', '$com', '$ref', '$Bai')"); if ($sql = true){ Echo "O cadastro do Sr(a) $nome foi realizado com sucesso, obrigado"; exit; }else{ echo "<script type='text/javascript'>alert('Erro ao tentar cadastrar usuarios'); window.locaction=\"href='text.php'\";</script>"; exit; } } ?> obs na linha conectar voce deve colocar o seu login e banco de dados pois coloquei o padrão desses conjunto de intalaçao xampp e easy e outros mysql_connect("seu servidor", "seu usuario", "sua senha"); mysql_select_db("seu banco de dados"); intruçoes sql usada para construir o banco e a tabela CREATE DATABASE `texte` ; CREATE TABLE `texte` ( `nome` VARCHAR( 200 ) NOT NULL , `endereco` VARCHAR( 200 ) NOT NULL , `complemento` VARCHAR( 200 ) NOT NULL , `referencia` VARCHAR( 200 ) NOT NULL , `bairro` VARCHAR( 200 ) NOT NULL , `id` INT( 9 ) NOT NULL AUTO_INCREMENT PRIMARY KEY ) ENGINE = MYISAM ; até mais qualquer duvida poste ai
  5. rickayron

    Duvida em alterar cadastro

    As variaveis não estão citadas você deve crialas_para "pegar" os dados no modulo get ou post não sei qual usa por isso deisso para voce até mais
  6. esse é todo o codigo, não há javascript adicionado, pois se ouver pode ser isso , dependendo do navegar algumas funçoes do java script causam efeitos inesperados, ex como a pagina ficar desconfigurada e perder a interatividade com a internet até mais
  7. use o switch case1 2 .. ate o fin ele é similar ao if porem é proprio para uma "decisao" de varias posibilidades
  8. rickayron

    Duvida em alterar cadastro

    Olá fiz algumas alterações veja se funciona ai if(empty($ativo)){ echo "Selecione Ativo ou Inativo! <input type='button' value='voltar' onclick='history.back();'>"; } else{ $altera = mysql_query("UPDATE tb_formulario SET func_descricao='$nome_func', func_email='$email_func', func_telefone='$telefone_func', func_data_entrada_cds='$data_entrada_cds_func', func_login='$login_func', func_senha='$senha_func', func_ativo='$ativo' WHERE func_cod='$get'"); $altera = mysql_query($update); if($altera == true){ echo "<script type=text/javascript>alert('Dados de $nome_func alterados com sucesso'); laction.href='formulario_funcionario.php'; </script>"; } else{ echo "<script type=text/javascript>alert('Não foi possível alterar os dados de $nome_func, consulta $altera;); window.history.go(-1); </script>"; } } até mais
  9. rickayron

    Multiplicando numero

    o php normalmente so reconhece casas decimais apos o ponto 1.8 no caso de digitar 1,8 ele enchergará apenas o 1 para contornar isso voce pode formtar o numero do jeito que substitui o . pela , ou configurar o ini para enchegar a , como uma casa decimal ate mais
  10. rickayron

    Quick report

    se caso você já pegar os medicamentos na consulta voce pode soma-los com o delphi ex: sua consulta retorno medicamentos e retirada meditamentos tipo string e retirada integer use o for For contar:=1 to Formulario.adoconsulta.recordCount do begin Somar := Somar + Formulario.adoconsultaCampo.asinteger; end; soma ira retornar o total de todos os produtos buscados no relatorio
  11. A minha DLL foi criada no C++Builder e preciso usa-la no delphi. Essa dica é para uma DLL criada no delphi. Não é o meu caso. Mas obrigado pela atenção. Fico espenrando outras dicas. a criaçao de dll é para exportar determinados codigos em linguagens para serem usadas em outras linguagens nesse caso não há diferente uso uma do vb no delphi nessa mesma sintese ate mais
  12. ola de uma olhada nesse post talvez te ajude. http://www.devmedia.com.br/articles/viewcomp.asp?comp=7902 ate mais
  13. vamos fazer uma analize do seu serviço cliente fazer o pedido necessita de segurança então precisa de login, tabelas Produtos { armazena as opçoes de escolha do cliente } Cliente { dados do usuario (nome,endereço,bairro,cep,complemento,referencia,cidade,senha,login,dataNascimento)} Pre_pedidos {o pedido do cliente não aprovado pelo vendedor} pedidos {pedido aprovado e que esta sendo tratado } vendas { pedidos efetuados com sucesso } há varias coisas a se agendamento de hororio para entrega do serviço, e mais uma coisa qual seu nivel em php dependendo do seu nivel vai ser demorado até mais boa sorte
  14. Ola atualmente precisei usar uma sql para somar o valor mas como recuperar essa por sql comando sql 'select sum(Ven_valor) as Valor from Vendas where month(Ven_data) =' + Edit1.text; para recuperar as outras sqll, eu adiciono os campos no compomente adoquery e uso a sinteze do elemento conexao.consultaNomecampo.value; mas nesse caso eu criando uma soma e nomeando ela mas como recuperar esse valor no delphi obs.: usar o laço para somar os valores pode prejudicar o desempenhoi do sistema pois irei buscar registros desnecessarios a todo momento. obrigado
  15. rickayron

    Ajuda na listbox

    o ideal seria você ter um parametro certo de desconto exemplo 10% assim iria descontar 10 % do valor voce pode adicionar um campo para isso ao clicar em determiando produtro irar buscar o valor e descontar a margem de desconto se caso for outra sua duvida eu não entendir
  16. É possivel, mas vai exigir tempo, paciência e muito estudo O processo de gravação da voz não é complicado. O problema começa quando você tem que reconhecer uma palavra falada, pois há diferenças entre a entonação, intervalos, timbre de voz, tipo de microfone utilizado, ruido, etc... Algum material para análise: Resumo da adição de síntese de voz e recursos de reconhecimento de fala em aplicações Delphi usando o Microsoft Speech API (SAPI). http://translate.google.com.br/translate?h...%3Dpt%26tl%3Den Um projeto pronto que voce pode pedir informações http://200.169.53.89/download/CD%20congres...1-09-110822.pdf abraço obrigado jhonas recolhir o material e futurante irei por este caminho mas antes devo terminar a minha aplicaçao que já ta mindando dor de cabeça o suficiente; irei terminar para sim depois iniciar os estudos nessa area mas gostei muito do assunto achei que so seria possivel com c/c++ ate mais
  17. você pode os controles de fuxo switch -> para um fuxo onde possui varias possibilidades if while for e etc; exemplo este exemplo esta pegando a variavel letra por method get e esta comparando se a letra pega é igual a ou não $letra=trim($_GET['letra']); if ($letra == 'o'){ echo "o texto possui a vogal o"; exit; //sai da execuçao do escrit sem terminar o mesmo }else{ echo "o texto não possui a letra o"; } voce poderar verificar tambem se uma palavra ou um texto possui a letra o ou um outro caracter qualquer nessas opçoes poder utilizar a funçao ereg exemplo simples com o explode $texto=trim($_GET['text']); $texto_verificado = explode('o',$texto); if (empty($texto_verificado[1]){ echo "o texto não possui a letra o"; }else{ echo "o texto possui a letra o"; } ?> o explode retorna um array ate mais
  18. Ola queria saber se é possivel em delphi criar um sistema para reconhecimento de palavras ou melhor dizendo um atendimento eletronico onde o cliente fala seu pedido e o sistema processa dentro dos limites opçoes fornecidas pelo sistema pois seria complicado um sistema entender tudo que um ser humano "cliente" falar pois nem o atendente consegue.
  19. resolvido soluçao você estava como sempre jhonas mas apos eu usar o mesmo procedimentos dos outros os dados do cliente desaparecia pois trocava as instruçoes sql usei um outro componente do ado o adocommand ele insere sem limetis e sem erros obrigado resolvido
  20. a tabela que uso para registrar não contem nenhum compo ligado a ela contem alguns campos ligados a tabela cliente que não é usada nessa query, com isso agora acontece com todas as minhs inserçoes a priemeira funciona mas a segunda gera esse ADOQuery_inserir_prepedido : CommandText does not return a result set; o que posso fazer contornar isso ate mais
  21. Olá estou com um problema chato no delphi estou usaro o banco acess, adoquery e tambem teste com adodataset para inserir dados na base a primeira inserção ocorre corretamente mas a segunda gera um erro ADOQuery_inserir_prepedido : CommandText does not return a result set; está indicando não ser possivel retornar dados atraves deste provedor alguém poderia min uma luz delphi 7] acess 2003 //conecxao com o banco DataModule2.ADOConnection1.Open; if DataModule2.ADOConnection1.Connected = False then begin DataModule2.ADOConnection1.Connected := True; end; //tabela para inserção // DataModule2.ADOQuery_inserir_prepedido.open; if DataModule2.ADOQuery_inserir_prepedido.Active = False then begin DataModule2.ADOQuery_inserir_prepedido.Active := True; end; DataModule2.ADOQuery_inserir_prepedido.close; DataModule2.ADOQuery_inserir_prepedido.SQL.Text := 'insert into PrePedidos(Ped_descricao, Ped_obs, Cli_id, Ped_valor, Ped_pagamento, Ped_acrescimo, Ped_desconto, Ped_total) values(:Quan, :ob, :cod, :Val, :Pag, :Acre, :Des, :Tot)'; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('cod').Value := DBEdit15.Text; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Quan').Value := des; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Ob').value := Obs; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('val').value := Valor; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Des').Value := Desconto; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Acre').Value := Acrescimo; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Tot').Value := Total; DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Pag').Value := Pagamento; DataModule2.ADOQuery_inserir_prepedido.ExecSQL; ShowMessage('O pedido foi acrecido com sucesso');
  22. Voce pode usar cada uma das fun~ções independentemente Exemplo: procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin if Button = nbFirst then begin // comandos end; if Button = nbPrior then begin // comandos end; if Button = nbNext then begin // comandos end; if Button = nbLast then begin // comandos end; if Button = nbInsert then begin // comandos end; if Button = nbDelete then begin // comandos end; if Button = nbEdit then begin // comandos end; if Button = nbPost then begin // comandos end; if Button = nbCancel then begin // comandos end; if Button = nbRefresh then begin // comandos end; end; abraço obrigado ...
  23. estive procurando pelo google mas nada achei sobre o DBNavigator1 queria saber se é possivel indenficar os seus eventos atraves do onclick ex: no evento onclick engloba todas as funçoes mas eu indenticar a ação de insersao toda vez que for inserir executar uma inserção a parte é possivel
×
×
  • Criar Novo...