fernando_vip

oa tarde pessoal sou novo no estudo da programação e estou enfrentando problemas ao tentar conectar ao bando de dados via php, meu script: <?php $servidor = "localhost"; $usuario = "root"; $banco = "teste"; $senha = ""; $conmysql = mysql_connect($servidor,$usuario,$senha); $db = mysql_select_db($banco, $conmysql); if ($conmysql && $db){ echo "Parabens!! A conexão ao banco de dados ocorreu normalmente!"; } else { echo "não foi possivel conectar ao banco MYSQL"; } ?> mas no navegador, em localhost, apresenta o erro: http://i65.tinypic.com/200yadz.jpg lembrando que uso o wampserver. alguém sabe como resolver isso?

opa fiz o indicado no tutor ae e gerou outro erro:

bem o caminho está setado sim em library, estou usando o windows seven 32bits, testei com outro db aki e mesmo erro, será que é incompatibilidade com nosso ruindows seven?

boa tarde delphianos passando aki para mais uma dúvida, estou tentando fazer a conexão do meu DB em firebird2.1 com o meu Delphi 2010 contudo na hora da ativação da conexão ele retorna o seguinte erro: Como posso resolver isso, já que o serviço firebird está rodando e a dll que ele não está encontrando está na pasta indicada? Grato Márcio

opa vlw ae pela força, achei que poderia mudar algo, mas legal que ficou bom, como disse é parte do DER na implementação vou colocar aki as telas sim, vou fazer o modelo lógica entidade/relacionamento pra verificar erros e possíveis redundâncias para correção e, enfim, codar hehehe vamos que vamos

boa tarde delphianos estou fazendo um curso e o problema do exercício é o seguinte, tenho que criar um Modelo Entidade Relacionamento de uma loja de Games e Informática, que foi o que eu escolhi já que tenho afinidade com os dois ítens rs, inicialmente tentei idealizar como seria o funcionamento da minha loja: -tenho um estoque que tem que controlar as entradas e saídas, lembrando que se o produto for vendido e o mesmo chegar variado ao cliente o mesmo será devolvido e não poderá entrar novamente no estoque; -tenho que controlar os fornecedores; -tenho que fornecer os produtos a clientes; -tenho que controlar minhas contas a pagar, com relação às duplicatas geradas por meus fornecedores e tenho que controlar as contas que irei receber dos meus clientes; -tenho que controlar meu caixa. com isso consegui identificar algumas entidades no meu projeto: PRODUTOS, CLIENTES, CAIXA, CONTAS A PAGAR, CONTAS A RECEBER, FORNECEDORES E CAIXA; levando em conta que meu produto é fornecido por alguém e que este produto pode ser games ou informática identifico outra entidade necessária relacionada ao meu produto TIPO DE PRODUTO com relação ao estoque posso controlar usando uma tabela de movimento no estoque entidade MOVIMENTO e por fim o controle das entidades relacionadas ao financeiro, com isso colocar uma entidade controloando outras CONTAS e TIPOCONTA então tudo relacionado, acho que vou conseguir vender, comprar, controlar meu estoque, caixa e contas. se alguém poder me dizer se estou esquecendo de algo ou colocando dmais dá um help ae :) Grato

estou desenvolvendo um site e gostaria de saber ocmo usar um sistema de links dinamicos carregando somente determinada div da pag, ex uma pag dividida em 03divs, um topo um menu e uma area de conteudo, gostaria de carregar dinamicamente somente a div conteudo. se puderem ajudar

Opa pessoal um amigo me ajudou neste problema o cod da unit ficou assim: procedure TForm1.BitBtn1Click(Sender: TObject); var sena: integer; Lista: TList; begin Randomize; ListBox1.Items.Clear; Lista := TList.Create; try while Lista.Count < 15 do begin repeat sena := Random(100) until Lista.IndexOf(Pointer(sena)) = -1; Lista.Add(Pointer(sena)); ListBox1.Items.Add(IntToStr(sena)); end; finally Lista.Free; end; end; valeu pessoal;)

boa noite Boa, Estou com exercício que deve gerar 15 Nº aleatórios entre 01 e 100 e mostrar o resultado num memo ou listbox, eu fiz usando um randomize e um laço for..to..do e o cod da minha unit é este: procedure TForm1.BitBtn1Click(Sender: TObject); Var sena : Integer; numero : array[1..15] of integer; Begin ListBox1.Items.Clear; Randomize; for sena := 1 to 15 do Numero[sena] := Random(100); ListBox1.Items.Add(inttostr(numero[sena])); contudo ele só gera 7 numeros repetidos e na mesma linha o q posso faer para resolver isso? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; ListBox1: TListBox; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); Var sena : Integer; numero : array[1..15] of integer; Begin ListBox1.Items.Clear; Randomize; for sena := 1 to 15 do Numero[sena] := Random(100); ListBox1.Items.Add(inttostr(numero[sena])); end; end.

Bom dia pessoal, Estou com um problema aki no meu ruimdows xp sp2, tenho instalado o vmware e to tentando instalar o ubuntu 7.10, mas no inicio da instalação ou o vm reinicia ou dá erro no kernel, como se ele estivesse comrrompido, o q fazer ? Grato

