fernando_vip

Boa tarde amigo, você está certo, criar uma tbl por dia não será muito aconselhável, se pensarmos, por exemplo, no uso deste programa durante 03 anos. A primeira coisa que você deve ter em mente ao iniciar um programa é a necessidade da empresa que o usará, bem como comissões, fornecedores, cadastro de clientes, etc, tmb no relacionamento destas tabelas, tamanho ideal para o uso correto do DB, emfim são várias coisas a serem consideradas. Quanto a abrobinha não se preocupe, qual de nós ainda não as falamos???? Qualquer dúvida faça como todos nós, POSTE-AS AQUI !!!! :D

Bom dia, Desculpa a demora é meu modem deu pau ontem, mas vamos lá. O que eu quero é o seguinte, qr que meu edit busque dentro da minha tbl por duas instâncias, ou seja, busca por data e total do mês, contudo não consigo fazer a ligação do tbutton com o form de relatório e tmb acho que meu sql não está lá estas coisa, no sql do tquery eu coloquei assim: SELECT* FROM CAD_CLIENTES O que posso fazer para melhorar este relatório?

Olá, Estou tentando fazer a conexao de um TButton com o meu form de relatório, contudo não consigo, você pode ajudar? Eis os códigos: Do meu form de consulta: unit Unt_consulta; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TFrm_Consulta = class(TForm) Label1: TLabel; Edit1: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Frm_Consulta: TFrm_Consulta; implementation uses Unt_RelCartao; {$R *.dfm} procedure TFrm_Consulta.BitBtn2Click(Sender: TObject); begin Edit1.Clear; end; procedure TFrm_Consulta.BitBtn3Click(Sender: TObject); begin Close; end; procedure TFrm_Consulta.BitBtn1Click(Sender: TObject); begin Frm_RelCartao:= TFrm_RelCartao.Create(Self); Frm_RelCartao.Query1.Close; Frm_RelCartao.Query1.AsInteger := StrToInt(Edit1.text); Frm_RelCartao.Query1.Open; Frm_RelCartao.Query1.Close; Frm_RelCartao.Query1.Open; Frm_RelCartao.Query1.Preview; end; end. Do meu form de relatório: unit Unt_RelCartao; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables; type TFrm_RelCartao = class(TForm) DataSource1: TDataSource; Query1: TQuery; QuickRep1: TQuickRep; QRDBText1: TQRDBText; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; private { Private declarations } public { Public declarations } end; var Frm_RelCartao: TFrm_RelCartao; implementation {$R *.dfm} end. Aguardo

Opa, Entendi sim, vou testar e qualquer dúvida, vou dá um de de chato d novo beleza??? Obrigado pela força. Abraços

Como posso fazer isso, a criação dos forms em tempo de execução?

BOM DIA----d novo ???? rs SEI QUE ATÉ INCOMODO MAS COMO AQUI É O MEU PORTO SEGURO, RS, BRINCADEIRAS A PARTE, AINDA ESTOU TRABALHANDO NAQUELE PROJETO E ENFIM ESTOU COMEÇANDO A ENTENDER O QUICK, CONTUDO, DEPOIS QUE MANDEI COMPILAR, COM SELEÇÃO DE APENAS UM CAMPO NA TABELA, O PROJETO DÁ OS SEGUINTES ERROS: [Error] SCVC.dpr(16): Identifier expected but 'BEGIN' found [Error] SCVC.dpr(17): Undeclared identifier: 'Application' [Error] SCVC.dpr(17): Missing operator or semicolon [Error] SCVC.dpr(18): Missing operator or semicolon [Error] SCVC.dpr(18): Undeclared identifier: 'TFrm_Entrada' [Error] SCVC.dpr(18): Undeclared identifier: 'Frm_Entrada' [Error] SCVC.dpr(19): Missing operator or semicolon [Error] SCVC.dpr(19): Undeclared identifier: 'TFrm_sobre' [Error] SCVC.dpr(19): Undeclared identifier: 'Frm_sobre' [Error] SCVC.dpr(20): Missing operator or semicolon [Error] SCVC.dpr(20): Undeclared identifier: 'TFrm_Visa' E O CÓDIGO DO PROJETO É ESTE: program SCVC; uses Forms, Unt_Entrada in 'Unt_Entrada.pas' {Frm_Entrada}, Unt_Sobre in 'Unt_Sobre.pas' {Frm_sobre}, Unt_Visa in 'Unt_Visa.pas' {Frm_Visa}, Unt_Master in 'Unt_Master.pas' {Frm_Master}, Unt_American in 'Unt_American.pas' {Frm_American}, Unt_Cadastro in 'Unt_Cadastro.pas' {Frm_Cadastro}, {$R *.res} begin Application.Initialize; Application.CreateForm(TFrm_Entrada, Frm_Entrada); Application.CreateForm(TFrm_sobre, Frm_sobre); Application.CreateForm(TFrm_Visa, Frm_Visa); Application.CreateForm(TFrm_Master, Frm_Master); Application.CreateForm(TFrm_American, Frm_American); Application.CreateForm(TFrm_Cadastro, Frm_Cadastro); Application.Run; end.

