Rafael GAGA

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.

muito boa a materia

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é...

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.

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

como assim alocar o registro atual e + 1? dar dois insert? me desculpe mas sou bem novato ainda Valeu

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

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

Ah sim, agora entendi , valeu pela força. Obrigado.

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

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

Valeu pessoal, resolveram meu problema... Muito obrigado.

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

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

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.