Boa tarde Pessoal Sou iniciante em delphi como muitos por ai, tem pouco tempo q comecei a estudar, mas um exemplo que me ajudou um pouco foi o da calculadora, com ele pude entender sobre procedures e sobre o uso de operadores, além do uso de passagem de parâmetro por valor. Então vamos por a mão na massa:  Crie um novo projeto no delphi e altere: form Name : FrmCalculadora Caption: Calculadora Salve tudo, a unit como UCalculadora e o Project como Calculadora ;) Adicione 3 Labels (Guia Standart) 2 Edtis(Guia Standart) e 4 SpeedButtons(Guia Additionalt) e altere as propriedades: Label1 Label2 Label3 Name: LblValor1 Name:LblValor2 Name:LblResultado Caption:Valor 1: Caption:Valor 2: Caption: LblResultado Altere a propriedade font como quiser e a propriedade transparent para true Edit1 Edit2 Name:EdtValor1 Name:EdtValor2 Text: Em branco Text: Em branco SpeedButton1 SpeedButton2 SpeedButton3 Name: SpdSomar Name:SpdMenos Name:SpdMultiplicar Caption: + Caption: - Caption: x SpeedButton4 Name: SpdDividir Caption: / Altere a propriedade Flat de todos os SpeedButtons para true; A aparência do form deverá está parecidada como esta: Agora os Procedimentos, explicarei o do SpdSomar e vocês tentem montar os outros para teste de aprendizado, rs, no final estará o cód da unit  Clique duas vezes no SpdSomar, para acessar o evento OnClick e digite: procedure TFrmCalculadora.SpdSomarClick(Sender: TObject); var Num1, Num2, Total : Integer; // declarando as variáveis begin Num1 := StrToInt(EdtValor1.Text); Num2 := StrToInt(EdtValor2.Text); //(1) Somar(Num1, Num2, Total);//aqui chamamos a sub-rotina q ainda será implementada LblResultado.Caption := IntToStr(Total);//(2) EdtValor1.Text := '';//aqui limpamos o valor do edit EdtValor2.Text := ''; //aqui limpamos o valor do edit EdtValor1.SetFocus;//aqui setamos o edit end; (1) como as variáveis são do tipo inteiro (Num1, Num2, Total : Integer) e os valores digitados nos edit são do tipo string devemos converter os dados para inteiro (StrToInt) o valor Text dos edits e armazenar na variável reponsável pelo edit  (2) O LblResultado exibirá o resultado da nossa operação, contudo ele só pode exibir dados do tipo string e como o resultado é do tipo inteiro devemos converte-lo para string (IntToStr)  Agora implementaremos a sub-rotina que foi chamada na procedure do SpdSomar, adicione o código em negrito exatamente ond ele está: ...... SpdSomar: TSpeedButton; procedure SpdSomarClick(Sender: TObject); procedure Somar(N1, N2 :Integer; var Resultado :Integer); private { Private declarations } ... Posicione o cursos logo abaixo do evento do SpdSomar e add o cód abaixo: procedure TFrmCalculadora.Somar(N1,N2:Integer; var Resultado:Integer); begin Resultado := N1 + N2 end; Salve tudo e pressione F9 para testar, se tudo estiver certo ...  O código da unit inteira unit UCalculadora; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls; type TFrmCalculadora = class(TForm) LblValor1: TLabel; LblValor2: TLabel; EdtValor1: TEdit; EdtValor2: TEdit; LblResultado: TLabel; SpdMeltiplicar: TSpeedButton; SpdDividir: TSpeedButton; SpdMenos: TSpeedButton; SpdSomar: TSpeedButton; procedure SpdSomarClick(Sender: TObject); procedure Somar(N1, N2 :Integer; var Resultado :Integer); procedure SpdMenosClick(Sender: TObject); procedure Menos(N1, N2 :Integer; var Resultado :Integer); procedure SpdMeltiplicarClick(Sender: TObject); procedure Multiplicar(N1, N2 :Integer; var Resultado :Integer); procedure SpdDividirClick(Sender: TObject); procedure Dividir(N1, N2 :Integer; var Resultado :Integer); private { Private declarations } public { Public declarations } end; var FrmCalculadora: TFrmCalculadora; implementation {$R *.dfm} procedure TFrmCalculadora.SpdSomarClick(Sender: TObject); var Num1, Num2, Total : Integer; begin Num1 := StrToInt(EdtValor1.Text); Num2 := StrToInt(EdtValor2.Text); Somar(Num1, Num2, Total); LblResultado.Caption := IntToStr(Total); EdtValor1.Text := ''; EdtValor2.Text := ''; EdtValor1.SetFocus; end; procedure TFrmCalculadora.Somar(N1,N2:Integer; var Resultado:Integer); begin Resultado := N1 + N2 end; procedure TFrmCalculadora.SpdMenosClick(Sender: TObject); var Num1, Num2, Total : Integer; begin Num1 := StrToInt(EdtValor1.Text); Num2 := StrToInt(EdtValor2.Text); Menos(Num1, Num2, Total); LblResultado.Caption := IntToStr(Total); EdtValor1.Text := ''; EdtValor2.Text := ''; EdtValor1.SetFocus; end; procedure TFrmCalculadora.Menos(N1,N2:Integer; var Resultado:Integer); begin Resultado := N1 - N2 end; procedure TFrmCalculadora.SpdMeltiplicarClick(Sender: TObject); var Num1, Num2, Total : Integer; begin Num1 := StrToInt(EdtValor1.Text); Num2 := StrToInt(EdtValor2.Text); Multiplicar(Num1, Num2, Total); LblResultado.Caption := IntToStr(Total); EdtValor1.Text := ''; EdtValor2.Text := ''; EdtValor1.SetFocus; end; procedure TFrmCalculadora.Multiplicar(N1,N2:Integer; var Resultado:Integer); begin Resultado := N1 * N2 end; procedure TFrmCalculadora.SpdDividirClick(Sender: TObject); var Num1, Num2, Total : Integer; begin Num1 := StrToInt(EdtValor1.Text); Num2 := StrToInt(EdtValor2.Text); Dividir(Num1, Num2, Total); LblResultado.Caption := IntToStr(Total); EdtValor1.Text := ''; EdtValor2.Text := ''; EdtValor1.SetFocus; end; procedure TFrmCalculadora.Dividir(N1,N2:Integer; var Resultado:Integer); begin Resultado := N1 div N2 // o div = divisão por inteiros end; end. Fontes do programa: Fontes

vou fazer isso, muito obrigado pelas dicas, se eu achar o erro vou postar aki p na próxima podermos saber o q fazer, rs :) Abraços

