Ir para conteúdo
Fórum Script Brasil

Rafael GAGA

Membros
  • Total de itens

    43
  • Registro em

  • Última visita

Tudo que Rafael GAGA postou

  1. Pegue um modelo e tende copiá-lo de início, va brincando com as ferramentas e descobrindo o que cada uma faz, vá copiando até conhecer as ferramentas melhor, a partir daí você vai conseguir criar seus próprios modelos.
  2. Rafael GAGA

    Foto

    muito boa a materia
  3. Ficou legal, toda pessoa trabalha de uma forma diferente, mas você poderia dar uma complementada a mais, já que se trata de uma empresa de softwares, (coisa que envolve muitos números, calculos, organogramas) ou seja, complexa, um logo um pouco mais "complicado" acho que cairia bem, mas mesmo mais simples esta bom tambem. Até...
  4. Olá pessoal, sou iniciante no delphi e to com o seguinte problema: tenho um form para cadastrar clientes e nele tem o campo cnpj e cpf, sendo o mesmo dbedit, que recebe o field de acordo com o tipo de pessoa. Pois é, so que quando vou de um registro para outro eu preciso que ocorra a transição. Pelo q imagino tenho q colocar um codigo para verificar o tipo de pessoa e mudar o fiel do dbedit no Zquery (uso o zeos), só q ele ta em um datamodule e eu preciso verificar se o form de cadcliente ta aberto para depois executar, e não sei como fazer isso. Se alguém puder me ajudar ou tiver uma solução + facil, agradeço. Obs.: uso o Zeos e mysql abraços.
  5. Eu uso o componente Zeos, aqui você encontra um tutorial sobre como instalar e um link para baixa-lo, o bom é que ele é free. http://www.imasters.com.br/artigo.php?cn=3377&cc=254 e aqui um outro tutorial de como utilizá-lo: http://www.imasters.com.br/artigo.php?cn=3405&cc=254 abraços
  6. como assim alocar o registro atual e + 1? dar dois insert? me desculpe mas sou bem novato ainda Valeu
  7. Da uma olhada nesse tópico, e até simples fazer o que você quer http://scriptbrasil.com.br/forum/index.php...68&hl=reiniciar Abraços
  8. Rafael GAGA

    Pesquisa

    Olá Juniorboll, nesse tópico aqui tem um exemplo de como pesquisar com o table. http://scriptbrasil.com.br/forum/index.php...topic=58713&hl= você pode usar a Query também, ela tem vantagens do sql e não precisar de campos indexados no BD. Abraços
  9. Ah sim, agora entendi , valeu pela força. Obrigado.
  10. Micheus, muito obrigado pela dica, vai me economizar muito trabalho , sou iniciante e as vezes se quebra muito a cabeça com coisas assim, agora já abusando um pouco você ou alguém poderia me explicar a lógica da procedure AjustaReadOnlyItem onde você coloca na linha: dbgitens.Fields[IdxItens].ReadOnly:= qgrade.FieldByName(IdxGrade).AsString = '0' a propriedade readonly não deveria receber true ou false? Abraços
  11. eu coloquei os testes para executarem somente quando a tabela estivesse em modo edit ou insert procedure Tfrm_pedido.dbgItensColExit(Sender: TObject); var verifVazio: string; begin // teste para ver qual coluna q esta saindo If DBgItens.Selectedfield.FieldName='referencia_produto' then begin // mensagem coluna atual showmessage('ativo'); // coloca tabela grade na posicao da referencia escolhida with qgrade do begin Close; SQL.Clear; SQL.Add('SELECT * FROM grade WHERE descricao='+quotedstr(qproduto.FieldByName('grade').AsString)); Open; end; // teste modo tabela IF (qitens_pedido.State=dsEdit) OR (qitens_pedido.State=dsINSERT) THEN BEGIN verifVazio:= dbgItens.Fields[0].Text; if verifVazio='' then begin showmessage('Você deve preencher o campo Referência!'); DBgItens.SelectedIndex:=0; abort; end; SHOWMESSAGE('SEGUNDO TESTE PASSOU'); // atualizando campo preço total Qitens_pedido.FieldByName('valor_linha').Value:= QItens_pedidoP_total.Value; // teste tipo de pagamento if dbcCondicao.Text = 'A VISTA' THEN begin dbgitens.Fields[19].Text:=qproduto.fieldbyname('prcVista').Value; preco_unitario:=qproduto.fieldbyname('prcVista').Value; showmessage('vista'); end; if dbcCondicao.Text = '30 DIAS' THEN begin dbgitens.Fields[19].Text:=qproduto.fieldbyname('prc30').Value; preco_unitario:=qproduto.fieldbyname('prc30').Value; showmessage('30'); end; if dbcCondicao.Text = '60 DIAS' THEN begin dbgitens.Fields[19].Text:=qproduto.fieldbyname('prc60').Value; preco_unitario:=qproduto.fieldbyname('prc60').Value; showmessage('60'); end; //habilitando grade if qgrade.FieldByName('n1').AsString= '0' then begin dbgitens.Fields[1].ReadOnly:= true; dbgitens.Fields[1].Text:=''; end else begin dbgitens.Fields[1].ReadOnly:= false; dbgitens.Fields[1].Text:=''; end; if qgrade.FieldByName('n2').AsString= '0'then begin dbgitens.Fields[2].ReadOnly:= true; dbgitens.Fields[2].Text:=''; end else begin dbgitens.Fields[2].ReadOnly:= false; dbgitens.Fields[2].Text:=''; end; if qgrade.FieldByName('n3').AsString= '0'then begin dbgitens.Fields[3].ReadOnly:= true; dbgitens.Fields[3].Text:=''; end else begin dbgitens.Fields[3].ReadOnly:= false; dbgitens.Fields[3].Text:=''; end; if qgrade.FieldByName('n4').AsString= '0' then begin dbgitens.Fields[4].ReadOnly:= true; dbgitens.Fields[4].Text:=''; end else begin dbgitens.Fields[4].ReadOnly:= false; dbgitens.Fields[4].Text:=''; end; if qgrade.FieldByName('n5').AsString= '0' then begin dbgitens.Fields[5].ReadOnly:= true; dbgitens.Fields[5].Text:=''; end else begin dbgitens.Fields[5].ReadOnly:= false; dbgitens.Fields[5].Text:=''; end; if qgrade.FieldByName('n34').AsString= '0' then begin dbgitens.Fields[6].ReadOnly:= true; dbgitens.Fields[6].Text:=''; end else begin dbgitens.Fields[6].ReadOnly:= false; dbgitens.Fields[6].Text:=''; end; if qgrade.FieldByName('n36').AsString= '0' then begin dbgitens.Fields[7].ReadOnly:= true; dbgitens.Fields[7].Text:=''; end else begin dbgitens.Fields[7].ReadOnly:= false; dbgitens.Fields[7].Text:=''; end; if qgrade.FieldByName('n38').AsString= '0' then begin dbgitens.Fields[8].ReadOnly:= true; dbgitens.Fields[8].Text:=''; end else begin dbgitens.Fields[8].ReadOnly:= false; dbgitens.Fields[8].Text:=''; end; if qgrade.FieldByName('n40').AsString= '0' then begin dbgitens.Fields[9].ReadOnly:= true; dbgitens.Fields[9].Text:=''; end else begin dbgitens.Fields[9].ReadOnly:= false; dbgitens.Fields[9].Text:=''; end; if qgrade.FieldByName('n42').AsString= '0' then begin dbgitens.Fields[10].ReadOnly:= true; dbgitens.Fields[10].Text:=''; end else begin dbgitens.Fields[10].ReadOnly:= false; dbgitens.Fields[10].Text:=''; end; if qgrade.FieldByName('n44').AsString= '0' then begin dbgitens.Fields[11].ReadOnly:= true; dbgitens.Fields[11].Text:=''; end else begin dbgitens.Fields[11].ReadOnly:= false; dbgitens.Fields[11].Text:=''; end; if qgrade.FieldByName('n46').AsString= '0' then begin dbgitens.Fields[12].ReadOnly:= true; dbgitens.Fields[12].Text:=''; end else begin dbgitens.Fields[12].ReadOnly:= false; dbgitens.Fields[12].Text:=''; end; if qgrade.FieldByName('n48').AsString= '0' then begin dbgitens.Fields[13].ReadOnly:= true; dbgitens.Fields[13].Text:=''; end else begin dbgitens.Fields[13].ReadOnly:= false; dbgitens.Fields[13].Text:=''; end; if qgrade.FieldByName('n50').AsString= '0' then begin dbgitens.Fields[14].ReadOnly:= true; dbgitens.Fields[14].Text:=''; end else begin dbgitens.Fields[14].ReadOnly:= false; dbgitens.Fields[14].Text:=''; end; if qgrade.FieldByName('np').AsString= '0' then begin dbgitens.Fields[15].ReadOnly:= true; dbgitens.Fields[15].Text:=''; end else begin dbgitens.Fields[15].ReadOnly:= false; dbgitens.Fields[15].Text:=''; end; if qgrade.FieldByName('nm').AsString= '0' then begin dbgitens.Fields[16].ReadOnly:= true; dbgitens.Fields[16].Text:=''; end else begin dbgitens.Fields[16].ReadOnly:= false; dbgitens.Fields[16].Text:=''; end; if qgrade.FieldByName('ng').AsString= '0' then begin dbgitens.Fields[17].ReadOnly:= true; dbgitens.Fields[17].Text:=''; end else begin dbgitens.Fields[17].ReadOnly:= false; dbgitens.Fields[17].Text:=''; end; if qgrade.FieldByName('ngg').AsString= '0' then begin dbgitens.Fields[18].ReadOnly:= true; dbgitens.Fields[18].Text:=''; end else begin dbgitens.Fields[18].ReadOnly:= false; dbgitens.Fields[18].Text:=''; end; end; END; end; alguma duvida ou sugestao fala ai
  12. Valeu pessoal, resolveram meu problema... Muito obrigado.
  13. Olá pessoal, Meu Delphi 7 agora ta com um erro muito estranho, toda vez que rodo meu projeto e fecho o sistema, ao voltar para o Delphi aparece uma mensagem de erro dizendo: "Acess violation at address 06E9304E in module Bordbk70.dll read of address 00000010" e após isso aparece outra mensagem e o Delphi é fechado. já reinstalei o Delphi e nada. já substitui a dll por uma do cd de instalação e nada, ate apaguei ela, mas o Windows xp criou outra automaticamente, so que o erro continua . Se alguém souber como resolver, eu agradeço Abraços
  14. Eu estava colocando os teste nos oncolexit do grid, so que estava executando em qualquer coluna, eu resolvi restringindo o teste a coluna de referencia, e executando os calculos somente quando a tabela estava em modo de ediçao ou inclusao. Esta funcionando tudo certo agora, se tiver alguma dúvida entre em contato rafael_gaga@hotmail.com, eu não sei muito, mas talvez posso ajudar. Valeu, Ah, da proxima eu posto a solução galera, é que eu me esqueci
  15. Bem, pode ter forma melhor (se tiver postem aí ), mas se eu entendi direito você pode colocar no OnExit do combobox uma pesquisa SQL que posiciona a tabela no registro do produto em questão, aí é so você testar com IFs se o produto tem aquele campo ou não, se tiver você habilita o enabled do campo se não você desabilita.
  16. Olá pessoal, eu estou fazendo um formulário de busca onde o cliente tem a opção de marcar o filtro "MÊS ATUAL" e assim filtrar todos os pedidos que estão para ser entregues este mes, pois é, so que eu não estou conseguindo retirar o mês dos dados salvos no banco de dados, quando se cadastra o pedido ele salva a data em um campo VarChar (mysql 4.1) porque também tem a opção procurar por data de cadastro e no formato data não se salva com mesmo formato digitado (ai o sql não funciona) então eu to precisando retirar o valor do Mês de uma variável string no formato dd/mm/yyyy e comparar com o mês atual. Se alguém tiver uma ideia de como fazer, vai me ajudar bastante... Obrigado.
  17. Rafael GAGA

    Dbcombobox

    Carlos, você pode usar o componente DBLookupComboBox que já faz isso automaticamente, ele lista para você automaticamente, mas se você não quiser usar este, basta fazer uma consulta SQL no campo desejado da tabela em questão e jogar o resultado para dentro do DBcombobox, eu faço isso, mas de cabeça eu não lembro, sou iniciante no delphi (não gosto muito do DBLookupComboBox apesar de ser bem mais simples ), se você quiser um exemplo avisa ai que eu trago de casa e posto também .
  18. Rafael GAGA

    Banco De Dados

    Sistema comercial em qual área? farmácia, supermercado?
  19. Olá pessoal, eu to criando um cad pedido e nele tem um dbgrid onde se digita os itens do pedido, eu digito a ref e já cai o valor do produto, caract. etc em seus campos, so que quando clico em uma outra linha já digitada da erro dizendo que a tabela que ta ligada no grid não esta em modo de inserção ou edição. Deve ser coisa simples mas não consigo achar o erro. Eu uso bd Mysql e conexão zeos (zquery). Obrigado...
  20. Da uma olhada aí: tópico
  21. Estou fazendo um cadastro de cliente , e gostaria de colocar um campo 'ativo' e 'inativo' para o cliente, so que o usuário não teria q passar por ele para escolher, ele teria o conteúdo 'ativo' automaticamente quando pedisse um novo registro (porem com as duas opcões se desejar). Coloquei um dbcombobox no form com ativo já escolhido, so que se o cliente não editar o campo ele não salva. alguém tem alguma dica pra me ajudar nessa??? Obrigado Uso o banco mysql 4.1 e conexao pelo zeos (zquery).
  22. Dei uma olhada, é o dbcombobox mesmo, e ta ligado com o campo, ta até salvando, mas primeiro eu tenho q ir la e editar o campo, vou tentar mudar a rotina que adiciona o item automaticamente nele de lugar pra ver se funciona, mas se alguém tiver alguma outra ideia, postem aí por favor, vai ajudar bastante:) Valeu...
  23. Olá pessoal, sou iniciante em delphi e estou fazendo um cadastro de cliente. Utilizo o zeos como conexão e mysql como bd. No formulário eu coloquei um combobox com as opções ativo e inativo para o cliente, e ativo para aparecer automaticamente, de forma q não se precisa preencher o campo a menos que clique com o mouse, só que sem ser editado pelo usuário o campo não esta salvando, quando clico em salvar, ele fica em branco. Obrigado, pela força.
  24. Ai, talvez muitos conheçam, mas achei a dica muito legal, talvez resolva seu problema, apesar de parecer ser o arquivo e não o programa em si (já que tentou abrir em outras versões), mas vale apena tentar. ao clicar no link do programa Corel você aperta F8 (tem que ser bem no início do carregamento do programa) aí ele pergunta se você quer restaurar o programa para os padrões de fábrica, você responde que sim e ele volta 0 km, so que aí você perde suas configurações pessoais como atalhos, mas se o problema é no programa ele normalmene resolve. obs: eu ia por o link do tuto, mas esqueci onde foi que eu li, rsrsrs, mas se eu lembrar eu coloco.
×
×
  • Criar Novo...