Bom dia, Fiz um programinha de cadastro de vendas a cartão e gostaria de implementar nele um relatório com consulta por data e um relatório de total de vendas por mês, mas eu nunca mexi no quick e gostaria de uma ajuda. Uso somente uma tabela que tem estes dois campos. Falow

Olá, Obrigado pela ajuda, mas eu consegui resolver sosinho. brigadu

Olá, Eis os erros: [Fatal Error] Unt_Entrada.pas(46): File not found: 'Unt_Relatorio.dcu' [Pascal Error] Unt_Entrada.pas(1): Unable to invoke Code Parameters due to errors in source code

Bom dia, Estou fazendo um programinha para cadastro de vendas com cartões de crédito e iniciei o relatório, contudo qd dou F9 ele dá um erro e me diz que não consegue achar o arqui .dcu do mesmo, alguém pode me ajudar, eis o código: Do form relatório: unit Unt_Rel; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QuickRpt, QRCtrls, DB, DBTables, ExtCtrls; type TFrm_Rel = class(TForm) QuickRep1: TQuickRep; Table1: TTable; QRLabel1: TQRLabel; private { Private declarations } public { Public declarations } end; var Frm_Rel: TFrm_Rel; implementation {$R *.dfm} end. Do projeto: program SCVC; uses Forms, Unt_Entrada in 'Unt_Entrada.pas' {Frm_Entrada}, Unt_Sobre in 'Unt_Sobre.pas' {Frm_sobre}, Unt_Visa in 'Unt_Visa.pas' {Frm_Visa}, Unt_Master in 'Unt_Master.pas' {Frm_Master}, Unt_American in 'Unt_American.pas' {Frm_American}, Unt_Cadastro in 'Unt_Cadastro.pas' {Frm_Cadastro}, Unt_Relatorio in 'Unt_Relatorio.pas' {QR_Cadastro}, Unit1 in '..\Arquivos de programas\Borland\Delphi6\Projects\Unit1.pas' {Frame1: TFrame}, Unt_Rel in 'Unt_Rel.pas' {Frm_Rel}; {$R *.res} begin Application.Initialize; Application.CreateForm(TFrm_Entrada, Frm_Entrada); Application.CreateForm(TFrm_sobre, Frm_sobre); Application.CreateForm(TFrm_Visa, Frm_Visa); Application.CreateForm(TFrm_Master, Frm_Master); Application.CreateForm(TFrm_American, Frm_American); Application.CreateForm(TFrm_Cadastro, Frm_Cadastro); Application.CreateForm(TQR_Cadastro, QR_Cadastro); Application.CreateForm(TFrm_Rel, Frm_Rel); Application.Run; end.

Boa tarde, Um caso que as vezes, por descuido, nos enrrolamos . Mas como aqui tudo é compartilhado, ai vai: procedure RoundDecimal(var AValue; double; Const ADecimal; integer); var strValue : string begin strValue:=FloatToStrF(AValue,ffFixed.18,ADecimal); AValue:= StrToFloat(strValue); end

Olá você já tentou alterá-lo diretamente no ADO???

Olá, Se não me falha a memória é isso mesmo, pois ela fica alocada na memória quando a variável é carregada pelo programa.

Bom dia, Basicamente temos que ter em mente que um programa não se inicia no editor já mandando ver nos códigos, mesmo porque este tipo de programação torna o o programa lento e de difícil compreensão, no caso de uma posterior mudança no código-fonte. O programa inicia-se com uma elaboração lógica que chamamos de algoritmo. Em portugol esta elaboração algorítmica torna-se mais fácil e prazerosa. Mas como tudo começa do zero, aí vamos nós: OS: espero que gostem !!! ESTRUTURAS BÁSICAS DO PORTUGOL: Existem 03 estruturas básicas em um algoritmo: 1- Estrutura seqüencial; 2- Estrutura condicional e, 3- Estrutura de repetição. 01 - Estrutura Seqüencial: Esta estrutura é executada na forma que é escrita, ou seja, de cima para baixo: MODELO: Comando1 Comando2 Comando3 ...... Comando 100 EXEMPLO: Vá trabalhar Vá Descansar Vá passear .... Vá dormir 02 – Estrutura Condicional Determinada pelas palavras SE e FIM SE, esta pode ser SIMPLES ou COMPOSTA e executa determinado grupo de comandos se certa condição for falsa ou verdadeira Estrutura condicional simples: Se (condição) ENTÃO (bloco de comandos 1) FIM SE Bloco de comandos 2 Independentemente da condição ser verdadeira ou não, o bloco FIM SE será executado EXEMPLO: SE está cansado ENTÃO và descansar FIM SE Vá passear Continuaremos na próxima ok?

