Re: [delphi-br] Stored Procedure
Bom dia... no ADOStoreProcedure eu uso a seguinte propriedade: ADOStoreProcedure.parameters.refresh [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ADO Consulta
SELECT * FROM Tabela WHERE Campo_Data BETWEEN '10/10/2005' AND '06/12/2005' Essa é uma solução que usei em SQLSERVER 2000, talvez tenha que adaptar a sintaxe Abraços! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Packages e DLLs
Jose; se eu nao estiver falando bobagen; voce pode distribuir somente o arquivo .bpl; e crie um manual com os nomes de suas funcoes; ai o pessoal pode usalo como se fosse uma dll; por exemplo usando o GetProcAddres...que e usado nas DLL; Atenc. Elazar. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de José Ricardo Aviles Enviada em: sábado, 19 de novembro de 2005 07:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Packages e DLLs Olá amigos. Eu estou tendo uma dificuldade em decidir sobre a adoção de packages/dll para desenvolver ao invés de arquivos executáveis, eu estou passando pelo seguinte problema. Eu tenho uma biblioteca com vários ancestors e componentes escritos por mim, uma empresa se interessou em desenvolver com minhas bibliotecas mas eu não gostaria de seder os fontes para eles, ai eu estava pensando em converte-los para packages e distribui-los para esta empresa. Eu estou falando alguma besteira? Quais as implicações? Por favor me ajudem. Atenciosamente José Ricardo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fsqb58v/M=380335.7481167.8369105.2369893/D =brclubs/S=2137111264:HM/Y=BR/EXP=1132404953/A=3126093/R=2/id=noscript/S IG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http: //www.hoteis.com _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Writeln para a imprenssão
Bom dia! Está impossível entender muito sua dúvida, mas de qualquer forma vou tentar explicar algo. Não adianta enviar os caracteres aleatoriamente para a impressora. Você deve ler o manual da mesma, para saber qual caractere deverá enviar para que ocorra o que você necessita. Para impressora matricial Epson, o caractere 12 é Form Feed, ou seja ele ejeta o formulário de acordo com a configuração de tamanho do papel que a impressora está configura. Use a função abaixo para especificar o tamanho do papel que você necessita. procedure SetPrinterPage(Width, Height : LongInt); var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; PDMode : PDEVMODE; begin Printer.GetPrinter(Device, Driver, Port, hDMode); If hDMode 0 then begin pDMode := GlobalLock( hDMode ); If pDMode nil then begin pDMode^.dmPaperSize := DMPAPER_USER; pDMode^.dmPaperWidth := Width; pDMode^.dmPaperLength := Height; pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE; GlobalUnlock( hDMode ); end; end; end; Boa sorte. Ulisses - Original Message - From: Hudson [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, November 18, 2005 6:49 PM Subject: [delphi-br] Writeln para a imprenssão Gente estou usando Writeln(Imp, #12); Ejetar folha mas me parece q ela ainda puxa o papel a4.. já tentei com #012 mas deu errado... alguem sabe o codigo? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Teclado padrão ABNT/ABNT2 ou INGL ÊS - A solução
Testei no windows 2000 e funcionou perfeitamente, valeu pela dica -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de User-BA Enviada em: domingo, 20 de novembro de 2005 13:17 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Teclado padrão ABNT/ABNT2 ou INGLÊS - A solução Olá gente! Ufa! Até que enfim... Meses... Para 2 linhas de código :) * Fonte de pesquisa para a solução da charada: * MSDN microsoft * Vale a pena visitar. Inserir as linhas abaixo em um timer, abrir as opções regionais no painel de controle alterar as opções do teclado para ABNT/ABNT2/Estados Unidos Internacional, etc. e ver o resultado :) * Solução testada em Windows XP. procedure TForm1.Timer1Timer(Sender: TObject); var s_LayOut_Teclado : String; begin SetLength (s_LayOut_Teclado, 8); GetKeyBoardLayoutName(PChar(s_LayOut_Teclado)); If s_LayOut_Teclado = '0416' then Label1.Caption := 'Português - Brasil - ABNT' Else if s_LayOut_Teclado = '00010416' then Label1.Caption := 'Português - Brasil - ABNT2' Else if s_LayOut_Teclado = '00020409' then Label1.Caption := 'Estados Unidos - Internacional' Else Label1.Caption := 'LayOut não Identificado'; end; Espero que sirva para alguem em alguma ocasião. Valeu Abraços para todos. Luciano-User-BA User-BA wrote: Olá! Alguem conhece alguma função que retorne o tipo do teclado da máquina do usuário? Se ABNT/ABNT2 (aquele com o Ç (cedilha)) ou INGLÊS (sem o Ç (cedilha)). Obrigado Luciano-User-BA ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1295 (20051120) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Novo Grupo de ECO
Caros amigos, Criei um grupo para interessados em compartilhar seus conhecimentos e experiencias com o ECO no Google Groups. Para entrar: http://groups.google.com.br/group/ECOmmunity-BR/subscribe Um Abraço, Daniel Polistchuck Consulting Services Manager Borland Software Corporation Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947 [EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ A Borland Software Corporation é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Testar se já existe - Criar/Abrir FORMs dentro de PANEL - Aplicação SDI .. .
Olá! Preciso desenvolver uma aplicação tipo SDI No form principal vou ter alguns panels. O panel cental deve abrigar os outros forms, ou seja, preciso abrir os forms dentro deste panel, sempre que o cliente clicar em 1 determinado botão, ex: form1 - dentro do panelcentral, form2 - dentro do panelcentral, etc Meus form (com exceção do principal) deverão ser criados dimanicamente. Preciso de uma força de vocês. Como eu faço para encaixar este form (criado dinamicamente) no panelcentral, e quando precisar abrir outros dentro deste panel, como faço para testar se o form a ser mostrado já está criado e encaixado dentro do panel, e se for o caso CRIA-LO ou mostrar em SHOW/SHOMODAL? Valeu gente. Obrigado Luciano-User-BA ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] [OFF] dotNet
Colegas, Quero iniciar em .net e a linguagem que escolhi é o C#. Como faço para migrar meus programas para C# e .NET? O Delphi2005 e suficiente para trabalhar com esta tecnologia? Alguém pode me indicar sites realacionados ao assunto? Desde já agradeço, Edmilson Pontes - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Testar se já existe - Criar/Abrir FORMs dentro de PANEL - Aplicação SDI ...
Bom dia, Eu nunca usei, mas acredito que o que vc quer pode ser resolvido usando frame. Na pasta de exemplos do delphi tem um bom, que poderá de dar uma luz. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] [OFF] dotNet
Edmilson, O Delphi 2005 atende sim à sua necessidade para miograr para C#, com a vantagem de poder continuar compilando os seus projetos atuais desenvolvidos em Delphi. O site que tenho para te indicar é o www.msdnbrasil.com.br, é tudo voltado ao Visual Studio mas o conteúdo .Net e C# é muito bom. Filipe Xavier Ramalho Desenvolvimento Telefone: (41) 3219-2043 Duty Sistemas de Gerenciamento de Riscos S/A http://www.duty.com.br Antes de imprimir pense no MEIO AMBIENTE! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Edmilson Pontes Enviada em: segunda-feira, 21 de novembro de 2005 09:43 Para: Delphi-BR Assunto: [delphi-br] [OFF] dotNet Colegas, Quero iniciar em .net e a linguagem que escolhi é o C#. Como faço para migrar meus programas para C# e .NET? O Delphi2005 e suficiente para trabalhar com esta tecnologia? Alguém pode me indicar sites realacionados ao assunto? Desde já agradeço, Edmilson Pontes - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Executando Scripts SQL
Nova pagina 1 Pessoal, alguém de vocês usa o componente do Zeos ZSQLProcessor para executar scripts sql's ? Bom eu uso e estou tendo problemas com relação a lentidão, pela memória ficar cheia praticamente, pois uso pra restaurar backups de base de dados, e normalmente elas são grandes, (pra mim no momento grande é 120 MB de sql), gostaria de saber se alguém conseguiu otimizar o processo. Obrigado Ricardo Malikoski [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Formulario nao fica maximizado corretamente no XP
Qual a melhor solucao para resolver o meu problema... quando maximizo os formularios no windows xp, a barra de status sempre fica embaixo da system try do windows xp (quando habilitados os recursos graficos ) att. Fernando Mangussi -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Packages e DLLs
Olá José, é isso mesmo, você pode distribuir somente a(s) .bpl e os .dcus. Aí o cliente instala a bpl e pronto, é só utilizar. Celso Lorenzetti - Original Message - From: Elazar To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 8:13 AM Subject: RES: [delphi-br] Packages e DLLs Jose; se eu nao estiver falando bobagen; voce pode distribuir somente o arquivo .bpl; e crie um manual com os nomes de suas funcoes; ai o pessoal pode usalo como se fosse uma dll; por exemplo usando o GetProcAddres...que e usado nas DLL; Atenc. Elazar. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de José Ricardo Aviles Enviada em: sábado, 19 de novembro de 2005 07:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Packages e DLLs Olá amigos. Eu estou tendo uma dificuldade em decidir sobre a adoção de packages/dll para desenvolver ao invés de arquivos executáveis, eu estou passando pelo seguinte problema. Eu tenho uma biblioteca com vários ancestors e componentes escritos por mim, uma empresa se interessou em desenvolver com minhas bibliotecas mas eu não gostaria de seder os fontes para eles, ai eu estava pensando em converte-los para packages e distribui-los para esta empresa. Eu estou falando alguma besteira? Quais as implicações? Por favor me ajudem. Atenciosamente José Ricardo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fsqb58v/M=380335.7481167.8369105.2369893/D =brclubs/S=2137111264:HM/Y=BR/EXP=1132404953/A=3126093/R=2/id=noscript/S IG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http: //www.hoteis.com _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Grade de Produtos
José, mas desta maneira, o cliente teria de cadastrar um produto novo, para
cada tipo, cor, modelo, ect...
Cou propor uma maneira aqui...
características
codigo
descricao
tipo { Cor, número, com cadarço, sem, com mola, com turbina }
cadastro de produtos
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
produtos / caracteristicas
cod_produto
cod_caracteristica
Assim, o cadastramento do produto fica independente do cadastramento de
características, e ainda, quando o cliente cadastrar um produto, e atribuir
suas devidas características, dificilmente ele precisará mexer no produto
novamente. Ex. Quando chegar um novo número do produto, é só adicionar uma
característica ao produto. Não há necessidade de um novo cadastramento.
E quanto ao campo 'tipo' da tabela características, poderia ser uma tabela
também, se os tipos fossem muito diversos.
Bom, flw.
Vitor.
- Original Message -
From: José Ricardo Aviles
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, November 20, 2005 10:53 PM
Subject: [delphi-br] Re: Grade de Produtos
Caro Junior.
Realmente este é um problema pelo qual todos os programadores passam
e não há como realmente encontrar uma solução efetiva e simples.
Vc pode ter 2 possibilidades
1- a tabela de produtos com um campo de chave primária ex.:
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
e cadastrar todos os produtos por exemplo
1, camisa tipo 1 branca p
2, camisa tipo 1 branca m
3, camisa tipo 1 branca g
4, camisa tipo 2 branca p
etc...
esta é a solução mais simples de se implementar, mas é a menos
elaborada com relação a extração de dados para relatórios, vc não
poderia ter um relatorio de estoque do tamanho P apenas isto seria
passível e erro se o produto não seguisse um padrão rígido de
cadastro (algo que nunca vi um cliente fazer!).
2-tabela com multiplas chaves
cadastro de tamanho
cod_cor numeric PK
dsc_cor VARCHAR(20)
cadastro de tamanho
cod_tam numeric PK
dsc_tam VARCHAR(20)
cadastro de produtos
cod_produto NUMERIC PK
cod_cor numeric PK FK
cod_tam numeric PK FK
dsc_produto VARCHAR(100)
e as vendas e o estoque seguem o mesmo padrão, é mais trabalhoso de
se implementar mas é relamente a solução mais efetiva, se o cliente
lhe pedir um relatório de vendas com vários critério vc prontamente
saberá quais campos buscar.
Espero ter ajudado.
Jose Ricardo Aviles
--- Em delphi-br@yahoogrupos.com.br, Junior Terenzi
[EMAIL PROTECTED] escreveu
Alguem tem alguma ideia de como criar uma grade de produtos?
Eu desenvolvi um sistema para controle de loja de roupas e agora o
cliente quer controlar os produtos por tamanhos, cores, etc.
Exemplo
Camisa é o produto 500. Camisa tamanhos P-M-G-GG serão todas com o
codigo 500, mas preciso controlar o estoque separado por tamanho.
Eu
pensei em criar uma tabela para cadastrar os tipos de grade, para
dar
flexibilidade ao sistema.
Seria algo assim:
tipo_grade (codigo, descricao, nome_coluna, nome_linha)
1 - CAMISA MASCULINA - CAMISA - TAMANHO
2 - CAMISA INFANTIL - CAMISA - TAMANHO
detalhe_grade (sequencial, codigo, tipo, descricao)
1 - 1 - Linha - Adulto
2 - 1 - Coluna - P
3 - 1 - Coluna - M
4 - 1 - Coluna - G
5 - 1 - Coluna - GG
1 - 2 - Linha - Infantil
2 - 2 - Coluna - 8
3 - 2 - Coluna - 10
4 - 2 - Coluna - 12
5 - 2 - Coluna - 14
Agora estou quebrando a cabeça para saber como fazer pra controlar
o
estoque por produto.
E na hora da venda, vou ter que informar o produto 500 e o
tamanho, etc.
Alguem tem alguma idéia melhor? Algum exemplo pra fornecer?
Obrigado antecipadamente
Abracos
Junior
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Packages e DLLs
Mais ha muita diferença no desenvolvimento/manutenção?? quais os pontos negativos deste tipo de abordagem? Atenciosamente José Ricardo --- Em delphi-br@yahoogrupos.com.br, Celso Lorenzetti - GMail [EMAIL PROTECTED] escreveu Olá José, é isso mesmo, você pode distribuir somente a(s) .bpl e os .dcus. Aí o cliente instala a bpl e pronto, é só utilizar. Celso Lorenzetti - Original Message - From: Elazar To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 8:13 AM Subject: RES: [delphi-br] Packages e DLLs Jose; se eu nao estiver falando bobagen; voce pode distribuir somente o arquivo .bpl; e crie um manual com os nomes de suas funcoes; ai o pessoal pode usalo como se fosse uma dll; por exemplo usando o GetProcAddres...que e usado nas DLL; Atenc. Elazar. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de José Ricardo Aviles Enviada em: sábado, 19 de novembro de 2005 07:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Packages e DLLs Olá amigos. Eu estou tendo uma dificuldade em decidir sobre a adoção de packages/dll para desenvolver ao invés de arquivos executáveis, eu estou passando pelo seguinte problema. Eu tenho uma biblioteca com vários ancestors e componentes escritos por mim, uma empresa se interessou em desenvolver com minhas bibliotecas mas eu não gostaria de seder os fontes para eles, ai eu estava pensando em converte-los para packages e distribui-los para esta empresa. Eu estou falando alguma besteira? Quais as implicações? Por favor me ajudem. Atenciosamente José Ricardo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fsqb58v/M=380335.7481167.8369105.236989 3/D =brclubs/S=2137111264:HM/Y=BR/EXP=1132404953/A=3126093/R=2/id=noscrip t/S IG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a? http: //www.hoteis.com _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] subject=Unsubscribe * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE --- --- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Grade de Produtos
Valeu victor, excelente solução. Mas e quanto ao estoque???
e quando o dono da empresa quiser saber em um relatório da ficha de
movimentação de estoque de todos os produtos tamanho p da cor azul,
claro que há uma maneira de se fazer isso, mais imagina a
trabalheira para o programador para fazer isso.
--- Em delphi-br@yahoogrupos.com.br, Vitor Luiz Redes
[EMAIL PROTECTED] escreveu
José, mas desta maneira, o cliente teria de cadastrar um
produto novo, para cada tipo, cor, modelo, ect...
Cou propor uma maneira aqui...
características
codigo
descricao
tipo { Cor, número, com cadarço, sem, com mola, com turbina }
cadastro de produtos
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
produtos / caracteristicas
cod_produto
cod_caracteristica
Assim, o cadastramento do produto fica independente do
cadastramento de características, e ainda, quando o cliente
cadastrar um produto, e atribuir suas devidas características,
dificilmente ele precisará mexer no produto novamente. Ex. Quando
chegar um novo número do produto, é só adicionar uma característica
ao produto. Não há necessidade de um novo cadastramento.
E quanto ao campo 'tipo' da tabela características, poderia
ser uma tabela também, se os tipos fossem muito diversos.
Bom, flw.
Vitor.
- Original Message -
From: José Ricardo Aviles
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, November 20, 2005 10:53 PM
Subject: [delphi-br] Re: Grade de Produtos
Caro Junior.
Realmente este é um problema pelo qual todos os programadores
passam
e não há como realmente encontrar uma solução efetiva e simples.
Vc pode ter 2 possibilidades
1- a tabela de produtos com um campo de chave primária ex.:
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
e cadastrar todos os produtos por exemplo
1, camisa tipo 1 branca p
2, camisa tipo 1 branca m
3, camisa tipo 1 branca g
4, camisa tipo 2 branca p
etc...
esta é a solução mais simples de se implementar, mas é a menos
elaborada com relação a extração de dados para relatórios, vc
não
poderia ter um relatorio de estoque do tamanho P apenas isto
seria
passível e erro se o produto não seguisse um padrão rígido de
cadastro (algo que nunca vi um cliente fazer!).
2-tabela com multiplas chaves
cadastro de tamanho
cod_cor numeric PK
dsc_cor VARCHAR(20)
cadastro de tamanho
cod_tam numeric PK
dsc_tam VARCHAR(20)
cadastro de produtos
cod_produto NUMERIC PK
cod_cor numeric PK FK
cod_tam numeric PK FK
dsc_produto VARCHAR(100)
e as vendas e o estoque seguem o mesmo padrão, é mais trabalhoso
de
se implementar mas é relamente a solução mais efetiva, se o
cliente
lhe pedir um relatório de vendas com vários critério vc
prontamente
saberá quais campos buscar.
Espero ter ajudado.
Jose Ricardo Aviles
--- Em delphi-br@yahoogrupos.com.br, Junior Terenzi
[EMAIL PROTECTED] escreveu
Alguem tem alguma ideia de como criar uma grade de produtos?
Eu desenvolvi um sistema para controle de loja de roupas e
agora o
cliente quer controlar os produtos por tamanhos, cores, etc.
Exemplo
Camisa é o produto 500. Camisa tamanhos P-M-G-GG serão todas
com o
codigo 500, mas preciso controlar o estoque separado por
tamanho.
Eu
pensei em criar uma tabela para cadastrar os tipos de grade,
para
dar
flexibilidade ao sistema.
Seria algo assim:
tipo_grade (codigo, descricao, nome_coluna, nome_linha)
1 - CAMISA MASCULINA - CAMISA - TAMANHO
2 - CAMISA INFANTIL - CAMISA - TAMANHO
detalhe_grade (sequencial, codigo, tipo, descricao)
1 - 1 - Linha - Adulto
2 - 1 - Coluna - P
3 - 1 - Coluna - M
4 - 1 - Coluna - G
5 - 1 - Coluna - GG
1 - 2 - Linha - Infantil
2 - 2 - Coluna - 8
3 - 2 - Coluna - 10
4 - 2 - Coluna - 12
5 - 2 - Coluna - 14
Agora estou quebrando a cabeça para saber como fazer pra
controlar
o
estoque por produto.
E na hora da venda, vou ter que informar o produto 500 e o
tamanho, etc.
Alguem tem alguma idéia melhor? Algum exemplo pra fornecer?
Obrigado antecipadamente
Abracos
Junior
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
---
---
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos
Termos do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER
[delphi-br] Gravar arquivo em Diretorio Documents and settings
Pessoal, tenho a seguinte rotina que salva um relatorio do quick report. // aqui é um save dialog, que escolho o local e nome do arquivo... if SaveDialog.Execute then begin F_Relatorio := TF_Relatorio.Create(nil); //Prepara o Relatório F_Relatorio.QuickRep1.Prepare; // ESTA LINHA SALVA O QUICK REPORT NO DIRETORIO ESCOLHIDO F_Relatorio.QuickRep1.QRPrinter.ExportToFilter(TQRWMFExportFilter.Create(SaveDialog.FileName)); F_Relatorio.QRPrinter.Free; F_Relatorio.QRPrinter := nil; F_Relatorio.free; end; Acontece que se eu escolho o diretorio Documents and setting\Usuario para gravar... ele não Grava... E estou tentando gravar o diretorio do proprio usuario logado... Agora, gravar em C:\, por exemplo... funciona... Alguma ajuda??? Danilo - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] float, integer, string
Galera,,
Tenho uma tabela access com um campo tipo NUMERO com 2 casas decimais com um
valor
123,45
preciso somar este campo aa uma variavel do tipo:
var
wtotfncSolicit : integer;
Depois da soma preciso jogar em um tedit
wtotFncSolicit :=
wtotfncSolicit+strtoint(formatfloat('###.###,##',dtmodpronac.adoquery1.field
byname('Valorsolicitado').asinteger));
como fica esta linha d cima (da soma)
soh estou conseguindo
123,00
123,0
123,
e nunca o correto que eh 123,45
preciso de ajuda nas tres fazes definir o tipo de variavel
eh a soma
e mostrar no edit correamente
Gratíssimo
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Leitor optico
Olá comunidade Delphiana! Estou com um probleminha aqui com um leitor de codigo de barras da marca metrologic modelo MK5145-71A47/BZ estamos trabalhando com padrão EAN13, conseguimos configurar para esse tipo mas não coseguimos desabilitar o verificador de dígitos. Nossos clientes querem criar o próprio código. Alguém sabe como devo proceder? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Palestras da 4ª Borcon BR
Oi pessoal ... bom dia a todos ... Infelizmente eu não pude ir na Borcon ... e tenho certeza que outros colegas aqui da lista também estão muito interessados sobre as palestras que ocorreram ... Será que algum amigo aqui da lista ... que foi na Borcon ... pode dar uma palhinha ... pra nós que não fomos sobre com foi estas palestras: - Introdução a Model Driven Architecture com Delphi 2006 e ECO III (Leonel Togniolli) - Design Patterns para Delphi 2006 (Fabio Oliveira) Obrigado, Att. Hélder ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Grade de Produtos
Bom dia meu amigo
eu tenho feito da seguinte forma:
Criei uma tabela com estes campos ae abaixo:
codigoproduto
cor
tamanho
saldo
codigoincremental
observacao
codigodagrade
data
e quando seu cadastro de produtos for usar grade, cor e tamanho vc utiliza
esta tabela em conjunto com sua tabela de produtos. Vc vai estar atualizando
saldo de estoque pelo campo codigodagrade.
será que consegui te explicar, talvez alguem tenha alguma ideia melhor.
Paulo
- Original Message -
From: Vitor Luiz Redes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 21, 2005 9:19 AM
Subject: Re: [delphi-br] Re: Grade de Produtos
José, mas desta maneira, o cliente teria de cadastrar um produto novo,
para cada tipo, cor, modelo, ect...
Cou propor uma maneira aqui...
características
codigo
descricao
tipo { Cor, número, com cadarço, sem, com mola, com turbina }
cadastro de produtos
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
produtos / caracteristicas
cod_produto
cod_caracteristica
Assim, o cadastramento do produto fica independente do cadastramento de
características, e ainda, quando o cliente cadastrar um produto, e atribuir
suas devidas características, dificilmente ele precisará mexer no produto
novamente. Ex. Quando chegar um novo número do produto, é só adicionar uma
característica ao produto. Não há necessidade de um novo cadastramento.
E quanto ao campo 'tipo' da tabela características, poderia ser uma
tabela também, se os tipos fossem muito diversos.
Bom, flw.
Vitor.
___
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Packages e DLLs
Que eu lembre, não há nenhuma diferença no desenvolvimento, e nem pontos negativos. Pelo menos para as finalidades que eu tenho utilizado, não encontrei nenhum ponto negativo, pelo contrário... Ceslo Lorenzetti. - Original Message - From: José Ricardo Aviles To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 10:02 AM Subject: [delphi-br] Re: Packages e DLLs Mais ha muita diferença no desenvolvimento/manutenção?? quais os pontos negativos deste tipo de abordagem? Atenciosamente José Ricardo --- Em delphi-br@yahoogrupos.com.br, Celso Lorenzetti - GMail [EMAIL PROTECTED] escreveu Olá José, é isso mesmo, você pode distribuir somente a(s) .bpl e os .dcus. Aí o cliente instala a bpl e pronto, é só utilizar. Celso Lorenzetti - Original Message - From: Elazar To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 8:13 AM Subject: RES: [delphi-br] Packages e DLLs Jose; se eu nao estiver falando bobagen; voce pode distribuir somente o arquivo .bpl; e crie um manual com os nomes de suas funcoes; ai o pessoal pode usalo como se fosse uma dll; por exemplo usando o GetProcAddres...que e usado nas DLL; Atenc. Elazar. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de José Ricardo Aviles Enviada em: sábado, 19 de novembro de 2005 07:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Packages e DLLs Olá amigos. Eu estou tendo uma dificuldade em decidir sobre a adoção de packages/dll para desenvolver ao invés de arquivos executáveis, eu estou passando pelo seguinte problema. Eu tenho uma biblioteca com vários ancestors e componentes escritos por mim, uma empresa se interessou em desenvolver com minhas bibliotecas mas eu não gostaria de seder os fontes para eles, ai eu estava pensando em converte-los para packages e distribui-los para esta empresa. Eu estou falando alguma besteira? Quais as implicações? Por favor me ajudem. Atenciosamente José Ricardo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fsqb58v/M=380335.7481167.8369105.236989 3/D =brclubs/S=2137111264:HM/Y=BR/EXP=1132404953/A=3126093/R=2/id=noscrip t/S IG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a? http: //www.hoteis.com _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] subject=Unsubscribe * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE --- --- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse:
Re: [delphi-br] Re: Grade de Produtos
Olhe, no seu caso, o único porém, seria trocar a manuteção do estoque para
o código da característica do produto...
Ao invés de controlar pelo produto, contrlle pela característica... por
exemplo:
características
codigo
descricao
tipo { Cor, número, com cadarço, sem, com mola, com turbina }
cadastro de produtos
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
produtos / caracteristicas
codigo (incremental, ou incremental por produto)
cod_produto
cod_caracteristica
estoque
característica
saldo
outras informações...
Na verdade o processo é o mesmo, para agilizar, você poderia inserir
algumas características automaticamente, quando um produto fosse inserido...
tipo, por grupo de produtos...
Por ex: Se um produto do grupo 'Nike' for inserido, dispare um trigger, ou
uma rotina para inserir as característica, 'amarelo', 'ronaldinho', '34', '35',
direto na tabela de produtos / características...
É só um exemplo, mas acho que é uma maneira de controlar, é só adaptar para
a sua realidade, qualquer coisa, poste ae, que tentamos ajudar, blz ?
Vitor.
- Original Message -
From: José Ricardo Aviles
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 21, 2005 11:05 AM
Subject: [delphi-br] Re: Grade de Produtos
Valeu victor, excelente solução. Mas e quanto ao estoque???
e quando o dono da empresa quiser saber em um relatório da ficha de
movimentação de estoque de todos os produtos tamanho p da cor azul,
claro que há uma maneira de se fazer isso, mais imagina a
trabalheira para o programador para fazer isso.
--- Em delphi-br@yahoogrupos.com.br, Vitor Luiz Redes
[EMAIL PROTECTED] escreveu
José, mas desta maneira, o cliente teria de cadastrar um
produto novo, para cada tipo, cor, modelo, ect...
Cou propor uma maneira aqui...
características
codigo
descricao
tipo { Cor, número, com cadarço, sem, com mola, com turbina }
cadastro de produtos
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
produtos / caracteristicas
cod_produto
cod_caracteristica
Assim, o cadastramento do produto fica independente do
cadastramento de características, e ainda, quando o cliente
cadastrar um produto, e atribuir suas devidas características,
dificilmente ele precisará mexer no produto novamente. Ex. Quando
chegar um novo número do produto, é só adicionar uma característica
ao produto. Não há necessidade de um novo cadastramento.
E quanto ao campo 'tipo' da tabela características, poderia
ser uma tabela também, se os tipos fossem muito diversos.
Bom, flw.
Vitor.
- Original Message -
From: José Ricardo Aviles
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, November 20, 2005 10:53 PM
Subject: [delphi-br] Re: Grade de Produtos
Caro Junior.
Realmente este é um problema pelo qual todos os programadores
passam
e não há como realmente encontrar uma solução efetiva e simples.
Vc pode ter 2 possibilidades
1- a tabela de produtos com um campo de chave primária ex.:
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
e cadastrar todos os produtos por exemplo
1, camisa tipo 1 branca p
2, camisa tipo 1 branca m
3, camisa tipo 1 branca g
4, camisa tipo 2 branca p
etc...
esta é a solução mais simples de se implementar, mas é a menos
elaborada com relação a extração de dados para relatórios, vc
não
poderia ter um relatorio de estoque do tamanho P apenas isto
seria
passível e erro se o produto não seguisse um padrão rígido de
cadastro (algo que nunca vi um cliente fazer!).
2-tabela com multiplas chaves
cadastro de tamanho
cod_cor numeric PK
dsc_cor VARCHAR(20)
cadastro de tamanho
cod_tam numeric PK
dsc_tam VARCHAR(20)
cadastro de produtos
cod_produto NUMERIC PK
cod_cor numeric PK FK
cod_tam numeric PK FK
dsc_produto VARCHAR(100)
e as vendas e o estoque seguem o mesmo padrão, é mais trabalhoso
de
se implementar mas é relamente a solução mais efetiva, se o
cliente
lhe pedir um relatório de vendas com vários critério vc
prontamente
saberá quais campos buscar.
Espero ter ajudado.
Jose Ricardo Aviles
--- Em delphi-br@yahoogrupos.com.br, Junior Terenzi
[EMAIL PROTECTED] escreveu
Alguem tem alguma ideia de como criar uma grade de produtos?
Eu desenvolvi um sistema para controle de loja de roupas e
agora o
cliente quer controlar os produtos por tamanhos, cores, etc.
Exemplo
Camisa é o produto 500. Camisa tamanhos P-M-G-GG serão todas
com o
codigo 500, mas preciso controlar o estoque separado por
tamanho.
Eu
pensei em criar uma tabela para cadastrar os tipos de grade,
para
Re: [delphi-br] Leitor optico
Bom dia, No manual do seu leitor de codigo de barras , vc encontra como desabilitar a checagem do digito verificador. Paulo - Original Message - From: Denise [EMAIL PROTECTED] To: Delphi delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 10:25 AM Subject: [delphi-br] Leitor optico Olá comunidade Delphiana! Estou com um probleminha aqui com um leitor de codigo de barras da marca metrologic modelo MK5145-71A47/BZ estamos trabalhando com padrão EAN13, conseguimos configurar para esse tipo mas não coseguimos desabilitar o verificador de dígitos. Nossos clientes querem criar o próprio código. Alguém sabe como devo proceder? ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Palestras da 4ª Borcon BR
oi pessoal, Fui neste Borcon mas nunca tinha participado. Muito legal, super organizado. A gente faz contatos à beça, aprende um monte de dicas. O Bruno Lichot bem que poderia explicar mais sobre regra de negócios no servidor. Achei interessante. Bom mesmo foi quem ganhou a moto (um rapaz do Paraguai). Nós aqui, ganhamos uma licença Enterprise do Delphi. Como compramos 2 licenças e 1 upgrade.. uma saiu de graça. :-) []'s Eliza Hélder Rodrigues wrote: Oi pessoal ... bom dia a todos ... Infelizmente eu não pude ir na Borcon ... e tenho certeza que outros colegas aqui da lista também estão muito interessados sobre as palestras que ocorreram ... Será que algum amigo aqui da lista ... que foi na Borcon ... pode dar uma palhinha ... pra nós que não fomos sobre com foi estas palestras: - Introdução a Model Driven Architecture com Delphi 2006 e ECO III (Leonel Togniolli) - Design Patterns para Delphi 2006 (Fabio Oliveira) Obrigado, Att. Hélder -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Instalação do Delphi-Boleto v2.1
Bom dia, prezados colegas! Estou tentando instalar o componente Delphi-Boleto v2.1, de Genilton Barbosa, mas estou recebendo a msg Undeclared identifier: 'TObjectList' . Incluí na Library Path, o diretório aonde estão os arquivos *.dcu, *.pas e diretório Source\ToolsAPI', conforme orienta o Leiame.txt, mas quando compilo o package gbCob6.dpk, a msg acima é emitida. Alguém sabe o que pode ser isso ou qual a solução? Estou usando o Delphi 6. Agradeço a coloboração. Abraços cordiais, Vandinei Santos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Leitor optico
Oi Paulo! Esse é justamente o problema! Não conseguimos configurar! Por mais que a gente passe o leitor na opção no check digit para configurar não funciona. Mesmo assim agradeço. - Original Message - From: plucaslazaro To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 12:14 PM Subject: Re: [delphi-br] Leitor optico Bom dia, No manual do seu leitor de codigo de barras , vc encontra como desabilitar a checagem do digito verificador. Paulo - Original Message - From: Denise [EMAIL PROTECTED] To: Delphi delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 10:25 AM Subject: [delphi-br] Leitor optico Olá comunidade Delphiana! Estou com um probleminha aqui com um leitor de codigo de barras da marca metrologic modelo MK5145-71A47/BZ estamos trabalhando com padrão EAN13, conseguimos configurar para esse tipo mas não coseguimos desabilitar o verificador de dígitos. Nossos clientes querem criar o próprio código. Alguém sabe como devo proceder? ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Código de Barras
Fabrício,
Gostei do seu código de barras, mas estou com um problema:
Uso o qr406 pro, ele exibe o código de barras no qrimage, mas na hora de
imprimir não sai nada.
Já viu isso acontecer?
Sabe como resolver?
Obrigado.
Levi
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabrício Pinheiro França
Enviada em: terça-feira, 8 de novembro de 2005 21:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Código de Barras
Tem dois tipos de funções que eu tenho. Para gerar código I25 e EAN13. As
duas utilizam um componente imagem
Procedure I25CriaCodBarra(Cod : String; Imagem : TCanvas); Const
digitos : array['0'..'9'] of string[5]= ('00110', '10001',
'01001', '11000',
'00101', '10100',
'01100', '00011',
'10010', '01010'); Var
Numero : String;
Cod1 : Array[1..1000] Of Char;
Cod2 : Array[1..1000] Of Char;
Codigo : Array[1..1000] Of Char;
Digito : String;
c1,c2 : Integer;
x,y,z,h : LongInt;
a,b,c,d : TPoint;
I : Boolean;
Begin
Numero := Cod;
For x := 1 to 1000 Do
Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
End
;
c1 := 1;
c2 := 1;
x := 1;
For y := 1 to Length(Numero) div 2 do
Begin
Digito := Digitos[Numero[x ]];
For z := 1 to 5 do
Begin
Cod1[c1] := Digito[z];
Inc(c1);
End
;
Digito := Digitos[Numero[x+1]];
For z := 1 to 5 do
Begin
Cod2[c2] := Digito[z];
Inc(c2);
End
;
Inc(x,2);
End
;
y := 5;
Codigo[1] := '0';
Codigo[2] := '0';
Codigo[3] := '0';
Codigo[4] := '0'; { Inicio do Codigo }
For x := 1 to c1-1 do
begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
end
;
Codigo[y] := '1'; Inc(y); { Final do Codigo }
Codigo[y] := '0'; Inc(y);
Codigo[y] := '0';
Imagem.Pen .Width := 1;
Imagem.Brush.Color := ClWhite;
Imagem.Pen .Color := ClWhite;
a.x := 1; a.y := 0;
b.x := 1; b.y := 79;
c.x := 2000; c.y := 79;
d.x := 2000; d.y := 0;
Imagem.Polygon([a,b,c,d]);
Imagem.Brush.Color := ClBlack;
Imagem.Pen .Color := ClBlack;
x := 0;
i := True;
for y:=1 to 1000 do
begin
If Codigo[y] #0 Then
Begin
If Codigo[y] = '0' then
h := 1
Else
h := 3
;
a.x := x; a.y := 0;
b.x := x; b.y := 79;
c.x := x+h-1; c.y := 79;
d.x := x+h-1; d.y := 0;
If i Then Imagem.Polygon([a,b,c,d]);
i := Not(i);
x := x + h;
End
;
end
;
end;
Function EAN13Calculadv(codigo:string):string;
var
i,sp,si,d,dv:word;
s:single;
begin
if length(codigo)12 then codigo:=copy(codigo,1,12);
sp:=0;
si:=0;
for i:=1 to length(codigo) do
begin
d:=strtoint( copy(codigo,i,1) );
if odd(length(codigo)+1-i) then si:=si+d*7 else sp:=sp+d*9;
end
;
s:=(sp+si)/10;
dv:=Trunc(10*frac(s));
if codigo='' then
EAN13Calculadv := ''
else
EAN13Calculadv := codigo+inttostr(dv)
;
end;
procedure EAN13DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas); var
X, Y, H: LongInt;
A, B, C, D: TPoint;
I: Boolean;
begin
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
x := 10;
i := True;
for y := 1 to Length(SequenciaHexa) do
begin
if SequenciaHexa[y] = '0' then
Imagem.Pen.Color := ClWhite
else
Imagem.Pen.Color := ClBlack
;
h := 1;
a.x := x;
a.y := 0;
b.x := x;
b.y := 50;
c.x := x + h - 1;
c.y := 50;
d.x := x + h - 1;
d.y := 0;
case Y of
1..3, 46..50, 93..95:
begin
b.y := 55;
c.y := 55;
end
;
end;
Imagem.Polygon([A, B, C, D]);
i := not (i);
x := x + h;
end
;
end;
procedure EAN13CriaCodBarra(CodBarras: string; Imagem: TCanvas); const
TabelaA: array[0..9] of string[7] = ('0001101', '0011001',
'0010011', '001',
'0100011', '0110001',
'010', '0111011',
'0110111', '0001011');
TabelaB: array[0..9] of string[7] = ('0100111', '0110011',
'0011011', '0011011',
'0011101', '0111001',
'101', '0010001',
'0001001', '0010111');
TabelaC: array[0..9] of string[7] = ('1110010', '1100110',
'1101100', '110',
'1011100', '1001110',
'101',
Re: [delphi-br] Leitor optico
Olá! Ou o manual não é o manual correto (adequado) Ou a configuração não está sendo feita de forma correta... Tente falar com o revendedor do leitor ou diretamente com o fabricante. Isto é fácil de fazer, mas somente com o leitor e manual em mãos. Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Denise [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 1:35 PM Subject: Re: [delphi-br] Leitor optico Oi Paulo! Esse é justamente o problema! Não conseguimos configurar! Por mais que a gente passe o leitor na opção no check digit para configurar não funciona. Mesmo assim agradeço. - Original Message - From: plucaslazaro To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 12:14 PM Subject: Re: [delphi-br] Leitor optico Bom dia, No manual do seu leitor de codigo de barras , vc encontra como desabilitar a checagem do digito verificador. Paulo - Original Message - From: Denise [EMAIL PROTECTED] To: Delphi delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 10:25 AM Subject: [delphi-br] Leitor optico Olá comunidade Delphiana! Estou com um probleminha aqui com um leitor de codigo de barras da marca metrologic modelo MK5145-71A47/BZ estamos trabalhando com padrão EAN13, conseguimos configurar para esse tipo mas não coseguimos desabilitar o verificador de dígitos. Nossos clientes querem criar o próprio código. Alguém sabe como devo proceder? ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Código de Barras
Achei esse código de barras bem legal, era isso o que eu estava procurando,
gostaria de saber algumas coisas:
- Porque ele sempre começa com o 7 na frente?
- Ele não faz nenhuma rotina para verificar se o número é maior que 12 (para
gerar o 13º automaticamente), seria interessante colocar isso
- Essa rotina esta realmente certa?
Quem poderia confirmar essas informações e nos ajudar?
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Levi Ribeiro de Freitas
Enviada em: segunda-feira, 21 de novembro de 2005 14:41
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Código de Barras
Fabrício,
Gostei do seu código de barras, mas estou com um problema:
Uso o qr406 pro, ele exibe o código de barras no qrimage, mas na hora de
imprimir não sai nada.
Já viu isso acontecer?
Sabe como resolver?
Obrigado.
Levi
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabrício Pinheiro França
Enviada em: terça-feira, 8 de novembro de 2005 21:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Código de Barras
Tem dois tipos de funções que eu tenho. Para gerar código I25 e EAN13. As
duas utilizam um componente imagem
Procedure I25CriaCodBarra(Cod : String; Imagem : TCanvas); Const
digitos : array['0'..'9'] of string[5]= ('00110', '10001',
'01001', '11000',
'00101', '10100',
'01100', '00011',
'10010', '01010'); Var
Numero : String;
Cod1 : Array[1..1000] Of Char;
Cod2 : Array[1..1000] Of Char;
Codigo : Array[1..1000] Of Char;
Digito : String;
c1,c2 : Integer;
x,y,z,h : LongInt;
a,b,c,d : TPoint;
I : Boolean;
Begin
Numero := Cod;
For x := 1 to 1000 Do
Begin
Cod1 [x] := #0;
Cod2 [x] := #0;
Codigo[x] := #0;
End
;
c1 := 1;
c2 := 1;
x := 1;
For y := 1 to Length(Numero) div 2 do
Begin
Digito := Digitos[Numero[x ]];
For z := 1 to 5 do
Begin
Cod1[c1] := Digito[z];
Inc(c1);
End
;
Digito := Digitos[Numero[x+1]];
For z := 1 to 5 do
Begin
Cod2[c2] := Digito[z];
Inc(c2);
End
;
Inc(x,2);
End
;
y := 5;
Codigo[1] := '0';
Codigo[2] := '0';
Codigo[3] := '0';
Codigo[4] := '0'; { Inicio do Codigo }
For x := 1 to c1-1 do
begin
Codigo[y] := Cod1[x]; Inc(y);
Codigo[y] := Cod2[x]; Inc(y);
end
;
Codigo[y] := '1'; Inc(y); { Final do Codigo }
Codigo[y] := '0'; Inc(y);
Codigo[y] := '0';
Imagem.Pen .Width := 1;
Imagem.Brush.Color := ClWhite;
Imagem.Pen .Color := ClWhite;
a.x := 1; a.y := 0;
b.x := 1; b.y := 79;
c.x := 2000; c.y := 79;
d.x := 2000; d.y := 0;
Imagem.Polygon([a,b,c,d]);
Imagem.Brush.Color := ClBlack;
Imagem.Pen .Color := ClBlack;
x := 0;
i := True;
for y:=1 to 1000 do
begin
If Codigo[y] #0 Then
Begin
If Codigo[y] = '0' then
h := 1
Else
h := 3
;
a.x := x; a.y := 0;
b.x := x; b.y := 79;
c.x := x+h-1; c.y := 79;
d.x := x+h-1; d.y := 0;
If i Then Imagem.Polygon([a,b,c,d]);
i := Not(i);
x := x + h;
End
;
end
;
end;
Function EAN13Calculadv(codigo:string):string;
var
i,sp,si,d,dv:word;
s:single;
begin
if length(codigo)12 then codigo:=copy(codigo,1,12);
sp:=0;
si:=0;
for i:=1 to length(codigo) do
begin
d:=strtoint( copy(codigo,i,1) );
if odd(length(codigo)+1-i) then si:=si+d*7 else sp:=sp+d*9;
end
;
s:=(sp+si)/10;
dv:=Trunc(10*frac(s));
if codigo='' then
EAN13Calculadv := ''
else
EAN13Calculadv := codigo+inttostr(dv)
;
end;
procedure EAN13DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas); var
X, Y, H: LongInt;
A, B, C, D: TPoint;
I: Boolean;
begin
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
x := 10;
i := True;
for y := 1 to Length(SequenciaHexa) do
begin
if SequenciaHexa[y] = '0' then
Imagem.Pen.Color := ClWhite
else
Imagem.Pen.Color := ClBlack
;
h := 1;
a.x := x;
a.y := 0;
b.x := x;
b.y := 50;
c.x := x + h - 1;
c.y := 50;
d.x := x + h - 1;
d.y := 0;
case Y of
1..3, 46..50, 93..95:
begin
b.y := 55;
c.y := 55;
end
;
end;
Imagem.Polygon([A, B, C,
[delphi-br] Desligar o Windows 2000 Professional
Alguém sabe como desligar o WIndows 2000 professional, via código delphi ??
Tenho um exemplo, mas só funciona para Win 98 !
Vejam abaixo o ex. para Win98 :
-
uses Shellapi;
{$R *.DFM}
procedure desliga;
begin
ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE, 0);
end;
-
Alguém sabe ?
[ ]'s
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Desligar o Windows 2000 Professional
Tenta essa
procedure TfrmPrincipal.MenuDesligarClick(Sender: TObject);
var
pid, hToken: THANDLE;
tkp, tpkNewButIgnored: TOKEN_PRIVILEGES;
tmpLuid: TLUIDAndAttributes;
BufLen: DWORD;
begin
if Mensagens([MbYes, MBNo], 'Desligar o Computador ?') = IDYes then
begin
Pid := GetCurrentProcess;
OpenProcessToken(Pid, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken);
LookUpPrivilegeValue(nil, 'SeShutdownPrivilege', tmpLUID.LUID);
with tkp do
begin
PrivilegeCount := 1;
Privileges[0].Luid := tmpLUID.LUID;
Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
end;
AdjustTokenPrivileges(hToken, False, tkp,
sizeof(tpkNewButIgnored), tpkNewButIgnored, BufLen);
if not ExitWindowsEx(EWX_FORCE + EWX_POWEROFF, 0) then { POWEROFF }
ExitWindowsEx(EWX_FORCE + EWX_LOGOFF, 0); { LOGOFF }
Close;
end;
end;
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
Deptº Tempos Metodos.
Fone: (11)2145-7823 - Fax : (11)2145-7910
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Rogério
Enviada em: segunda-feira, 21 de novembro de 2005 13:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Desligar o Windows 2000 Professional
Alguém sabe como desligar o WIndows 2000 professional, via código delphi ??
Tenho um exemplo, mas só funciona para Win 98 !
Vejam abaixo o ex. para Win98 :
-
uses Shellapi;
{$R *.DFM}
procedure desliga;
begin
ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE, 0);
end;
-
Alguém sabe ?
[ ]'s
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] DBGrid com Checkbox????
Tenho este codigo mas nao estou conseguindo criar um executavel para ele, alguem pode me ajudar?? Quero fazer um DBGrid com CheckBox quem souber como arrumar ou tiver um exemplo disponivel agradeco muito, Nicholas procedure TFDados2.SaveBoolean3; begin Self.DBGrid3.SelectedField.Dataset.Edit; Self.DBGrid3.SelectedField.AsBoolean := not Self.DBGrid3.SelectedField.AsBoolean; Self.DBGrid3.SelectedField.Dataset.Post; end; procedure TFDados2.DBGrid3CellClick(Column: TColumn); begin if Self.DBGrid3.SelectedField.DataType = ftBoolean then SaveBoolean3(); end; procedure TFDados2.DBGrid3ColEnter(Sender: TObject); begin if Self.DBGrid3.SelectedField.DataType = ftBoolean then begin Self.FOriginalOptions := Self.DBGrid3.Options; Self.DBGrid3.Options := Self.DBGrid3.Options - [dgEditing]; end; end; procedure TFDados2.DBGrid3ColExit(Sender: TObject); begin if Self.DBGrid3.SelectedField.DataType = ftBoolean then Self.DBGrid3.Options := Self.FOriginalOptions; end; procedure TFDados2.DBGrid3ColExit(Sender: TObject); begin if Self.DBGrid3.SelectedField.DataType = ftBoolean then Self.DBGrid3.Options := Self.FOriginalOptions; end; procedure TFDados2.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Const CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var CheckBoxRectangle : TRect; begin if Column.Field.DataType = ftBoolean then begin Self.DBGrid3.Canvas.FillRect(Rect); CheckBoxRectangle.Left := Rect.Left + 2; CheckBoxRectangle.Right := Rect.Right - 2; CheckBoxRectangle.Top := Rect.Top + 2; CheckBoxRectangle.Bottom := Rect.Bottom - 2; DrawFrameControl(Self.DBGrid3.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[Column.Field.AsBoolean]); end; end; [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] float, integer, string
Oi Cicero
é o seguinte, voce deve primeiro somar os valores e depois formatar para jogar
na edit fica assim então
edit1.text := formatfloat('###.###,##',(wtotfncSolicit
+dtmodpronac.adoquery1.fieldbyname('Valorsolicitado').asfloat));
- Original Message -
From: Cícero
To: [EMAIL PROTECTED] ; Listadelphi (E-mail)
Sent: Monday, November 21, 2005 1:04 PM
Subject: [delphi-br] float, integer, string
Galera,,
Tenho uma tabela access com um campo tipo NUMERO com 2 casas decimais com um
valor
123,45
preciso somar este campo aa uma variavel do tipo:
var
wtotfncSolicit : integer;
Depois da soma preciso jogar em um tedit
wtotFncSolicit :=
wtotfncSolicit+strtoint(formatfloat('###.###,##',dtmodpronac.adoquery1.field
byname('Valorsolicitado').asinteger));
como fica esta linha d cima (da soma)
soh estou conseguindo
123,00
123,0
123,
e nunca o correto que eh 123,45
preciso de ajuda nas tres fazes definir o tipo de variavel
eh a soma
e mostrar no edit correamente
Gratíssimo
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: OO - Relação 1 para N
Você não está sendo chato e Orientação a Objetos é algo que gosto
muito de discutir. Gostaria que outros participassem, mas...
Vamos lá!!!
Ainda não tive como testar, mas continuo achando que o typecast não
é necessário porque você já criou um objeto do mesmo tipo para
receber o objeto recuperado na lista.
Vejamos o problema da incubadora. Ao meu entender seria algo assim:
Type
TEspecie = (tpPeixe, tpAnfibio, tpReptil, tpAve);
Type
TAnimal = Class(TObject)
Private
FCodigo : Integer;
FNome : String;
FEspecie: TEspecie;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Nome : String Read FNomeWrite FNome
Property Especie: TEspecie Read FEspecie Write FEspecie;
Function Listar(oEspecie: TEspecie): TList;
End;
Type
TOvo = Class(TObject)
Private
FCodigo: Integer;
FAnimal: TAnimal;
...
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Animal : TAnimal Read FAnimal Write FAnimal;
End;
Type
TIncubadora = Class(TObject)
Private
FCodigo : Integer;
FCapacidade : Integer;
FPrateleiras : Smallint;
FTemperatura : Float;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Capacidade : Integer Read FCapacidade Write
FCapacidade;
Property Prateleiras: Smallint Read FPrateleiras Write
FPrateleiras;
Property Temperatura: FloatRead FTemperatura Write
FTemperatura;
Class Function ListaOvos: TList;
End;
Se para você é importante saber em que local o Ovo está sem ter que
perguntar e percorrer a emcubadora, monte um novo objeto para te
auxiliar nessa tarefa, mas não acho que você deve criar uma
referência da emcubadora no ovo.
Ex.:
Type
TEstocagem = Class(TObject)
Private
FOvo: TOvo;
FEmcubadora : TEmcubadora;
FPrateleira : Smallint;
FPosicao: Smallint;
Protected
Public
Property Ovo : TOvoRead FOvoWrite FOvo;
Property Emcubadora: TEmcubadora Read FEmcubadora Write
FEmcubadora;
Property Prateleira: SmallintRead FPrateleira Write
FPrateleira;
Property Posicao : SmallintRead FPosicaoWrite FPosicao;
Function Buscar(oOvo: TOvo): Boolean; Overload;
End;
O exemplo que você informou de um relacionamento 1 para 1 na verdade
é um relacionamento 1 para N, porque um ovo só pode vir de uma
avestruz, mas um avestruz pode pôr vários ovos. Estou certo?
Vamos colocar um relacionamento de 1 para 1 como sendo o de Pessoa e
CNH (Carteira Nacional de Habilitação). Digamos que a Classe Pessoa
terá um objeto do tipo TCNH junto aos seus atributos. Vejamos o
exemplo:
Type
TPessoa = Class(TObject)
Private
FCodigo: Integer;
FNome : String;
FCNH : TCNH;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Nome : String Read FNome Write FNome;
Property CNH: TCNHRead FCNH Write FCNH;
End;
Type
TCNH = Class(TObject)
Private
FCodigo: Integer;
FNumero: String;
FRegistro : String
FCategoria : String;
FDataExame : TDateTime;
FExpedicao : TDateTime;
FValidade : TDateTime;
FObservacao: String;
Protected
Public
Property Codigo: Integer Read FCodigo;
Property Numero: StringRead FNumero Write FNumero;
Property Registro : StringRead FRegistro Write FRegistro;
Property Categoria : StringRead FCategoria Write FCategoria;
Property DataExame : TDateTime Read FDataExame Write FDataExame;
Property Expedicao : TDateTime Read FExpedicao Write FExpedicao;
Property Validade : TDateTime Read FValidade Write FValidade;
Property Observacao: StringRead FObservacao Write
FObservacao;
Function Buscar(iCodigo: Integer): Boolean; Overload;
Function Buscar(sNumero: String): Boolean; Overload;
Function Buscar(dtValidade: TDateTime): Boolean; Overload;
End;
No exemplo acima sabemos que o objeto Pessoa conhece sua CNH através
da instância do objeto que ele possui, mas se precisarmos conhecer
uma Pessoa através de uma CNH o problema fica mais difícil. A
solução que vejo no momento seria:
No seu DataModule:
Function TdmPessoa.Buscar(iCodigo: Integer, oPessoa: TPessoa):
Boolean;
Begin
With cdsPessoa Do
Begin
Try
Close;
CommandText := 'Select * From Pessoa P ' +
'Join CNH C On (P.Codigo = C.CodPessoa) ' +
'Where P.Codigo = ' + IntTostr(iCodigo);
Open;
If RecordCount 0 Then
Begin
Result := True;
Pessoa.Nome := FieldByName('Nome').AsString;
...
Pessoa.oCNH.Buscar(iCodigo);
End;
Except
on E: Exception do
ShowMessage(E.Message);
End;
End;
End;
Ufa!!! Acho que exemplifiquei bastante dessa vez. Vai dar até para
escrever um livro. :-D
Obs.: Como estou codificando direto no corpo do e-mail, pode ser que
aja alguns erros. :-(
Sds,
RES: [delphi-br] ClientDataSet - Como trazer novamente um registro do servidor, no OnReconcileError
Não sei se vai resolver o seu caso, mais eu faço assim
if cds_padrao.ApplyUpdates(0) 0 then
cds_padrao.UndoLastChange(true);
[]s,
Clériston Ramos
_
De: Paulo [mailto:[EMAIL PROTECTED]
Enviada em: domingo, 20 de novembro de 2005 17:59
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ClientDataSet - Como trazer novamente um registro do
servidor, no OnReconcileError
Pessoal:
a) Estou usando Delphi 7 com DBExpress/ClientDataSet e InterBase 6
b) No evento OnReconcileError de um ClientDataSet, eu verifico qual foi a
mensagem
de erro:
- Se foi violacao de chave, quero executar um raAbort
- Se foi pelo fato de outro usuario na rede ter alterado o registro,
quero reler o registro alterado do servidor de dados (para que o
usuario
que recebeu o erro veja em sua tela o registro atual do BD)
c) Pelo que entendi do help do Delphi, para trazer novamente o registro do
servidor,
tenho que executar o comando Action := raRefresh
d) Porem, quando o programa faz um Action := raRefresh, ele entra em loop
(fica entrando sempre no OnReconcileError, e o usuario tem de pressionar
CTRL+ALT+DEL
para abortar o programa)
Poderiam analisar o codigo no final deste e-mail e me dizer o que esta'
errado ?
Obsservacoes:
1) O ApplyUpdates(0) eu executo no evento AfterPost do ClientDataSet
2) No OnReconcileError, ja' tentei fazer um .close e .open no
ClientDataSet,
mas entao aparece um outro erro, referente ao provedor (ate' esqueci qual
e')
Muito obrigado pela atencao de todos
Paulo
procedure
TFormCadMatServicos.ClientDataSetTBMATSERVICOSReconcileError(DataSet:
TCustomClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind; var
Action: TReconcileAction);
var
sMensagem : String;
begin
if Pos('PRIMARY OR UNIQUE KEY', AnsiUpperCase(E.Message)) 0 then
begin
sMensagem := 'Registro já cadastrado.';
Action := raAbort;
end
else
if Pos('REGISTRO FOI ALTERADO POR OUTRO USUÁRIO',
AnsiUpperCase(E.Message)) 0 then
begin
sMensagem := 'Este registro foi alterado por outro usuário.';
Action := raRefresh;
end
else
begin
sMensagem := 'Algum erro inesperado ocorreu.';
Action := raAbort;
end;
MessageDlg(sMensagem, mtError, [mbOK], 0);
end;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
http://br.rd.yahoo.com/SIG=12fkti5ao/M=365837.7000707.7924794.2369893/D=brc
lubs/S=2137111264:HM/Y=BR/EXP=1132523762/A=2950750/R=2/id=noscript/SIG=10tif
t5qr/*http:/br.movies.yahoo.com/
http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do http://br.yahoo.com/info/utos.html Yahoo!.
__ Informação do NOD32 1.1295 (20051120) __
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Leitor optico
Denise, no manual tem um codigo de barras que é para iniciar as configuracoes do leitor, depois vc le o cod.Barras pra nao checar o digito e finalmente o cod.Barras que vai finalizar a configuração. Sempre funcionou comigo. Paulo - Original Message - From: Denise [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 1:35 PM Subject: Re: [delphi-br] Leitor optico Oi Paulo! Esse é justamente o problema! Não conseguimos configurar! Por mais que a gente passe o leitor na opção no check digit para configurar não funciona. Mesmo assim agradeço. ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Biblioteca (Unit isolada ou DLL)
Gostaria de saber se é melhor criar uma unit isolada ou Dll para uma coleção de procedures e funções que utilizo constantemente nas minhas aplicações. Como fazer para criá-la ? Obrigado, Leonardo Lemos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Leitor optico
Eu sei amigo que deveria funcionar, porque outros clientes nos trouxeram outras marcas de leitor e funcionou direitinho, é só esse mesmo que esta dando zica. Já entramos em contato como o fornecedor e com a empresa do leitor, mas não tivemos retorno, coloquei o problema para lista com esperança de que alguém já tivesse tido algum tipo de dificuldade com esse mesmo leitor, mas se não, tudo bem, vamos esperar a boa vontade dos caras. Mesmo assim agradeço a dica de todos. - Original Message - From: plucaslazaro To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 4:38 PM Subject: Re: [delphi-br] Leitor optico Denise, no manual tem um codigo de barras que é para iniciar as configuracoes do leitor, depois vc le o cod.Barras pra nao checar o digito e finalmente o cod.Barras que vai finalizar a configuração. Sempre funcionou comigo. Paulo - Original Message - From: Denise [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, November 21, 2005 1:35 PM Subject: Re: [delphi-br] Leitor optico Oi Paulo! Esse é justamente o problema! Não conseguimos configurar! Por mais que a gente passe o leitor na opção no check digit para configurar não funciona. Mesmo assim agradeço. ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Re: OO - Relação 1 para N
Olá Romário, Este é o tipo de coisa com o qual o ECO ajuda demais! Daniel Polistchuck Consulting Services Manager Borland Software Corporation Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947 [EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ A Borland Software Corporation é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of rbr_vix_es Sent: Monday, November 21, 2005 5:05 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: OO - Relação 1 para N Você não está sendo chato e Orientação a Objetos é algo que gosto muito de discutir. Gostaria que outros participassem, mas... Vamos lá!!! Ainda não tive como testar, mas continuo achando que o typecast não é necessário porque você já criou um objeto do mesmo tipo para receber o objeto recuperado na lista. Vejamos o problema da incubadora. Ao meu entender seria algo assim: Type TEspecie = (tpPeixe, tpAnfibio, tpReptil, tpAve); Type TAnimal = Class(TObject) Private FCodigo : Integer; FNome : String; FEspecie: TEspecie; Protected Public Property Codigo : Integer Read FCodigo; Property Nome : String Read FNomeWrite FNome Property Especie: TEspecie Read FEspecie Write FEspecie; Function Listar(oEspecie: TEspecie): TList; End; Type TOvo = Class(TObject) Private FCodigo: Integer; FAnimal: TAnimal; ... Protected Public Property Codigo : Integer Read FCodigo; Property Animal : TAnimal Read FAnimal Write FAnimal; End; Type TIncubadora = Class(TObject) Private FCodigo : Integer; FCapacidade : Integer; FPrateleiras : Smallint; FTemperatura : Float; Protected Public Property Codigo : Integer Read FCodigo; Property Capacidade : Integer Read FCapacidade Write FCapacidade; Property Prateleiras: Smallint Read FPrateleiras Write FPrateleiras; Property Temperatura: FloatRead FTemperatura Write FTemperatura; Class Function ListaOvos: TList; End; Se para você é importante saber em que local o Ovo está sem ter que perguntar e percorrer a emcubadora, monte um novo objeto para te auxiliar nessa tarefa, mas não acho que você deve criar uma referência da emcubadora no ovo. Ex.: Type TEstocagem = Class(TObject) Private FOvo: TOvo; FEmcubadora : TEmcubadora; FPrateleira : Smallint; FPosicao: Smallint; Protected Public Property Ovo : TOvoRead FOvoWrite FOvo; Property Emcubadora: TEmcubadora Read FEmcubadora Write FEmcubadora; Property Prateleira: SmallintRead FPrateleira Write FPrateleira; Property Posicao : SmallintRead FPosicaoWrite FPosicao; Function Buscar(oOvo: TOvo): Boolean; Overload; End; O exemplo que você informou de um relacionamento 1 para 1 na verdade é um relacionamento 1 para N, porque um ovo só pode vir de uma avestruz, mas um avestruz pode pôr vários ovos. Estou certo? Vamos colocar um relacionamento de 1 para 1 como sendo o de Pessoa e CNH (Carteira Nacional de Habilitação). Digamos que a Classe Pessoa terá um objeto do tipo TCNH junto aos seus atributos. Vejamos o exemplo: Type TPessoa = Class(TObject) Private FCodigo: Integer; FNome : String; FCNH : TCNH; Protected Public Property Codigo : Integer Read FCodigo; Property Nome : String Read FNome Write FNome; Property CNH: TCNHRead FCNH Write FCNH; End; Type TCNH = Class(TObject) Private FCodigo: Integer; FNumero: String; FRegistro : String FCategoria : String; FDataExame : TDateTime; FExpedicao : TDateTime; FValidade : TDateTime; FObservacao: String; Protected Public Property Codigo: Integer Read FCodigo; Property Numero: StringRead FNumero Write FNumero; Property Registro : StringRead FRegistro Write FRegistro; Property Categoria : StringRead FCategoria Write FCategoria; Property DataExame : TDateTime Read FDataExame Write FDataExame; Property Expedicao : TDateTime Read FExpedicao Write FExpedicao; Property Validade : TDateTime Read FValidade Write FValidade; Property Observacao: StringRead FObservacao Write FObservacao; Function Buscar(iCodigo: Integer): Boolean; Overload; Function Buscar(sNumero: String): Boolean; Overload; Function Buscar(dtValidade: TDateTime): Boolean; Overload; End; No exemplo acima sabemos que o objeto Pessoa conhece sua CNH através da instância do objeto que ele possui, mas se precisarmos conhecer uma Pessoa através de uma CNH o problema fica mais difícil. A solução que vejo no momento seria: No seu
[delphi-br] comunicação com porta USB.
Existe algum modo de se comunicar com uma porta USB no delphi? ( componente, biblioteca, api) -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: OO - Relação 1 para N
Olá Daniel! Eu até imagino o quanto deve ser produtivo utilizar o ECO, mas eu sou adepto da turma que quer entender como e o que foi feito. Dessa forma, vou aperfeiçoando meus conhecimentos em orientação a objetos. ;-) Sds, Romario Daniel Polistchuck escreveu: Olá Romário, Este é o tipo de coisa com o qual o ECO ajuda demais! Daniel Polistchuck Consulting Services Manager Borland Software Corporation Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947 [EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ A Borland Software Corporation é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] programa tipo planilha
Olá pessoal! Alguém já criou um programa parecido com o excel em delphi? Pode me dar uma dica? Obrigada [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Statusbar e Mascara de Entrada em um campo.
Boa noite, como vai? Seguinte estou precisando de um favor seu, imagino que seja coisa simples, estou com uma status bar e vários campos. Quero que quando o edit1 receber o foco mostrar um texto na statusbar, o edit2 aparece outro e assim segue. A Respeito da Mascara de entrada é um probleminha tenho o campo CPF e os dois ultimos caracteres do campo simplesmente somem quando eu termino de digitar e passo para o proximo campo... Nunca ocorreu este problema comigo... Estou usando Mysql como base de dados... Até mais... - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Componentes desaparecem!!!
Pessoal estou pedindo ajuda pq tá ficando difícil por meu lado... A paleta de componentes do meu Delphi está sumindo, não sei se é por pouca memória ou outro problema. Quando eu estou usando o Delphi com alguns outros programas abertos, tipo Access, Internet Explorer, alguns conponentes desaparecem, ficam 6 da paleta Standar, 8 da paleta Additional e assim por diante. Desta última vez sumiu toda a parela Data Controls essa já foi demais. Se alguém tiver uma dica de como posso fazer pra isso não acontecer me fala. Paulo Cezar. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] programa tipo planilha
At 15:56 21/11/2005, you wrote: Olá pessoal! Alguém já criou um programa parecido com o excel em delphi? Pode me dar uma dica? Obrigada Você pode usar o StringGrid, não vai ser muito facil OU pode experimentar os componentes da www.tmssoftware.com, notadamente, TAdvSpreadGrid. g[], Osmar. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: OO - Relação 1 para N
Nao sei, nao gosto de colocar codigo SQL na camada superior, acho que pode
complicar demais as coisas.
Uma opcao para a relacao 1 para 1 que eu pensei agora seriam classes
amigas colocadas no mesmo arquivo. Isso acabaria com o problema da relacao
circular (mas tem o problema de colocar duas classes no mesmo arquivo).
E quanto a 1 para N, eu vejo uma grande vantagem na bidirecionalidade, pode
poupar buscas imensas, em certos casos.
Sds.
Francisco
On 11/21/05, rbr_vix_es [EMAIL PROTECTED] wrote:
Você não está sendo chato e Orientação a Objetos é algo que gosto
muito de discutir. Gostaria que outros participassem, mas...
Vamos lá!!!
Ainda não tive como testar, mas continuo achando que o typecast não
é necessário porque você já criou um objeto do mesmo tipo para
receber o objeto recuperado na lista.
Vejamos o problema da incubadora. Ao meu entender seria algo assim:
Type
TEspecie = (tpPeixe, tpAnfibio, tpReptil, tpAve);
Type
TAnimal = Class(TObject)
Private
FCodigo : Integer;
FNome : String;
FEspecie: TEspecie;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Nome : String Read FNome Write FNome
Property Especie: TEspecie Read FEspecie Write FEspecie;
Function Listar(oEspecie: TEspecie): TList;
End;
Type
TOvo = Class(TObject)
Private
FCodigo: Integer;
FAnimal: TAnimal;
...
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Animal : TAnimal Read FAnimal Write FAnimal;
End;
Type
TIncubadora = Class(TObject)
Private
FCodigo : Integer;
FCapacidade : Integer;
FPrateleiras : Smallint;
FTemperatura : Float;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Capacidade : Integer Read FCapacidade Write
FCapacidade;
Property Prateleiras: Smallint Read FPrateleiras Write
FPrateleiras;
Property Temperatura: Float Read FTemperatura Write
FTemperatura;
Class Function ListaOvos: TList;
End;
Se para você é importante saber em que local o Ovo está sem ter que
perguntar e percorrer a emcubadora, monte um novo objeto para te
auxiliar nessa tarefa, mas não acho que você deve criar uma
referência da emcubadora no ovo.
Ex.:
Type
TEstocagem = Class(TObject)
Private
FOvo : TOvo;
FEmcubadora : TEmcubadora;
FPrateleira : Smallint;
FPosicao : Smallint;
Protected
Public
Property Ovo : TOvo Read FOvo Write FOvo;
Property Emcubadora: TEmcubadora Read FEmcubadora Write
FEmcubadora;
Property Prateleira: Smallint Read FPrateleira Write
FPrateleira;
Property Posicao : Smallint Read FPosicao Write FPosicao;
Function Buscar(oOvo: TOvo): Boolean; Overload;
End;
O exemplo que você informou de um relacionamento 1 para 1 na verdade
é um relacionamento 1 para N, porque um ovo só pode vir de uma
avestruz, mas um avestruz pode pôr vários ovos. Estou certo?
Vamos colocar um relacionamento de 1 para 1 como sendo o de Pessoa e
CNH (Carteira Nacional de Habilitação). Digamos que a Classe Pessoa
terá um objeto do tipo TCNH junto aos seus atributos. Vejamos o
exemplo:
Type
TPessoa = Class(TObject)
Private
FCodigo: Integer;
FNome : String;
FCNH : TCNH;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Nome : String Read FNome Write FNome;
Property CNH : TCNH Read FCNH Write FCNH;
End;
Type
TCNH = Class(TObject)
Private
FCodigo : Integer;
FNumero : String;
FRegistro : String
FCategoria : String;
FDataExame : TDateTime;
FExpedicao : TDateTime;
FValidade : TDateTime;
FObservacao: String;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Numero : String Read FNumero Write FNumero;
Property Registro : String Read FRegistro Write FRegistro;
Property Categoria : String Read FCategoria Write FCategoria;
Property DataExame : TDateTime Read FDataExame Write FDataExame;
Property Expedicao : TDateTime Read FExpedicao Write FExpedicao;
Property Validade : TDateTime Read FValidade Write FValidade;
Property Observacao: String Read FObservacao Write
FObservacao;
Function Buscar(iCodigo: Integer): Boolean; Overload;
Function Buscar(sNumero: String): Boolean; Overload;
Function Buscar(dtValidade: TDateTime): Boolean; Overload;
End;
No exemplo acima sabemos que o objeto Pessoa conhece sua CNH através
da instância do objeto que ele possui, mas se precisarmos conhecer
uma Pessoa através de uma CNH o problema fica mais difícil. A
solução que vejo no momento seria:
No seu DataModule:
Function TdmPessoa.Buscar(iCodigo: Integer, oPessoa: TPessoa):
Boolean;
Begin
With cdsPessoa Do
Begin
Try
Close;
CommandText := 'Select * From Pessoa P ' +
'Join CNH C On (P.Codigo = C.CodPessoa) ' +
'Where P.Codigo = ' + IntTostr(iCodigo);
Open;
If RecordCount 0 Then
Begin
Result := True;
Pessoa.Nome := FieldByName('Nome').AsString;
...
Pessoa.oCNH.Buscar(iCodigo);
End;
Except
on E: Exception do
ShowMessage(E.Message);
End;
End;
End;
Ufa!!! Acho que exemplifiquei bastante dessa vez. Vai dar até para
escrever um livro. :-D
Obs.: Como
RE: [delphi-br] programa tipo planilha
Desde a versão 3 do Delphi, vem um componente ActiveX disponível na paleta ActiveX ou Samples. O nome dele é F1Book. Com ele, é possível ter uma planilha eletrônica no estilo do Excel. Pesquise mais a respeito. A dica para pescar o peixe foi passada! Boa sorte! []s From: Denise [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: Delphi delphi-br@yahoogrupos.com.br Subject: [delphi-br] programa tipo planilha Date: Mon, 21 Nov 2005 15:56:00 -0200 Olá pessoal! Alguém já criou um programa parecido com o excel em delphi? Pode me dar uma dica? Obrigada [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] UPDATE COM RELACIONAMENTO
- Original Message -
From: Alcistemas Informática
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, November 20, 2005 8:06 PM
Subject: UPDATE COM RELACIONAMENTO
function Atualiza_Estoque_Compras(Sinal: String;Movimento:String):String;
Dm.QY_011.Close;
Dm.QY_011.SQL.Clear;
Dm.QY_011.SQL.Add('UPDATE PRODUTOS');
Dm.QY_011.SQL.Add('INNER JOIN ITENSPEDIDOCompras ON PRODUTOS.COD =
ITENSPEDIDOCompras.CODPROD');
Dm.QY_011.SQL.Add('SET PRODUTOS.ESTOQUEATUAL =
PRODUTOS.ESTOQUEATUAL'+SINAL+'ItensPedidoCompras.QTD');
Dm.QY_011.SQL.Add('WHERE ((PRODUTOS.COD=ITENSPEDIDOCompras.CODPROD And
ITENSPEDIDOCompras.Movimento='+Movimento+'))');
Dm.QY_011.ExecSQL;
DA ERRO DE TOKEN LINE 2 CARACTER 1
obs
essa rotina é de atualização de estoque ao gravar um pedido,
o parametro movimento é o número do Pedido
e o parametro sinal é + para acrescentar o estoque e - para diminuir o estoque
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Gerar instalador
Boa tarde pessoal, como eu faço para gerar um instalador para um programa? Eu uso o Delphi 6 e o programa acessa tabelas no Paradox. Eu preciso comprar algum programa para isso? Existe algum gratuito? Abraço, Anderson Lima; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Grade de Produtos espero que ajude.....
Eu faria da seguinte forma.
TABELA PRODUTOS
COD / REFERENCIA / DESCRIÇÃO / COR /
P / M / G
001 / 00010 / CAMISA MASCULINA / BRANCA / 2 /
1 / 3
002 / 00010 / CAMISA MASCULINA / AZUL/
0 / 0 / 1
Dessa forma fica fácil de controlar o estoque e e de vc fazer uma futura
ordem de produção, os pedidos tem que estar no mesmo formato... na hora
de gerar o pedido, por os campos P M G
vc deve estar se perguntando, e com relação as cores uma cor pra cada código
ou referencia.
se não resolvi espero ter ajudado.
- Original Message -
From: Vitor Luiz Redes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 21, 2005 9:19 AM
Subject: Re: [delphi-br] Re: Grade de Produtos
José, mas desta maneira, o cliente teria de cadastrar um produto novo,
para cada tipo, cor, modelo, ect...
Cou propor uma maneira aqui...
características
codigo
descricao
tipo { Cor, número, com cadarço, sem, com mola, com turbina }
cadastro de produtos
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
produtos / caracteristicas
cod_produto
cod_caracteristica
Assim, o cadastramento do produto fica independente do cadastramento de
características, e ainda, quando o cliente cadastrar um produto, e atribuir
suas devidas características, dificilmente ele precisará mexer no produto
novamente. Ex. Quando chegar um novo número do produto, é só adicionar uma
característica ao produto. Não há necessidade de um novo cadastramento.
E quanto ao campo 'tipo' da tabela características, poderia ser uma
tabela também, se os tipos fossem muito diversos.
Bom, flw.
Vitor.
- Original Message -
From: José Ricardo Aviles
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, November 20, 2005 10:53 PM
Subject: [delphi-br] Re: Grade de Produtos
Caro Junior.
Realmente este é um problema pelo qual todos os programadores passam
e não há como realmente encontrar uma solução efetiva e simples.
Vc pode ter 2 possibilidades
1- a tabela de produtos com um campo de chave primária ex.:
cod_produto NUMERIC PK
dsc_produto VARCHAR(100)
e cadastrar todos os produtos por exemplo
1, camisa tipo 1 branca p
2, camisa tipo 1 branca m
3, camisa tipo 1 branca g
4, camisa tipo 2 branca p
etc...
esta é a solução mais simples de se implementar, mas é a menos
elaborada com relação a extração de dados para relatórios, vc não
poderia ter um relatorio de estoque do tamanho P apenas isto seria
passível e erro se o produto não seguisse um padrão rígido de
cadastro (algo que nunca vi um cliente fazer!).
2-tabela com multiplas chaves
cadastro de tamanho
cod_cor numeric PK
dsc_cor VARCHAR(20)
cadastro de tamanho
cod_tam numeric PK
dsc_tam VARCHAR(20)
cadastro de produtos
cod_produto NUMERIC PK
cod_cor numeric PK FK
cod_tam numeric PK FK
dsc_produto VARCHAR(100)
e as vendas e o estoque seguem o mesmo padrão, é mais trabalhoso de
se implementar mas é relamente a solução mais efetiva, se o cliente
lhe pedir um relatório de vendas com vários critério vc prontamente
saberá quais campos buscar.
Espero ter ajudado.
Jose Ricardo Aviles
--- Em delphi-br@yahoogrupos.com.br, Junior Terenzi
[EMAIL PROTECTED] escreveu
Alguem tem alguma ideia de como criar uma grade de produtos?
Eu desenvolvi um sistema para controle de loja de roupas e agora o
cliente quer controlar os produtos por tamanhos, cores, etc.
Exemplo
Camisa é o produto 500. Camisa tamanhos P-M-G-GG serão todas com o
codigo 500, mas preciso controlar o estoque separado por tamanho.
Eu
pensei em criar uma tabela para cadastrar os tipos de grade, para
dar
flexibilidade ao sistema.
Seria algo assim:
tipo_grade (codigo, descricao, nome_coluna, nome_linha)
1 - CAMISA MASCULINA - CAMISA - TAMANHO
2 - CAMISA INFANTIL - CAMISA - TAMANHO
detalhe_grade (sequencial, codigo, tipo, descricao)
1 - 1 - Linha - Adulto
2 - 1 - Coluna - P
3 - 1 - Coluna - M
4 - 1 - Coluna - G
5 - 1 - Coluna - GG
1 - 2 - Linha - Infantil
2 - 2 - Coluna - 8
3 - 2 - Coluna - 10
4 - 2 - Coluna - 12
5 - 2 - Coluna - 14
Agora estou quebrando a cabeça para saber como fazer pra controlar
o
estoque por produto.
E na hora da venda, vou ter que informar o produto 500 e o
tamanho, etc.
Alguem tem alguma idéia melhor? Algum exemplo pra fornecer?
Obrigado antecipadamente
Abracos
Junior
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
Re: [delphi-br] ClientDataSet - Como trazer novamente um registro doservidor, no OnReconcileError
Clériston: Não sei se vai resolver o seu caso, mais eu faço assim if cds_padrao.ApplyUpdates(0) 0 then cds_padrao.UndoLastChange(true); Agradeco muito sua atencao. Testei sua idéia, mas dessa forma o usuário fica com o registro na tela no estado em que ele estava antes de comeca a fazer sua alteracao. Mas o que eu gostaria de fazer era trazer novamente o registro que esta' no servidor, para que o usuario que recebeu o erro pudesse ver o registro como ele se encontra atualmente no servidor (ja' com as modificacoes feitas pelo outro usuario). Se alguem tiver mais alguma ideia, agradeco muito se enviar. Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Grade de Produtos - Solução???
Aos colegas que responderam (Vitor Luiz Redes, PLucasLazaro, Jose Ricardo Aviles, Rogerio de Jesus da Silva, ) e para todos aqueles que ficaram curiosos... Eu estive testando algumas formas e cheguei numa possivel solução e trago para apreciação/criticas/sugestões dos colegas. Eu criei as seguintes tabelas Produto ID_PRODUTO PRODUTO ID_GRADE Grade ID_GRADE GRADE LINHA DESCRICAO_COLUNA DESCRICAO_COLUNA2 Detalhe_Grade SEQ_DETALHE_GRADE ID_GRADE COLUNA COLUNA2 Referencia_Venda SEQ_REFERENCIA_VENDA ID_PRODUTO SEQ_DETALHE_GRADE CODIGO_BARRA DESCRICAO O relacionamento entre elas seria algo do tipo produto.id_produto -- referencia_venda.id_produto referencia_venda.seq_detalhe_grade = detalhe_grade.seq_detalhe_grade grade.id_grade = detalhe_grade.id_grade produto.id_grade = grade.id_grade No final das contas tive algo assim ID_GRADE GRADE LINHA DESCRICAO_COLUNA DESCRICAO_COLUNA2 1 MASCULINO CAMISA TAMANHO COR 2 MASCULINO CAMISETA TAMANHO COR 3 FEMININO CALÇA TAMANHO TECIDO 4 INFANTIL CAMISETA TAMANHO TECIDO 5 PARAFUSOS PARAFUSO SEXTAVADO MATERIAL TAMANHO 6 PARAFUSOS PARAFUSO FRANCES MATERIAL TAMANHO SEQ_DETALHE_GRADE ID_GRADE COLUNA COLUNA2 1 1 P BRANCO 2 1 P AZUL 3 1 M BRANCO 4 1 M AZUL 5 1 G BRANCO 6 1 G AZUL 7 1 GG BRANCO 8 1 GG AZUL 9 3 38 10 3 40 11 3 42 12 4 10 13 4 12 14 4 14 15 4 16 16 5 ZINCADO 3/8x3 17 5 ZINCADO 3/8x4 18 6 ZINCADO 3/16x1 19 6 ZINCADO 3/16x1.1/ 20 6 ZINCADO 3/16x2 21 6 ZINCADO 3/16x2.1/ 22 6 ZINCADO 1/4x1 23 6 ZINCADO 1/4x1/2 24 6 ZINCADO 1/4x2 25 6 ZINCADO 1/4x2.1/2 SEQ_REFERENCIA_VENDA ID_PRODUTO SEQ_DETALHE_GRADE CODIGO_BARRA DESCRICAO 1 1 18 789988879 PRODUTO VENDA 1 2 2 19 789987897979 PRODUTO VENDA 2 3 3 20 7987998979 PRODUTO VENDA 3 4 4 21 154897879 PRODUTO VENDA 4 5 5 22 7987914198451 PRODUTO VENDA 5 SEQUENCIAL CODIGO SEQDETGRADE DESCRICAO VENDA BARCODE 1 1 18 PARAFUSO FRANCES-ZINCADO-3/16x1 PRODUTO VENDA 1 789988879 2 2 19 PARAFUSO FRANCES-ZINCADO-3/16x1.1/ PRODUTO VENDA 2 789987897979 3 3 20 PARAFUSO FRANCES-ZINCADO-3/16x2 PRODUTO VENDA 3 7987998979 4 4 21 PARAFUSO FRANCES-ZINCADO-3/16x2.1/ PRODUTO VENDA 4 154897879 5 5 22 PARAFUSO FRANCES-ZINCADO-1/4x1 PRODUTO VENDA 5 7987914198451 A tabela referencia_venda irá servir para a venda dos produtos, dessa forma, eu posso fazer a venda por produto simples ou então usando a grade. Se lançar o codigo do produto, eu dou a baixa apenas no produto, se eu lancar a referencia_venda então eu daria a baixa na grade do produto. Acho que assim ficaria bem flexível, inclusive podendo aumentar a quantidade de colunas na tabela detalhe_grade o que iria permitir maiores combinações da grade. Mas agora ainda falta a parte do controle do estoque... Estou aberto a sugestões, dicas, etc.. Abracos a todos Junior Terenzi ps- desculpem o tamanho do texto, mas espero que sirva para ajuda alguem [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gerar instalador
Inno setup...Execelente e free. []'s Topolniak. - Original Message - From: Anderson A. Lima [EMAIL PROTECTED] To: undisclosed-recipients: Sent: Monday, November 21, 2005 2:13 PM Subject: [delphi-br] Gerar instalador Boa tarde pessoal, como eu faço para gerar um instalador para um programa? Eu uso o Delphi 6 e o programa acessa tabelas no Paradox. Eu preciso comprar algum programa para isso? Existe algum gratuito? Abraço, Anderson Lima; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Report
Cleiton, Funciona. Agora, como é eu faço para instalar o componente TQRChart que insere um gráfico no relatório? Cristiano --- Em delphi-br@yahoogrupos.com.br, Cleiton [EMAIL PROTECTED] escreveu Boa tarde André... Estou lhe mandando um link de um artigo que mostra passo a passo como instalar o QuickReport no delphi 7. http://www.imasters.com.br/artigo.php?cn=2612cc=166 espero ter ajudado - Original Message - From: Andre Colanzi [EMAIL PROTECTED] To: Lista Delphi delphi-br@yahoogrupos.com.br Sent: Tuesday, November 08, 2005 8:29 AM Subject: [delphi-br] Report Ola Pessoal Já perguntei isso antes mas depois nunca mais usei e nem salvei, instalei novamente o delphi 7 mas o componente report nao esta instaldo. Como instalar, pois ja tenho relatorios com esse componente e da erro de compilação Obrigado Andre R. C. Santos [EMAIL PROTECTED] - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: OO - Relação 1 para N
O que você chama de camada superior???
O código SQL que coloquei está na *terceira* camada, ou seja, na camada
de acesso à dados. Existe outro local mais correto que esse?
Sds,
Romario
Francisco Trindade escreveu:
Nao sei, nao gosto de colocar codigo SQL na camada superior, acho que pode
complicar demais as coisas.
Uma opcao para a relacao 1 para 1 que eu pensei agora seriam classes
amigas colocadas no mesmo arquivo. Isso acabaria com o problema da relacao
circular (mas tem o problema de colocar duas classes no mesmo arquivo).
E quanto a 1 para N, eu vejo uma grande vantagem na bidirecionalidade, pode
poupar buscas imensas, em certos casos.
Sds.
Francisco
On 11/21/05, rbr_vix_es [EMAIL PROTECTED] wrote:
Você não está sendo chato e Orientação a Objetos é algo que gosto
muito de discutir. Gostaria que outros participassem, mas...
Vamos lá!!!
Ainda não tive como testar, mas continuo achando que o typecast não
é necessário porque você já criou um objeto do mesmo tipo para
receber o objeto recuperado na lista.
Vejamos o problema da incubadora. Ao meu entender seria algo assim:
Type
TEspecie = (tpPeixe, tpAnfibio, tpReptil, tpAve);
Type
TAnimal = Class(TObject)
Private
FCodigo : Integer;
FNome : String;
FEspecie: TEspecie;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Nome : String Read FNome Write FNome
Property Especie: TEspecie Read FEspecie Write FEspecie;
Function Listar(oEspecie: TEspecie): TList;
End;
Type
TOvo = Class(TObject)
Private
FCodigo: Integer;
FAnimal: TAnimal;
...
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Animal : TAnimal Read FAnimal Write FAnimal;
End;
Type
TIncubadora = Class(TObject)
Private
FCodigo : Integer;
FCapacidade : Integer;
FPrateleiras : Smallint;
FTemperatura : Float;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Capacidade : Integer Read FCapacidade Write
FCapacidade;
Property Prateleiras: Smallint Read FPrateleiras Write
FPrateleiras;
Property Temperatura: Float Read FTemperatura Write
FTemperatura;
Class Function ListaOvos: TList;
End;
Se para você é importante saber em que local o Ovo está sem ter que
perguntar e percorrer a emcubadora, monte um novo objeto para te
auxiliar nessa tarefa, mas não acho que você deve criar uma
referência da emcubadora no ovo.
Ex.:
Type
TEstocagem = Class(TObject)
Private
FOvo : TOvo;
FEmcubadora : TEmcubadora;
FPrateleira : Smallint;
FPosicao : Smallint;
Protected
Public
Property Ovo : TOvo Read FOvo Write FOvo;
Property Emcubadora: TEmcubadora Read FEmcubadora Write
FEmcubadora;
Property Prateleira: Smallint Read FPrateleira Write
FPrateleira;
Property Posicao : Smallint Read FPosicao Write FPosicao;
Function Buscar(oOvo: TOvo): Boolean; Overload;
End;
O exemplo que você informou de um relacionamento 1 para 1 na verdade
é um relacionamento 1 para N, porque um ovo só pode vir de uma
avestruz, mas um avestruz pode pôr vários ovos. Estou certo?
Vamos colocar um relacionamento de 1 para 1 como sendo o de Pessoa e
CNH (Carteira Nacional de Habilitação). Digamos que a Classe Pessoa
terá um objeto do tipo TCNH junto aos seus atributos. Vejamos o
exemplo:
Type
TPessoa = Class(TObject)
Private
FCodigo: Integer;
FNome : String;
FCNH : TCNH;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Nome : String Read FNome Write FNome;
Property CNH : TCNH Read FCNH Write FCNH;
End;
Type
TCNH = Class(TObject)
Private
FCodigo : Integer;
FNumero : String;
FRegistro : String
FCategoria : String;
FDataExame : TDateTime;
FExpedicao : TDateTime;
FValidade : TDateTime;
FObservacao: String;
Protected
Public
Property Codigo : Integer Read FCodigo;
Property Numero : String Read FNumero Write FNumero;
Property Registro : String Read FRegistro Write FRegistro;
Property Categoria : String Read FCategoria Write FCategoria;
Property DataExame : TDateTime Read FDataExame Write FDataExame;
Property Expedicao : TDateTime Read FExpedicao Write FExpedicao;
Property Validade : TDateTime Read FValidade Write FValidade;
Property Observacao: String Read FObservacao Write
FObservacao;
Function Buscar(iCodigo: Integer): Boolean; Overload;
Function Buscar(sNumero: String): Boolean; Overload;
Function Buscar(dtValidade: TDateTime): Boolean; Overload;
End;
No exemplo acima sabemos que o objeto Pessoa conhece sua CNH através
da instância do objeto que ele possui, mas se precisarmos conhecer
uma Pessoa através de uma CNH o problema fica mais difícil. A
solução que vejo no momento seria:
No seu DataModule:
Function TdmPessoa.Buscar(iCodigo: Integer, oPessoa: TPessoa):
Boolean;
Begin
With cdsPessoa Do
Begin
Try
Close;
CommandText := 'Select * From Pessoa P ' +
'Join CNH C On (P.Codigo = C.CodPessoa) ' +
'Where P.Codigo = ' + IntTostr(iCodigo);
Open;
If RecordCount 0 Then
Begin
Result := True;
Pessoa.Nome := FieldByName('Nome').AsString;
...
Pessoa.oCNH.Buscar(iCodigo);
End;
Except
on E: Exception do
ShowMessage(E.Message);
End;
End;
End;
Ufa!!! Acho que
Re: [delphi-br] Componentes desaparecem!!!
Isso acontece em qualquer momento de qualquer projeto? Já reparei que a paleta de componentes foi feita de maneira bastante dinâmica e adaptável. Por exemplo, quando um datamodule está selecionado, vários componentes, por exemplo os visuais, desaparecem, pelo motivo óbvio da falta de necessidade deles naquele momento. Pode ser por isso. Analise o objeto selecionado. Espero ter ajudado em algo. Quando descobrir o motivo, divulgue para nós! -- Thiago de Oliveira Quinelato. Aluno do 4º Módulo do Curso Técnico de Informática Industrial - CTU/UFJF. Aluno da 3ª série A do Ensino Médio - CTU/UFJF. Programador de Pascal, Delphi, PHP, Java e MySQL, com conceitos da linguagem C. Em 21/11/05, Paulo Cezar dos Santos Junior [EMAIL PROTECTED] escreveu: Pessoal estou pedindo ajuda pq tá ficando difícil por meu lado... A paleta de componentes do meu Delphi está sumindo, não sei se é por pouca memória ou outro problema. Quando eu estou usando o Delphi com alguns outros programas abertos, tipo Access, Internet Explorer, alguns conponentes desaparecem, ficam 6 da paleta Standar, 8 da paleta Additional e assim por diante. Desta última vez sumiu toda a parela Data Controls essa já foi demais. Se alguém tiver uma dica de como posso fazer pra isso não acontecer me fala. Paulo Cezar. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE http://br.rd.yahoo.com/SIG=12f1r4l0q/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1132620048/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/ -- *Links do Yahoo! Grupos* - Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ - Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED][EMAIL PROTECTED] - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