há sim, por isso num entendo, tá tudo lá

Eu fiz isso e continua o mesmo problema :( O q pod ser entaum ????

Amigo "Para ter certeza de que seu DM realmente não está relacionado ao seu projeto, vá em Project > Remove from Project. Se o Form "DM" que o Delphi está procurando não estiver na lista de Forms, você deverá adicioná-lo como expliquei acima. " eu conferi e realmente o form UDM.PAS está veiculado ao projeto contudo está dando o mesmo erro, vou postar o cod do form e do data module beleza? UCadFuncionarios: unit UCadFuncionarios; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Buttons, StdCtrls, ExtCtrls, DBCtrls, ComCtrls; type TFrmCadFuncionarios = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; GroupBox3: TGroupBox; GroupBox4: TGroupBox; Label1: TLabel; EdtValorCampo: TEdit; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DBNavigator2: TDBNavigator; DBNavigator3: TDBNavigator; StatusBar1: TStatusBar; procedure SpeedButton3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmCadFuncionarios: TFrmCadFuncionarios; implementation uses UDM; {$R *.dfm} procedure TFrmCadFuncionarios.SpeedButton3Click(Sender: TObject); begin FrmCadFuncionarios.Close; end; end. UDM: unit UDM; interface uses SysUtils, Classes, DB, ADODB; type TDM = class(TDataModule) Conexao: TADOConnection; Tab_Clientes: TADOTable; Tab_Categorias: TADOTable; Tab_Fornecedores: TADOTable; Tab_Funcionarios: TADOTable; Tab_ItemVenda: TADOTable; Tab_Produtos: TADOTable; Tab_Usuarios: TADOTable; Tab_Venda: TADOTable; Ds_Tab_Clientes: TDataSource; Ds_Tab_Categorias: TDataSource; Ds_Tab_Fornecedores: TDataSource; Ds_Tab_Produtos: TDataSource; Ds_Tab_Funcionarios: TDataSource; Ds_Tab_ItemVenda: TDataSource; Ds_Tab_Usuarios: TDataSource; Ds_Tab_Venda: TDataSource; Tab_ClientesCliCodigo: TAutoIncField; Tab_ClientesCliNome: TWideStringField; Tab_ClientesCliEnd: TWideStringField; Tab_ClientesCliCep: TWideStringField; Tab_ClientesCliCid: TWideStringField; Tab_ClientesCliEst: TWideStringField; Tab_ClientesCliNumFone: TWideStringField; Tab_ClientesCliEmail: TWideStringField; Tab_ClientesCliDoc1: TWideStringField; Tab_ClientesCliDoc2: TWideStringField; Tab_ClientesCliContato: TWideStringField; Tab_CategoriasCatCodigo: TAutoIncField; Tab_CategoriasCatDesc: TWideStringField; Tab_FornecedoresForCodigo: TAutoIncField; Tab_FornecedoresForRazao: TWideStringField; Tab_FornecedoresForEnd: TWideStringField; Tab_FornecedoresForCid: TWideStringField; Tab_FornecedoresForEst: TWideStringField; Tab_FornecedoresFoCep: TWideStringField; Tab_FornecedoresForCont: TWideStringField; Tab_FornecedoresForNumFone: TWideStringField; Tab_FornecedoresForHomPag: TWideStringField; Tab_FuncionariosFunCodigo: TAutoIncField; Tab_FuncionariosFunNome: TWideStringField; Tab_FuncionariosFunEnder: TWideStringField; Tab_FuncionariosFunCep: TWideStringField; Tab_FuncionariosFunCid: TWideStringField; Tab_FuncionariosFunEst: TWideStringField; Tab_FuncionariosFunNumFone: TWideStringField; Tab_FuncionariosFunDatAdm: TDateTimeField; Tab_FuncionariosFunSalario: TBCDField; Tab_ItemVendaItVeID: TAutoIncField; Tab_ItemVendaItVeVenda: TIntegerField; Tab_ItemVendaItVeProduto: TIntegerField; Tab_ItemVendaItVeValorUnitario: TBCDField; Tab_ItemVendaItVeDescontoItem: TBCDField; Tab_ItemVendaQtde: TIntegerField; Tab_ProdutosProdID: TAutoIncField; Tab_ProdutosProdCategoria: TIntegerField; Tab_ProdutosProdCodigo: TWideStringField; Tab_ProdutosProdNome: TWideStringField; Tab_ProdutosProdPrecoVenda: TBCDField; Tab_ProdutosProdQtdeEst: TIntegerField; Tab_ProdutosProdUnidade: TWideStringField; Tab_ProdutosProdFornecedor: TIntegerField; Tab_UsuariosUsuCodigo: TAutoIncField; Tab_UsuariosUsuNome: TWideStringField; Tab_UsuariosUsuApelido: TWideStringField; Tab_UsuariosUsuSenha: TWideStringField; Tab_UsuariosUsuDpto: TWideStringField; Tab_UsuariosUsuNivel: TIntegerField; Tab_VendaVendID: TAutoIncField; Tab_VendaVendCliente: TIntegerField; Tab_VendaVendDtVenda: TDateTimeField; Tab_VendaVendValorProdutos: TBCDField; Tab_VendaVendDesconto: TBCDField; Tab_VendaVendAcrescimo: TBCDField; Tab_VendaVendFrete: TBCDField; Tab_VendaVendQtde: TIntegerField; private { Private declarations } public { Public declarations } end; var DM: TDM; implementation {$R *.dfm} end. Grato pela ajuda Duduh_Capixaba

Boa noite, Estou com uns problemas com meu sistema, já q sou iniciante rs vamos lá: estou usando em meu sistema um datamodule(DM) e nas outras telas da aplicação como cadastros de clientes e produtos eles fazem referencia ao DM, contudo ao tentar colok campos de uma outra tbl em outro form ele diz: "Form 'FrmCadFuncionarios' is not usingform 'UDM', do you wishto use this form? YES NO CANCEL" Ai qd clik em YES ele emite a seguinte msg: "Form 'DM' was not found in the current project" O q fazer para resolver este problema? Grato

po valeu irmão deu certo aqui, masi terde qd estiver pronto vou postar o sistema aki no forum p todos baixarem e estudar Abrços

Opa :) mesmo após arrumar o "parialKey" ainda está dando o mesmo erro grato pela força Duduh_Capixaba eu coloquei o Db em uses e compilou, contudo não chama a tela de login o q pod ser???

