Re: Res: [delphi-br] Programador Delphi (CAMPO GRANDE-MS)
É, salário para auxiliar de pedreiro sem qualificação ! --- Em delphi-br@yahoogrupos.com.br, Eny Urias enyur...@... escreveu Eu não poderia deixar de comentar esse anúncio! Eu não sei se a região do anúncio trabalha com essa faixa salarial, mas, olha, pra trabalhar esse tanto e ter essa experiência e essa escolaridade, acho que estão oferecendo muito pouco! Não quero criar polêmica aqui, pelo amor de Deus! Só queria deixar registrada uma opinião. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Douglas Uesato ues...@... Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Setembro de 2010 12:19:03 Assunto: [delphi-br] Programador Delphi (CAMPO GRANDE-MS) Programador Delphi Empresa Contratante: Multicoisas - Analisar e desenvolver sistema de gestão ERP em Delphi. - Ensino Superior (cursando ou concluído) na área de informática. - Experiência em desenvolvimento de Sistemas, Delphi, Firebird e MySQL. Local de trabalho: Campo Grande - MS. Tipo de contratação: CLT, efetivo. Horário: 8h diárias, com 1:30h de intervalo e 4 horas no sábado. Benefícios: VT, VR, Assistência médica (após o período de experiência) e Seguro de vida (após o período de experiência) Faixa Salarial: R$ 1200,00 + Produtividade Cidade: Campo Grande Quantidade de vaga(s): 1 Interessados enviar o currículo para o email: mailto:ues...@... ues...@... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: integrando bases de dados
Desculpe se estou escrevendo besteiras
chave := f_clientes.RzDBEdit3.text -- este RzDBEdit3 não esta passando
caracteres em branco,(espaços), tente aplicar um Trim().
Tive problemas em outras funções, e era isso.
Boia sorte
Zucchi
--- Em delphi-br@yahoogrupos.com.br, Fios e Cabos cic...@... escreveu
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@...
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@... mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := `Select * from tabela where chave = ` +
paramStr(1);
ou
qryTabela.Sql := `Select * from tabela where chave = ` + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Fios e Cabos
Enviada em: sábado, 3 de outubro de 2009 22:43
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Minha duvida é a sgte tenho um Project.exe que chama outro modulo
projec1.exe ...
Como posso fazer para um form do project1 acessar uma base de dados com o
ponteiro definido no Project.
Ou seja ... kero abrir o form do project1 no registro definido pelo Project
Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro
registro do banco ...
Obrigado
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br
[delphi-br] Re: Ajuda Formatação
Sérgio E. Santo...
Eu costumo fazer conforme segue
begin
IF DBEdit22.Field.AsFloat DBEdit35.Field.AsFloat then
begiu
edn;
end;
Espero ter ajudado..
Zucchi
--- Em delphi-br@yahoogrupos.com.br, Gestão - Premium sergioinf...@...
escreveu
Boa tarde a todos
Estou com o seguinte problema
nesta verificação
begin
IF DBEdit22.text DBEdit35.text Then
begin
showMessage('Erro!!!, A quantidade solicitada '+ DBedit22.text+ ' e maior que
a diponivel em estoque '+DBEdit35.text);
DBEdit22.setfocus;
abort;
end;
Mas o sistema retorna que o valor 4,00 e maior que 100,00
alguem poderia me dar uma ajuda isso e formatação el alguns caso da
certo e outros não.
Atenciosamente,
Sérgio E. Santo
Depto. Gestão US - US 001
degest.prem...@...
Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender
11 - 3378-4501
35 - 3422-9949
visite nosso site...
www.premiumalimentacao.com.br
A Premium é uma concessionária moderna e ágil quando o assunto é solução em
alimentação coletiva, atuando em todo o interior dos estados de São Paulo e
Minas Gerais desde1998 e pronta para atuar em todas as regiões do país, esta
preparada para oferecer produtos e serviços com excelência em qualidade nos
segmentos da indústria, saúde, comércio e serviços, educação, agro-negócio e
outros onde nossas soluções sejam bem vindas. Possuimos um diversificado e
flexível portifólio para soluções completas das necessidades dos Clientes e
Consumidores.
De: Henrique Florencio henrique_floren...@...
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 11 de Setembro de 2009 11:23:47
Assunto: RES: [delphi-br] Conduits - Palm X Delphi
Bom dia, já fiz (faço ainda) conduit para palm sim em Delphi, qual é o seu
problema?
Mas antes me responda umas coisas
1 - Vc esta utilizando o Pocket Studio para desenvolver para o Palm?
2 - Na sua DLL vc ta colocando o mesmo CREATOR ID da sua aplicação? (o
HotSync procura o Creator ID da Aplicação)
Henrique Florencio
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em
nome de Arrobba Sistemas
Enviada em: sexta-feira, 11 de setembro de 2009 10:30
Para: delphi...@yahoogrup os.com.br
Assunto: [delphi-br] Conduits - Palm X Delphi
Bom dia,
Alguém já conseguiu fazer um conduit em Delphi para Palm,
Peguei um tutorial na internet, não funcionou, utilizei o CONDCFG.EXE para
configurar o hotsync,
Mas a minha DLL não aparece no log.
Alguém pode dar uma luz
Antonio C. de M. Pires
Arrobba Sistemas
[As partes desta mensagem que não continham texto foram removidas]
- - --
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
__ Informação do NOD32 IMON 1928 (20061219) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset. com.br
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ajuda Formatação
Sérgio E. Santo... desculpe os erros anterioes
Eu costumo fazer conforme segue
begin
IF DBEdit22.Field.AsFloat DBEdit35.Field.AsFloat then
begin
end;
end;
Espero ter ajudado..
Zucchi
--- Em delphi-br@yahoogrupos.com.br, Gestão - Premium sergioinfosp@ escreveu
Boa tarde a todos
Estou com o seguinte problema
nesta verificação
begin
IF DBEdit22.text DBEdit35.text Then
begin
showMessage('Erro!!!, A quantidade solicitada '+ DBedit22.text+ ' e maior
que a diponivel em estoque '+DBEdit35.text);
DBEdit22.setfocus;
abort;
end;
Mas o sistema retorna que o valor 4,00 e maior que 100,00
alguem poderia me dar uma ajuda isso e formatação el alguns caso da
certo e outros não.
Atenciosamente,
Sérgio E. Santo
Depto. Gestão US - US 001
degest.premium@
Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender
11 - 3378-4501
35 - 3422-9949
visite nosso site...
www.premiumalimentacao.com.br
A Premium é uma concessionária moderna e ágil quando o assunto é solução em
alimentação coletiva, atuando em todo o interior dos estados de São Paulo e
Minas Gerais desde1998 e pronta para atuar em todas as regiões do país,
esta preparada para oferecer produtos e serviços com excelência em
qualidade nos segmentos da indústria, saúde, comércio e serviços, educação,
agro-negócio e outros onde nossas soluções sejam bem vindas. Possuimos um
diversificado e flexível portifólio para soluções completas das
necessidades dos Clientes e Consumidores.
De: Henrique Florencio henrique_florencio@
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 11 de Setembro de 2009 11:23:47
Assunto: RES: [delphi-br] Conduits - Palm X Delphi
Bom dia, já fiz (faço ainda) conduit para palm sim em Delphi, qual é o seu
problema?
Mas antes me responda umas coisas
1 - Vc esta utilizando o Pocket Studio para desenvolver para o Palm?
2 - Na sua DLL vc ta colocando o mesmo CREATOR ID da sua aplicação? (o
HotSync procura o Creator ID da Aplicação)
Henrique Florencio
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em
nome de Arrobba Sistemas
Enviada em: sexta-feira, 11 de setembro de 2009 10:30
Para: delphi...@yahoogrup os.com.br
Assunto: [delphi-br] Conduits - Palm X Delphi
Bom dia,
Alguém já conseguiu fazer um conduit em Delphi para Palm,
Peguei um tutorial na internet, não funcionou, utilizei o CONDCFG.EXE para
configurar o hotsync,
Mas a minha DLL não aparece no log.
Alguém pode dar uma luz
Antonio C. de M. Pires
Arrobba Sistemas
[As partes desta mensagem que não continham texto foram removidas]
- - --
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
__ Informação do NOD32 IMON 1928 (20061219) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset. com.br
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ajuda Formatação
Sérgio E. Santo... desculpe os erros anterioes
Eu costumo fazer conforme segue
begin
IF DBEdit22.Field.AsFloat DBEdit35.Field.AsFloat then
begin
end;
end;
Espero ter ajudado..
Zucchi
--- Em delphi-br@yahoogrupos.com.br, Gestão - Premium sergioinfosp@ escreveu
Boa tarde a todos
Estou com o seguinte problema
nesta verificação
begin
IF DBEdit22.text DBEdit35.text Then
begin
showMessage('Erro!!!, A quantidade solicitada '+ DBedit22.text+ ' e maior
que a diponivel em estoque '+DBEdit35.text);
DBEdit22.setfocus;
abort;
end;
Mas o sistema retorna que o valor 4,00 e maior que 100,00
alguem poderia me dar uma ajuda isso e formatação el alguns caso da
certo e outros não.
Atenciosamente,
Sérgio E. Santo
Depto. Gestão US - US 001
degest.premium@
Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender
11 - 3378-4501
35 - 3422-9949
visite nosso site...
www.premiumalimentacao.com.br
A Premium é uma concessionária moderna e ágil quando o assunto é solução em
alimentação coletiva, atuando em todo o interior dos estados de São Paulo e
Minas Gerais desde1998 e pronta para atuar em todas as regiões do país,
esta preparada para oferecer produtos e serviços com excelência em
qualidade nos segmentos da indústria, saúde, comércio e serviços, educação,
agro-negócio e outros onde nossas soluções sejam bem vindas. Possuimos um
diversificado e flexível portifólio para soluções completas das
necessidades dos Clientes e Consumidores.
De: Henrique Florencio henrique_florencio@
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 11 de Setembro de 2009 11:23:47
Assunto: RES: [delphi-br] Conduits - Palm X Delphi
Bom dia, já fiz (faço ainda) conduit para palm sim em Delphi, qual é o seu
problema?
Mas antes me responda umas coisas
1 - Vc esta utilizando o Pocket Studio para desenvolver para o Palm?
2 - Na sua DLL vc ta colocando o mesmo CREATOR ID da sua aplicação? (o
HotSync procura o Creator ID da Aplicação)
Henrique Florencio
-Mensagem original -
De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em
nome de Arrobba Sistemas
Enviada em: sexta-feira, 11 de setembro de 2009 10:30
Para: delphi...@yahoogrup os.com.br
Assunto: [delphi-br] Conduits - Palm X Delphi
Bom dia,
Alguém já conseguiu fazer um conduit em Delphi para Palm,
Peguei um tutorial na internet, não funcionou, utilizei o CONDCFG.EXE para
configurar o hotsync,
Mas a minha DLL não aparece no log.
Alguém pode dar uma luz
Antonio C. de M. Pires
Arrobba Sistemas
[As partes desta mensagem que não continham texto foram removidas]
- - --
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
__ Informação do NOD32 IMON 1928 (20061219) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset. com.br
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [OFF] Referente a nova lei...
Parabéns Maria das Graças, pelo seu comentário. Eu sou simplesmente um Zé, sempre qualifico as pessoas pelas suas capacidades e não pelos títulos que dizem ter. Zucchi --- Em delphi-br@yahoogrupos.com.br, Maria das Graças . dangra2...@... escreveu Nossa, desculpe mas essa eu não aguentei. Fazer uma faculdade é dar exemplo para os filhos, netos e...? Ãhhh? Eu tenho curso superior, mas nem por isso desmereço os grandes profissionais que trabalham na minha empresa e que não tem curso superior. Aliás, tiro o chapéu pra muitos aqui que tem uma bagagem de conhecimento que nem um professor universitário tem. Esses sim, são os grandes exemplos para muitos universitários que estão se formando! Esses sim, são os grandes exemplos para a nova geração! Gente que leu, aprendeu, correu atrás. Gente que tem a teoria e a prática. Gente que fez dos erros, formas de corrigir e melhorar os seus sistemas.. Grandes analistas que não vão deixar nunca de ser Analistas de Sistemas pela falta de um diploma. Gente que, se a lei forçar, irão se sentar num banco de universidade, mas não para aprender e sim ensinar. Fica aqui uma homenagem aos grandes profissionais (programadores e analistas de sistema) com ou sem curso superior. Graça --- Em sáb, 22/8/09, EmbarcaDelphi embarcadel...@... escreveu: De: EmbarcaDelphi embarcadel...@... Assunto: Re: [delphi-br] Re: [OFF] Referente a nova lei... Para: delphi-br@yahoogrupos.com.br Data: Sábado, 22 de Agosto de 2009, 21:06 É verdade, mas também isso é uma minoria que não se deve tomar como exemplo, estude e faça por merecer, analfa/curso técnico não justifica não precisar de estudar. Dê exemplos para a sua e a nossa próxima geração. Ter uma vida aqui na terra e não deixar o exemplo é melhor nem ter nascido. Conheço senhoras de 65 anos que estão terminando a universidade agora. Que exemplo ela dá para os filhos, netos e para a sociedade Pense nisso! Parei o OFF por aqui, não quero criar flames, o que falei é a realidade e podemos ver isso em todos os lugares do globo terrestre... lidio.zucchi escreveu: Conheço muitos que tem curso superior, mas que são analfabetos e semi-analfabetos do saber. Zucchi . Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [OFF] Referente a nova lei...
Conheço muitos que tem curso superior, mas que são analfabetos e semi-analfabetos do saber. Zucchi --- Em delphi-br@yahoogrupos.com.br, EmbarcaDelphi embarcadel...@... escreveu hehehehehe, é só zueira. mas convenhamos, antigamente quem não tinha o segundo grau era semio-analfa mesmo, e hoje, não sou eu quem digo, é semi-analfa mesmo, pode crer, é o que todo munndo diz vou ficar alisando é? tenho de dar bronca para mostrar que o cara está errado, isso vai fazer ele se tocar e iniciar ou quem sabe, reiniciar os estudos. O mercado hoje em dia é exigente. Ricardo César Cardoso escreveu: Discordo EmbarcaDelphi da sua mensagem não por inteiro, mas até entendo o que você quer dizer, só acho que a sua escolha de palavras não foi das melhores. * O melhor DBA Oracle que conheci na vida e tive a honra de trabalhar é formado em Matemática (não... não é ninguém famoso, mas é um cara sensacional.) Relaciono outros profissionais que trabalhei e que me ensinaram o que livros não ensinam e não são formados na área de informática. Aprenderam tudo na prática. Ter um diploma de TI, assim como o de médico ou de qualquer outra profissão não significa competencia. Assim como existem médicos incompetentes, existem analistas, engenheiros, dbas formados, com certificação e tudo e mesmo assim incompetentes. * Hoje em dia, concordo que não há muita desculpa para não completar ou até mesmo iniciar os estudos, mas chamar alguém de semi analfabeto é exagero. E irreal, como se houvessem muitas universidades de verdade por aí e ninguém precisasse trabalhar pra custear estudos. Não dá pra comparar nossa realidade com a de outros países. Em nenhum sentido. []'s Ricardo .
Re: Res: [delphi-br] Controle de Permissão de usuário!
Sobre o controle de acesso dos operadores, usuários como queiram eu utilizo um nível no cadastro dos operadores de 0 a 9, uma tabela com o nome dos formulários, no qual determino níveis de 0 a 9, para acessar, cadastrar, consultar, alterar, excluir e em quais estações é permitido o acesso de cada formulário ou em TODAS. É um pouco trabalhoso, mas tem um bom controle sobre o acesso. Espero ter contribuir com a idéia. Zucchi --- Em delphi-br@yahoogrupos.com.br, Pablo Henrique Vianini Souza [EMAIL PROTECTED] escreveu Realmente Jean, eu pensei mesmo que poderia acontecer de duas pessoas do mesmo perfil terem alguma diferença nas permissões, levando em consideração a sua experiencia vou tentar pensar em algo mais simples porem sem a ideia dos perfis para nao cair nesse erro... um outro amigo aqui indicou um componente o User Control vou ver como é esse componente talvez pode ajudar nessa tentativa de facilidades Abraços... To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 22 Oct 2008 04:51:17 - 0700Subject: Res: [delphi-br] Controle de Permissão de usuário! Realmente esta é uma Thread das grandesmas, eu axei interesante sua idéia dos perfissó que isso gereria desvantagens tambemcomo vc falou se alterar o perfil alterapara todos os usuários e num sistemaném todos os usuários tem as mesmas permissõestipo uma pessoa do perfil usuário pode teruma ou mais opções diferente de uma outra pessoao que implicaria na criação de mais um perfilna pratica seria a mesma coisa de configuraras permissões individualmente por usuárioé o que eu penso e conheço pelos anos de prática! Jean BarreirosProgramador/Web- DesignerDelphi, C++, PHP, JavaScriptFireBird/InterBase, MySql, SQLServer, PostGree, Oraclemsn: [EMAIL PROTECTED]: [EMAIL PROTECTED] - Mensagem original De: Pablo Henrique Vianini Souza [EMAIL PROTECTED]Para: [EMAIL PROTECTED]: Terça-feira, 21 de Outubro de 2008 23:22:48Assunto: [delphi-br] Controle de Permissão de usuário! Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistemaGostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo:O Administrador do sistema criar Perfis tipo Administrador , Balconista , Encarregado , e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração...Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso??Abraços pessoal _ _ _ _ _ _Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos!http://www.amigosdo messenger. com.br[As partes desta mensagem que não continham texto foram removidas]Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias* 14Novos usuários* 2Novos linksVisite seu Grupo Yahoo! MailConecte-se ao mundoProteção anti- spamMuito mais espaçoYahoo! BarraInstale grátisBuscar sites na webChecar seus e-mails .Yahoo! GruposCrie seu próprio grupoA melhor forma de comunicação. __,_.._,___ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com.http://br.new..mail.yahoo.com/addresses[As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Similaridade entre duas Strings
Se for útil, uma função para retirar acentos que utilizo a muito tempo sem problemas. function RemoveAcentos(DadosAcentos : String) : String; var C_k, i : Integer; C_y, ComAcentos, SomAcentos : String; begin C_y := ''; ComAcentos := 'ÃÁÀÄÂÉÈÊËÍÌÎÏÓÒÔÕÖÚÙÜÛãáàäâéèêëíìîïóòôõöúùüû'; SomAcentos := 'AOao'; for i := 1 to Length(Trim(DadosAcentos)) do begin C_k := Pos(DadosAcentos[i], ComAcentos); if C_k 0 then C_y := C_y + SomAcentos[C_k] else C_y := C_y + DadosAcentos[i]; end; Result := C_y; end; Zucchi --- Em delphi-br@yahoogrupos.com.br, Silvio Clécio [EMAIL PROTECTED] escreveu Olá pessoal, Guionardo, você não é brincadeira não, matou a dúvida e mostrou a função, rsrsrsrsrsrsrs. Desse jeito os 2 demos que coloquei na 4shared vão virar sarcófagos, rsrsrsrsrsrsrs. Você é fera, isso não é um elogio, é a realidade. Funções úteis para strings (as que iniciam com 'sc' foram escritas por mim): --- function scRemoveAllChars(Ch: Char; S: string): string; var I: Integer; begin I := Length(S); while (Length(S) 0) and (I 0) do begin if S[I] = Ch then Delete(S, I, 1); Dec(I); end; Result := S; end; --- function scRemoveCharactersOfString(Chrs: array of Char; Str: string): string; var I: Integer; S: string; begin S := Str; for I := 0 to High(Chrs) do S := scRemoveAllChars(Chrs[I], S); Result := S; end; --- function RemovesAccent1(S: string): string; const WithAccent = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'; Stressless = 'aaeouaoaeioucuAAEOUAOAEIOUCU'; var I: Integer; begin for I := 1 to Length(S) do if Pos(S[I], WithAccent) 0 then S[I] := Stressless[Pos(S[I], WithAccent)]; Result := S; end; --- function RemovesAccents2(S: string ): string; var I: Integer; begin for I := 1 to Length(S) do case S[I] of 'á': S[I] := 'a'; 'é': S[I] := 'e'; 'í': S[I] := 'i'; 'ó': S[I] := 'o'; 'ú': S[I] := 'u'; 'à': S[I] := 'a'; 'è': S[I] := 'e'; 'ì': S[I] := 'i'; 'ò': S[I] := 'o'; 'ù': S[I] := 'u'; 'â': S[I] := 'a'; 'ê': S[I] := 'e'; 'î': S[I] := 'i'; 'ô': S[I] := 'o'; 'û': S[I] := 'u'; 'ä': S[I] := 'a'; 'ë': S[I] := 'e'; 'ï': S[I] := 'i'; 'ö': S[I] := 'o'; 'ü': S[I] := 'u'; 'ã': S[I] := 'a'; 'õ': S[I] := 'o'; 'ñ': S[I] := 'n'; 'ç': S[I] := 'c'; 'Á': S[I] := 'A'; 'É': S[I] := 'E'; 'Í': S[I] := 'I'; 'Ó': S[I] := 'O'; 'Ú': S[I] := 'U'; 'À': S[I] := 'A'; 'È': S[I] := 'E'; 'Ì': S[I] := 'I'; 'Ò': S[I] := 'O'; 'Ù': S[I] := 'U'; 'Â': S[I] := 'A'; 'Ê': S[I] := 'E'; 'Î': S[I] := 'I'; 'Ô': S[I] := 'O'; 'Û': S[I] := 'U'; 'Ä': S[I] := 'A'; 'Ë': S[I] := 'E'; 'Ï': S[I] := 'I'; 'Ö': S[I] := 'O'; 'Ü': S[I] := 'U'; 'Ã': S[I] := 'A'; 'Õ': S[I] := 'O'; 'Ñ': S[I] := 'N'; 'Ç': S[I] := 'C'; end; Result := S; end; Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog Yahoo! Messenger: [EMAIL PROTECTED] MSN (Hotmail): [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ - Mensagem original De: Guionardo Furlan [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 8 de Outubro de 2008 17:34:22 Assunto: Re: [delphi-br] Similaridade entre duas Strings Elogio de vez em quando vai bem, eheh. Bom, tá aí o código, testado por aqui e funcionando. No meu cálculo manual deu diferença ao comparar os nomes JOÃO e JONAS porque não considerei a diferença de tamanho das strings. Não é um componente, é uma função. unit GStrings; interface /// Obtém a similaridade entre duas strings retornando um valor entre 0 e 1 function Similaridade( Origem, Destino: string): Single; implementation uses SysUtils, GuioUtils; function Similaridade( Origem, Destino: string): Single; var i: Integer; SimCar: Integer; // Similaridade de caracteres SimOrd: Integer; // Similaridade de ordem Lista: array of string; function Validacao: Boolean; begin Result := (Length(Origem) 0) and (Length(Destino) 0); end; procedure SimilaridadeCaracte r; var j: Integer; begin SimCar := 0; for j := 1 to Length(Origem) do if Pos(Origem[j] , Destino) 0 then Inc(SimCar); end; procedure RemoveNaoCoincident es(var s1, s2: string); begin i := 1; while i = Length(s1) do if Pos(s1[i], s2) = 0 then Delete(s1, i, 1) else Inc(i); end; procedure GeraLista; var
[delphi-br] Re: ALLguem pode me ajudar em 1 TQUERY com DBF ???
Só uma ideia, não sei se te ajuda. Jogue os dados para um StrigGrid e depois trate eles. Zucchi --- Em delphi-br@yahoogrupos.com.br, JB [EMAIL PROTECTED] escreveu com union n da, tem q ser uma tabela por vez 2008/10/8 Rubem Nascimento da Rocha [EMAIL PROTECTED]: É, marcou. Mas o que vc marcou? Isso vc não explicou! O q vc configurou? RequestLive ou CachedUpdates? Seja mais claro com os procedimentos q vc tomou para poder explicá-los e a gente entender melhor o que tá acontecendo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 8 Oct 2008 17:32:37 -0300 Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Então marquei configurei. porem num funfou vou refazer passo a passo, vai q esqueci de algo voltemos ao GOOGLE!!!.. hehehehe []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Jackson Gomes - ToolsComps Sent: Wednesday, October 08, 2008 4:49 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? Marcou CachedUpdates na TQuery? Configurou o UpdateSQL direitinho? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br -- Att. -- José Benedito Software Developer [EMAIL PROTECTED] (19) 8116-7826
[delphi-br] Re: Consula a BD Mysql atraves do delphi
Wildner, acho que você deveria utilizar o campo do tipo CHAR e não VARCHAR. Zucchi --- Em delphi-br@yahoogrupos.com.br, Wildner B. Ferreira [EMAIL PROTECTED] escreveu Eduardo estou utilizando o dbexpress do delphi mesmo, mas já fiz teste com o zeos e deu a mesma coisa. Estive lendo na internet e acho que o problema e com relação ao conjunto de caracteres, pois veja so fiz um teste simples aqui e que foi estar criando uma tabela de teste com um campo com10 posicoes neste campo coloquei o valor 1234 colocando os numero 1234 e + 4 espacos so que quando faco uma consulta retornando este registro o conteudo somente vem 1234 os espaços finais estão sendo desconsiderados. Este e o problema, preciso que ele esteja guardando dentro do campo os valores dos espaços em branco quando tiver no final do campo. Saberia como estar fazendo isto ? Ou saberia me indicar qual o COLLATION a utilizar ? Qual componente de acesso você está usando para acessar o banco? como você chegou a conclusão que o campo está te retornando NULL? 2008/9/26 Wildner B. Ferreira mailto:wildner%40grupo3w.com.br [EMAIL PROTECTED] Ola amigo da lista Estou com um problema e gostaria de estar expondo ele para a lista para ver se algum amigo me ajuda a resolver o problema. O Caso :: Fiz uma aplicação que faz uma consulta a um BD mysql que esta em um servidor Web. Na tabela deste BD existe um campo chamado DESCRICAO que e do tipo varchar(20) Dentro deste campo existe o valor ( 5 espaços) O problema e que quando faço uma consulta através do Delphi ele me retorna que o conteúdo deste campo e NULL e não o 5 espaços. Gostaria de saber como estar resolvendo este caso. Estou utilizando Delphi 6 para criação da aplicação. Caso você tenha alguma informação que seja útil informe a lista será de grande ajuda a todos. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: mailto:eduardo.drd%40gmail.com [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Acervo sobre Programação
Documentação completa em java . http://www.sun.com/documentation/index.html Zucchi --- Em delphi-br@yahoogrupos.com.br, Janderson Braz [EMAIL PROTECTED] escreveu Galera, Boa Tarde, Alguém sabe onde eu encontro livros, apostilas ou tutoriais sobre Java, VB, ASP, SQL e linguagens de programação em geral ??? Só que eu gostaria de encontrar livros, apostilas ou tutoriais preferencialmente em PDF e que sejam de graça... rsrs. Outro requisito é que seja um material com conteúdo bem aprofundado sobre essas linguagens. Já encontrei um monte de material pesquisando no Google , mas tudo era muito superficial e eu não estou com grana pra comprar bom livros sobre o tema. Será que mesmo depois de todas essas exigências alguém ainda pode me ajudar ???... rsrsrs... Grato, Janderson [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: select com case
--- Em delphi-br@yahoogrupos.com.br, Berdam [EMAIL PROTECTED] escreveu 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+'' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ADT FROM FORNECE '; Galera, estou executando este sql Mas, qual o problema.? Se te ajudar faça assim case when (Tipo = ' + #39 + 'J'+ #39 + ') then ' + #39 + 'Juridica' + #39 else '+ #39 + 'Fisica'+ #39 + ' end as tipox; Zucchi Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: Res: [delphi-br] Exceção de bloqueios de teclas
Pesado!!! Nem tanto, foi desenvolvido em Clipper na época do imortal DOS. Bom final de semana a todos []'s Zucchi --- Em delphi-br@yahoogrupos.com.br, Delphi Sql [EMAIL PROTECTED] escreveu Bom dia .. ai galera deu certo a dica foi 100 % .. é o seguinte com o programinha(pesado hemmm) do Lidio ele simula a combinção das teclas ou seja qdo vc tecla Ctrl +c ele disse q é o 3 e Ctrl +v é o 22 é só acrescentar no codigo if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f', #3 , #22]) Obrigado Vlw - Mensagem original De: lidio.zucchi [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 15 de Maio de 2008 22:54:23 Assunto: Re: Res: Res: [delphi-br] Exceção de bloqueios de teclas Desculpem Retificação... Onde foi --- Poste na sessão. Leiam --- Postei na sessão --- Em [EMAIL PROTECTED] os.com.br, lidio.zucchi lidio.zucchi@ ... escreveu Boa noite a todos Poste na sessão de arquivos um programinha que desenvolvi na época de clippeiro e que me ajudou muito. Ele retorna o código da tecla ou das teclas pressionadas. Se servir façam bom proveito dele. []'s Zucchi --- Em [EMAIL PROTECTED] os.com..br, Joao Morais post@ escreveu Delphi Sql wrote: Seguinte ... nenhuma dica resolveu meu problema .. coloquei no OnKeyPress o seguinte if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'...'f']) then begin Beep; Key := #0; end; porém com esta exceção bloquiei tbem o Ctrl + c e Ctrl + v ou seja não posso copiar nem nem colar nada no edit devido o bloqueio das teclas ... Significa que Ctrl+C e Ctrl+V passam pelo OnKeyPress. Se passam, eles tem um código. Se tem um código, você pode recuperar seu valor. Meu palpite é que Ctrl+C tenha código #3 e Ctrl+V tenha código #22, mas eu recomendo você testar por conta própria. Após descobrir os códigos, acrescente-os na lista. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: [delphi-br] Exceção de bloqueios de teclas
Boa noite a todos Poste na sessão de arquivos um programinha que desenvolvi na época de clippeiro e que me ajudou muito. Ele retorna o código da tecla ou das teclas pressionadas. Se servir façam bom proveito dele. []'s Zucchi --- Em delphi-br@yahoogrupos.com.br, Joao Morais [EMAIL PROTECTED] escreveu Delphi Sql wrote: Seguinte ... nenhuma dica resolveu meu problema .. coloquei no OnKeyPress o seguinte if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f']) then begin Beep; Key := #0; end; porém com esta exceção bloquiei tbem o Ctrl + c e Ctrl + v ou seja não posso copiar nem nem colar nada no edit devido o bloqueio das teclas ... Significa que Ctrl+C e Ctrl+V passam pelo OnKeyPress. Se passam, eles tem um código. Se tem um código, você pode recuperar seu valor. Meu palpite é que Ctrl+C tenha código #3 e Ctrl+V tenha código #22, mas eu recomendo você testar por conta própria. Após descobrir os códigos, acrescente-os na lista.
Re: Res: Res: [delphi-br] Exceção de bloqueios de teclas
Desculpem Retificação... Onde foi --- Poste na sessão. Leiam --- Postei na sessão --- Em delphi-br@yahoogrupos.com.br, lidio.zucchi [EMAIL PROTECTED] escreveu Boa noite a todos Poste na sessão de arquivos um programinha que desenvolvi na época de clippeiro e que me ajudou muito. Ele retorna o código da tecla ou das teclas pressionadas. Se servir façam bom proveito dele. []'s Zucchi --- Em delphi-br@yahoogrupos.com.br, Joao Morais post@ escreveu Delphi Sql wrote: Seguinte ... nenhuma dica resolveu meu problema .. coloquei no OnKeyPress o seguinte if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f']) then begin Beep; Key := #0; end; porém com esta exceção bloquiei tbem o Ctrl + c e Ctrl + v ou seja não posso copiar nem nem colar nada no edit devido o bloqueio das teclas ... Significa que Ctrl+C e Ctrl+V passam pelo OnKeyPress. Se passam, eles tem um código. Se tem um código, você pode recuperar seu valor. Meu palpite é que Ctrl+C tenha código #3 e Ctrl+V tenha código #22, mas eu recomendo você testar por conta própria. Após descobrir os códigos, acrescente-os na lista.
[delphi-br] Re: SetFocus
Olá Guilherme.. Eu uso assim e não tive problemas. procedure TFrmPrincipal.FormShow(Sender: TObject); var FormLogin : TForm; begin FormLogin := TFrmLogin.Create(Owner); FormLogin.Visible := False; FormLogin.ShowModal; end; Espero que lhe ajude. []'s Zucchi --- Em delphi-br@yahoogrupos.com.br, Guilherme Alves [EMAIL PROTECTED] escreveu Olá colegas da lista Tenho um projeto que se inicializa da seguinte forma: Application.CreateForm(TDataModule, DataModule); Application.CreateForm(TPrincipal, Principal); No onshow do form principal eu crio o form de login e dou o foco a ele: begin Application.CreateForm(TLogin, Login); Login.Show; Login.SetFocus; Login.BringToFront; Login.Focused; Login.edit_usuario.SetFocus; end; Estou com o seguinte problema: Não sei porque quando o form de login é mostrado, o edit_usuario não fica com o foco, tendo que o usuário clicar no edit para digitar o usuário. Já que o foco é para mostrar o cursor do mouse, dando o foco no edit, o que eu estou fazendo de errado? Mesmo eu colocando no onshow do form login o edit_usuario.SetFocus não está funcionando... Onde estou errando? Valeu amigos, - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Usando o onExit - Erro - is not a valid floating point value
Amigo
Atribua zero ( 0 ) ao Edit que ficar vazio
Deve resolver.
Zucchi
--- Em delphi-br@yahoogrupos.com.br, itasouza [EMAIL PROTECTED]
escreveu
Boa Tarde a todos
Pessoal, veja se pode me ajudar..
No onExit de um de dois edits tenho o seguinte código:
VerificarCampos;
editTotal.text := floattostr(strtofloat(editPaletes.text) +
strtofloat(editQtde.text));
o sistema está gerando erro ao sair dos edits, então fiz um teste
no
campo:
procedure TfrmLancamento.VerificarCampos;
begin
//1º teste
if (EditPaletes.Text = '') and
(EditQtde.Text= '') then
begin
if Application.MessageBox('O campo está vazio, Deseja
manter?','Confirme',MB_YESNO+ MB_ICONQUESTION)= MRYES then
begin
EditPaletes.SetFocus;
Exit;
end;
end
end;
Mais está gerando o mesmo erro.
Project SisCont.exe raised exception class EConvertError with
message is not a valid floating point value'. Process stopped. Use
or Run to continue.
Alquem poderia me ajudar!!
Agradeço!!
[delphi-br] Re: [MEIO - OFF] Erro ao conectar com Firebird + dbXpress
I/O error for file C:caminho\BaseDeDados.gdb Amigo... o caminho não deveria ser assim -- C:\caminho\BaseDeDados.gdb. Zucchi --- Em delphi-br@yahoogrupos.com.br, MiNuTo [EMAIL PROTECTED] escreveu isso pode ser a dll gds32.dll ou fbcliente.dll vc nao fez alguma modificação? alterou o fb , atualizou vc usa a dll junto com o exe . - Original Message - From: Marcos Bernardo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 13, 2007 3:45 PM Subject: [delphi-br] [MEIO - OFF] Erro ao conectar com Firebird + dbXpress Boa tarde Senhores alguem ja se deparou com este erro?? I/O error for file C:caminho\BaseDeDados.gdb Error while trying to open file The process cannot access the file because it is being used by another process. Estou utilizando Delphi 7 e firebird 2.0 até o momento estava tudo correndo bem, mas com a necessidade de criarmos uma aplicação de exportação de dados, e uma nova conexão ocorreu este erro... qualquer ajuda eh bem vinda obrigado Marcos Bernardo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
