Jump to content
Fórum Script Brasil

fernando_vip

Membros
  • Posts

    141
  • Joined

  • Last visited

About fernando_vip

  • Birthday 05/04/1980

Contatos

Perfil

  • Gender
    Male
  • Location
    Brasilia - DF
  • Interests
    Flash, Java, JavaScript, php, DELPHI> DELPHI e DELPHI

fernando_vip's Achievements

0

Reputation

  1. 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?
  2. opa fiz o indicado no tutor ae e gerou outro erro:
  3. 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?
  4. 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
  5. 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
  6. 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
  7. fernando_vip

    Links dinamicos

    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
  8. 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;)
  9. 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.
  10. 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
  11. 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
  12. 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
  13. há sim, por isso num entendo, tá tudo lá
  14. Eu fiz isso e continua o mesmo problema :( O q pod ser entaum ????
  15. 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
×
×
  • Create New...