o código da minha unit ond uso o loPartialKey é: unit ULogin; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Db, StdCtrls, Buttons, ExtCtrls; type TFrmLogin = class(TForm) Image1: TImage; GrpBxLogin: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edtapelido: TEdit; EdtSenha: TEdit; BtnOk: TBitBtn; BtnCancelar: TBitBtn; procedure BtnOkClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmLogin: TFrmLogin; implementation uses UDM, UMenuPrin; {$R *.dfm} procedure TFrmLogin.BtnOkClick(Sender: TObject); begin DM.Tab_Usuarios.Open; FrmMenuPrin.StatusBar1.Panels[0].Text := 'Usuário' + FrmLogin.Edtapelido.Text + ' - ' + Dm.Tab_UsuariosUsuDpto.AsString; if not (DM.Tab_Usuarios.Locate('UsuApelido', FrmLogin.Edtapelido.Text, [loParialKey])) or (DM.Tab_UsuariosUsuSenha.Value <> FrmLogin.EdtSenha.Text) then begin MessageDlg('Nome e/ou Senha Inválidos!' + #13 + #13 + 'Se Você esqueceu sua Senha, Consulte' + #13 + 'o administrados do Sistema', mterror, [mbOk],0); EdtSenha.Clear; EdtSenha.SetFocus; end else begin FrmLogin.Hide; FrmMenuPrin.ShowModal; FrmLogin.Release; FrmLogin := Nil; end; end. o erro é: [Error] ULogin.pas(40): Undeclared identifier: 'loParialKey' [Error] ULogin.pas(40): Incompatible types: 'TLocateOption' and 'Integer' [Error] ULogin.pas(54): ';' expected but '.' found [Error] ULogin.pas(56): Declaration expected but end of file found [Fatal Error] Sistema.dpr(9): Could not compile used unit 'ULogin.pas' Como resolver, já declarei Db em uses e nada resolve

Bom dia galerinha, estou c uma dúvida, o parametro loPartialKey pertence a qual Unit de parametros no deslphi, ou seja, qual o nome deve ser declarado em uses para acessar este parametro? Falows

ond mesmo está errado?

ei q sou o usurario deste forum q mais enche o saco de vocês, mas aki é o único lugar ond podemos conseguir informações válidas e confiáveis, entaum: to com o seguinte erro na minha pag q esta alocada na locaweb: Warning: require(/public_html/includes/filenames.php) [function.require]: failed to open stream: No such file or directory in /home/walmaxbrasil1/public_html/includes/application_top.php on line 53 Fatal error: require() [function.require]: Failed opening required '/public_html/includes/filenames.php' (include_path=.:/usr/share/pear') in /home/walmaxbrasil1/public_html/includes/application_top.php on line 53 o meu filenames esta assim: <?php /* $Id: filenames.php,v 1.4 2003/06/11 17:38:00 hpdl Exp $ osCommerce, Open Source E-Commerce Solutions http://www.oscommerce.com ******** © 2003 osCommerce Released under the GNU General Public License */ // define the filenames used in the project define('FILENAME_ACCOUNT', '/public_html/account.php'); define('FILENAME_ACCOUNT_EDIT', '/public_html/account_edit.php'); define('FILENAME_ACCOUNT_HISTORY', '/public_html/account_history.php'); define('FILENAME_ACCOUNT_HISTORY_INFO', '/public_html/account_history_info.php'); define('FILENAME_ACCOUNT_NEWSLETTERS', '/public_html/account_newsletters.php'); define('FILENAME_ACCOUNT_NOTIFICATIONS', '/public_html/account_notifications.php'); define('FILENAME_ACCOUNT_PASSWORD', '/public_html/account_password.php'); define('FILENAME_ADDRESS_BOOK', '/public_html/address_book.php'); define('FILENAME_ADDRESS_BOOK_PROCESS', '/public_html/address_book_process.php'); define('FILENAME_ADVANCED_SEARCH', '/public_html/advanced_search.php'); define('FILENAME_ADVANCED_SEARCH_RESULT', '/public_html/advanced_search_result.php'); define('FILENAME_ALSO_PURCHASED_PRODUCTS', '/public_html/also_purchased_products.php'); define('FILENAME_CHECKOUT_CONFIRMATION', '/public_html/checkout_confirmation.php'); define('FILENAME_CHECKOUT_PAYMENT', '/public_html/checkout_payment.php'); define('FILENAME_CHECKOUT_PAYMENT_ADDRESS', '/public_html/checkout_payment_address.php'); define('FILENAME_CHECKOUT_PROCESS', '/public_html/checkout_process.php'); define('FILENAME_CHECKOUT_SHIPPING', '/public_html/checkout_shipping.php'); define('FILENAME_CHECKOUT_SHIPPING_ADDRESS', '/public_html/checkout_shipping_address.php'); define('FILENAME_CHECKOUT_SUCCESS', '/public_html/checkout_success.php'); define('FILENAME_CONTACT_US', '/public_html/contact_us.php'); define('FILENAME_CONDITIONS', '/public_html/conditions.php'); define('FILENAME_COOKIE_USAGE', '/public_html/cookie_usage.php'); define('FILENAME_CREATE_ACCOUNT', '/public_html/create_account.php'); define('FILENAME_CREATE_ACCOUNT_SUCCESS', '/public_html/create_account_success.php'); define('FILENAME_DEFAULT', '/public_html/index.php'); define('FILENAME_DOWNLOAD', '/public_html/download.php'); define('FILENAME_INFO_SHOPPING_CART', '/public_html/info_shopping_cart.php'); define('FILENAME_LOGIN', '/public_html/login.php'); define('FILENAME_LOGOFF', '/public_html/logoff.php'); define('FILENAME_NEW_PRODUCTS', '/public_html/new_products.php'); define('FILENAME_PASSWORD_FORGOTTEN', '/public_html/password_forgotten.php'); define('FILENAME_POPUP_IMAGE', '/public_html/popup_image.php'); define('FILENAME_POPUP_SEARCH_HELP', '/public_html/popup_search_help.php'); define('FILENAME_PRIVACY', '/public_html/privacy.php'); define('FILENAME_PRODUCT_INFO', '/public_html/product_info.php'); define('FILENAME_PRODUCT_LISTING', '/public_html/product_listing.php'); define('FILENAME_PRODUCT_REVIEWS', '/public_html/product_reviews.php'); define('FILENAME_PRODUCT_REVIEWS_INFO', '/public_html/product_reviews_info.php'); define('FILENAME_PRODUCT_REVIEWS_WRITE', '/public_html/product_reviews_write.php'); define('FILENAME_PRODUCTS_NEW', '/public_html/products_new.php'); define('FILENAME_REDIRECT', '/public_html/redirect.php'); define('FILENAME_REVIEWS', '/public_html/reviews.php'); define('FILENAME_SHIPPING', '/public_html/shipping.php'); define('FILENAME_SHOPPING_CART', '/public_html/shopping_cart.php'); define('FILENAME_SPECIALS', '/public_html/specials.php'); define('FILENAME_SSL_CHECK', '/public_html/ssl_check.php'); define('FILENAME_TELL_A_FRIEND', '/public_html/tell_a_friend.php'); define('FILENAME_UPCOMING_PRODUCTS', '/public_html/upcoming_products.php'); ?> e o meu application_top assim: <?php /* $Id: application_top.php,v 1.280 2003/07/12 09:38:07 hpdl Exp $ osCommerce, Open Source E-Commerce Solutions http://www.oscommerce.com ******** © 2003 osCommerce Released under the GNU General Public License */ // start the timer for the page parse time log define('PAGE_PARSE_START_TIME', microtime()); // set the level of error reporting error_reporting(E_ALL & ~E_NOTICE); // check if register_globals is enabled. // since this is a temporary measure this message is hardcoded. The requirement will be removed before 2.2 is finalized. if (function_exists('ini_get')) { ini_get('register_globals') or exit('FATAL ERROR: register_globals is disabled in php.ini, please enable it!'); } // Set the local configuration parameters - mainly for developers if (file_exists('includes/local/configure.php')) include('includes/local/configure.php'); // include server parameters require('includes/configure.php'); if (strlen(DB_SERVER) < 1) { if (is_dir('install')) { header('Location: public_html/index.php'); } } // define the project version define('PROJECT_VERSION', 'osCommerce 2.2-MS2'); // set the type of request (secure or not) $request_type = (getenv('HTTPS') == 'on') ? 'SSL' : 'NONSSL'; // set php_self in the local scope if (!isset($PHP_SELF)) $PHP_SELF = $HTTP_SERVER_VARS['PHP_SELF]; if ($request_type == 'NONSSL') { define('DIR_WS_CATALOG', DIR_WS_HTTP_CATALOG); } else { define('DIR_WS_CATALOG', DIR_WS_HTTPS_CATALOG); } // include the list of project filenames require(DIR_WS_INCLUDES . 'filenames.php'); // include the list of project database tables require('DIR_WS_INCLUDES' . 'database_tables.php'); // customization for the design layout define('BOX_WIDTH', 125); // how wide the boxes should be in pixels (default: 125) // include the database functions require('DIR_WS_FUNCTIONS' . 'database.php'); // make a connection to the database... now tep_db_connect() or die('Unable to connect to database server!'); // set the application parameters $configuration_query = tep_db_query('select configuration_key as cfgKey, configuration_value as cfgValue from ' . TABLE_CONFIGURATION); while ($configuration = tep_db_fetch_array($configuration_query)) { define($configuration['cfgKey'], $configuration['cfgValue']); } // if gzip_compression is enabled, start to buffer the output if ( (GZIP_COMPRESSION == 'true') && ($ext_zlib_loaded = extension_loaded('zlib')) && (PHP_VERSION >= '4') ) { if (($ini_zlib_output_compression = (int)ini_get('zlib.output_compression')) < 1) { if (PHP_VERSION >= '4.0.4') { ob_start('ob_gzhandler'); } else { include(DIR_WS_FUNCTIONS . 'gzip_compression.php'); ob_start(); ob_implicit_flush(); } } else { ini_set('zlib.output_compression_level', GZIP_LEVEL); } } // set the HTTP GET parameters manually if search_engine_friendly_urls is enabled if (SEARCH_ENGINE_FRIENDLY_URLS == 'true') { if (strlen(getenv('PATH_INFO')) > 1) { $GET_array = array(); $PHP_SELF = str_replace(getenv('PATH_INFO'), '', $PHP_SELF); $vars = explode('/', substr(getenv('PATH_INFO'), 1)); for ($i=0, $n=sizeof($vars); $i<$n; $i++) { if (strpos($vars[$i], '[]')) { $GET_array[substr($vars[$i], 0, -2)][] = $vars[$i+1]; } else { $HTTP_GET_VARS[$vars[$i]] = $vars[$i+1]; } $i++; } if (sizeof($GET_array) > 0) { while (list($key, $value) = each($GET_array)) { $HTTP_GET_VARS[$key] = $value; } } } } // define general functions used application-wide require(DIR_WS_FUNCTIONS . 'general.php'); require(DIR_WS_FUNCTIONS . 'html_output.php'); // set the cookie domain $cookie_domain = (($request_type == 'NONSSL') ? HTTP_COOKIE_DOMAIN : HTTPS_COOKIE_DOMAIN); $cookie_path = (($request_type == 'NONSSL') ? HTTP_COOKIE_PATH : HTTPS_COOKIE_PATH); // include cache functions if enabled if (USE_CACHE == 'true') include(DIR_WS_FUNCTIONS . 'cache.php'); // include shopping cart class require(DIR_WS_CLASSES . 'shopping_cart.php'); // include navigation history class require(DIR_WS_CLASSES . 'navigation_history.php'); // some code to solve compatibility issues require(DIR_WS_FUNCTIONS . 'compatibility.php'); // check if sessions are supported, otherwise use the php3 compatible session class if (!function_exists('session_start')) { define('PHP_SESSION_NAME', 'osCsid'); define('PHP_SESSION_PATH', $cookie_path); define('PHP_SESSION_DOMAIN', $cookie_domain); define('PHP_SESSION_SAVE_PATH', SESSION_WRITE_DIRECTORY); include(DIR_WS_CLASSES . 'sessions.php'); } // define how the session functions will be used require(DIR_WS_FUNCTIONS . 'sessions.php'); // set the session name and save path tep_session_name('osCsid'); tep_session_save_path(SESSION_WRITE_DIRECTORY); // set the session cookie parameters if (function_exists('session_set_cookie_params')) { session_set_cookie_params(0, $cookie_path, $cookie_domain); } elseif (function_exists('ini_set')) { ini_set('session.cookie_lifetime', '0'); ini_set('session.cookie_path', $cookie_path); ini_set('session.cookie_domain', $cookie_domain); } // set the session ID if it exists if (isset($HTTP_POST_VARS[tep_session_name()])) { tep_session_id($HTTP_POST_VARS[tep_session_name()]); } elseif ( ($request_type == 'SSL') && isset($HTTP_GET_VARS[tep_session_name()]) ) { tep_session_id($HTTP_GET_VARS[tep_session_name()]); } // start the session $session_started = false; if (SESSION_FORCE_COOKIE_USE == 'True') { tep_setcookie('cookie_test', 'please_accept_for_session', time()+60*60*24*30, $cookie_path, $cookie_domain); if (isset($HTTP_COOKIE_VARS['cookie_test'])) { tep_session_start(); $session_started = true; } } elseif (SESSION_BLOCK_SPIDERS == 'True') { $user_agent = strtolower(getenv('HTTP_USER_AGENT')); $spider_flag = false; if (tep_not_null($user_agent)) { $spiders = file(DIR_WS_INCLUDES . 'spiders.txt'); for ($i=0, $n=sizeof($spiders); $i<$n; $i++) { if (tep_not_null($spiders[$i])) { if (is_integer(strpos($user_agent, trim($spiders[$i])))) { $spider_flag = true; break; } } } } if ($spider_flag == false) { tep_session_start(); $session_started = true; } } else { tep_session_start(); $session_started = true; } // set SID once, even if empty $SID = (defined('SID') ? SID : ''); // verify the ssl_session_id if the feature is enabled if ( ($request_type == 'SSL') && (SESSION_CHECK_SSL_SESSION_ID == 'True') && (ENABLE_SSL == true) && ($session_started == true) ) { $ssl_session_id = getenv('SSL_SESSION_ID'); if (!tep_session_is_registered('SSL_SESSION_ID')) { $SESSION_SSL_ID = $ssl_session_id; tep_session_register('SESSION_SSL_ID'); } if ($SESSION_SSL_ID != $ssl_session_id) { tep_session_destroy(); tep_redirect(tep_href_link(FILENAME_SSL_CHECK)); } } // verify the browser user agent if the feature is enabled if (SESSION_CHECK_USER_AGENT == 'True') { $http_user_agent = getenv('HTTP_USER_AGENT'); if (!tep_session_is_registered('SESSION_USER_AGENT')) { $SESSION_USER_AGENT = $http_user_agent; tep_session_register('SESSION_USER_AGENT'); } if ($SESSION_USER_AGENT != $http_user_agent) { tep_session_destroy(); tep_redirect(tep_href_link(FILENAME_LOGIN)); } } // verify the IP address if the feature is enabled if (SESSION_CHECK_IP_ADDRESS == 'True') { $ip_address = tep_get_ip_address(); if (!tep_session_is_registered('SESSION_IP_ADDRESS')) { $SESSION_IP_ADDRESS = $ip_address; tep_session_register('SESSION_IP_ADDRESS'); } if ($SESSION_IP_ADDRESS != $ip_address) { tep_session_destroy(); tep_redirect(tep_href_link(FILENAME_LOGIN)); } } // create the shopping cart & fix the cart if necesary if (tep_session_is_registered('cart') && is_object($cart)) { if (PHP_VERSION < 4) { $broken_cart = $cart; $cart = new shoppingCart; $cart->unserialize($broken_cart); } } else { tep_session_register('cart'); $cart = new shoppingCart; } // include currencies class and create an instance require(DIR_WS_CLASSES . 'currencies.php'); $currencies = new currencies(); // include the mail classes require(DIR_WS_CLASSES . 'mime.php'); require(DIR_WS_CLASSES . 'email.php'); // set the language if (!tep_session_is_registered('language') || isset($HTTP_GET_VARS['language'])) { if (!tep_session_is_registered('language')) { tep_session_register('language'); tep_session_register('languages_id'); } include(DIR_WS_CLASSES . 'language.php'); $lng = new language(); if (isset($HTTP_GET_VARS['language']) && tep_not_null($HTTP_GET_VARS['language'])) { $lng->set_language($HTTP_GET_VARS['language']); } else { $lng->get_browser_language(); } $language = $lng->language['directory']; $languages_id = $lng->language['id']; } // include the language translations require(DIR_WS_LANGUAGES . $language . '.php'); // currency if (!tep_session_is_registered('currency') || isset($HTTP_GET_VARS['currency']) || ( (USE_DEFAULT_LANGUAGE_CURRENCY == 'true') && (LANGUAGE_CURRENCY != $currency) ) ) { if (!tep_session_is_registered('currency')) tep_session_register('currency'); if (isset($HTTP_GET_VARS['currency'])) { if (!$currency = tep_currency_exists($HTTP_GET_VARS['currency'])) $currency = (USE_DEFAULT_LANGUAGE_CURRENCY == 'true') ? LANGUAGE_CURRENCY : DEFAULT_CURRENCY; } else { $currency = (USE_DEFAULT_LANGUAGE_CURRENCY == 'true') ? LANGUAGE_CURRENCY : DEFAULT_CURRENCY; } } // navigation history if (tep_session_is_registered('navigation')) { if (PHP_VERSION < 4) { $broken_navigation = $navigation; $navigation = new navigationHistory; $navigation->unserialize($broken_navigation); } } else { tep_session_register('navigation'); $navigation = new navigationHistory; } $navigation->add_current_page(); // Shopping cart actions if (isset($HTTP_GET_VARS['action'])) { // redirect the customer to a friendly cookie-must-be-enabled page if cookies are disabled if ($session_started == false) { tep_redirect(tep_href_link(FILENAME_COOKIE_USAGE)); } if (DISPLAY_CART == 'true') { $goto = FILENAME_SHOPPING_CART; $parameters = array('action', 'cPath', 'products_id', 'pid'); } else { $goto = basename($PHP_SELF); if ($HTTP_GET_VARS['action'] == 'buy_now') { $parameters = array('action', 'pid', 'products_id'); } else { $parameters = array('action', 'pid'); } } switch ($HTTP_GET_VARS['action']) { // customer wants to update the product quantity in their shopping cart case 'update_product' : for ($i=0, $n=sizeof($HTTP_POST_VARS['products_id']); $i<$n; $i++) { if (in_array($HTTP_POST_VARS['products_id'][$i], (is_array($HTTP_POST_VARS['cart_delete']) ? $HTTP_POST_VARS['cart_delete'] : array()))) { $cart->remove($HTTP_POST_VARS['products_id'][$i]); } else { if (PHP_VERSION < 4) { // if PHP3, make correction for lack of multidimensional array. reset($HTTP_POST_VARS); while (list($key, $value) = each($HTTP_POST_VARS)) { if (is_array($value)) { while (list($key2, $value2) = each($value)) { if (ereg ("(.*)\]\[(.*)", $key2, $var)) { $id2[$var[1]][$var[2]] = $value2; } } } } $attributes = ($id2[$HTTP_POST_VARS['products_id'][$i]]) ? $id2[$HTTP_POST_VARS['products_id'][$i]] : ''; } else { $attributes = ($HTTP_POST_VARS['id'][$HTTP_POST_VARS['products_id'][$i]]) ? $HTTP_POST_VARS['id'][$HTTP_POST_VARS['products_id'][$i]] : ''; } $cart->add_cart($HTTP_POST_VARS['products_id'][$i], $HTTP_POST_VARS['cart_quantity'][$i], $attributes, false); } } tep_redirect(tep_href_link($goto, tep_get_all_get_params($parameters))); break; // customer adds a product from the products page case 'add_product' : if (isset($HTTP_POST_VARS['products_id']) && is_numeric($HTTP_POST_VARS['products_id'])) { $cart->add_cart($HTTP_POST_VARS['products_id'], $cart->get_quantity(tep_get_uprid($HTTP_POST_VARS['products_id'], $HTTP_POST_VARS['id']))+1, $HTTP_POST_VARS['id']); } tep_redirect(tep_href_link($goto, tep_get_all_get_params($parameters))); break; // performed by the 'buy now' button in product listings and review page case 'buy_now' : if (isset($HTTP_GET_VARS['products_id'])) { if (tep_has_product_attributes($HTTP_GET_VARS['products_id'])) { tep_redirect(tep_href_link(FILENAME_PRODUCT_INFO, 'products_id= . $HTTP_GET_VARS['products_id])); } else { $cart->add_cart($HTTP_GET_VARS['products_id'], $cart->get_quantity($HTTP_GET_VARS['products_id'])+1); } } tep_redirect(tep_href_link($goto, tep_get_all_get_params($parameters))); break; case 'notify' : if (tep_session_is_registered('customer_id')) { if (isset($HTTP_GET_VARS['products_id'])) { $notify = $HTTP_GET_VARS['products_id']; } elseif (isset($HTTP_GET_VARS['notify'])) { $notify = $HTTP_GET_VARS['notify']; } elseif (isset($HTTP_POST_VARS['notify'])) { $notify = $HTTP_POST_VARS['notify']; } else { tep_redirect(tep_href_link(basename($PHP_SELF), tep_get_all_get_params(array('action', 'notify')))); } if (!is_array($notify)) $notify = array($notify); for ($i=0, $n=sizeof($notify); $i<$n; $i++) { $check_query = tep_db_query("select count(*) as count from " . TABLE_PRODUCTS_NOTIFICATIONS . " where products_id = '" . $notify[$i] . "' and customers_id = '" . $customer_id . "'"); $check = tep_db_fetch_array($check_query); if ($check['count'] < 1) { tep_db_query("insert into " . TABLE_PRODUCTS_NOTIFICATIONS . " (products_id, customers_id, date_added) values ('" . $notify[$i] . "', '" . $customer_id . "', now())"); } } tep_redirect(tep_href_link(basename($PHP_SELF), tep_get_all_get_params(array('action', 'notify')))); } else { $navigation->set_snapshot(); tep_redirect(tep_href_link(FILENAME_LOGIN, '', 'SSL')); } break; case 'notify_remove' : if (tep_session_is_registered('customer_id') && isset($HTTP_GET_VARS['products_id'])) { $check_query = tep_db_query("select count(*) as count from " . TABLE_PRODUCTS_NOTIFICATIONS . " where products_id = '" . $HTTP_GET_VARS['products_id'] . "' and customers_id = '" . $customer_id . "'"); $check = tep_db_fetch_array($check_query); if ($check['count'] > 0) { tep_db_query("delete from " . TABLE_PRODUCTS_NOTIFICATIONS . " where products_id = '" . $HTTP_GET_VARS['products_id'] . "' and customers_id = '" . $customer_id . "'"); } tep_redirect(tep_href_link(basename($PHP_SELF), tep_get_all_get_params(array('action')))); } else { $navigation->set_snapshot(); tep_redirect(tep_href_link(FILENAME_LOGIN, '', 'SSL')); } break; case 'cust_order' : if (tep_session_is_registered('customer_id') && isset($HTTP_GET_VARS['pid'])) { if (tep_has_product_attributes($HTTP_GET_VARS['pid'])) { tep_redirect(tep_href_link(FILENAME_PRODUCT_INFO, 'products_id= . $HTTP_GET_VARS['pid])); } else { $cart->add_cart($HTTP_GET_VARS['pid'], $cart->get_quantity($HTTP_GET_VARS['pid'])+1); } } tep_redirect(tep_href_link($goto, tep_get_all_get_params($parameters))); break; } } // include the who's online functions require(DIR_WS_FUNCTIONS . 'whos_online.php'); tep_update_whos_online(); // include the password crypto functions require(DIR_WS_FUNCTIONS . 'password_funcs.php'); // include validation functions (right now only email address) require(DIR_WS_FUNCTIONS . 'validations.php'); // split-page-results require(DIR_WS_CLASSES . 'split_page_results.php'); // infobox require(DIR_WS_CLASSES . 'boxes.php'); // auto activate and expire banners require(DIR_WS_FUNCTIONS . 'banner.php'); tep_activate_banners(); tep_expire_banners(); // auto expire special products require(DIR_WS_FUNCTIONS . 'specials.php'); tep_expire_specials(); // calculate category path if (isset($HTTP_GET_VARS['cPath'])) { $cPath = $HTTP_GET_VARS['cPath']; } elseif (isset($HTTP_GET_VARS['products_id']) && !isset($HTTP_GET_VARS['manufacturers_id'])) { $cPath = tep_get_product_path($HTTP_GET_VARS['products_id']); } else { $cPath = ''; } if (tep_not_null($cPath)) { $cPath_array = tep_parse_category_path($cPath); $cPath = implode('_', $cPath_array); $current_category_id = $cPath_array[(sizeof($cPath_array)-1)]; } else { $current_category_id = 0; } // include the breadcrumb class and start the breadcrumb trail require(DIR_WS_CLASSES . 'breadcrumb.php'); $breadcrumb = new breadcrumb; $breadcrumb->add(HEADER_TITLE_TOP, HTTP_SERVER); $breadcrumb->add(HEADER_TITLE_CATALOG, tep_href_link(FILENAME_DEFAULT)); // add category names or the manufacturer name to the breadcrumb trail if (isset($cPath_array)) { for ($i=0, $n=sizeof($cPath_array); $i<$n; $i++) { $categories_query = tep_db_query("select categories_name from " . TABLE_CATEGORIES_DESCRIPTION . " where categories_id = '" . (int)$cPath_array[$i] . "' and language_id = '" . (int)$languages_id . "'"); if (tep_db_num_rows($categories_query) > 0) { $categories = tep_db_fetch_array($categories_query); $breadcrumb->add($categories['categories_name'], tep_href_link(FILENAME_DEFAULT, 'cPath= . implode('_', array_slice($cPath_array, 0, ($i+1))))); } else { break; } } } elseif (isset($HTTP_GET_VARS['manufacturers_id])) { $manufacturers_query = tep_db_query("select manufacturers_name from " . TABLE_MANUFACTURERS . " where manufacturers_id = '" . (int)$HTTP_GET_VARS['manufacturers_id'] . "'"); if (tep_db_num_rows($manufacturers_query)) { $manufacturers = tep_db_fetch_array($manufacturers_query); $breadcrumb->add($manufacturers['manufacturers_name'], tep_href_link(FILENAME_DEFAULT, 'manufacturers_id= . $HTTP_GET_VARS['manufacturers_id])); } } // add the products model to the breadcrumb trail if (isset($HTTP_GET_VARS['products_id'])) { $model_query = tep_db_query("select products_model from " . TABLE_PRODUCTS . " where products_id = '" . (int)$HTTP_GET_VARS['products_id'] . "'"); if (tep_db_num_rows($model_query)) { $model = tep_db_fetch_array($model_query); $breadcrumb->add($model['products_model'], tep_href_link(FILENAME_PRODUCT_INFO, 'cPath= . $cPath . '&products_id=' . $HTTP_GET_VARS['products_id])); } } // initialize the message stack for output messages require(DIR_WS_CLASSES . 'message_stack.php'); $messageStack = new messageStack; // set which precautions should be checked define('WARN_INSTALL_EXISTENCE', 'true'); define('WARN_CONFIG_WRITEABLE', 'true'); define('WARN_SESSION_DIRECTORY_NOT_WRITEABLE', 'true'); define('WARN_SESSION_AUTO_START', 'true'); define('WARN_DOWNLOAD_DIRECTORY_NOT_READABLE', 'true'); ?> o q faço p resolcer este pro? PLEASE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! GRATO

valeu, este logo após ter postado consegui resover, contudo na hora de fazer uma consulta atualização ela não me pede para que dado ele vai atualizar, você sabe porque???? Abraços

Bom dia galera; Pessoal to estudando Access e me passou uma dúvida, como posso fazer para que as minhas consultas (seleção, exclusão, etc) exibam uma cx de texto para a identificar quem será selecionado, deletado, etc?? Falows

no office 200 não há este arquivo não amigo