Jump to content

dan_visualdm

Members
  • Content count

    721
  • Joined

  • Last visited

Community Reputation

0 Comum

4 Followers

About dan_visualdm

  • Rank
    Daniel
  • Birthday 03/17/1986

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    Limeira - SP
  • Interesses
    Web, TI, PHP, Dephi e MySQL

Contato

  • Skype
    atendimento.wm8
  • Site Pessoal
    http://www.wm8.com.br

Recent Profile Visitors

2082614 profile views
  1. dan_visualdm

    Como criar um instalador para o meu projeto em Delphi 7

    inno setup é ótimo! uso ele... dá uma olhada nesse vídeo abaixo, que dá uma base legal... depois faça alguns teste, no geral é bem simples e funcional:
  2. dan_visualdm

    Desabilitar a função OnClick de um SpeedButton

    Consegui resolver. Para desabilitar a função de click no botão: SpeedButton1.OnClick:=OnClick; E depois caso queira habilitar SpeedButton1.OnClick:=SpeedButton1Click; * RESOLVIDO!
  3. dan_visualdm

    Comparar campos de uma tabela

    Consegui fazer da seguinte forma... Mas se alguém tiver uma sugestão mais simples, pois terei que fazer isso para 36 botões diferentes... var a1: string; b1: string; begin a1 := '1'; b1 := 'SIM'; begin with dm.q_config do begin Close; SQL.Clear; SQL.Add('select * from tbl_produtos where id ='+QuotedStr('1')); Open; if (a1 = '1') and (b1 = 'SIM') then begin if (a1 = dm.q_config.fieldbyname('id').AsString) and (b1 = dm.q_config.fieldbyname('bt').AsString) then begin //ativar estiver marcado como sim t1.enabled :=true; end else begin //ativar estiver marcado como não t1.enabled :=false; end; end; end; end; end;
  4. Bom dia amigo, tenho um sistema de venda rápida de fichas. Então tenho as letras e números cadastrados e um produto referente a ela, vamos supor que a pessoa esteja na tela de venda e aperta o número 1 no teclado, então ele imprime uma ficha de água... aperta o número 2 e imprimi a ficha de cerveja e assim por diante. A programação de imprimir fica dentro de speedbuttons mas é ativo pelo FORM , a funçaõ está dentro de OnKeyPress ( if key='1' then SpeedButton1.click; ). Porém agora surgiu a necessidade de desabilitar determinados produtos durante a festa, ou seja, desabilito o botão SpeedButton1 e quando a pessoa apertar 1 no tecado esse botão não retorna nenhuma ação. Tentei fazer uma função SpeedButton1.enabled := false; MAS, com a função está vindo dentro do form OnKeyPress, ainda continua funcionando, independente se o botão está habilitado ou não. PERGUNTA: É possível uma função dentro de um botão que desabilite a função Click que está sendo chamada pelo form?
  5. dan_visualdm

    Comparar campos de uma tabela

    amigo,s bom dia! Estou com um sistema de emissão de fichas mas estou com um problema de ativar itens... (banco de dados: access) Minha tabela: Código | Produto | Ativo 1 Refri Sim 2 Breja Sim 3 Água Não 4 Suco Sim 5 Pastel Não ** O que preciso: Uma função que lê linha por linha e faça assim (no total são 36 códigos diferentes hoje utilizado): Se o codigo 1 estiver SIM no campo ativo então botão Ficha1 do form1 será enable := true caso estiver Não então botão Ficha1 será enable:= false; Se o codigo 2 estiver SIM no campo ativo então botão Ficha2 do form1 será enable := true caso estiver Não então botão Ficha2 será enable:= false; Se o codigo 3 estiver SIM no campo ativo então botão Ficha3 do form1 será enable := true caso estiver Não então botão Ficha3 será enable:= false; e assim sucessivamente... Alguém sabe me ajudar como fazer essa função? Obrigado.
  6. dan_visualdm

    Erro em sistema

    bom dia amigos, percebi também que quando dá esse problema citado acima, a barra de rolagem de dentro do sistema também somem.
  7. dan_visualdm

    Erro em sistema

    Amigos, bom dia! Estou tendo um probleminha num sistema que estou montando pra uso próprio, gostaria de uma ajuda. Em algumas ocasiões quado começo a trabalhar com o sistema as imagens dos botões não carregam, fica apenas um quadradinho em branco conforme imagem a baixo: tem dia que não da esse problema, mas quando dá esse erro ele fica lento e ao tentar cadastrar alguma coisa e salvar ele trava (aparece: Programa não está respondendo). Porém se eu reinicio o computador, volta a funcionar tudo normal. A princípio pensei que fosse o computador, mas quando dá esse erro é só nesse sistema, todo o resto fica normal. Inclusive teste abrir um outro sistema que fiz em Delphi, que é bem mais pesado que esse e tem bastante informações salvas já no BD e ele roda normal. ou Cancelar Fórum iMasters → Programação → Delphi Publicidade O que pode estar acontecendo de errado? Obrigado pela atenção. Abraços.
  8. dan_visualdm

    Problema em script PHP

    olá amigo, bom dia! Acho que não estou conseguindo fazer. Olha, esse mesmo script funciona hoje no painel antigo de hospedagem: www.imobialianca.com.br www.imobialianca.com.br/admin Porém nessa nova hospedagem que é PHP 5.4 funciona só o site o painel ADM não acessa. Tetei fazer as alterações que você faloou, veja por gentileza se ficou certo: <?PHP // ------ create table variable ------ // variables for Netscape Navigator 3 & 4 are +4 for compensation of render errors $Browser_Type = strtok($HTTP_ENV_VARS['HTTP_USER_AGENT'], "/"); if ( ereg( "MSIE", $HTTP_ENV_VARS['HTTP_USER_AGENT']) || ereg( "Mozilla/5.0", $HTTP_ENV_VARS['HTTP_USER_AGENT']) || ereg ("Opera/5.11", $HTTP_ENV_VARS['HTTP_USER_AGENT']) ) { $theTable = 'WIDTH="400" HEIGHT="245"'; } else { $theTable = 'WIDTH="400" HEIGHT="245"'; } //echo $HTTP_ENV_VARS["QUERY_STRING"]; // ------ create document-location variable ------ if ( ereg("php\.exe", $HTTP_SERVER_VARS['PHP_SELF']) || ereg("php3\.cgi", $HTTP_SERVER_VARS['PHP_SELF']) || ereg("phpts\.exe", $HTTP_SERVER_VARS['PHP_SELF']) ) { $documentLocation = $HTTP_ENV_VARS['PATH_INFO']; } else { $documentLocation = $HTTP_SERVER_VARS['PHP_SELF']; } if ( $HTTP_ENV_VARS['QUERY_STRING'] ) { $documentLocation .= "?" . $HTTP_ENV_VARS['QUERY_STRING']; } include("../config.php"); ?> <html> <head> <title><? echo $tsite?></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> A {text-decoration: none} .caixa { font-family: Arial, Helvetica, sans-serif; font-size: 11px; color: #666666; margin: auto; border: 1px solid #333333; } </style> <style fprolloverstyle>A:hover {color: #666666; text-decoration: underline}</style> </head> <body link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0"> <SCRIPT LANGUAGE="JavaScript"> <!-- // ------ check form ------ function checkData() { var f1 = document.forms[0]; var wm = "<?PHP echo $strJSHello; ?>\n\r\n"; var noerror = 1; // --- entered_login --- var t1 = f1.entered_login; if (t1.value == "" || t1.value == " ") { wm += "<?PHP echo $strLogin; ?>\r\n"; noerror = 0; } // --- entered_password --- var t1 = f1.entered_password; if (t1.value == "" || t1.value == " ") { wm += "<?PHP echo $strPassword; ?>\r\n"; noerror = 0; } // --- check if errors occurred --- if (noerror == 0) { alert(wm); return false; } else return true; } //--> </SCRIPT> <html><head> <form action='<?PHP echo $documentLocation; ?>' METHOD="post" onSubmit="return checkData(this)"> <table width="100%" height="100% "border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td align="center" valign="middle" background="<? echo $imglateral; ?>"> <TABLE WIDTH="100%" HEIGHT="100%" CELLPADDING="0" CELLSPACING="0"> <TR> <TD height="4" ALIGN="center" VALIGN="middle" bgcolor="#F48000"> </TD> </TR> <TR> <TD ALIGN="center" VALIGN="middle"><table width="40%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><img src="../images/layout/logo.jpg" width="200" height="154"></td> <td align="center"><table border="0" cellpadding="0" cellspacing="3"> <tr> <td height="10" align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Usuário:</font></td> <td colspan="2"><input name="entered_login" type="text" class="caixa" size="20"></td> </tr> <tr> <td height="10" align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Senha:</font></td> <td colspan="2"><input name="entered_password" type="password" class="caixa" size="20"></td> </tr> <tr> <td colspan="3" align="center"><br> <input style="border:none;" name="logar" value="Entrar" src="../images/layout/enviar.gif" type="image"></td> </tr> </table></td> </tr> </table> <table width="300" border="0" cellpadding="0" cellspacing="2"> <tr valign="top"> <td height="35" colspan="3" align="center"><font size="4" face="Arial, Helvetica, sans-serif"><strong> <? //echo $strLoginInterface; ?> <br> </strong></font><strong><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"> <?PHP // check for error messages if ($message) { echo $message; } ?> </font></strong><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"> </font></td> </tr> </table></TD> </TR> <TR> <TD height="4" ALIGN="center" VALIGN="middle" bgcolor="#F48000"> </TD> </TR> </TABLE> </td> </tr> </table> </form> <SCRIPT LANGUAGE="JavaScript"> <!-- document.forms[0].entered_login.select(); document.forms[0].entered_login.focus(); //--> </SCRIPT></body></head></html> Muito obrigado por estar ajudando, pois preciso mesmo fazer isso funcionar. Abraços.
  9. dan_visualdm

    Problema em script PHP

    Amigo, fiz essa alteração mas nada de funcionar o painel de controle... será que tem como arrumar isso? O que mais eu poderia tentar fazer? Muito obrigado.
  10. dan_visualdm

    Problema em script PHP

    Pessoal, boa noite! Meu problema: Peguei um cliente novo para dar manutenção nos computadores e instalar um sistema meu de imobiliária (programo em Delphi) - PORÉM, esse cliente tem um site e quer trocar de hosepdagem. O site dele é em PHP e Bando de Dados MySQL , só que o script do site dele é daqueles comprados. Pois bem, já fazem mais de 4 anos que ele usa esse site e tem muitos imóveis cadastrados, não quer trocar o site no momento. tentei trocar o site de hospedagem, mas na nova hospedagem não consegui fazer o site rodar (não tenho muitos conhecimentos em PHP). Dentro do FTP tinha o script "cru" que o cara usou para desenvolver, instalei num domínio meu para testar e ver como configura certinho, para na hora que eu for transferir o site do meu cliente, ocorra tudo certo. Pois bem, consegui configurar o banco de dados e fazer a conexão com o site, está funcionando, veja a página de teste: www.meliponariojardim.com.br O PROBLEMA: Para o Painel Admin, fiz a mesma configuração de conexão, porém esse não funciona de forma alguma: www.meliponariojardim.com.br/admin No banco de dados está cadastro para acesso: Usuario: root Senha: ****** Ou se digitar a senha/usuario errado era para falar Dados inválidos. Mas o que parece é que essa página não está conectado ou puxando os dados do BD. Gostaria de saber se alguém pode me ajudar a resolver esse probleminha, ou mesmo se alguém faz esse serviço, quanto cobra? Preciso mesmo resolver isso, e preciso de ajuda, pois não sei como proceder... Agradeço muito se alguém puder dar essa ajuda... A programação da pagina secure.php é: <? $cfgIndexpage = 'index.php'; // page to go to, if login is cancelled // Example: if your main page is http://www.mydomain.com/index.php // the value would be $cfgIndexpage = '/index.php' $admEmail = 'daniel@wm8.com.br'; // E-mail adres of the site administrator // (This is being showed to the users on an error, so you can be notified by the users) $noDetailedMessages = true; // Show detailed error messages (false) or give one single message for all errors (true). // If set to 'false', the error messages shown to the user describe what went wrong. // This is more user-friendly, but less secure, because it could allow someone to probe // the system for existing users. $passwordEncryptedWithMD5 = true; // Set this to true if the passwords are encrypted // with the MD5 algorithm // (not yet implanted, expect this in a next release) $languageFile = 'brazil.php'; // Choose the language file $bgImage = 'bg_lock.gif'; // Choose the background image $bgRotate = false; // Rotate the background image from list // (This overrides the $bgImage setting) /****** Lists ******/ // List of backgrounds to rotate through $backgrounds[] = 'bg_lock.gif'; $backgrounds[] = 'bg_lock2.gif'; $backgrounds[] = 'bg_gun.gif'; /****** Database ******/ $useDatabase = true; // choose between using a database or data as input /* this data is necessary if a database is used */ if ($HTTP_SERVER_VARS["REMOTE_ADDR"] != "186.202.161.13"){ $cfgServerHost = 'example.com.br'; // MySQL hostname $cfgServerPort = ''; // MySQL port - leave blank for default port $cfgServerUser = 'user'; // MySQL user $cfgServerPassword = '*****'; // MySQL password $cfgDbDatabase = 'database'; // MySQL database name containing phpSecurePages table } else { $cfgServerHost = 'example.com.br'; // MySQL hostname $cfgServerPort = ''; // MySQL port - leave blank for default port $cfgServerUser = 'root'; // MySQL user $cfgServerPassword = '*****'; // MySQL password $cfgDbDatabase = 'database'; // MySQL database name containing phpSecurePages table } $cfgDbTableUsers = 'phpsp_users'; // MySQL table name containing phpSecurePages user fields $cfgDbLoginfield = 'user'; // MySQL field name containing login word $cfgDbPasswordfield = 'password'; // MySQL field name containing password $cfgDbUserLevelfield = 'userlevel'; // MySQL field name containing user level // Choose a number which represents the category of this users authorization level. // Leave empty if authorization levels are not used. // See readme.txt for more info. $cfgDbUserIDfield = 'primary_key'; // MySQL field name containing user identification // enter a distinct ID if you want to be able to identify the current user // Leave empty if no ID is necessary. // See readme.txt for more info. /****** Database - PHP3 ******/ /* information below is only necessary for servers with PHP3 */ $cfgDbTableSessions = 'phpsp_sessions'; // MySQL table name containing phpSecurePages sessions fields $cfgDbTableSessionVars = 'phpsp_sessionvars'; // MySQL table name containing phpSecurePages session variables fields /****** Data ******/ $useData = false; // choose between using a database or data as input /* this data is necessary if no database is used */ $cfgLogin[1] = 'sandro'; // login word $cfgPassword[1] = 'sandro'; // password $cfgUserLevel[1] = '1'; // user level // Choose a number which represents the category of this users authorization level. // Leave empty if authorization levels are not used. // See readme.txt for more info. $cfgUserID[1] = ''; // user identification // enter a distinct ID if you want to be able to identify the current user // Leave empty if no ID is necessary. // See readme.txt for more info. $cfgLogin[2] = ''; $cfgPassword[2] = ''; $cfgUserLevel[2] = ''; $cfgUserID[2] = ''; $cfgLogin[3] = ''; $cfgPassword[3] = ''; $cfgUserLevel[3] = ''; $cfgUserID[3] = ''; /**************************************************************/ /* End of phpSecurePages Configuration */ /**************************************************************/ // https support if (getenv("HTTPS") == 'on') { $cfgUrl = 'https://'; } else { $cfgUrl = 'http://'; } // getting other login variables $cfgHtmlDir = $cfgProgDir; if ($message) $messageOld = $message; $message = false; // Create a constant that can be checked inside the files to be included. // This gives an indication if secure.php has been loaded correctly. define("LOADED_PROPERLY", true); // include functions and variables function admEmail() { // create administrators email link global $admEmail; return("<A HREF='mailto:$admEmail'>$admEmail</A>"); } include($cfgProgDir . "lng/" . $languageFile); include($cfgProgDir . "session.php"); // choose between login or logout if ($logout && !($HTTP_GET_VARS["logout"] || $HTTP_POST_VARS["logout"])) { // logout include($cfgProgDir . "logout.php"); } else { // loading login check include($cfgProgDir . "checklogin.php"); } echo $HTTP_GET_VARS["logout"]; ?>
  11. dan_visualdm

    Gerar Pagamentos

    olá! poxa, cara nao consigo de jeito nenhum fazer isso! =//
  12. dan_visualdm

    Gerar Pagamentos

    obrigado amigo! vou testar aqui! bom, vamos lá... fiz algumas alterações aqui, porém está dando um erro que acredito que seje aqui: (meu banco de dados é ACCESS... como ficaria essa parte do código!?) Query.SQL.add('SET AUTOCOMMIT=0;START TRANSACTION'); //Estude transações no banco de dados que está utilizando com as alterações, ficou assim! Var ValorParcela : Double; CodigoVenda : Integer; CodigoCliente: Integer; NumeroParcela: Integer; TotalParcelas: Integer; DataParcela : TDateTime; begin ValorParcela := 800/TotalParcelas; Query.SQL.Clear; Query.SQL.add('SET AUTOCOMMIT=0;START TRANSACTION'); //Estude transações no banco de dados que está utilizando Try Query.ExecSQL; except MessageDLG('Falha grave! Abortando...', mtError, [mbOK], 0); exit; end; for NumeroParcela := 1 to NumeroParcela do begin DataParcela := StrToDate('15/05/2011'); //Bole uma forma de gerar a data para cada parcela... Query.SQL.Clear; Query.SQL.add('INSERT INTO tbl_parcelas'); Query.SQL.add('(CodigoVenda, CodigoCliente, NumeroParcela, ValorParcela, DataVencimento)'); Query.SQL.Add('VALUES'); Query.SQL.Add('(:PVenda, :PCliente, :PParcela, :PValor, :PData);'); Query.Parameters.ParamByName('PVenda').Value := CodigoVenda; Query.Parameters.ParamByName('PCliente').Value := CodigoCliente; Query.Parameters.ParamByName('PParcela').Value := NumeroParcela; Query.Parameters.ParamByName('PValor').Value := ValorParcela; //Não sei sei existe o campo asDouble para ParamByName, tente asFloat se necessário Query.Parameters.ParamByName('PData').Value := DataParcela; ShowMessage(Query.SQL.Text); //Só para conferir como ficou a situação... try Query.ExecSQL; except Beep; MessageDLG('Falha ao gerar a parcela ' + DateToStr(DataParcela), mtError, [mbOk], 0); end; end; Query.SQL.Clear; Query.SQL.add('COMMIT;'); //Estude transações no banco de dados que está utilizando Try Query.ExecSQL; except MessageDLG('Falha grave! Abortando...', mtError, [mbOK], 0); exit; end; MessageDLG('Fim da Geração de parcelas!', mtInformation, [mbOK], 0); end; Quanto ao erro que aparece ao clicar no botão GERAR (é dentro desse botão que coloquei esse código) Como posso arrumar isso? Obrigado mais uma vez pelas ajudas e pela paciência também!
  13. dan_visualdm

    Gerar Pagamentos

    Nossa amigo, não consigo entender e nem fazer de jeito nenhum! To tendo que cadastrar parcela por parcela (uma por uma) olha como está: Por favor, me ajude a fazer gerar automaticamente isso... preciso mto msm e não consigo entender como fazer :( Se puder me ajudar agradeço msm, de coração! valeww
  14. dan_visualdm

    Gerar Pagamentos

    olá amigo! tentei copiar e colcar esse código que você postou no delphi pra eu testar e ir modificando para o que eu preciso... mas quando tento copilar da erro na linha dataVencimento := ('26/' + IntToStr(MonthOf(now) + I) + '/2011'); depois mostra os erros: [Error] u_cad_parcelas.pas(50): Undeclared identifier: 'MonthOf' [Error] u_cad_parcelas.pas(51): Undeclared identifier: 'SQL' [Error] u_cad_parcelas.pas(51): Undeclared identifier: 'Cliente' [Error] u_cad_parcelas.pas(51): Incompatible types: 'String' and 'Extended' [Error] u_cad_parcelas.pas(51): Incompatible types: 'String' and 'Integer' [Error] u_cad_parcelas.pas(55): ';' expected but '.' found [Error] u_cad_parcelas.pas(57): Declaration expected but end of file found desculpe esse monte de perguntas, mas não estou entendendo isso e nem conseguindo fazer... e realmente preciso muito disso! :( obrigado pela atenção e ajuda!
  15. dan_visualdm

    Gerar Pagamentos

    olá amigo... desculpa a pergunta... mas vamos lá já fiz essa tabela.. mas como faço pra qjuando clicar no botão gerar parcelas... o sistema gerar automaticamente essas parcelas e já gravar todas elas no BD? obrigado.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.