Bom Dia!!! estou usando o Xoops e na instalação do mesmo não ocorreu nenhum erro, contudo ao acessar o portal (no Apache) ocorre o seguinte erro: Parse error: syntax error, unexpected T_CLONE, expecting T_STRING in c:\Apache\Apache\htdocs\xoops\html\kernel\object.php on line 528 O código na qual ele se refere é este: function &clone() { $class = get_class($this); $clone = new $class(); foreach ($this->vars as $k => $v) { $clone->assignVar($k, $v['value']); } // need this to notify the handler class that this is a newly created object $clone->setNew(); return $clone; } Alguém pode ajudar????

Ainda não deu certo, o que deve ser então, erro no script da página????

Ainda continua o mesmo erro de antes!!! O que pode ser???

mas eu já fiz isso tmb e não deu certo

Olá!!! estou usando para estudo o sistema de portal oscomerce-Brasil e, Simplesmente não consigo conectar o banco de dados. eu criei o db mais as tabelas pedidas porém, quando vou conectar ele dá o seguinte erro: Warning: mysql_pconnect() [function.mysql-pconnect]: Unknown MySQL server host 'mysql' (11001) in c:\Apache\Apache\htdocs\COMERCE\admin\includes\functions\database.php on line 17 Unable to connect to database server! O código da página é este: <?php /* $Id: database.php,v 1.11 2001/11/17 00:37:43 hpdl Exp $ The Exchange Project - Community Made Shopping! http://www.theexchangeproject.org Copyright © 2000,2001 The Exchange Project Released under the GNU General Public License */ function tep_db_connect() { global $db_link; if (USE_PCONNECT == true) { @$db_link = mysql_pconnect(MySQL, Cliente, DB_SERVER_PASSWORD); } else { @$db_link = mysql_connect(DB_SERVER, DB_SERVER_USERNAME, DB_SERVER_PASSWORD); } if ($db_link) @mysql_select_db(comerce); return $db_link; } function tep_db_close() { global $db_link; $result = mysql_close($db_link); return $result; } function tep_db_error ($query, $errno, $error) { die('<font color="#000000"><b>' . $errno . ' - ' . $error . '<br><br>' . $query . '<br><br><small><font color="#ff0000">[TEP STOP]</font></small><br><br></b></font>'); } function tep_db_query($db_query) { global $db_link; if (STORE_DB_TRANSACTIONS == 'true') { error_log("QUERY " . $db_query . "\n", 3, STORE_PAGE_PARSE_TIME_LOG); } $result = mysql_query($db_query, $db_link) or tep_db_error($db_query, mysql_errno(), mysql_error()); if (STORE_DB_TRANSACTIONS == 'true') { $result_error = mysql_error(); error_log("RESULT " . $result . " " . $result_error . "\n", 3, STORE_PAGE_PARSE_TIME_LOG); } return $result; } function tep_db_fetch_array($db_query) { $result = mysql_fetch_array($db_query); return $result; } function tep_db_num_rows($db_query) { $result = mysql_num_rows($db_query); return $result; } function tep_db_data_seek($db_query, $row_number) { $result = mysql_data_seek($db_query, $row_number); return $result; } function tep_db_insert_id() { $result = mysql_insert_id(); return $result; } function tep_db_free_result($db_query) { $result = mysql_free_result($db_query); return $result; } function tep_db_fetch_fields($db_query) { $result = mysql_fetch_field($db_query); return $result; } ?>

Olá pessoal!!! estou com um pro, qd coloco uma include dentro de uma tag div e executo, ao voltar para o Dream, ela simplesmente altera todo o meu layout. Tem como evitar este erro???? abrços

Olá galera!!!! Estou com um pro no Dreamweaver, deixe-me explicar: Estou trabalhando numa determinada página utilizando várias includes numa index , porém qd eu coloco da segunda em diante ela coloca um espaço em branco amias, fazendo com q minha pagona na vizualização no navegador seja meia q terrível, alguém pode ajudar??? Será erro do Dream?? ou meu??

Olá Pessoal !!! queria Saber como evitar o delay num filme com fotos, deixe-me explicar: Coloquei algumas fotos, na horizontal, alinhadas e fiz com que elas passem pela a área do Flash, porém qd ela, a faixa de fotos, acaba o flash dá um delay no filma para que este volte a iniciar a apresentação da faixa, como fazer com que ele reinicie o filme o delay??? falow Hospedagem ???

Olá Pessoal!!! Este é para aqueles, que como eu, estão começando: Atualização de página Eis o código: valeu galera fui!!!!

Bom dia Pessoal!!! Estou procurando um script para um botão de adição de fotos numa página, tipo daqueles usados para carregar avatar, so que no caso usarei para adicionar fotos. alguém conhece ou pode ajudar a desenvolver?? falow

será que você poderia ser um pouco mais claro??? Como você percebeu sou totalmente iniciante