Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Com certeza. Não existem nenhuma relação entre MVP/MVC/OPF/OO e baixa produtividade ou DBAware relacional e falta de controle/projeto ruim. Afirmações assim são dogmas que as pessoas criam em suas mentes ou relatos de experiencias (muitas vezes em função do uso alienado de tecnologias pasteurizadas e pouca base computacional) ou do uso de IMPLEMENTAÇÕES RUINS, nada mais. - Original Message - From: anderson To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 30, 2006 4:44 PM Subject: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! É possivel então eu ter o OPF com ECO, continuando usando DBWares e utilizar MVP _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: quinta-feira, 30 de novembro de 2006 15:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Andreano Lanusse wrote: O que você diz de OPF é o que o ECO faz. mas unindo os 2 mundos DataWare e 100% OO Apenas para fins de esclarecimento: - Eu não disse que a Borland não tem um framework OPF; - 100% OO é uma opinião, e não um fato. -- João Morais [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] alguém tem uma função vamos dizer mais eficaz
Rodrigo wrote: a função abaixo deixa somente os números, eu ainda estou dando uma olhada em expressões regulares e da pra fazer muita coisa, se alguém tiver uma função mais rapida do que essa...ja ajuda... function adOnlyNumber(const Value: String): String; var I : Integer; S : String; begin S := ''; for I := 0 to Length(Value) do if (Value[I] in ['0'..'9']) then S := S + Copy(Value,I,1); Result := S; end; Eu recomendo você inverter a lógica. Use delete para remover o que você não quer. É melhor para o gerenciador de memória alocar espaços menores do que espaços cada vez maiores (concatenação de strings). -- João Morais
Res: [delphi-br] DBExpress
Fabio...bom dia...
A 6 meses atraz estive em busca de um conjunto de componentes que tivesse
acesso nativo ao Firebird e cheguei a conclusão que por vários motivos a melhor
solução é o MDO (Mercury Database Objects). Trata-se de um conjunto de
componente desenvolvidos por brasileiros, com documentação em português e tem
um grupo de suporte muito bom. É free.
Estou utilizando hoje e é realmente muito bom!!!
Claro que se vc tiver idéia de fazer com que seu sistema seja multibanco a
melhor opção é o DBExpress.
Alexandre.
- Mensagem original
De: Fabio Dantas [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 30 de Novembro de 2006 15:06:02
Assunto: [delphi-br] DBExpress
Pessoal vcs recomendam o uso da paleta dbExpress para acessar o
firebird ? ou melhor outro componente ?
Abraço
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Validação mais inteligente
Tranquilo, cara a funcao nem é minha.
heheh,
2006/11/30, Leonardo Quinino [EMAIL PROTECTED]:
procedure valida_cpf ;
var x : integer;
begin
for x := 1 to 11 do
begin
if cpf = replicate( ord(x) ,11) ) then
begin
ShowMessage('CPF Inválido');
Exit;
end;
end;
Em 30/11/06, Rodrigo [EMAIL PROTECTED] rodrigo%40respec.com.br
escreveu:
if (cpf '000')and(cpf '111')and(cpf
'222')
and(cpf '333')and(cpf '444')and(cpf
'555')
and(cpf '666')and(cpf '777')and(cpf
'888')
and(cpf '999')then
galera tenho uma validação de CPF e tive que colocar esse codigo acima
também
existe uma forma de validação...usando expressão regular..ou algo melhor
do que o acima...?
qq sugestão é bem vinda.
abs.
Rodrigo Mota.
[As partes desta mensagem que não continham texto foram removidas]
--
Leonardo Quinino
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Saber em qual componente foi clicado..
Fala pessoal!! Alguém sabe como fazer uma rotina onde eu crio componentes dinamicamente e identificar em qual destes componentes eu cliquei? Valew! [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Impressão direta via Rede
Olá Amigos, Neste texto que vi: Somente que esse comando \\host\impr serve para rede, se fizer isso localmente (no proprio computador onde esteja espetada a impressora) da erro... Quer dizer, se eu quiser imprimir na impressora local espetada em LPT1, mas quiser via rede, dá erro ? Ué, deveria aceitar normalmente. Tenho um sistema que tenho de fazer isso. Um sistema de entregas, aonde tem 2 computadores, somente um deles tem impressora. Mas os 2 computers tem de usar esta impressora (está compartilhada) e no meu sistema pretendo colocar um parâmetro, aonde parametriza o caminho dela válido para os 2 computadores. Pergunto aos nobres colegas, E agora, José ? Omar M. Haddad Analista de Sistemas - Mensagem original somente que ese comando \\host\impr serve para rede, se fizer isso localmente (no proprio computador onde esteja espetada a impressora) da erro... -Mensagem original - De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Joao Morais Enviada em: quinta-feira, 30 de novembro de 2006 08:27 Para: [EMAIL PROTECTED] os.com.br Assunto: Re: [delphi-br] Impressão direta via Rede Giovanny Carvalho wrote: Boa noite, Alguém poderia me dar a dica de como fazer a impressão direta, sem o sppol, numa matricial em rede. Eu faço a impressão com Assignfile e funciona da máquina onde a impressora está conectada mas na rede eu não consigo. Troca a porta lptx: pelo atalho da impressora: \\host\impr -- João Morais [As partes desta mensagem que não continham texto foram removidas] ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Verificar programa em execução
01) Programas Abertos
Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall;
var caption: Array [0..128] of Char;
begin
Result := True;
if IsWindowVisible(Wnd) and
((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and
((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
then
begin
SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption));
lb.Items.AddObject( caption,TObject( Wnd ));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows( @EnumWindowsProc, integer( listbox1 ));
end;
*
02) Programas Abertos (incluíndo os ocultos)
Para listar (pegar) todas janelas abertas, deve-se usar a funcao da API
EnumWindows, que usa uma funcao Callback, com dois parametros, um Handle para a
janela e um ponteiro. Voce pode usá-la com um códi-go semelhante a este (Este
lista as janelas abertas, mesmo invisí-veis, em uma listbox):
function EnumWindowsProc(Wnd : HWnd;Form : TForm1) : Boolean; Export; {$ifdef
Win32} StdCall; {$endif}
var
Buffer : Array[0..99] of char;
begin
GetWindowText(Wnd,Buffer,100);
if StrLen(Buffer) 0 then
Form.ListBox1.Items.Add(StrPas(Buffer));
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc,LongInt(Self));
end;
*
083 - Como executar programas externos
Winexec('Command.com /C Teste.exe',Tipo_de_Janela);
Tipo_de_Janela :
SW_SHOWNORMAL - Visualização normal da janela
SW_MAXIMIZE - Janela maximizada
SW_MINIMIZE - Janela minimizada
SW_HIDE - Escondido
*
411 - Executar um programa e aguardar sua finalização antes de continuar
Inclua na seção uses: Windows
{ Esta função faz isto. }
function ExecAndWait(const FileName, Params: string;
const WindowState: Word): boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
{ Coloca o nome do arquivo entre aspas. Isto é necessário devido aos espaços
contidos em nomes longos }
CmdLine := '' + Filename + '' + Params;
FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;
Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
{ Aguarda até ser finalizado }
if Result then begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
{ Libera os Handles }
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;
- Exemplo de uso:
ExecAndWait('c:\windows\notepad.exe', '', SW_SHOW);
*
Dicas tirados do '850 Dicas do Delphi'.
Jonatã.
___
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/
RES: RES: [delphi-br] Impressão direta via Rede
bom...esa he minha experiencia e o peor que nao achei solucao e sim apenas uma gambiarra de programa. Vc dize que tem 2 computadores, o computador 01 e 02...a impressora está espetada na maquina 01 e a 02 imprime pela rede. Entao o que eu tenho feito, he perguntar para o sistema, se for computador 01 imprime em LPT1 e se for 02 imprime pelo caminho da rede, isso todo com uma função feita em delhi e com uma tabela em banco de dados, porque nao esqueça que tua rede pode crescer. Espero que alguem tenha uma solução mais simples ou direta mas eu, nao achei outra. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Omar Marques Enviada em: sexta-feira, 1 de dezembro de 2006 08:11 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Impressão direta via Rede Olá Amigos, Neste texto que vi: Somente que esse comando \\host\impr serve para rede, se fizer isso localmente (no proprio computador onde esteja espetada a impressora) da erro... Quer dizer, se eu quiser imprimir na impressora local espetada em LPT1, mas quiser via rede, dá erro ? Ué, deveria aceitar normalmente. Tenho um sistema que tenho de fazer isso. Um sistema de entregas, aonde tem 2 computadores, somente um deles tem impressora. Mas os 2 computers tem de usar esta impressora (está compartilhada) e no meu sistema pretendo colocar um parâmetro, aonde parametriza o caminho dela válido para os 2 computadores. Pergunto aos nobres colegas, E agora, José ? Omar M. Haddad Analista de Sistemas - Mensagem original somente que ese comando \\host\impr serve para rede, se fizer isso localmente (no proprio computador onde esteja espetada a impressora) da erro... -Mensagem original - De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Joao Morais Enviada em: quinta-feira, 30 de novembro de 2006 08:27 Para: [EMAIL PROTECTED] os.com.br Assunto: Re: [delphi-br] Impressão direta via Rede Giovanny Carvalho wrote: Boa noite, Alguém poderia me dar a dica de como fazer a impressão direta, sem o sppol, numa matricial em rede. Eu faço a impressão com Assignfile e funciona da máquina onde a impressora está conectada mas na rede eu não consigo. Troca a porta lptx: pelo atalho da impressora: \\host\impr -- João Morais [As partes desta mensagem que não continham texto foram removidas] ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile. http://br.mobile.yahoo.com/mailalertas/ yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: RES: [delphi-br] Impressão direta via Rede
Omar Marques wrote: Olá Amigos, Neste texto que vi: Somente que esse comando \\host\impr serve para rede, se fizer isso localmente (no proprio computador onde esteja espetada a impressora) da erro... Quer dizer, se eu quiser imprimir na impressora local espetada em LPT1, mas quiser via rede, dá erro ? Ué, deveria aceitar normalmente. Tenho um sistema que tenho de fazer isso. Um sistema de entregas, aonde tem 2 computadores, somente um deles tem impressora. Mas os 2 computers tem de usar esta impressora (está compartilhada) e no meu sistema pretendo colocar um parâmetro, aonde parametriza o caminho dela válido para os 2 computadores. Pergunto aos nobres colegas, E agora, José ? Eu já fiz isto, funciona, basta que o micro local seja o \\host e que a impressora \impr esteja visível na rede. Agora eu não sei é dizer o porque isso dá erro com o sr. tatu-at-nsr.com.br. -- João Morais
RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Anderson, Isto é plenamente possível sim. Não quer dizer que se voce for usar DBWares deverá renunciar ao outro ou vice versa. MVP/OO São recursos que podem conviver plenamente com os DB. Compete ao desenvolvedor saber aonde e como utilizá-los. O que acontece muitas vezes é que o camarada não conseguiu ser bem sucedido naquele recurso e adquire uma certa rejeição a ele ou então utilizou-os de forma errada, e aí a coisa saiu de controle. Resultado: Na ótica dele, isto tudo é ruim, não funciona, não presta. Mas não é. Por exemplo: Você pode plenamente usar DBWares para a confecção de cadastros visando a entrada de dados que irão interagir nas regras de negócios, já que cadastros são apenas inserção de dados nas tabelas e utilizar frameworks/OO na implementação das regras de negócio, até mesmo porque, se você trabalhar em uma grande corporação, verá que os processos internos compartilham alguma coisa em comum. Então, este compartilhar alguma coisa em comum podemos OOPzá-los, reaproveitando-se com isto, em novos projetos. E é aí que é fundamental você saber trabalhar com OOP. Aliás, você pode até desenvolver um sistema todinho todinho em OOP. Mas isto vai depender muito mais dos seus conhecimentos em programação OO e do cronograma do que da sua vontade mesmo. O que estamos discutindo aqui nesta thread, e eu até expus no meu ponto de vista, é que em um projeto, tem lugar pra todo mundo, basta saber AONDE IREMOS ALOCAR CADA TECNOLOGIA. O problema é quando vai alocar OOP aonde não precisa e vai usar DBWare aonde não deveria ser utilizado. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, anderson [EMAIL PROTECTED] escreveu É possivel então eu ter o OPF com ECO, continuando usando DBWares e utilizar MVP _ De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de Joao Morais Enviada em: quinta-feira, 30 de novembro de 2006 15:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Andreano Lanusse wrote: O que você diz de OPF é o que o ECO faz. mas unindo os 2 mundos DataWare e 100% OO Apenas para fins de esclarecimento: - Eu não disse que a Borland não tem um framework OPF; - 100% OO é uma opinião, e não um fato. -- João Morais [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Re: Usar ou não usar D BWares? Eis a questão!
Walter Chagas (Yahoo) wrote: Isto é plenamente possível sim. Não quer dizer que se voce for usar DBWares deverá renunciar ao outro ou vice versa. MVP/OO São recursos que podem conviver plenamente com os DB. Permita-me corrigi-lo: MVP faz exatamente o que DBWare faz, porém de forma orientada a objetos. Desta forma não tem cabimento colocá-los em um mesmo projeto. DBWare é bom pra quem não tem paciência pra oop. Se você quer reaproveitamento de código de interação com o usuário, você troca DBWare por MVP. -- João Morais
Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
O que me impede de reaproveitar código usando DBWare? Eu faço isso, ou seja, tenho algumas telas que são idênticsa e vários sistemas... mais uma vez eu digo, o erro não está no Objeto e sim no Sujeito. []s Em 01/12/06, Joao Morais [EMAIL PROTECTED] escreveu: Walter Chagas (Yahoo) wrote: Isto é plenamente possível sim. Não quer dizer que se voce for usar DBWares deverá renunciar ao outro ou vice versa. MVP/OO São recursos que podem conviver plenamente com os DB. Permita-me corrigi-lo: MVP faz exatamente o que DBWare faz, porém de forma orientada a objetos. Desta forma não tem cabimento colocá-los em um mesmo projeto. DBWare é bom pra quem não tem paciência pra oop. Se você quer reaproveitamento de código de interação com o usuário, você troca DBWare por MVP. -- João Morais -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] DBExpress
Pra mim DBExpress disparado... pra dizer a verdade se for pra usar FB prefiro o
DBExpress. Se for pra usar IB melhor usar o IBX. E recomendo que vc instale o
Driver da UIB para o Firebird e DBExpress.
- Mensagem original
De: Fellipe Henrique [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 30 de Novembro de 2006 16:00:44
Assunto: Re: [delphi-br] DBExpress
Olha, se você quer rapidez use o IBX, já com DBExpress você terá um
pouco
mais de trabalho, mas o resultado é muito melhor...eu particularmente, nao
uso mais IBX, somente DBExpress...
[]s
Em 30/11/06, Fabio Dantas [EMAIL PROTECTED] sa.com.br escreveu:
Pessoal vcs recomendam o uso da paleta dbExpress para acessar o
firebird ? ou melhor outro componente ?
Abraço
[As partes desta mensagem que não continham texto foram removidas]
--
_ _ ___
Fellipe Henrique
[EMAIL PROTECTED] com
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBExpress
Este drive da UIB, não tinha um problema com campos FLOAT? Ou já foi
solucionado?
[]s
Em 01/12/06, Ricardo Cesar Cardoso [EMAIL PROTECTED]
escreveu:
Pra mim DBExpress disparado... pra dizer a verdade se for pra usar FB
prefiro o DBExpress. Se for pra usar IB melhor usar o IBX. E recomendo que
vc instale o Driver da UIB para o Firebird e DBExpress.
- Mensagem original
De: Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Quinta-feira, 30 de Novembro de 2006 16:00:44
Assunto: Re: [delphi-br] DBExpress
Olha, se você quer rapidez use o IBX, já com DBExpress você terá um pouco
mais de trabalho, mas o resultado é muito melhor...eu particularmente, nao
uso mais IBX, somente DBExpress...
[]s
Em 30/11/06, Fabio Dantas [EMAIL PROTECTED] sa.com.br escreveu:
Pessoal vcs recomendam o uso da paleta dbExpress para acessar o
firebird ? ou melhor outro componente ?
Abraço
[As partes desta mensagem que não continham texto foram removidas]
--
_ _ ___
Fellipe Henrique
[EMAIL PROTECTED] com
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99%
arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] DBExpress
Verdade... baixei a MDO um tempo atrás e ainda não avaliei... mas não é a
primeira vez que vejo o pessoal falar bem da MDO. Pode ser uma boa alternativa.
- Mensagem original
De: Alexandre da Silva [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 1 de Dezembro de 2006 8:06:11
Assunto: Res: [delphi-br] DBExpress
Fabio...bom dia...
A 6 meses atraz estive em busca de um conjunto de componentes que tivesse
acesso nativo ao Firebird e cheguei a conclusão que por vários motivos a melhor
solução é o MDO (Mercury Database Objects). Trata-se de um conjunto de
componente desenvolvidos por brasileiros, com documentação em português e tem
um grupo de suporte muito bom. É free.
Estou utilizando hoje e é realmente muito bom!!!
Claro que se vc tiver idéia de fazer com que seu sistema seja multibanco a
melhor opção é o DBExpress.
Alexandre.
- Mensagem original
De: Fabio Dantas [EMAIL PROTECTED] sa.com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quinta-feira, 30 de Novembro de 2006 15:06:02
Assunto: [delphi-br] DBExpress
Pessoal vcs recomendam o uso da paleta dbExpress para acessar o
firebird ? ou melhor outro componente ?
Abraço
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px; font-family: arial,helvetica, clean,sans- serif;}
#ygrp-mlmsg table {font-size:inherit; font:100% ;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica, clean,sans-
serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height: 1.22em;}
#ygrp-text{
font-family: Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family: Arial;
clear:both;
}
#ygrp-vitnav{
padding-top: 10px;
font-family: Verdana;
font-size:77% ;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space: nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space: nowrap;
}
.bld{font-weight: bold;}
#ygrp-grft{
font-family: Verdana;
font-size:77% ;
padding:15px 0;
}
#ygrp-ft{
font-family: verdana;
font-size:77% ;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom: 10px;
}
#ygrp-vital{
background-color: #e0ecee;
margin-bottom: 20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77% ;
font-family: Verdana;
font-weight: bold;
color:#333;
text-transform: uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type: none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight: bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right: .5em;
}
#ygrp-vital ul li .cat{
font-weight: bold;
}
#ygrp-vital a {
text-decoration: none;
}
#ygrp-vital a:hover{
text-decoration: underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77% ;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color: #e0ecee;
margin-bottom: 20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type: square;
padding:6px 0;
font-size:77% ;
}
#ygrp-sponsor #ov li a{
text-decoration: none;
font-size:130% ;
}
#ygrp-sponsor #nc {
background-color: #eee;
margin-bottom: 20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family: Arial;
font-weight: bold;
color:#628c2a;
font-size:100% ;
line-height: 122%;
}
#ygrp-sponsor .ad a{
text-decoration: none;
}
#ygrp-sponsor .ad a:hover{
text-decoration: underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0; }
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120% ;
}
blockquote{margin: 0 0 0 4px;}
.replbq {margin:4;}
--
_ _ _ _ ___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
[delphi-br] Quick Report visualizador
preciso saber como faço para ativar o icone de configuração da impressora do visualizador de relatorios do quick report alguem tem uma ideiá? quando abre o relatorio o icone fica desativado... ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Turbo Delphi x Crystal
Bom dia, No Turbo Delphi Professional é possível adicionar os componentes do Crystal Reports?? Att Edilson [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] DBExpress
Então adicione meu positivo ao MDO, eheh. 2006/12/1, Ricardo Cesar Cardoso [EMAIL PROTECTED]: Verdade... baixei a MDO um tempo atrás e ainda não avaliei... mas não é a primeira vez que vejo o pessoal falar bem da MDO. Pode ser uma boa alternativa. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Inserção de itens em um ClientDataSet via DBGrid como verificar se o item já existe?
Pessoal em um cadastro de vendas os itens são inseridos diretamente no ClientDataSet via DBGrid, como eu consigo verificar se o item(produto) que está sendo inserido nomento já existe no ClientDataSet? Obrigado. At. Ricardo Lima [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: COLORIR LINHAS DO DBGRID - OBRIGADO
Valeu Edison. Marcio William
[delphi-br] Re: Erro em rede!!
Pessoal!! Já que ninguém se propôs ou se interessou em trocar idéias pelo meu tópico, digo o seguinte: CONSEGUI RESOLVER O PROBLEMA!!! É o seguinte: == Tive que tratar os buttons, transações, e demais itens que possuiam INSERT´s, UPDATE´s manualmente e maliciosamente. == Ou seja, tive que STARTAR e COMMITAR corretamente as TRANSAÇÕES para evitar conflitos e deadlocks. Grande abraço galera. = --- Em delphi-br@yahoogrupos.com.br, hernandes_sp [EMAIL PROTECTED] escreveu Instalei um programa em rede. Porém, quando mais de um usuário tenta se conectar, dá o seguinte erro: LOCK CONFLICT ON NO WAIT TRANSACTION DEADLOCK UPDATE CONFLICTS WITH CONCURRENT UPDATE O que pode estar acontecendo? Estou iniciando as transações e commitando normalmente.
Res: [delphi-br] DBExpress
Bom dia,
Não sei dizer se tinha ou não problemas com campos Float ou sequer se estes já
foram solucionados, mas para a minha necessidade nunca apresentou problemas...
Abraço,
Ricardo.
- Mensagem original
De: Fellipe Henrique [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 1 de Dezembro de 2006 10:14:48
Assunto: Re: [delphi-br] DBExpress
Este drive da UIB, não tinha um problema com campos FLOAT? Ou já foi
solucionado?
[]s
Em 01/12/06, Ricardo Cesar Cardoso ricardo_listadelphi @yahoo.com. br
escreveu:
Pra mim DBExpress disparado... pra dizer a verdade se for pra usar FB
prefiro o DBExpress. Se for pra usar IB melhor usar o IBX. E recomendo que
vc instale o Driver da UIB para o Firebird e DBExpress.
- Mensagem original
De: Fellipe Henrique [EMAIL PROTECTED] com fellipeh%40gmail. com
Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br
Enviadas: Quinta-feira, 30 de Novembro de 2006 16:00:44
Assunto: Re: [delphi-br] DBExpress
Olha, se você quer rapidez use o IBX, já com DBExpress você terá um pouco
mais de trabalho, mas o resultado é muito melhor...eu particularmente, nao
uso mais IBX, somente DBExpress...
[]s
Em 30/11/06, Fabio Dantas [EMAIL PROTECTED] sa.com.br escreveu:
Pessoal vcs recomendam o uso da paleta dbExpress para acessar o
firebird ? ou melhor outro componente ?
Abraço
[As partes desta mensagem que não continham texto foram removidas]
--
_ _ ___
Fellipe Henrique
[EMAIL PROTECTED] com
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px; font-family: arial,helvetica, clean,sans- serif;}
#ygrp-mlmsg table {font-size:inherit; font:100% ;}
#ygrp-mlmsg select, input, textarea {font:99%
arial,helvetica, clean,sans- serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height: 1.22em;}
#ygrp-text{
font-family: Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family: Arial;
clear:both;
}
#ygrp-vitnav{
padding-top: 10px;
font-family: Verdana;
font-size:77% ;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space: nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space: nowrap;
}
.bld{font-weight: bold;}
#ygrp-grft{
font-family: Verdana;
font-size:77% ;
padding:15px 0;
}
#ygrp-ft{
font-family: verdana;
font-size:77% ;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom: 10px;
}
#ygrp-vital{
background-color: #e0ecee;
margin-bottom: 20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77% ;
font-family: Verdana;
font-weight: bold;
color:#333;
text-transform: uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type: none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight: bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right: .5em;
}
#ygrp-vital ul li .cat{
font-weight: bold;
}
#ygrp-vital a {
text-decoration: none;
}
#ygrp-vital a:hover{
text-decoration: underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77% ;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color: #e0ecee;
margin-bottom: 20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type: square;
padding:6px 0;
font-size:77% ;
}
#ygrp-sponsor #ov li a{
text-decoration: none;
font-size:130% ;
}
#ygrp-sponsor #nc {
background-color: #eee;
margin-bottom: 20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family: Arial;
font-weight: bold;
color:#628c2a;
font-size:100% ;
line-height: 122%;
}
#ygrp-sponsor .ad a{
text-decoration: none;
}
#ygrp-sponsor .ad a:hover{
text-decoration: underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0; }
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120% ;
}
blockquote{margin: 0 0 0 4px;}
.replbq {margin:4;}
--
_ _ _ _ ___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile. yahoo.com/ mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
--
_ _ ___
Fellipe Henrique
[EMAIL PROTECTED] com
Venham até a borda, ele disse.
Eles
Res: [delphi-br] [OFF] Exemplo de MVP
Obrigado João!
Somente gostaria de ressaltar que nem sou contra ou sequer a favor de BDWares.
Acredito que se eles estão lá é por que para alguém teve ou vai ter utilidade.
Eu mesmo só uso em umas poucas situações e pretendo usar menos ainda agora que
estou fuçando mais o Persistência de BD.
Acredito ainda que usar DBWare é parte da aprendizagem tanto de recursos
disponíveis na IDE quanto de programação em si. Nenhum de nos aqui da lista
deve ter começado a programar sem ter feito pelo menos um produto que usou
DBWares em pelo menos 75% do projeto. Faz parte do aprendizado e conforme o
tempo foi passando e as novas necessidades tenham surgido novos caminhos se
mostraram sejam eles abandonar DBWares ou não, extender funcionalidades, partir
para novas metodologias como MVP ou OO (ou os dois juntos, como deve ser), mas
sem dúvida todos passaram pelo primeiro passo que é o uso do DBWare.
Quanto ao exemplo criado / atualizado, estarei testanto com carinho e
incomodando na medida em que for me aprofundando.
Se precisar de alguma ajuda em seu projeto do PressObjects, seja com testes ou
com documentação, estou a disposição.
Desde já grato,
Ricardo.
- Mensagem original
De: Joao Morais [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 30 de Novembro de 2006 21:41:09
Assunto: [delphi-br] [OFF] Exemplo de MVP
Olá,
conforme solicitado explicita ou implicitamente por Walter, Luiz,
Ricardo, Felipe, e acho que teve mais gente--desculpa se esqueci de
alguém, e também para satisfazer a curiosidade do pessoal, eu adaptei o
aplicativo demonstração do PressObjects- -PhoneBook- -a fim de torná-lo
mais simples de compilar e rodar.
Quem tiver alguma familiaridade com InstantObjects poderá testar os
Combos através do MVP do Press, é simplesmente maravilhoso. Quem não
tiver paciência para configurar o IO ou não tiver muita familiaridade
com ele--reconheç o que ele é um pouco complicado de instalar--poderá
testar o Combo através do atributo Enum (procure por PhoneType). É com
exemplos como este que eu falo que MVP pode dar um show de produtividade
quando comparado a DBWare. Leia os dois Readme-ptbr. txt que você
encontrar pelo caminho até chegar ao aplicativo.
Agora dois pedidos igualmente importantes:
1. Você não é obrigado a gostar, nem mesmo concordar com nada do que eu
disse. Basta ignorar minha mensagem para que isto não inicie outra
thread barulhenta.
2. Se você tiver interesse, dúvida, quiser saber mais sobre o projeto,
testar melhor, acompanhar o desenvolvimento, etc., etc., utilize a lista
support-br para estar mais próximo de outras pessoas também
interessadas. Quem não tiver interesse não estará inscrito e não será
importunado.
Ainda assim, se você não gostou ou ainda não acredita que desse mato
saia algum coelho, mas tá apostando pra ver, então inscreva-se ao menos
na lista announce para ser notificado assim que os releases estiverem
disponíveis para download.
Quem tiver algum interesse e não pegou o link: www.pressobjects. org
--
João Morais
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
Re: [delphi-br] Problema com o Quick Report
O seu QRMemo tem que estar dentro de um TQRDetail, que é a banda que passeia
pelos registros.
Moked - Thiago (Brasil) [EMAIL PROTECTED] escreveu: Bom dia colegas
Delphianos,
Estou tendo um problema na hora de gerar um relatório,
estou utilizando um componente do tipo QRMemo, para receber os dados, conforme
parte do código abaixo, mas quando o relatório é gerado,
somente aparece os dados do 1ºregistro do banco ou do último registro...
ele não fica passando de um a um, como os campos .DataField
Alguém teria uma sugestão??
eu tentei.. abrir o ClientDataSet.. e dar um first. depois dentro do laço
colocar um next... e não adiantou...
for i := 0 to RecordCount-1 do
begin
qrdbDadoAten0.DataField := 'AteCodi';
qrdbDadoAten3.DataField := 'UsuNome';
qrdbNomeProcurador.DataField := 'pro_nome';
qrdbAtend1.DataField:= 'His_Data';
qrdbDadoAte2.DataField := 'HisDura';
qrdbSituacao.DataField := 'ate_situ';
mmAteDesc.Lines.Text:= fieldbyname('AteDesc').AsString;
end;
Thiago Filiano
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646
-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Turbo Delphi x Crystal
sim - - - - att' Paulo Batalhão - [EMAIL PROTECTED] arphanet.com http://www.arphanet.com/ batalhao.eti.br http://www.batalhao.eti.br/ saudeamericana.com.br http://www.saudeamericana.com.br/ fusame.com.br http://www.fusame.com.br/ Não existe patch para a estupidez humana - Original Message - From: Edilson Beuter To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 11:27 AM Subject: [delphi-br] Turbo Delphi x Crystal Bom dia, No Turbo Delphi Professional é possível adicionar os componentes do Crystal Reports?? Att Edilson [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Usar ou não usar DBWar es? Eis a questão!
Se não me engano é Object Persistence Framework. Welson Avelar [EMAIL PROTECTED] escreveu: --- Joao Morais escreveu: Andreano, não é achar que não deve ter, é ter certeza que não precisa ter. É sempre questão de preferência. Falo por mim, estou apenas expondo vantagens de um modelo orientado a objetos perante o RAD (com exceção de usar TDataset como objeto de negócio - isso é roda quadrada). Vou aproventar sua mensagem para citar uma vantagem de cada lado (de OPF e de MVP, lógico). TDataset é orientado a tabela, OPF é orientado a objetos do domínio do problema. [--x--] [Welson] Só uma coisa: o que é OPF ?! define:opf no Google me retorna uma parada da NASA. oO []s. = 'O que me preocupa não é o grito dos maus. É o silêncio dos bons.' Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 - Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Re: Usar ou não usar D BWares? Eis a questão!
Fellipe Henrique wrote: O que me impede de reaproveitar código usando DBWare? Eu faço isso, ou seja, tenho algumas telas que são idênticsa e vários sistemas... mais uma vez eu digo, o erro não está no Objeto e sim no Sujeito. Você não tem que setar sempre o DataSource, DataField, KeyField, ListField, criar um botão pra criar novo cliente, criar atalhos pra incluir novo item no Grid e coisas afins? Eu conheço MVP e DBWare, estou falando por experiência, não estou jogando. -- João Morais
Re: [delphi-br] [OFF] Exemplo de MVP
Onde você colocou o exemplo!? A lista não aceita anexos. Joao Morais [EMAIL PROTECTED] escreveu: Olá, conforme solicitado explicita ou implicitamente por Walter, Luiz, Ricardo, Felipe, e acho que teve mais gente--desculpa se esqueci de alguém, e também para satisfazer a curiosidade do pessoal, eu adaptei o aplicativo demonstração do PressObjects--PhoneBook--a fim de torná-lo mais simples de compilar e rodar. Quem tiver alguma familiaridade com InstantObjects poderá testar os Combos através do MVP do Press, é simplesmente maravilhoso. Quem não tiver paciência para configurar o IO ou não tiver muita familiaridade com ele--reconheço que ele é um pouco complicado de instalar--poderá testar o Combo através do atributo Enum (procure por PhoneType). É com exemplos como este que eu falo que MVP pode dar um show de produtividade quando comparado a DBWare. Leia os dois Readme-ptbr.txt que você encontrar pelo caminho até chegar ao aplicativo. Agora dois pedidos igualmente importantes: 1. Você não é obrigado a gostar, nem mesmo concordar com nada do que eu disse. Basta ignorar minha mensagem para que isto não inicie outra thread barulhenta. 2. Se você tiver interesse, dúvida, quiser saber mais sobre o projeto, testar melhor, acompanhar o desenvolvimento, etc., etc., utilize a lista support-br para estar mais próximo de outras pessoas também interessadas. Quem não tiver interesse não estará inscrito e não será importunado. Ainda assim, se você não gostou ou ainda não acredita que desse mato saia algum coelho, mas tá apostando pra ver, então inscreva-se ao menos na lista announce para ser notificado assim que os releases estiverem disponíveis para download. Quem tiver algum interesse e não pegou o link: www.pressobjects.org -- João Morais -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 - 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]
[delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da máquina onde o meu Sistema está rodando é win98 ou winXP ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] COLORIR LINHAS DO DBGRID
Caro Marcio
a partirdoexemplo abaixo voce faz o que quizer. (Evento OnDrawColumnCell do
DBrid)
Não esquecer a ultima linha: (
DefaultDrawColumnCell(Rect,DataCol,Column,state); )
[]s Edison
{retirado do forum em 15/9/2006}
Como mudar cores e fontes de uma determinada celula em um DBGrid de acordo
com seu valor, ou seleção
procedure TFConsultarItens.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var I : integer;
begin
with DBGrid1 do
begin
// mude a cor das celulas em que FieldValor1 = 0
if(FieldValor1.Value = 0) then
if(column.Index = 1) then
Canvas.brush.Color:= clLime;
// se coluna 6 contiver 'Amarelo' mude a cor da célula para red - mude para
negrita
if(column.Index = 6) then
if(pos('Amarelo', FieldNomeCor.asstring) 0) then
begin
Canvas.brush.Color:= clred;
Canvas.Font.Color:= clWhite;
Canvas.Font.Style := [fsbold];
end;
// mude a cor de celulas selecionadas
if(gdSelected in State) then
begin
Canvas.brush.Color:= clblue;
Canvas.Font.Color:= clWhite;
end;
// mude a cor das celulas com foco
if(gdfocused in State) then
begin
Canvas.brush.Color:= clYellow;
Canvas.Font.Color:= clBlue;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,state);
end;
end;
if gdselected in state then // se a linha estiver selecionada
dbgrid1.Canvas.Font.Color := clwhite; // muda a cor do texto
- Original Message -
From: Marcio William [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 30, 2006 8:43 AM
Subject: [delphi-br] COLORIR LINHAS DO DBGRID
Tem como colorir as linhas do DBGRID em RUN-TIME, seria no caso de cliente
em debito aparecer em vermelho e os demais em branco mesmo?
Atenciosamente,
Marcio William
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
Arquivo - [delphi-br] regras.txt
= TERMOS PARA PARTICIPAÇÃO NO GRUPO DELPHI-BR = I. CONSIDERAÇÕES GERAIS --- a) A concordância com os termos do presente documento é precondição para sua participação na lista de discussão delphi-br. b) O desconhecimento do presente documento não é motivo para o não cumprimento de qualquer de suas regras. c) A função dos moderadores é reguladora e suas principais atividades são: .observar que as mensagens enviadas ao grupo guardam tom amistoso; .observar que as mensagens enviadas ao grupo tratam de assuntos relacionados com o tema principal da lista, ou seja, Pascal, Delphi e Kylix; .aplicar medidas punitivas quando algum membro da lista infringe alguma das regras da lista, conforme disposto nos termos abaixo. d) A lista é mantida de forma gratuita. Não existem quaisquer garantias de continuidade ou qualidade no funcionamento da lista. Também não há garantias quanto ao teor ou validade técnica das mensagens enviadas à lista. II. FUNCIONAMENTO - a) MEMBROS MODERADOS: . Membros moderados têm suas mensagens submetidas à aprovação por um moderador antes de serem encaminhadas à lista. * Mensagens em desacordo com as regras da lista serão bloqueadas e jamais chegarão à lista. * O processo de moderação causará algum atraso na entrega das mensagens do membro moderado à lista. * O prazo de moderação é, por padrão, indeterminado. Porém, o tempo médio de moderação é uma semana. b) MEMBROS REGULARES: . Membros regulares são aqueles que participam da lista sem moderação. Suas mensagens são enviadas automaticamente à lista sem qualquer tipo de preprocessamento. . Membros regulares estão sujeitos às regras da lista e a infração de qualquer uma dessas regras resultará em medidas punitivas por parte dos moderadores. c) CAIXAS POSTAIS: . Usuários terão seu status de recepção modificado para 'No email' quando: sua caixa postal estiver cheia; sua caixa postal apresentar problemas que causem retorno de erro; ou, seu leitor de email tiver a propriedade aviso de recebimento de mensagens ativada. * Quando sanar o problema, o próprio usuário poderá entrar no site e alterar seu status: http://br.groups.yahoo.com/mygroups * Opcionalmente, um usuário poderá restaurar seu status para normal enviando uma mensagem para: [EMAIL PROTECTED] III. REGULAMENTO a) GERAL: 1. O idioma oficial da lista é o português. Mensagens em outros idiomas não serão permitidas. 2. Todas as mensagens enviadas à lista deverão usar de tom amigável. O uso de ironia, sarcasmo, linguagem vulgar, comentário preconceituoso, insulto ou tom ofensivo sob qualquer outra forma não será tolerado. 3. As regras de etiqueta da Rede (RFC 1855, Netiquette Guidelines) deverão ser observadas quando pertinentes ao tipo de comunicação estabelecida na lista (um para muitos). Para maiores detalhes sobre a RFC 1855, veja http://www.ietf.org/rfc/rfc1855.txt?number=1855 4. Não envie arquivos anexados (attachments). Arquivos anexados são automaticamente rejeitados pela lista. A lista oferece um espaço para arquivos em: http://br.groups.yahoo.com/group/delphi-br/files 5. Não faça cross-posting (envio da mesma mensagem para diversas listas). Essa prática é considerada anti-ética pela maioria das comunidades na Internet. b) PIRATARIA: 1. Não promova pirataria de qualquer material. 2. Será considerada promoção de pirataria a solicitação ou fornecimento de números seriais, senhas, cracks, warez, cópias eletrônicas ou links para download de produtos (ou qualquer uma de suas partes) sem autorização legal para distribuição gratuita na Internet. Qualquer menção de como obter acesso a esse tipo de material (redes P2P, newsgroups, listas de discussão, diretórios, anúncios, etc) será igualmente considerada promoção de pirataria. * Para que não seja considerada pirataria, o autor da da mensagem deverá indicar explicitamente tratar-se de versão livremente acessível pela Internet. Caso não proceda dessa forma e havendo versão comercial do produto mencionado, a mensagem será considerada promoção de pirataria. 3. Na dúvida, seja explícito em sua mensagem e indique com toda clareza estar solicitando ou fornecendo dados de uma versão gratuita de um material. 4. Os moderadores da lista procederão com o máximo rigor, comunicando a todos os provedores envolvidos (dos autores das mensagens e dos sites
RE: [delphi-br] Re: Usar ou não usar DBWar es? Eis a questão!
Era isso que eu ia dizer! Andreano Lanusse [EMAIL PROTECTED] escreveu: O que você diz de OPF é o que o ECO faz. mas unindo os 2 mundos DataWare e 100% OO From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Joao Morais Sent: Thursday, November 30, 2006 2:30 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Andreano Lanusse wrote: Pessoal, após diversas opiniões... Qualquer desenvolvimento é mais produtivo com os componentes DBWare, mas para trabalhar com eles é bom que se entenda como funciona os eventos e os componentes DataSet e DataSource. Ao longo de todos os softwares que desenvolvi nunca tive problemas com os componentes, se algum comportamento dos componentes não estivesse de acordo com a minha necessidade, bastava herdar e alterar o comportamente do mesmo. Avaliem a necessidade, estude os componentes, agora ter uma aplicação sem nada de data ware por achar que não deve ter é uma decisão equivocada. Andreano, não é achar que não deve ter, é ter certeza que não precisa ter. É sempre questão de preferência. Falo por mim, estou apenas expondo vantagens de um modelo orientado a objetos perante o RAD (com exceção de usar TDataset como objeto de negócio - isso é roda quadrada). Vou aproventar sua mensagem para citar uma vantagem de cada lado (de OPF e de MVP, lógico). TDataset é orientado a tabela, OPF é orientado a objetos do domínio do problema. ==TDataset== TabCliente.Open; // ou .Query := 'xx'; TabCliente.Locate(); // ou TabCliente.Open; TabCliente.Edit TabClienteNOME := 'Outro'; TabCliente.Post; e se tiver Cached updates... transação... ==OPF== Cliente := TCliente.Retrieve(ID); -- monta query, pesquisa, etc. Cliente.Nome := 'Outro Nome'; Cliente.Save; -- cache, controle transacional, tudo aqui dentro. E olha que eu escolhi um modelo de dados sem herança, pra ficar mumu pra TDataset. ==DBAware== DBAware é orientado a TDataset (win32) e ainda assim fica pendurado em um componente (DB*) e a um datasource. Se você quer um componente 'Combo' mais envenenado, ele tem que entender DBAware. Se o seu Dataset estiver em um DataModule e por desencargo do destino a ligação quebrar (nisso o Delphi melhorou um bocado), você tem que reabrir o form e refazer a bendita. ==MVP== MVP é totalmente desacoplado, é o framework que entende o componente, e não o contrário. O formulário que usa o padrão MVP *não tem código*, você pode mandar os .pas e os .dfm para uma empresa de design, entregar uma licença de Delphi pra eles, eles usam qualquer componente que eles quiserem, você tras os novos formulários para o seu projeto e recompila. A única exigência é que os componentes continuem com o mesmo nome, porque MVP pode ser bom, mas não é feiticeiro. Teria mais um monte pra falar, mas encerro aqui minha participação nessa thread com esse mini-artigo (a menos que os colegas tenham dúvidas). -- João Morais [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 - Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Usar ou não usar DBWare s? Eis a questão!
Juliano Carvalho - Folhamatic wrote: Com certeza. Não existem nenhuma relação entre MVP/MVC/OPF/OO e baixa produtividade ou DBAware relacional e falta de controle/projeto ruim. Afirmações assim são dogmas que as pessoas criam em suas mentes ou relatos de experiencias (muitas vezes em função do uso alienado de tecnologias pasteurizadas e pouca base computacional) ou do uso de IMPLEMENTAÇÕES RUINS, nada mais. A pergunta foi a possibilidade de misturar DBWare e MVP. Esta mistura *não* existe. -- João Morais - Original Message - From: anderson To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 30, 2006 4:44 PM Subject: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! É possivel então eu ter o OPF com ECO, continuando usando DBWares e utilizar MVP
Re: [delphi-br] [OFF] Exemplo de MVP
Valfrid-Ly Silva Couto wrote: Onde você colocou o exemplo!? A lista não aceita anexos. Conta no final da mensagem: www.pressobjects.org http://pressobjects.org/snapshot/press-snapshot-20061130-r157.zip -- João Morais
RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Hehehehe, cê tá começando a ceder :) Já admite que alguém possa usá-lo por um motivo (falta de paciencia), mas eu corrijo, porque alguém possa usá-lo também por falta de tempo disponível no cronograma. Na verdade João, a sua proposta é tão interessante que muitos aqui (incluindo eu) resolvemos pesquisar pra ver o que acha a respeito. Foi valido a procura e a pesquisa sobre MVP e tudo mais, mas ainda continuo achando que o bom dessa aplicabilidade seria no tangente a regras de negócios, mas deixa pra lá. Apesar de eu não ser bom em OOP, vou pesquisar mais sobre o assunto e dar umas estudadas nos códigos. Quem sabe eu acabo também seguindo sua doutrina :) Mas lembrando que para mexer com estes Frameworks, o camarada tem que ter a manha de OOP, do contrario vai é acabar misturando OO com PE e começar a andar em circulos.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Joao Morais [EMAIL PROTECTED] escreveu Walter Chagas (Yahoo) wrote: Isto é plenamente possível sim. Não quer dizer que se voce for usar DBWares deverá renunciar ao outro ou vice versa. MVP/OO São recursos que podem conviver plenamente com os DB. Permita-me corrigi-lo: MVP faz exatamente o que DBWare faz, porém de forma orientada a objetos. Desta forma não tem cabimento colocá-los em um mesmo projeto. DBWare é bom pra quem não tem paciência pra oop. Se você quer reaproveitamento de código de interação com o usuário, você troca DBWare por MVP. -- João Morais
Re: [delphi-br] versão do windows
Abre o iniciar.. do lado eskerdo na vertical vai ta escrito q windows eh o seu.. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] versão do windows
function OSType:Boolean;
var
osv : TOSVersionInfo;
begin
{Retorna True se for XP e False para 98}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := True;
VER_PLATFORM_WIN32_WINDOWS : Result := False;
else
Result := False;
end;
end;
- Original Message -
From: willer [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 11:40 AM
Subject: [delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da máquina
onde o meu Sistema está rodando é win98 ou winXP ?
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[delphi-br] Duvida QuickReport
Boa Tarde PessoALL, Estou precisando de uma ajudinha. Seguinte, quando vou exportar um relatório para PDF, depois que informo o nome e mando gravar o arquivo, aparece a seguinte tela, disponível neste link: http://img134.imageshack.us/img134/2743/quickrepxu7.jpg Bom, queria que quando o usuário clicasse em cancelar fosse exibida uma mensagem de relatório cancelado. Alguém tem alguma dica??? O código esta desta forma: if SDlgPDF.Execute then begin QuickRep1.Prepare; QuickRep1.ExportToFilter(TQRPDFDocumentFilter.Create(SDlgPDF.FileName)); end Já tentei Quickrep.Cancelled e não funcionou. Eu uso o componente TQRPDFDocumentFilter da unit: QRPDFFilt. Também uso o Quick Report Pro 3.6.2. Att. Wilian Domingues Analista de Sistemas ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Lazarus
Pessoal o que é esse Free Pascal-Lazarus ? Abraço Fabio Dantas [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: versão do windows
Retire a mensagem anterior!!! Fumegou sim...
Grande abraço
--- Em delphi-br@yahoogrupos.com.br, Anderson RB [EMAIL PROTECTED] escreveu
function OSType:Boolean;
var
osv : TOSVersionInfo;
begin
{Retorna True se for XP e False para 98}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := True;
VER_PLATFORM_WIN32_WINDOWS : Result := False;
else
Result := False;
end;
end;
- Original Message -
From: willer [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 11:40 AM
Subject: [delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da
máquina
onde o meu Sistema está rodando é win98 ou winXP ?
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
Re: RES: [delphi-br] Problema de performace com Delphi 5 e Oracle para gerar Relatorios
é mas essa possibilidade não é possivel. o servidor tem HD scsi mas esta carregado. Valeu pela ajuda. Fico no aguarde se alguem mais tiver alguma ideia. valeu Thiago Menon Rodrigo Mota escreveu: Se essa parada for via rede.. Uma placa Gigabit e os hds da ponta sendo SCSI ou SATA2 8Mb de Cache já melhora muito. Abs. Qq coisa manda pra gente a conf. Dos computadores realizados no processo e a topologia da rede. Abs. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Menon Enviada em: segunda-feira, 20 de novembro de 2006 18:22 Para: Delphi Grupo Assunto: [delphi-br] Problema de performace com Delphi 5 e Oracle para gerar Relatorios Olá, Gostaria da ajuda do pessoal da lista para o seguinte problema de performace. Tenho q ler um arquivo com aproximadamente 900mil registros q estao em DBF. Tenho q gerar relatorios (com quick report) e arquivos XLS. Quanto a carga do aquivo DBF para o ORACLE o tempo está razoavel em torno de 2:30 horas, o problema esta em gerar os XLS pois está demorando muito, eu fiz um teste para calcular um previsão de por volta de 9 horas para gerar os xls, no teste foi 15mil registros lidos em 10min. Gostaria de saber o que o pessoal da lista me aconselha a fazer de alteração para melhorar essa performace ? Ambiente: Delphi 5 Oracle 8.1.5 DBF gerado em Clipper Estação que irá gerar o processo Win XP XLS sendo gerado com OLE. Agradeço a atenção de todos Thiago msn : [EMAIL PROTECTED] mailto:thimenon%40hotmail.com com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: versão do windows
Tá dando PAU essa função!!!
Tem alguma Unit pra add??
Reveja a função...
===
--- Em delphi-br@yahoogrupos.com.br, Anderson RB [EMAIL PROTECTED] escreveu
function OSType:Boolean;
var
osv : TOSVersionInfo;
begin
{Retorna True se for XP e False para 98}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := True;
VER_PLATFORM_WIN32_WINDOWS : Result := False;
else
Result := False;
end;
end;
- Original Message -
From: willer [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 11:40 AM
Subject: [delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da
máquina
onde o meu Sistema está rodando é win98 ou winXP ?
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Acho que vc esta redondamente equivocado nesta parte Campus
pra isso que existem os DATAMODULES / ( PROCEDURES / FUNCTIONS / OnEvent´s
)-RECURSIVOS eu só faço a parte de pesquisa uma unica vez... se ta loco
fica colocando um TTABLE em cada FORM hehehehhe
Um exemplo RECURSIVO USANDO BeforePOST( bla bla ), em todas as minhas tabelas
(uso MySQL) tem o campo 'lastuser' que é o ultimo usuário que
cadastrou/modificou o registro.
Em todas as tabelas eu uso esse unico evento... crio ele uma unica vez e nos
BEFOREPOST eu seleciono o EVENTO que já esta criado (a data hora é um
campo TIMESTAMP no MySQL, assim nem me preocupo com ela)
procedure TMD_BeforePostALL( dataset : TDataSet ); // ALL porque é usado para
todos
Begin
DataSet.FieldByName('lastuser').AsString := (f_principal.l_user); // pega
o usuário do form.principal...
End;
Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br
- Original Message -
From: Campus
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 30, 2006 3:28 PM
Subject: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Luiz eu tb estou olhando mais de perto isso.
O bom é que tu pode criar uma classe TCliente, e chamando o retrieve, por
exemplo, carregar os dados do banco.
O ganho é que tu faz isso na classe, e só instancia o objeto.
Com TDataSet, se em cada form tu for colocar um TTable ou um TQuery para
buscar esses dados, tu vai ter que localizar o cliente corespondente, ou com
Locate, ou com um GotoKey. Em resumo, e sempre tem que escrever muito
código.
Já no caso, usando um objeto cliente, tu escreve esse código uma vez só e
pronto.
- Original Message -
From: Luiz Escobar [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 30, 2006 2:01 PM
Subject: Re: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Andreano, não é achar que não deve ter, é ter certeza que não precisa
ter.
Opa, isso precisa ter muita base pra falar né futuro matuzalem
É sempre questão de preferência. Falo por mim, estou apenas expondo
vantagens de um modelo orientado a objetos perante o RAD (com exceção de
usar TDataset como objeto de negócio - isso é roda quadrada).
HUmmm uma questao de preferencias. agora melhorou
TDataset é orientado a tabela, OPF é orientado a objetos do domínio do
problema.
==TDataset==
TabCliente.Open; // ou .Query := 'xx';
TabCliente.Locate(); // ou TabCliente.Open;
TabCliente.Edit
TabClienteNOME := 'Outro';
TabCliente.Post;
e se tiver Cached updates... transação...
ai vc coloca um APPLYUPDATE(-1) e ta tudo certo
==OPF==
Cliente := TCliente.Retrieve(ID); -- monta query, pesquisa, etc.
Cliente.Nome := 'Outro Nome';
Cliente.Save; -- cache, controle transacional, tudo aqui dentro.
E olha que eu escolhi um modelo de dados sem herança, pra ficar mumu pra
TDataset.
Ta tirei o EDIT, quer dizer só mando o valor, sem dar um EDIT, mas tenho um
SAVE = POST, os cache/transaction no OPF não existem ? onde eu faço varias
alterações e mando salvar tudo de uma vez para que se der um problema eu
possa fazer um ROLLBACK ???
Este exemplo ta meio desproporcional...
Pra quem acha que EDIT´s são melhores que DBEDIT´s, isso ai Fudeu com tudo
mesmo porque os controles ficaram mais ainda longe das mãos dos
programadores não que eu não ache isso maravilhoso, muito pelo
contrario, quanto menos codigo melhor...
BOM mas o que o OPF do RETRIEVE usou para se ligar ao BANCO ? não foi um
DBWARE ? tipo um TTABLE ? TQUERY ? TDATABASE ? e para visualizar as coisas,
vou ter que fazer um label1.caption := cliente.nome ?
Explique mais, ou mostre onde posso conseguir mais coisa to começando a
gostar do bixim
==DBAware==
DBAware é orientado a TDataset (win32) e ainda assim fica pendurado em
um componente (DB*) e a um datasource. Se você quer um componente
'Combo' mais envenenado, ele tem que entender DBAware. Se o seu Dataset
estiver em um DataModule e por desencargo do destino a ligação quebrar
(nisso o Delphi melhorou um bocado), você tem que reabrir o form e
refazer a bendita.
é isso de quebrar realmente acontecia muito com D2 mas no D6 nunca
aconteceu comigo
==MVP==
MVP é totalmente desacoplado, é o framework que entende o componente, e
não o contrário. O formulário que usa o padrão MVP *não tem código*,
você pode mandar os .pas e os .dfm para uma empresa de design, entregar
uma licença de Delphi pra eles, eles usam qualquer componente que eles
quiserem, você tras os novos formulários para o seu projeto e recompila.
A única exigência é que os componentes continuem com o mesmo nome,
porque MVP pode ser
Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Respondendo todas as suas perguntas abaixo não, faço isso uma vez Luiz Escobar Analista/Desenvolvedor: - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 10:14 AM Subject: Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Fellipe Henrique wrote: O que me impede de reaproveitar código usando DBWare? Eu faço isso, ou seja, tenho algumas telas que são idênticsa e vários sistemas... mais uma vez eu digo, o erro não está no Objeto e sim no Sujeito. Você não tem que setar sempre o DataSource, DataField, KeyField, ListField, criar um botão pra criar novo cliente, criar atalhos pra incluir novo item no Grid e coisas afins? Eu conheço MVP e DBWare, estou falando por experiência, não estou jogando. -- João Morais [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problema com o Quick Report
Dessa maneira tbm não funcionou marcelo..
[s]
Thiago
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcelo
Enviada em: sexta-feira, 1 de dezembro de 2006 06:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema com o Quick Report
Moked - Thiago (Brasil) escreveu:
Bom dia colegas Delphianos,
Estou tendo um problema na hora de gerar um relatório,
estou utilizando um componente do tipo QRMemo, para receber os dados,
conforme parte do código abaixo, mas quando o relatório é gerado,
somente aparece os dados do 1ºregistro do banco ou do último registro
ele não fica passando de um a um, como os campos .DataField
Alguém teria uma sugestão??
eu tentei.. abrir o ClientDataSet.. e dar um first. depois dentro do
laço colocar um next... e não adiantou...
for i := 0 to RecordCount-1 do
begin
qrdbDadoAten0.DataField := 'AteCodi';
qrdbDadoAten3.DataField := 'UsuNome';
qrdbNomeProcurador.DataField := 'pro_nome';
qrdbAtend1.DataField := 'His_Data';
qrdbDadoAte2.DataField := 'HisDura';
qrdbSituacao.DataField := 'ate_situ';
mmAteDesc.Lines.Text := fieldbyname('AteDesc').AsString;
end;
Thiago Filiano
[As partes desta mensagem que não continham texto foram removidas]
--
Internal Virus Database is out-of-date.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.6/486 - Release Date: 19/10/2006
Voce experimentou fazer assim:
mmAteDesc.Lines.Add(fieldbyname('AteDesc').AsString) ???
Espero ter ajudado
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problema com o Quick Report
então ele está dentro de um TQRDetail.. mas mesmo assim não apresenta os dados
dos outros registros.. somente os dados do primeiro registro
(isso so no QRMemo.. nos outros (QRDBText) eles trazem todos os registros
certinhos...).
existiria então um componente Memo com DB?? tipo QRDBMemo???
Thiago - Desenvolvimento
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/ http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
Valfrid-Ly Silva Couto
Enviada em: sexta-feira, 1 de dezembro de 2006 14:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema com o Quick Report
O seu QRMemo tem que estar dentro de um TQRDetail, que é a banda que passeia
pelos registros.
Moked - Thiago (Brasil) [EMAIL PROTECTED] mailto:thiago%40moked.com.br
escreveu: Bom dia colegas Delphianos,
Estou tendo um problema na hora de gerar um relatório,
estou utilizando um componente do tipo QRMemo, para receber os dados, conforme
parte do código abaixo, mas quando o relatório é gerado,
somente aparece os dados do 1ºregistro do banco ou do último registro...
ele não fica passando de um a um, como os campos .DataField
Alguém teria uma sugestão??
eu tentei.. abrir o ClientDataSet.. e dar um first. depois dentro do laço
colocar um next... e não adiantou...
for i := 0 to RecordCount-1 do
begin
qrdbDadoAten0.DataField := 'AteCodi';
qrdbDadoAten3.DataField := 'UsuNome';
qrdbNomeProcurador.DataField := 'pro_nome';
qrdbAtend1.DataField := 'His_Data';
qrdbDadoAte2.DataField := 'HisDura';
qrdbSituacao.DataField := 'ate_situ';
mmAteDesc.Lines.Text := fieldbyname('AteDesc').AsString;
end;
Thiago Filiano
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
Valfrid-Ly Silva Couto
[EMAIL PROTECTED] mailto:valfrid%40uol.com.br
[EMAIL PROTECTED] mailto:valfrid%40intermega.com.br
[EMAIL PROTECTED] mailto:valfrid_ly%40hotmail.com
ICQ 15114646
-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: RES: [delphi-br] Impressão direta via Rede
Aqui tb funciona. Mas eu faço assim: A propriedade Printers do objeto Printer é uma lista de todas as impressoras instaladas no Windows, ela sempre vem assim: Epson FX-1170 on LPT1: Epson LX-300 on LPT2: Canos BJC-2000 on \\Micro02\NomedaImpressora (Compartilhado) HP DeskJet 660C on \\Micro03\NomedaImpressora (Compartilhado) Basta pegar o que tem depois do on Eu divido o nome, e jogo em dois combox, o primeiro com o nome da impressora, e o segundo com o caminho. Quando o usuários seleciona o combo com o nome, basta pegar o caminho no outro combo. - Original Message - From: Joao Morais [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 9:20 AM Subject: Re: Res: RES: [delphi-br] Impressão direta via Rede Omar Marques wrote: Olá Amigos, Neste texto que vi: Somente que esse comando \\host\impr serve para rede, se fizer isso localmente (no proprio computador onde esteja espetada a impressora) da erro... Quer dizer, se eu quiser imprimir na impressora local espetada em LPT1, mas quiser via rede, dá erro ? Ué, deveria aceitar normalmente. Tenho um sistema que tenho de fazer isso. Um sistema de entregas, aonde tem 2 computadores, somente um deles tem impressora. Mas os 2 computers tem de usar esta impressora (está compartilhada) e no meu sistema pretendo colocar um parâmetro, aonde parametriza o caminho dela válido para os 2 computadores. Pergunto aos nobres colegas, E agora, José ? Eu já fiz isto, funciona, basta que o micro local seja o \\host e que a impressora \impr esteja visível na rede. Agora eu não sei é dizer o porque isso dá erro com o sr. tatu-at-nsr.com.br. -- João Morais -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.430 / Virus Database: 268.15.2/559 - Release Date: 30/11/2006 05:07
Re: [delphi-br] [OFF] Exemplo de MVP
O João esse exemplo se eu compilar no Delphi6 Professional vai rodar ? Luiz Escobar Analista/Desenvolvedor: - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 1:55 PM Subject: Re: [delphi-br] [OFF] Exemplo de MVP Valfrid-Ly Silva Couto wrote: Onde você colocou o exemplo!? A lista não aceita anexos. Conta no final da mensagem: www.pressobjects.org http://pressobjects.org/snapshot/press-snapshot-20061130-r157.zip -- João Morais [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Formatação de strings
Olá pessoal. O delphi tem funções para formatar strings, algo do tipo, passar uma string, um tamanho, alinhamento e ele retornar a string pronta? Valeu. -- Leodinei Bielak In theory, there is no difference between theory and practice. In practice, however..
[delphi-br] ClientSocket + Aplicativo em DLL
Boa tarde a todos... Tenho um aplicativo, que roda como serviço do Windows (dll), esta aplicação tem um ClientSocket, aonde no evento OnCreate do Remote Datamodule, me conecto a um servidor Socket, mas o interessante é que o Client não passa pelo evento OnConect, mas a aplicação server registra esta conexão, mas o Cliente não recebe nenhuma mensagem enviada pelo servidor, e vice versa. Já tentei trocar o Port, e não resolveu, será que pode haver algum problema com o ClientSocket rodando como serviço do Windows?? Se faço uma aplicação normal em exe o client e o server comunicam normalmente.. Agradeço já aqueles que puderem me dar uma luz! Obrigado Daniel Loureiro _ E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=compdan_l=1,1 164990474.891476.19085.almora.hst.terra.com.br,17346,Des15,Des15 _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 30/11/2006 / Versão: 4.4.00/4908 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] versão do windows
Clique com o botao direito do mause em cima do Meu Computador e la vai ter a versap do que esta instalado... - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 11:40 AM Subject: [delphi-br] versão do windows Alguém sabe como faço para verificar se o sistema Operacional da máquina onde o meu Sistema está rodando é win98 ou winXP ? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: versão do windows
essa tá funcionando redondinho ...
unit GetWindowsVersion;
interface
function f_GetWindowsVersion: String;
implementation
function f_GetWindowsVersion: String;
var
osVerInfo: TOSVersionInfo;
majorVersion, minorVersion: Integer;
begin
Result := 'Desconhecido';
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
begin
minorVersion := osVerInfo.dwMinorVersion;
majorVersion := osVerInfo.dwMajorVersion;
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if (majorVersion = 4) then
Result := 'WinNT'
else
if ((majorVersion = 5) and (minorVersion = 0)) then
Result := 'Win2000'
else
if ((majorVersion = 5) and (minorVersion = 1)) then
Result := 'WinXP';
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
if ((majorVersion = 4) and (minorVersion = 0)) then
Result := 'Win95'
else
if ((majorVersion = 4) and (minorVersion = 10)) then
begin
if (osVerInfo.szCSDVersion[1] = 'A') then
Result := 'Win98SE'
else
Result := 'Win98';
end
else
if ((majorVersion = 4) and (minorVersion = 90)) then
Result := 'WinME'
else
Result := 'Desconhecido';
end;
end;
end;
end;
end.
- Original Message -
From: hernandes_sp
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 2:59 PM
Subject: [delphi-br] Re: versão do windows
Tá dando PAU essa função!!!
Tem alguma Unit pra add??
Reveja a função...
===
--- Em delphi-br@yahoogrupos.com.br, Anderson RB [EMAIL PROTECTED]
escreveu
function OSType:Boolean;
var
osv : TOSVersionInfo;
begin
{Retorna True se for XP e False para 98}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := True;
VER_PLATFORM_WIN32_WINDOWS : Result := False;
else
Result := False;
end;
end;
- Original Message -
From: willer [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 11:40 AM
Subject: [delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da
máquina
onde o meu Sistema está rodando é win98 ou winXP ?
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Formatação de strings
Vc pode conseguir isso usando opções especiais que podem ser inseridas na string de formatação passada à função Format(). Informe-se mais sobre isso no próprio help do Delphi, que é excelente. Procure por 'format strings'. Sds., Rubem Rocha Manaus, AM From: Leodinei Bielak [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br delphi-br@yahoogrupos.com.br Subject: [delphi-br] Formatação de strings Date: Fri, 1 Dec 2006 14:34:00 -0200 Olá pessoal. O delphi tem funções para formatar strings, algo do tipo, passar uma string, um tamanho, alinhamento e ele retornar a string pronta? Valeu. -- Leodinei Bielak In theory, there is no difference between theory and practice. In practice, however.. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Re: [delphi-br] [OFF] Exemplo de MVP
Joãozinho, se ta brincando né... como vou usar isso depois do que li abaixo O PressObjects possui atualmente apenas packages de Runtime, pois ainda não foi implementada nenhuma funcionalidade para a IDE. Vo faze na mão ? do jeito que ta falando ai abaixo ? Se for, como a WALTER disse eu estou aumentando, isso ai esta me parecendo altamente improdutivo fora da realidade que a IDE do DELPHI nos deu quando isso ai estiver na IDE a a gente USAR como os DBWare, como vc mesmo disse, vc USA e não os cria na mão, ai vai dar pra ter uma idéia melhor.. Este documento possui um resumo dos passos necessários para criar uma aplicação com PressObjects. 1. Criar um novo projeto na IDE do compilador; 2. Criar o Presenter do formulário principal (vide MVP-ptbr.txt); 3. Alterar o arquivo principal do projeto, substituindo a chamada à Application.Run por MainPresenterClass.Run; 4. Incluir as units de persistência no projeto (vide Persistence-ptbr.txt); 5. Criar modelo de classes de negócio do framework de persistência e do PressObjects (vide BusinessClasses-ptbr.txt); 6. Criar formulários para as classes de negócio; 7. Criar o Presenter de cada formulário (vide MVP-ptbr.txt); 8. Criar Commands e associar - ou ao Model (menu de contexto), e/ou a um componente visual e/ou a um item de menu (vide MVP-ptbr.txt). To falando isso pra hoje, quero começar a usar agora Luiz Escobar Analista/Desenvolvedor: - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 1:55 PM Subject: Re: [delphi-br] [OFF] Exemplo de MVP Valfrid-Ly Silva Couto wrote: Onde você colocou o exemplo!? A lista não aceita anexos. Conta no final da mensagem: www.pressobjects.org http://pressobjects.org/snapshot/press-snapshot-20061130-r157.zip -- João Morais [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Instruções SQL em planilha Excel
Olá pessoal, Fiz um sistema que se conecta ao excel através do ODBC, usando uma conexão ADO. Consigo abrir as tabelas do excel normalmente. Só que preciso fazer algumas instruções em SQL mais complexas, no qual eu preciso fazer alguns tratamentos no campo, estilo o to_char, to_number do Oracle. O problema é que no driver ODBC eu não conheço os comandos que substituem essas instruções de formatação. Procurei na internet mas também não encontrei nenhum material específico sobre isso. Alguém possue alguma informação? Ou sabe onde posso encontrar? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Lazarus
Fabio Dantas wrote: Pessoal o que é esse Free Pascal-Lazarus ? Free Pascal é um compilador object pascal para n^2 plataformas. Lazarus é um ambiente gráfico (estilo Delphi) para Free Pascal com biblioteca gráfica para n interfaces. -- João Morais
[delphi-br] Duvida Data
Pessoal como faço para manipular a data dentro de um comando SQL com paradox, Gostaria de retornar em um select a data com uma quantidade de meses a mais.. [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Re: Usar ou não usar DBWares ? Eis a questão!
Entendi, mas vamos supor entaum, eu posso suar ECO como OPF e usar uma camada MVP para desacoplar ao maximo possível DB / MODELO / APRESENTAÇÃO certo ? _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: quinta-feira, 30 de novembro de 2006 16:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! anderson wrote: É possivel então eu ter o OPF com ECO, continuando usando DBWares e utilizar MVP DBWare e MVP são inimigos mortais! Brincadeira. É o mesmo você dizer que quer sair de carro e moto ao mesmo tempo. MVP é um padrão para apresentação de dados, assim como DBWare. -- João Morais [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Re: Usar ou não usar D BWares? Eis a questão!
Luiz Escobar wrote: Respondendo todas as suas perguntas abaixo não, faço isso uma vez Eu já havia prometido largar essa thread, mas eu não resisto. Por favor, diga como você faz isso! -- João Morais Luiz Escobar Analista/Desenvolvedor: - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 10:14 AM Subject: Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Fellipe Henrique wrote: O que me impede de reaproveitar código usando DBWare? Eu faço isso, ou seja, tenho algumas telas que são idênticsa e vários sistemas... mais uma vez eu digo, o erro não está no Objeto e sim no Sujeito. Você não tem que setar sempre o DataSource, DataField, KeyField, ListField, criar um botão pra criar novo cliente, criar atalhos pra incluir novo item no Grid e coisas afins?
Re: [delphi-br] [OFF] Exemplo de MVP
Luiz Escobar wrote: Joãozinho, se ta brincando né... como vou usar isso depois do que li abaixo O PressObjects possui atualmente apenas packages de Runtime, pois ainda não foi implementada nenhuma funcionalidade para a IDE. Vo faze na mão ? do jeito que ta falando ai abaixo ? Se for, como a WALTER disse eu estou aumentando, isso ai esta me parecendo altamente improdutivo fora da realidade que a IDE do DELPHI nos deu quando isso ai estiver na IDE a a gente USAR como os DBWare, como vc mesmo disse, vc USA e não os cria na mão, ai vai dar pra ter uma idéia melhor.. Luiz, temos que esclarecer algumas coisas: 1. (Repetindo) você não é obrigado a concordar. 2. (Repetindo) Wizards não estão prontos. 3. É LGPL, de graça. Quer, use, não quer, apague. -- João Morais
Re: [delphi-br] Re: versão do windows
Eu acabei de testar. abri um novo aplicativo, colei a funcao la dentro e
executou uso o Delphi 7
- Original Message -
From: hernandes_sp [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 1:59 PM
Subject: [delphi-br] Re: versão do windows
Tá dando PAU essa função!!!
Tem alguma Unit pra add??
Reveja a função...
===
--- Em delphi-br@yahoogrupos.com.br, Anderson RB [EMAIL PROTECTED] escreveu
function OSType:Boolean;
var
osv : TOSVersionInfo;
begin
{Retorna True se for XP e False para 98}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := True;
VER_PLATFORM_WIN32_WINDOWS : Result := False;
else
Result := False;
end;
end;
- Original Message -
From: willer [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 11:40 AM
Subject: [delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da
máquina
onde o meu Sistema está rodando é win98 ou winXP ?
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
RES: [delphi-br] Off-Topicc - Roteador
Luiz, a BluePex tem no site deles; eu não. Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Luiz Escobar Enviada em: quarta-feira, 29 de novembro de 2006 14:50 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off-Topicc - Roteador Conheço por demos o blue-pex antigo GRUPO-NET Voce ainda tem paginas com os DEMOS dos produtos ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Madsom Silva To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 29, 2006 4:25 PM Subject: RES: [delphi-br] Off-Topicc - Roteador Trabalho com a linha FW da BluePex www.bluepex.com.br , faz isso e algo a mais. Qq coisa [EMAIL PROTECTED] Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Luiz Escobar Enviada em: terça-feira, 28 de novembro de 2006 11:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off-Topicc - Roteador DLink DFL-800 FIREWALL. Comprei a uma semana e ainda to configurando.hehehehe 2-WAN 1-DMZ 4-LAN... - Segue mensagem original! - De: Henrique Netzka \(Vetor Sistemas\) [EMAIL PROTECTED] Data: Tue, 28 Nov 2006 10:33:23 -0200 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off-Topicc - Roteador Procure no Google, existem vários e de quase todas as marcas... Difícil é achar no Brasil, mas existem... Procure por Twin Wan, Double Wan, etc etc... - Original Message - From: HNS Informática To: Delphi BR Sent: Monday, November 27, 2006 10:59 PM Subject: [delphi-br] Off-Topicc - Roteador Pessoal, ta for a da discussão DA lista, mas preciso saber se alguém conhece algum roteador que de para ligar dois link's ADSL. Possuo duas redes com um link cada um, e estou querendo fazer só uma rede, usando um roteador para ligar as duas ADSL somando a banda, alguém sabe de algum roteador que faça isso no ADSL DA Brasil Telecom? Abraços Charles A. Chiodi HNS Informatica [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.409 / Virus Database: 268.14.19/556 - Release Date: 28/11/2006 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/2006 [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Lazarus
A grosso modo é uma implementação livre para um compilador Pascal / Object
Pascal. Pode-se até dizer que seria um Delphi free, mas é bom tomar cuidado com
esta definição. O FreePascal Lazarus foram inicialmente pensados para ambientes
Unix e recentemente (acho que de uns 2 anos pra cá) começaram a surgir versões
para Windows.
Dá uma nesses sites:
http://pt.wikipedia.org/wiki/Free_Pascal
http://www.freepascal.org/download.html
Abraço,
Ricardo.
- Mensagem original
De: Fabio Dantas [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 1 de Dezembro de 2006 14:34:35
Assunto: [delphi-br] Lazarus
Pessoal o que é esse Free Pascal-Lazarus ?
Abraço
Fabio Dantas
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Exemplo de MVP
O João, vendo o seu exemplo vi que ele usa um XML, mas isso é frau pra xuxu pra grandes aplicações Eu trabalho com MySQL usando MyDAC com os DBWare´s... O que vc me diz sobre usar isso em MVP ?? Vi que vc usa STRINGGRID no lugar de uma DBGRID meu isso fica lento, imagine isso com varios registros... quando comecei com MySQL, não tinha muitas opções para se conectar a mais usada era ODBC e era simplesmente orrivelmente inviavel então criei o meu vamos dizer MeuMyDAC, ele alimentava uma STRINGGRID e tinha que tomar cuidado com a quantidade de registros que eu trazia pois o trem era lento Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 1:55 PM Subject: Re: [delphi-br] [OFF] Exemplo de MVP Valfrid-Ly Silva Couto wrote: Onde você colocou o exemplo!? A lista não aceita anexos. Conta no final da mensagem: www.pressobjects.org http://pressobjects.org/snapshot/press-snapshot-20061130-r157.zip -- João Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Exemplo de MVP
Eu quero mas só quando tiver os wizards alias nem o wizards e sim a parte IDE ;-) Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 4:34 PM Subject: Re: [delphi-br] [OFF] Exemplo de MVP Luiz Escobar wrote: Joãozinho, se ta brincando né... como vou usar isso depois do que li abaixo O PressObjects possui atualmente apenas packages de Runtime, pois ainda não foi implementada nenhuma funcionalidade para a IDE. Vo faze na mão ? do jeito que ta falando ai abaixo ? Se for, como a WALTER disse eu estou aumentando, isso ai esta me parecendo altamente improdutivo fora da realidade que a IDE do DELPHI nos deu quando isso ai estiver na IDE a a gente USAR como os DBWare, como vc mesmo disse, vc USA e não os cria na mão, ai vai dar pra ter uma idéia melhor.. Luiz, temos que esclarecer algumas coisas: 1. (Repetindo) você não é obrigado a concordar. 2. (Repetindo) Wizards não estão prontos. 3. É LGPL, de graça. Quer, use, não quer, apague. -- João Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Exemplo de MVP
Luiz Escobar wrote: Eu quero mas só quando tiver os wizards alias nem o wizards e sim a parte IDE ;-) Wizard = File | New... | Press | New Project; New MVP Class, etc. Registre-se em announce. -- João Morais
Re: [delphi-br] Formatação de strings
Valeu. On 12/1/06, Rubem Nascimento da Rocha [EMAIL PROTECTED] wrote: Vc pode conseguir isso usando opções especiais que podem ser inseridas na string de formatação passada à função Format(). Informe-se mais sobre isso no próprio help do Delphi, que é excelente. Procure por 'format strings'.
[delphi-br] Re: Master/Detail Usando o Firebird
Você pode usar o DBExpress. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, willer [EMAIL PROTECTED] escreveu Já tentei adaptar, mas não consegui. Existem algumas propeiedades que não consegui encontrar. Quais componentes substituem os do Exemplo? - Original Message - From: Walter Chagas (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 29, 2006 5:51 PM Subject: [delphi-br] Re: Master/Detail Usando o Firebird Veja este exemplo na minha pagina: http://www.geocities.com/SiliconValley/Bay/1058/ClientDataset.html Ele é adaptavel ao DBExpress ou ao FBX. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, willer willer@ escreveu Alguém sabe como usar Master/Detail usando o Firebird? Peguei um tutorial na Internet, mas não consegui segui-lo, eu uso os componentes da paleta FIBPlus, e o tutorial usa outros componentes, então tentei adaptar, mas mesmo assim não tive sucesso. Alguém saberia como fazer? [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1888 (20061128) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
[Fatal Error] PressInstantObjectsBroker.pas(33): File not found: 'InstantConnectionManager.dcu' tentei compilar o trem do phonebook e nada isso no D6-PRO tem como vc mandar o executavel compilado, funcionando pra mim ? quero alimentar o banco e ver a performance do bixim na pratica... UAI, acho que vc falou, algo e eu entendi alga ou virce-versa... hehhehe Sempre que eu criar um novo FORM eu tenho que setar os DATASET´s, DATASOURCE´s, DATAFIELD´s..., mas isso uma vez, setou cabou ai é só fazer os EVENTos que eu precisar para testar CGC/CPF etc e tal... e pronto Eu queria o executavel disso ai, com o banco alimentado para ver a performance do carinha em XML, já vi que vai ser LENTO da dedel MAS QUERO TESTAR DBWARE com XML e o MVP com o XML Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 3:30 PM Subject: Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Luiz Escobar wrote: Respondendo todas as suas perguntas abaixo não, faço isso uma vez Eu já havia prometido largar essa thread, mas eu não resisto. Por favor, diga como você faz isso! -- João Morais Luiz Escobar Analista/Desenvolvedor: - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 10:14 AM Subject: Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Fellipe Henrique wrote: O que me impede de reaproveitar código usando DBWare? Eu faço isso, ou seja, tenho algumas telas que são idênticsa e vários sistemas... mais uma vez eu digo, o erro não está no Objeto e sim no Sujeito. Você não tem que setar sempre o DataSource, DataField, KeyField, ListField, criar um botão pra criar novo cliente, criar atalhos pra incluir novo item no Grid e coisas afins? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] VERIFICADOR CNPJ
Boa tarde, alguém pode me dizer como eu faço o cálculo de verificação do CNPJ e CPF? sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Pera ai, quem disse que com DBWARE não dá pra fazer reaproveitamento de código ? Talvez não no mesmo nivel, mas que dá, dá! Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 9:39 AM Subject: Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! Walter Chagas (Yahoo) wrote: Isto é plenamente possível sim. Não quer dizer que se voce for usar DBWares deverá renunciar ao outro ou vice versa. MVP/OO São recursos que podem conviver plenamente com os DB. Permita-me corrigi-lo: MVP faz exatamente o que DBWare faz, porém de forma orientada a objetos. Desta forma não tem cabimento colocá-los em um mesmo projeto. DBWare é bom pra quem não tem paciência pra oop. Se você quer reaproveitamento de código de interação com o usuário, você troca DBWare por MVP. -- João Morais [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
é isso ai Luiz Escobar Analista/Desenvolvedor: - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Friday, December 01, 2006 9:53 AM Subject: Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! O que me impede de reaproveitar código usando DBWare? Eu faço isso, ou seja, tenho algumas telas que são idênticsa e vários sistemas... mais uma vez eu digo, o erro não está no Objeto e sim no Sujeito. []s Em 01/12/06, Joao Morais [EMAIL PROTECTED] escreveu: Walter Chagas (Yahoo) wrote: Isto é plenamente possível sim. Não quer dizer que se voce for usar DBWares deverá renunciar ao outro ou vice versa. MVP/OO São recursos que podem conviver plenamente com os DB. Permita-me corrigi-lo: MVP faz exatamente o que DBWare faz, porém de forma orientada a objetos. Desta forma não tem cabimento colocá-los em um mesmo projeto. DBWare é bom pra quem não tem paciência pra oop. Se você quer reaproveitamento de código de interação com o usuário, você troca DBWare por MVP. -- João Morais -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Re: Usar ou não usa r DBWares? Eis a questão!
anderson wrote: Entendi, mas vamos supor entaum, eu posso suar ECO como OPF e usar uma camada MVP para desacoplar ao maximo possível DB / MODELO / APRESENTAÇÃO certo ? Desacoplar do banco você pode fazer com ClientDataSet ou DBExpress. Com OPF (ECO, por exemplo) além de desacoplar você tem objetos de negócio de verdade, e com hierarquia de classe, tipo: TContato-TPessoa-TCliente, caso seu projeto precise. Você tem também cache e controle transacional controlados pelo framework, evita repetição de código e de tratamentos de erro. O MVP faz com que você reaproveite código de apresentação e deixa os seus forms totalmente sem implementação. -- João Morais
[delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Nada em informática é 100%, inclusive o ECO. Programar utilizando MVP, em Delphi, tb não quer dizer 100% OO, pois nem o Delphi é 100% OO... MD --- Em delphi-br@yahoogrupos.com.br, Joao Morais [EMAIL PROTECTED] escreveu Andreano Lanusse wrote: O que você diz de OPF é o que o ECO faz. mas unindo os 2 mundos DataWare e 100% OO Apenas para fins de esclarecimento: - Eu não disse que a Borland não tem um framework OPF; - 100% OO é uma opinião, e não um fato. -- João Morais
Re: [delphi-br] Lazarus
Uma tentativa da comunidade open-source de criar um delphi, baseado no compilador FreePascal, e com bibliotecas próprias, e é multi-so, roda num monte de SOs... []s Em 01/12/06, Fabio Dantas [EMAIL PROTECTED] escreveu: Pessoal o que é esse Free Pascal-Lazarus ? Abraço Fabio Dantas [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Exemplo de MVP
Pergunta - ainda estamos on topic? Luiz Escobar wrote: O João, vendo o seu exemplo vi que ele usa um XML, mas isso é frau pra xuxu pra grandes aplicações Eu não uso XML. Opcionalmente o broker de persistência pode fazer persistência local em XML, estilo Delta do ClientDataset. Ou eu não entendi o que quisesses dizer, podes me esclarecer? Eu trabalho com MySQL usando MyDAC com os DBWare´s... O que vc me diz sobre usar isso em MVP ?? Você precisa que a persistência tenha broker para MyDAC, ou que tenha solução para MySQL. InstantObjects tem broker pra ZeosDBO, que grava em MySQL. Vi que vc usa STRINGGRID no lugar de uma DBGRID meu isso fica lento, imagine isso com varios registros... quando comecei com MySQL, não tinha muitas opções para se conectar a mais usada era ODBC e era simplesmente orrivelmente inviavel então criei o meu vamos dizer MeuMyDAC, ele alimentava uma STRINGGRID e tinha que tomar cuidado com a quantidade de registros que eu trazia pois o trem era lento Nope. Lento é acesso ao banco, StringGrid é tão rápido quanto a habilidade de quem o manuseia. By the way, DBGrid é StringGrid pra DBWare, certo? InstantObjects tá com um perrengue relacionado a performance, se o seu objeto é complexo demais a apresentação fica meio lerda. Aqui a solução é esperar por uma correção por parte da equipe do IO (sou um deles) ou eu montar um OPF para Press (pra mim é diversão, preciso é de tempo). Agora cara, não me leva a mal. Juntando as tijoladas tua e do Walter já era pra eu estar na UTI. Na boa mermão, estou tentando fazer um trabalho legal, di grátis, ninguém está obrigado a gostar, aprovar nem usar. Beleza? -- João Morais
RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Mas vc tem que configurar os campos, de uma mesma tabela, em vários forms diferentes, caso vc queira manipular os campos de uma tabela em mais de um form... A tecnologia RAD deixa mais fácil o que é fácil de fazer e mais difícil o que é difícil. mD --- Em delphi-br@yahoogrupos.com.br, Fellipe Henrique [EMAIL PROTECTED] escreveu O que me impede de reaproveitar código usando DBWare? Eu faço isso, ou seja, tenho algumas telas que são idênticsa e vários sistemas... mais uma vez eu digo, o erro não está no Objeto e sim no Sujeito. []s Em 01/12/06, Joao Morais [EMAIL PROTECTED] escreveu: Walter Chagas (Yahoo) wrote: Isto é plenamente possível sim. Não quer dizer que se voce for usar DBWares deverá renunciar ao outro ou vice versa. MVP/OO São recursos que podem conviver plenamente com os DB. Permita-me corrigi-lo: MVP faz exatamente o que DBWare faz, porém de forma orientada a objetos. Desta forma não tem cabimento colocá-los em um mesmo projeto. DBWare é bom pra quem não tem paciência pra oop. Se você quer reaproveitamento de código de interação com o usuário, você troca DBWare por MVP. -- João Morais -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
Deixar os forms sem implentação para deixar o código em outro lugar não acaba com o problema; pode até ficar mais complexo. Temos que pensar no _objetivo_ final, não na _forma_ como é feito. mD --- Em delphi-br@yahoogrupos.com.br, Joao Morais [EMAIL PROTECTED] escreveu anderson wrote: Entendi, mas vamos supor entaum, eu posso suar ECO como OPF e usar uma camada MVP para desacoplar ao maximo possível DB / MODELO / APRESENTAÇÃO certo ? Desacoplar do banco você pode fazer com ClientDataSet ou DBExpress. Com OPF (ECO, por exemplo) além de desacoplar você tem objetos de negócio de verdade, e com hierarquia de classe, tipo: TContato-TPessoa-TCliente, caso seu projeto precise. Você tem também cache e controle transacional controlados pelo framework, evita repetição de código e de tratamentos de erro. O MVP faz com que você reaproveite código de apresentação e deixa os seus forms totalmente sem implementação. -- João Morais
RES: [delphi-br] Problema com o Quick Report
Tente usar o QDBRichText, colocando a propriedade DataField = Campo
=D
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked -
Thiago (Brasil)
Enviada em: sexta-feira, 1 de dezembro de 2006 16:17
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Problema com o Quick Report
Dessa maneira tbm não funcionou marcelo..
[s]
Thiago
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 Marcelo
Enviada em: sexta-feira, 1 de dezembro de 2006 06:01
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema com o Quick Report
Moked - Thiago (Brasil) escreveu:
Bom dia colegas Delphianos,
Estou tendo um problema na hora de gerar um relatório,
estou utilizando um componente do tipo QRMemo, para receber os dados,
conforme parte do código abaixo, mas quando o relatório é gerado,
somente aparece os dados do 1ºregistro do banco ou do último registro
ele não fica passando de um a um, como os campos .DataField
Alguém teria uma sugestão??
eu tentei.. abrir o ClientDataSet.. e dar um first. depois dentro do
laço colocar um next... e não adiantou...
for i := 0 to RecordCount-1 do
begin
qrdbDadoAten0.DataField := 'AteCodi';
qrdbDadoAten3.DataField := 'UsuNome';
qrdbNomeProcurador.DataField := 'pro_nome';
qrdbAtend1.DataField := 'His_Data';
qrdbDadoAte2.DataField := 'HisDura';
qrdbSituacao.DataField := 'ate_situ';
mmAteDesc.Lines.Text := fieldbyname('AteDesc').AsString;
end;
Thiago Filiano
[As partes desta mensagem que não continham texto foram removidas]
--
Internal Virus Database is out-of-date.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.6/486 - Release Date: 19/10/2006
Voce experimentou fazer assim:
mmAteDesc.Lines.Add(fieldbyname('AteDesc').AsString) ???
Espero ter ajudado
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Re: Usar ou não usar D BWares? Eis a questão!
Luiz Escobar wrote: [Fatal Error] PressInstantObjectsBroker.pas(33): File not found: 'InstantConnectionManager.dcu' Luiz, organize-se, economize mensagem, não polua a lista. E leia ao menos os Readme. -- Joao Morais
Re: RES: RES: [delphi-br] Re: Usar ou não usa r DBWares? Eis a questão!
Marcos Douglas wrote: Deixar os forms sem implentação para deixar o código em outro lugar não acaba com o problema; pode até ficar mais complexo. Temos que pensar no _objetivo_ final, não na _forma_ como é feito. Depende do seu conceito de complexo. MVP não deixa o código em outro lugar, mas o distribui, colocando cada pedaço em seu devido lugar. -- João Morais --- Em delphi-br@yahoogrupos.com.br, Joao Morais [EMAIL PROTECTED] escreveu anderson wrote: Entendi, mas vamos supor entaum, eu posso suar ECO como OPF e usar uma camada MVP para desacoplar ao maximo possível DB / MODELO / APRESENTAÇÃO certo ? Desacoplar do banco você pode fazer com ClientDataSet ou DBExpress. Com OPF (ECO, por exemplo) além de desacoplar você tem objetos de negócio de verdade, e com hierarquia de classe, tipo: TContato-TPessoa-TCliente, caso seu projeto precise. Você tem também cache e controle transacional controlados pelo framework, evita repetição de código e de tratamentos de erro. O MVP faz com que você reaproveite código de apresentação e deixa os seus forms totalmente sem implementação. -- João Morais
[delphi-br] Calcular data nascimento num query com arquivo DBF
Gente mudando um pouco de assunto, como eu faço o seguinte: Tenho um banco de dador em DBF (dBase) onde tenho o campo NASCIMENTO EX:( 30/12/1969 ) a idade é de 36 anos HOJE certo ? bom quero fazer uma query que me retorne as idade agrupas e somadas tipo: Select (YEAR(nascimento)-2006) as idade, count(*) FROM tabela GROUP BY idade ORDER BY idade claro a sentença assim não funciona corretamente, mas como seria, faz tempo que não mexo com DBF :-) Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] VERIFICADOR CNPJ
Régis, eu uso assim, talvez tenha coisa melhor. Paulo function TForm_PRINCIPAL.CPF(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9: integer; d1,d2: integer; digitado, calculado: string; Confere:boolean; begin Confere:=True; Try n1:=StrToInt(num[1]) Except Confere:=False end; Try n2:=StrToInt(num[2]) Except Confere:=False end; Try n3:=StrToInt(num[3]) Except Confere:=False end; Try n4:=StrToInt(num[4]) Except Confere:=False end; Try n5:=StrToInt(num[5]) Except Confere:=False end; Try n6:=StrToInt(num[6]) Except Confere:=False end; Try n7:=StrToInt(num[7]) Except Confere:=False end; Try n8:=StrToInt(num[8]) Except Confere:=False end; Try n9:=StrToInt(num[9]) Except Confere:=False end; If Confere=True then begin d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); If d1=10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); If d2=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[10]+num[11]; If calculado=digitado then CPF:=True Else CPF:=False; end Else CPF:=False; end; e para CNPJ function TForm_PRINCIPAL.CGC(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12: integer; d1,d2: integer; digitado, calculado: string; Confere:boolean; begin Confere:=True; Try n1:=StrToInt(num[1]) Except Confere:=False end; Try n2:=StrToInt(num[2]) Except Confere:=False end; Try n3:=StrToInt(num[3]) Except Confere:=False end; Try n4:=StrToInt(num[4]) Except Confere:=False end; Try n5:=StrToInt(num[5]) Except Confere:=False end; Try n6:=StrToInt(num[6]) Except Confere:=False end; Try n7:=StrToInt(num[7]) Except Confere:=False end; Try n8:=StrToInt(num[8]) Except Confere:=False end; Try n9:=StrToInt(num[9]) Except Confere:=False end; Try n10:=StrToInt(num[10]) Except Confere:=False end; Try n11:=StrToInt(num[11]) Except Confere:=False end; Try n12:=StrToInt(num[12]) Except Confere:=False end; If Confere=True then begin d1:=n12*2+n11*3+n10*4+n9*5+n8*6+n7*7+n6*8+n5*9+n4*2+n3*3+n2*4+n1*5; d1:=11-(d1 mod 11); if d1=10 then d1:=0; d2:=d1*2+n12*3+n11*4+n10*5+n9*6+n8*7+n7*8+n6*9+n5*2+n4*3+n3*4+n2*5+n1*6; d2:=11-(d2 mod 11); if d2=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[13]+num[14]; If calculado=digitado then CGC:=true Else CGC:=false; end Else CGC:=False; end; ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/
Re: [delphi-br] Re: versão do windows
Valeu cara, era o que eu precisava mesmo.
- Original Message -
From: Leo
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 4:00 PM
Subject: Re: [delphi-br] Re: versão do windows
essa tá funcionando redondinho ...
unit GetWindowsVersion;
interface
function f_GetWindowsVersion: String;
implementation
function f_GetWindowsVersion: String;
var
osVerInfo: TOSVersionInfo;
majorVersion, minorVersion: Integer;
begin
Result := 'Desconhecido';
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
begin
minorVersion := osVerInfo.dwMinorVersion;
majorVersion := osVerInfo.dwMajorVersion;
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if (majorVersion = 4) then
Result := 'WinNT'
else
if ((majorVersion = 5) and (minorVersion = 0)) then
Result := 'Win2000'
else
if ((majorVersion = 5) and (minorVersion = 1)) then
Result := 'WinXP';
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
if ((majorVersion = 4) and (minorVersion = 0)) then
Result := 'Win95'
else
if ((majorVersion = 4) and (minorVersion = 10)) then
begin
if (osVerInfo.szCSDVersion[1] = 'A') then
Result := 'Win98SE'
else
Result := 'Win98';
end
else
if ((majorVersion = 4) and (minorVersion = 90)) then
Result := 'WinME'
else
Result := 'Desconhecido';
end;
end;
end;
end;
end.
- Original Message -
From: hernandes_sp
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 2:59 PM
Subject: [delphi-br] Re: versão do windows
Tá dando PAU essa função!!!
Tem alguma Unit pra add??
Reveja a função...
===
--- Em delphi-br@yahoogrupos.com.br, Anderson RB [EMAIL PROTECTED]
escreveu
function OSType:Boolean;
var
osv : TOSVersionInfo;
begin
{Retorna True se for XP e False para 98}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := True;
VER_PLATFORM_WIN32_WINDOWS : Result := False;
else
Result := False;
end;
end;
- Original Message -
From: willer [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 11:40 AM
Subject: [delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da
máquina
onde o meu Sistema está rodando é win98 ou winXP ?
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1896 (20061201) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Exemplo de MVP
Luiz Escobar wrote: Eu trabalho com MySQL usando MyDAC com os DBWare´s... O que vc me diz sobre usar isso em MVP ?? Respondi outra coisa noutra mensagem, mas agora é que entendi a tua pergunta. E a resposta é não. MVP trabalha exclusivamente com objetos de negócio, portanto você precisa mapear para banco relacional, e isso componentes TDataset-like (como MyDAC) nem fazem idéia do que é. Este componente precisaria ser um broker da persistência. -- João Morais
Re: [delphi-br] Re: Usar ou não usar DBWare s? Eis a questão!
Marcos Douglas wrote: Nada em informática é 100%, inclusive o ECO. Programar utilizando MVP, em Delphi, tb não quer dizer 100% OO, pois nem o Delphi é 100% OO... Não tomemos 100% como algo perfeito, mas tangível para a tecnologia atual. Neste caso MVP é 100% OO e Object Pascal / Delphi poderia estar melhor colocado se ao menos implementasse herança múltipla. -- João Morais --- Em delphi-br@yahoogrupos.com.br, Joao Morais [EMAIL PROTECTED] escreveu Andreano Lanusse wrote: O que você diz de OPF é o que o ECO faz. mas unindo os 2 mundos DataWare e 100% OO Apenas para fins de esclarecimento: - Eu não disse que a Borland não tem um framework OPF; - 100% OO é uma opinião, e não um fato. -- João Morais
RES: RES: RES: [delphi-br] Re: Usar ou não usar DB Wares? Eis a questão!
Adorei a ideia, To querendo algo assim mesmo ecomecar a de leve sair de win 32 e migrar tudo para .NET e nada melhor que aproveitar e mudar o modo de se trabalhar para algo o mais proveitoso ! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: sexta-feira, 1 de dezembro de 2006 15:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão! anderson wrote: Entendi, mas vamos supor entaum, eu posso suar ECO como OPF e usar uma camada MVP para desacoplar ao maximo possível DB / MODELO / APRESENTAÇÃO certo ? Desacoplar do banco você pode fazer com ClientDataSet ou DBExpress. Com OPF (ECO, por exemplo) além de desacoplar você tem objetos de negócio de verdade, e com hierarquia de classe, tipo: TContato-TPessoa-TCliente, caso seu projeto precise. Você tem também cache e controle transacional controlados pelo framework, evita repetição de código e de tratamentos de erro. O MVP faz com que você reaproveite código de apresentação e deixa os seus forms totalmente sem implementação. -- João Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Exemplo de MVP
Luiz Escobar wrote: O João esse exemplo se eu compilar no Delphi6 Professional vai rodar ? Testa e me conta. Download é apenas 160k O projeto é D5+ / FPC. -- Joao Morais
Re: RES: [delphi-br] Re: Usar ou não usar DBWares? Eis a questão!
- Segue mensagem original! - De: Joao Morais [EMAIL PROTECTED] Ceder? Eu? è ta sim, já ta concordando com os TDATASET´s... heheheh Mas lembrando que para mexer com estes Frameworks, o camarada tem que ter a manha de OOP, do contrario vai é acabar misturando OO com PE e começar a andar em circulos.. Mas com certeza! Ta vendo já não é tão facil... Posso até adiantar uns conceitos pra você. Na boa! Meros pontos de vista de quem gosta de pegar um bom desafio: Desafio ? que nada gosto de ver a coisa fluindo e rodando o mais rapido possivel se não a produtividade vai pro [EMAIL PROTECTED] TDataset: É legal, você tem acesso direto à tabela, faz pesquisas e atualizações super-otimizadas. Ninguém bate TDataset em desempenho, apenas um louco faria um retrieve de trocentos objetos para fazer um reajuste de preço em 10%. TDataset mata a pau. Pronto chego no ponto TDataSet mata a PAU!!!... OPF: Agora, se você está escrevendo a lógica do sistema, esquece TDataset. Teus problemas são objetos, TDataset são tabelas e eles não combinam. Usar OPF pra cadastrinho já ajuda porque você não precisa daquela tranqueira de Locate/Edit/Post/Cancel, etc. Usar OPF pra hierarquia de classes, putz... pode escrever, é impossível você fazer um trabalho legal com TDataset porque o componente não entende de hierarquia de classes. Falo em coisa do tipo TContato-TPessoa-TCliente ... Usar OPF pra CADASTRINHO ? Pô João uma hora é pra coisa grande a longo prazo... etc.. e tal... agora pra cadastrinho ? e outra EDIT/POST/CANCEL ??? isso o DBNAGIGATOR faz e um locate não da tanto trabalho como vc ta falando... DBWare: Nada como ter tudo ao alcance de uns clicks. Dá pra fazer um cadastro funcional em minutos (5, 10), batendo papo e dando uns goles em uma xicrinha de café. O componente entende tudo de ler, gravar, buscar em outra tabela, etc. Mumu. Pronto adimitiu de vez... DBWare mada a PAU!!!... MVP: Mas o problema começa quando você percebe que perde tempo demais fazendo botãozinho do lado do combo pra cadastrar cliente, ou inventar uma ginástica diferente porque o cliente quer digitar um pedaço do nome e o componente retornar as opções dentro daquela pesquisa. Pior quando você quer, com um click, criar um novo cliente. Isso pode ser feito com DBWare mais um saco de paciência. E isso não é legal, pois cada novo projeto, cada novo form tem aquela mesma manobra. MVP soluciona isso. Tudo quanto é tranqueira desse tipo que você cria para o primeiro componente do primeiro form do primeiro projeto, é reaproveitado nos demais. Quando você acha um erro na implementação, o conserto de um é o conserto de todos os outros ao mesmo tempo. Aqui eu pergunto -- isto não é ganho de produtividade no médio prazo? Fazer botãozinho do lado do combo pra cadastrar da trabalho ? onde ? Fazer ginastica para digitar e achar o cliente ? VC não conhece o MyDAC né ? ele tem isso no DBGRID que o acompanha.. e muito mais Criar um novo cliente ? novamente DBNAVIGATOR. Novo FORM novo PROJETO ? mesma manobra ? e a parte RECURSIVA se é igual só copiar FORM de um pro outro e olhe lá... se vc já sabe que vai reusar é só inserir no novo projeto... e VUA-LA, ta lá... heeeheee Quanto a erros, bons se eu uso 1 FORM em dois projetos se arrumar em um já arrumei em outro... eita Nesse ponto eu volto a fazer a pergunta original dessa thread campeã: Usar ou não usar DBWare? E completo - por quê sim, por quê não? Justifique sua resposta com consciência. Acabei de fazer isso acima... Tudo isso que eu coloquei exige doses cavalares de OOP, e quem estiver preparado para esse tipo de desenvolvimento estará na frente -- construindo softares em cada vez menos tempo, com cada vez mais qualidade. doses cavalares de OOP não significa produtividade pra quem FAZ, talvez pra quem vá arrumar mais tarde e olhe lá... Sim, OPF, MVP, enfim tudo relacionado a 100% OOP vale muito a pena. Sei não... se compilou aquele PHONEBOOK ?? to loco pra testar a performance do bixim Luiz Escobar
Re: [delphi-br] [OFF] Exemplo de MVP
Agora cara, não me leva a mal. Juntando as tijoladas tua e do Walter já era pra eu estar na UTI. Na boa mermão, estou tentando fazer um trabalho legal, di grátis, ninguém está obrigado a gostar, aprovar nem usar. Beleza? 100% beleza,,, as criticas podem parecer destrutivas mas a intensão é construtiva e pra poder sugar o maior numero de informação de vc brother... ehhehehe ;-) Abraços e não desiste não... os tijolos são de espoma... hehehehhe Luiz Escobar
Re: [delphi-br] [OFF] Exemplo de MVP
- Segue mensagem original! - De: Joao Morais [EMAIL PROTECTED] Respondi outra coisa noutra mensagem, mas agora é que entendi a tua pergunta. E a resposta é não. MVP trabalha exclusivamente com objetos de negócio, portanto você precisa mapear para banco relacional, e isso componentes TDataset-like (como MyDAC) nem fazem idéia do que é. Este componente precisaria ser um broker da persistência. Desculpa à minha santa ignorancia no assunto, mas que diabos é esse BROKER e porque ele é tão persistente hehehehe PÔ abandonar meu MyDAC ? cara em MySQL ele faz até chove neste banco... tão facil e rapido manupular as coisas hu... que falta faz um broker pra MyDAC, não gosto do Zeos, da muitos problemas.. Luiz Escobar
