Re: [delphi-br] treeview
eu usei esse codigo procedure TPlanoContas.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); var NodeRect: TRect; begin NodeRect := Node.DisplayRect(True); if node.Level = 0 then begin Sender.canvas.Font.Style := [fsBold]; Sender.canvas.Font.Color := clBlue; end else if node.Level = 1 then begin Sender.canvas.Font.Style := [fsBold]; Sender.canvas.Font.Color := clRed; end else begin Sender.canvas.Font.Style := []; Sender.canvas.Font.Color := clBlack; end; Sender.canvas.FillRect(NodeRect); end; funcionou legal vc pode adaptar para sua necessidade. Em 1 de setembro de 2010 09:28, Gilberto Bazilio gmbazi...@hotmail.comescreveu: Bom Dia Senhores e Senhoras do Grupo, Me deparei com um problema no treeview, alguem já conseguiu colorir os nós do treeview em tempo de execução? Consegui utilizando o OnCustomDrawItem, mas ele não me soluciona o problema, queria colorir atraves de um button. Atenciosamente, Gilberto Bazilio Stärke [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Codigo de Barras
esse componente vem com os fontes, compila ele no delphi 2010. -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] KeyEvent em um TAction.OnExecute
Ola, se vc nao resolvel ainda, a dica é criar uma procedure ou function coloca teu codigo. ai vc coloca essa function ou procedure no evendo do action e keyup do edit pois esses eventos tem parametros diferentes. 2010/8/30 Júlio César Santiago Guiótti jcsguio...@gmail.com Oi Luciano, meu problema é o contrário. Fazer o action receber um evento do onkeyup. Algo como action := edit1.onKeyUp; Obrigado, Júlio César Santiago Guiótti Em 27 de agosto de 2010 22:26, Luciano Bruno lsbdevelopm...@yahoo.com.br lsbdevelopment%40yahoo.com.brescreveu: usa assim edit1onkeyup() begin action.execult(self) end; 2010/8/27 Júlio César Santiago Guiótti jcsguio...@gmail.comjcsguiotti%40gmail.com Olá, tenho uma instância de um TAction criado em tempo de execução. Queria que este TAction fosse disparado no onKeyUp de um TEdit. Mas o OnExecute do TAction espera por um TNotifyEvent, enquanto o onkeyUp é um TKeyEvent. Alguém sabe como consigo contornar este problema? Obrigado, Abraço, Júlio César Santiago Guiótti [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] KeyEvent em um TAction.OnExecute
usa assim edit1onkeyup() begin action.execult(self) end; 2010/8/27 Júlio César Santiago Guiótti jcsguio...@gmail.com Olá, tenho uma instância de um TAction criado em tempo de execução. Queria que este TAction fosse disparado no onKeyUp de um TEdit. Mas o OnExecute do TAction espera por um TNotifyEvent, enquanto o onkeyUp é um TKeyEvent. Alguém sabe como consigo contornar este problema? Obrigado, Abraço, Júlio César Santiago Guiótti [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Chave Primária - Auto Incremento (U RGENTE)
A minha dica é o seguinte, criei uma tabela chamada sequencias com dois campos: tabela e codigo; depois no programa tenho uma rotina que que recebe o nome da tabela consulta se ela ta cadastrada, se nao cadastra e retorna 1, se ja tiver cadastrada, incrementa o codigo e retorna o novo, dessa forma controlo todos os contadores sendo eles chaves de tabelas ou nao. e serve para qualquer banco. é so uma dica. -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto TMS - Conhecimento de Frete
ola amigo isso que vc se refere não é o Dacte, documento auxiliar de transporte? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conflito que criei
Eu diria que vc deve criar uma regra para validaçao, tipo no clientdataset
vc define se o campo e requerido
besiado nesse atributo vc pode realizar a validaçao se for requerido valida,
outra é vc verificar se esta em
inserçao ou ediçao, no caso de ediçao, nao valida (caso nao tenha alterado o
conteudo). como o colega
sugeriu colocar no onvalidate, veja que vc tera que reescrever o codigo em
cada validate.
vc pode tbm colocar essa regra no banco de dado, definindo o campo como
'unique' e tratar e excesao retornada.
Em 12 de agosto de 2010 20:10, Fabricio Colombo
fabricio.colombo@gmail.com escreveu:
Coloca essa função que verifica o cargo no evento OnValidade do seu campo
no
DataSet.
Em 12 de agosto de 2010 15:27, Ricardo Rocha
ricardo_r...@yahoo.com.brescreveu:
Olá a todos,
Estou enfrentando um problema que eu mesmo criei... e não acho a solução.
É o seguinte tenho um formulário de cadastro, nele tenho uma função que
muda a cor do componente ao receber e sair do foco, para que minha query
que verifica se o nome (generico) já existe no banco funcionar tive que
coloca-la dentro da função que muda o foca... funciona redondinho... Se
a query não ficar dentro da função (muda foco) ela não funciona.
Agora vem o problema... Quando eu localizo um cadastro e quero alterar
um campo que não seja o campo onde é feito a verificação de duplicidade
ele faz a verificão tenho que altera-lo, issao está errado..
Como escapar desta verificação quando eu quero alterar um dadastro...
{Código do muda foco evento Exit}
procedure TfrmCadastroCargo.ExitEx(Sender: TObject);
var
nome:String;
begin
{: altera a cor do componente quando sair o foco }
if (Sender is TEdit) then
(Sender as TEdit).Color := clWindow;
if (Sender is TMemo) then
(Sender as TMemo).Color := clWindow;
{: altera a cor do componente quando sair o foco }
if (Sender is TDBEdit) then
(Sender as TDBEdit).Color := clWindow;
if (Sender is TDBMemo) then
(Sender as TDBMemo).Color := clWindow;
{: verifica se já existe um cargo com o mesmo nome }
nome:= DBEdit1.Text;
with qBusca do
begin
Close;
Sql.Clear;
Sql.Add('select CARGO_NOME from CARGO where CARGO_NOME
=:CARGO_NOME');
ParamByName('CARGO_NOME').AsString := nome;
Open;
if not IsEmpty then
begin
ShowMessage('O Cargo ' + '' + DBEdit1.Text + '' + ' já está
cadastrado! Entre com um novo nome ou Alt+C para cancelar.');
Close;
DBEdit1.SetFocus;
end;
end;
{:fim verifica se já existe um cargo com o mesmo nome}
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
--
Luciano S. Bruno
Consultor em TI
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] QRAngledLabel
Não percebi. bom existe uma rotina que desenha o testo na vertical, eu usei ela com o quick e com o report builder. ela desenha uma imagem com o texto. Em 12 de agosto de 2010 08:25, Alan ricardo Souza alanr.so...@yahoo.com.brescreveu: Hum, precisa ser realmente este componente? --- Em qua, 11/8/10, Magnun Oliveira magnunolive...@gmail.commagnunoliveira%40gmail.com escreveu: De: Magnun Oliveira magnunolive...@gmail.com magnunoliveira%40gmail.com Assunto: Re: [delphi-br] QRAngledLabel Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 11 de Agosto de 2010, 14:59 Já tentei Colocar o caracter #13, #10 sLineBreak, e nada rolou ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Estrutura Padrão de Software
importantíssimo para min, este software estou desenvolvendo sozinho, como nunca fiz um projeto grande assim de delphi, gostaria da opinião de vocês sobre alguns assuntos. Estou com muita dificuldade em definir a arquitetura do software (o modelo), por exemplo, o que fiz até agora foi: 1 - Criar um DM para conexão com o Firebird usando SqlConnection. 3 - Criar três formulários genéricos que serão herdados para a geração de outros (herança de formulários). Nesses formulários coloquei um DataSource. 4 - Criei um cadastro de clientes herdando do formulário genério do item 3, neste cadastro, coloquei um SqlQuery, um DataSerProvider, um ClientDataSet e um DataSource, onde ligo um no outro e o coloco o DataSource igual ao do Form genérico, lá no form genérico faço todos os comandos de CRUD e também navigator usando o datasource (dsrCadastros.DataSet as TClientDataSet). Isso achei legal pois quando crio um novo formulário herdando do genérico só me preocupo em enviar alguns parâmetros como: Nome da tabela, campos chave etc.. 5 - Como viram no item 4, estou usando os componentes de conexão dentro do formulário e não estou usando um DataModule separado para isso (EU achei melhor, aceito sujestões). Gostaria de saber de vocês se isso que estou fazendo está certo, se é isso que acontece na prática, trabalho com programação em linguagem própria e estou no segundo ano de informática, nunca trabalhei com delphi em nenhuma empresa por isso estou com essas dificuldades. Já tenho alguns projetos prontos em delphi mas nada se compara a este. Ainda tenho que colocar no sistema: 1 - Parte multiusuário: Como vocês fazem isso com firebird? Tentei colocar DataSnap no meu projeto mas vi que teria que mudar toda a estrutura que já fiz, ia dar muito trabalho, então somente fiz um arqivo .ini que o usuário indica onde é o servidor e o arquivo do firebird (*.fdb;*.gdb). 2 - Permissão de usuário nas telas: Quero fazer uma tela principal com botoes, gráficos, atalhos para relatórios, etc. Mas como vou fazer o gerenciamento disso, por exemplo, o usuário A não pode ver as vendas do mês e na tela principal tem um botão la que mostra as vendas por mês. OBSERVAÇÃO: Eu até sei como resolver a maioria desses problemas, a parte da lógica é facil, o que estou com dificuldades é COMO resolver esses problemas, como definir uma estrutura que quando o projeto crescer não terei que fazer uma mudança grande para atender um requisito, quero reaproveitamento de código. Abraços. -- Att. Rodrigo Rossi Skype: rodrigotrentinrossi MSN: rdrg_ro...@hotmail.com rdrg_rossi%40hotmail.com mailto: rdrg_rossi%40hotmail.com rdrg_rossi%2540hotmail.com mailto: rdrg_rossi%40hotmail.com rdrg_rossi%2540hotmail.com mailto:rdrg_rossi%40hotmail.com rdrg_rossi%2540hotmail.com Fone: (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] QRAngledLabel
os componentes tipo label tem a propiedade* wordwrap* que permite quebra de linha. Em 11 de agosto de 2010 10:29, Magnun Oliveira magnunolive...@gmail.comescreveu: Já tentei Colocar o caracter #13, #10 sLineBreak, e nada rolou ... [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Calculo de hora extra
Por partes
ve se essa função te ajuda , fiz o teste e ela retorna a diferença de horas
entre datas e horas como seu exemplo.
*Código:* function FormatHoras(time: double; havDay: boolean): string;
var *dias*, horas: double;
Pos1, horas24: integer;
aux1: string;
begin
*dias* := trunc(time);
horas := frac(time);
if havDay then
Result := FloatToStr(*dias*) + 'd ' + TimeToStr(horas)
else begin
aux1 := TimeToStr(horas);
pos1 := pos(':', aux1);
horas24 := StrToInt(copy(aux1, 1, pos1 -1)) + (trunc(*dias*) * 24);
Result := IntToStr(horas24) + Copy(aux1, pos1, Length(aux1));
end;
end;
faz o teste coloca 4 edits no form e um button no evento onclick do button
declara 2 variáveis dt1 e dt2 depois bota esse código:
*Código:* dt1:= StrToDateTime(Edit1.Text);
dt2:= StrToDateTime(Edit2.Text);
Edit3.Text := FormatHoras(dt2 - dt1, True);
Edit4.Text := FormatHoras(dt2 - dt1, False);
edit1 recebe a data inicial com a hora
edit2 recebe a data final com a hora
edit3 quantidade de *dias* (resultado edit1 e edit2)
edit4 quantidade de horas (resultado edit1 e edit2)
agora a segunda parte. somas as horas como a soma de horas no delphi so pode
ser feira para resultados ate 24h
entao precisamos de um acumulador de horas
var
// declare as seguintes variaveis
Acumula: array[1..2] of integer;
Hora,minuto:Integer;
zera as variaveis hora e minuto
procedure AcumulaHoras(Tempo : TTime);
begin
//soma a hora passada com com o total acumulador de horas
Hora:=Hora+StrToInt(Copy(TimeToStr(Tempo),1,2));
// soma os minutos
Minuto:=Minuto+StrToInt(Copy(TimeToStr(Tempo),4,2));
// se passa ou igualar a 60 min , ajusta somando mais uma hora e
deixando os min restantes
If Minuto = 60 Then
Begin
Hora:=Hora+1;
Minuto:= minuto - 60;
end;
Acumula[1]:=Hora;
Acumula[2]:=Minuto;
end;
infelizmente tem que ser assim, vc calcula a jornada e depois soma o total
de cada jornada.
ve se te ajuda. t+
Luciano Bruno
Prj. e Desenvolvimento de Software
Especialista em Banco de Dados.
www.simsolution.com.br
Em 8 de agosto de 2010 22:32, SERGIO LOPES moro...@yahoo.com.br escreveu:
Pedro, eu trabalho com o delphi mas nao o conheco muito bem ainda, em
situacoes que precisei de um calculo desses eu usei as funcoes decodetime e
decodedate para separar totalizar subtrair as diferencas. abaixo tem uma
funcao que criei a muito tempo para contar os dias entre duas datas e a
opção de incluir ou nao o primeiro dia na contagem, foi feita para calcular
dias em um periodo muito longo com precisao de dias, so nao tratei caso de
ano bisexto, tendo a quantidade de dias vc pode decodificar a hora pegar as
horas até o minuto inicial e as horas do minuto final até as 24:00 e
subtrair da (quandedias*24h). se vc quizer precisao pode converter tudo em
segundos antes de fazer a calculo e depois converter novamente para hora.
function contardias(datainicio, datafim : TDateTime; contar_primeiro_dia :
boolean) : integer;
var VDia,VMes,VAno,pDia,pMes,pAno : word;
vtotal_dias, X : Integer;//1 2 3 4 5
6 7 8 9 10 11 12
const vmes_qdias : array[1..12] of integer =
(31,28,31,30,31,30,31,31,30,31,30,31);
begin
DecodeDate(datafim,pAno,pMes,pdia);
DecodeDate(datainicio,VAno,VMes,VDia);
vtotal_dias := VMes_QDIAS[VMES]-VDIA;
FOR x := 1 to VMes do
vtotal_dias := vtotal_dias-VMes_QDIAS[x];
FOR x := 1 to pMes do
vtotal_dias := vtotal_dias+VMes_QDIAS[x];
vtotal_dias := vtotal_dias-(VMes_QDIAS[pmes]-pdia);
if contar_primeiro_dia then
if datainicio datafim then
vtotal_dias := vtotal_dias-1 else
vtotal_dias := vtotal_dias+1;
vtotal_dias := vtotal_dias+((pAno-VAno)*365);
Result := VTOTAL_DIAS;
end;
é meio groseira mas funciona. espero ter dado uma ideia de como resolver o
seu problema. se nao conseguir posta me avisa que mando uma funcao pronta
para vc. mas acredito que há posibilidade de fazer esse calculo de maneira
mais simples convertendo a data e hora para ponto flutuante, subtrair os
dois valores e converte novamente para data e hora, nunca tentei mas acho
que pode funcionar.
--- Em sáb, 7/8/10, Pedro Neves neve...@yahoo.com neveshp%40yahoo.com
escreveu:
De: Pedro Neves neve...@yahoo.com neveshp%40yahoo.com
Assunto: [delphi-br] Calculo de hora extra
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Data: Sábado, 7 de Agosto de 2010, 20:56
Ola, tenho uma base de dados com que armazena data e hora em que os
funcionarios treabalham, agora estou tentando somar as datas e horas por
semana, por exemplo
DataHoraInicio DataHoraFim DiaSemana
01/08/2010 08:00 02/08/2010 08:00 Domingo
04/08/2010 08:00 05/08/2010 08:00 Quarta-feira
07/08/2010 08:00 08/08/2010 08:00 Sábado
Então, gostaria de somar todas as datas e hora entre às 00:00h do dia
01/08/2010 às 24:00h do dia 07/08
Re: Res: [delphi-br] consulta em interbase
o uso do ibupdate é simples, vc coloca uma ibquery com a sentença sql : select * from tabela de preferencia use um parametro para filtro. coloca o ibupdate, associa a ibquery com o ibupdate, da um duplo clique no ibupdate, vai surgir uma telha com os campos da tabela usada no select, clique nos seguintes butoes get table field set primary key generat sql pronto, se vc observar nesta mesma tela na aba sql, foi gerado todos os sql update, delelet, insert e refresh testa ai. abraço. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Capitular Palavras
function UpperNome(const Nome: String): String; var x : Integer; lista : Array[0..4] of String[03]; function NaoAchaPreposicao(Palavra : String): Boolean; var x : Integer; begin Result := True; for x := 0 to 4 do if Trim(Palavra) = lista[x] then Result := False; end; begin Result := Nome; lista[0] := 'das'; lista[1] := 'dos' ; lista[2] := 'de'; lista[3] := 'do' ; lista[4] := 'da'; Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result)); for x := 2 to Length(Nome) do begin if Nome[x] = #32 then if Copy(Nome,x+1,1) 'e' then if NaoAchaPreposicao(Copy(Nome,x+1,3)) then Result := Copy(Result, 1, x) + UpCase(Result[x+1]) + Copy(Result, x+2, Length(Result)); end; end; //Como usar Edit2.Text := UpperNome(LowerCase(Edit1.Text)); Em 4 de agosto de 2010 06:56, Dirlei Dionísio dir...@gmail.com escreveu: Meu passatempo do início da manhã... function capitulate(const input: string): string; var index: integer; begin result := input; for index:=1 to length(result) do if (index=1) or (result[index-1]=' ') then result[index] := ansiUpperCase(result[index])[1]; end; ou http://pastebin.com/06GTVaNm -- Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Em 3 de agosto de 2010 13:13, Pablo Farias develo...@marketingrapido.com.br escreveu: Ola pessoal, preciso capitular as palavras de uma string por exemplo pablo farias transformar em Pablo Farias Alguem sabe como fazer isto? -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br developer%40marketingrapido.com.br skype : marketingrapido www.marketingrapido.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Idéias prá um projeto legal open s ource
Amigo tem um oprojeto ai que é o maker. existe outros como speedcase, e ja exisitiram outros como sculptor, em fim. eu ja fiz de forma que me atendesse, pequenas ferramentas, em que eu pudesse realizar inportaçao de dados para o firebird. E em outro tempo fiz uma outra feramenta, que gerava codigos de pesquisa, insersao deleçao e tal para agilizar no desencolvimeto de minhas tarefas. hoje se eu tivesse esse tempo que vc tem a ferramenta que tenho em mente, é a ferramenta de projeto onde eu cadastraria o projeto, as definiçoes, o dicionario de dados, as constantes de dados (padronizaçao de tipo de dado = igual a dominio no firebird). com essa ferramenta eu poderia reaproveitar, os dados, e o principal ela geraria o script do banco de acordo com o dicionario, geraria o crud com telas, podendo gerar ate as class apartir desse dicionario. bom ja se pode perceber qual é a ideia. poi no delphi tem um pequeno problema ele consegue criar uns forms e tal mais somente com acesso via bde e nao deicha de forma clara, eu definir o modelo base para herança. posso participar do projeto com vc. Em 29 de julho de 2010 10:13, Ricardo ricardodevelo...@yahoo.com.brescreveu: O Machiavel no livro O Principe recomenda que as horas de lazer ajudem a nos engrandecer no trabalho. Ele cita como exemplo que um rei deveria ter, como hobbie, a caça, pois se divertiria enquanto se aprimora na arte da guerra, reconhece o proprio terreno... Desde entao eu as vezes crio algum projeto manero só pra relaxar. Assim como um cadastro para os meus livros, cds, meu proprio mediaplayer, meu proprio notepad, um OCR pra entender grade de respostas das provas que eu tenho que corrigir... To pensando em fazer algo open source, provavelmente em Delphi, cadastrar o projeto no source forge e tal... mas to sem inspiração. Alguem tem ideia de algo que eu possa iniciar? Alguma ferramenta que faz falta no dia-a-dia, que facilite a vida muitos usuarios? Agradeço a atençao! Ricardo Bianchin -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] barra de ferramentas...
pois é nao é dev express é da tms. tmssoftware.com Em 29 de julho de 2010 08:14, Eloi Filho e...@ig.com.br escreveu: bom dia Magnun, eu tenho a dex express e procurei em todas as paletas e nao encontrei o componente que vc mencionou... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br Contatos: (92) 3654-4965 / 9130-5174 - Original Message - From: Magnun Oliveira To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 28, 2010 3:43 PM Subject: Re: [delphi-br] barra de ferramentas... Eloi ... a dev express tem um componente que faz isso, o TAdvSmoothDock. Ele tem uns recursos bem legais, mas nos testes que fiz, pesou um pouco a aplicação ... obs ... nao é free ... MAGNUN OLIVEIRA mag...@evolutiva.com.br magnun%40evolutiva.com.br Fone: (14) 3324-4010 www.evolutiva.com.br From: Eloi Filho Sent: Wednesday, July 28, 2010 8:28 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] barra de ferramentas... bom dia José Ricardo, obrigado pela sua resposta, valeu a intenção, mas esse componente eu já uso e como nosso amigo Walter Chagas disse eu preciso de um componente ou rotina que tenha os recursos do Macintoch mesmo. abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br Contatos: (92) 3654-4965 / 9130-5174 - Original Message - From: thevorte...@yahoo.com.br thevortex78%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 28, 2010 7:34 AM Subject: RES: [delphi-br] barra de ferramentas... Bom dia com o VCLSkin, vc consegue mudar o aspecto dos componentes, http://www.link-rank.com/ Atenciosamente. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jraviles%40stiware.com.br jravi...@stiware.com.br jraviles%40stiware.com.br Skype: stiware De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eloi Filho Enviada em: terça-feira, 27 de julho de 2010 18:53 Para: Grupo uninfe MG; Grupo lista-delphi; Grupo ib aberto; Grupo delphi-total aberto; Grupo delphi-br; Grupo Cooperar NFE SEFAZ-PR; Grupo automaçãototal Assunto: [delphi-br] barra de ferramentas... boa noite amigos, gostaria de saber se alguem tem ou ja fez alguma barra de ferramentas igual a do mac, aquela que quando vc coloca o cursor em cima dos icones eles ficam grandes e ela fica no desktop, se alguem tem um componente ou ja fez isso, gostaria de saber se pode compartilhar... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br mailto:efgf%40ig.com.brefgf%2540ig.com.br Contatos: (92) 3654-4965 / 9130-5174 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Algoritimo porreta!!
eu faria da seguinte forma, mudaria apenas a ordem de seleçao 'select' dos dados. mais acredito que no oracle seja possivel pois o firebird permite alterar a ordem das colunas exemplo: ALTER TABLE AUDITORIA ALTER COLUMN TERMINAL POSITION 10; Em 28 de julho de 2010 16:10, Rubem Rocha rubem.ro...@dtmanaus.com.brescreveu: Sinceramente, não vejo qualquer relação entre esta pergunta e o texto inicial da dúvida, em todo caso ... Quem procura, acha: Pesquisa AltaVista: http://www.altavista.com/web/results?itag=odypg=aqaqmode=saqa=Oracle+SQL+ Updateaqp=from+another+tableaqo=aqn=kgs=1kls=1dt=tmperiodd2=0dfr%5Bd %5D=1dfr%5Bm%5D=1dfr%5By%5D=1980dto%5Bd%5D=28dto%5Bm%5D=7dto%5By%5D=201 0filetype=rc=dmnswd=lh=nbq=10 Dica de um dos links encontrados na pesquisa anterior: http://decipherinfosys.wordpress.com/2007/01/31/update-data-in-one-table-wit h-data-from-another-table/ Boa sorte! Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quarta-feira, 28 de julho de 2010 15:42 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Algoritimo porreta!! Rubem, Desculpe a ignorancia, mas como faco este UPDATE: UPDATE ca_analisis_dig SET ca_analisis_dig.ana1_c = ca_analisis_dig_old.ana4_c WHERE codigo = 'T01' ca_analisis_dig = tabela que gostaria de arrumar os campos ca_analisis_dig_old = tabela com os dados originais OBS.: Estou usando ORACLE Obrigado MuriloCunha On 28/07/2010 16:25, Rubem Rocha wrote: Ah, mais uma coisa: 5) Dropar a tabela temporária! Sds. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 28 de julho de 2010 15:19 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Algoritimo porreta!! Prioridade: Alta Não vejo nada de porreta nisso! Isso será, no final das contas, uma verdadeira ginástica de scripts SQL que deverão rodar no banco de dados para: 1) Salvar os dados da tabela alvo em uma outra tabela temporária com a mesma estrutura da tabela alvo; 2) Dropar a tabela alvo do banco de dados, tomando cuidado com as dependências que a tabela possui (triggers, stored procedures, constraints, etc.); 3) Recriar a tabela alvo em questão com os campos na nova ordem física; 4) Copiar os dados que estão na tabela temporária para a nova tabela alvo. Não sei se existem bancos de dados que permitam, por meio de algum comando previsto em seu respectivo SQL Engine, que permita definir a ordem física de campos em uma tabela. Em todo caso, a receita de bolo genérica é essa! Porreta?!?!?!? Sds. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Murilo Cunha Enviada em: quarta-feira, 28 de julho de 2010 15:06 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Assunto: [delphi-br] Algoritimo porreta!! Pessoal, Estou com uma certa dificuldade em montar este algoritimo. Tenho uma tabela no banco onde cadastro varias VARIAVEIS, por exemplo: varNome varEndereco varNumero varTelefone Cada uma dessas linhas representa uma coluna em outra tabela, por exemplo: ID Nome Endereco Numero Telefone 1 Murilo R. Alemanha 300 1234 2 Mauricio R. Tiradentes 123 1234 Se o usuario mudar a ordem de preenchimento desta tabela (ordem das variaveis) o sistema deve tb alterar as informacoes no banco, por exemplo varNumero varEndereco varTelefone varNome As informacoes seriam trocadas de colunas automaticamente, por exemplo: ID Numero Endereco Telefone Nome 1 300 R. Alemanha 1234 Murilo 2 123 R. Tiradentes 1234 Mauricio Como acertar estas informacoes (UPDATE) de acordo com a ordem do usuario??? Obrigado MuriloCunha -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que
Re: [delphi-br] Ref. Impressão em PDF
eu uso o report builder, com um componente extradevice que exporta os rel gerados no reportbuilder para txt, pdf, xls, rtf e html. mais no site www.planeta*delphi*.com.br tem um componente pra isso. Em 28 de julho de 2010 13:01, Omar Marques webomarmat...@yahoo.com.brescreveu: Boa tarde amigos(as) Delphi(anos(as)) Gostaria de saber se alguém dispoe de algum componente ou suíte para geração de realtórios em PDF Uso QuickReport 3.0.5 - Delphi Enterprise. Abraço Obrigado a todos Ats. Omar M. Haddad Analista de Sistemas [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ref. Impressão em PDF
tenta nesse link que tem quick pra pdf http://www.planetadelphi.com.br/busca/pdf Em 29 de julho de 2010 21:06, Luciano Bruno lsbdevelopm...@yahoo.com.brescreveu: eu uso o report builder, com um componente extradevice que exporta os rel gerados no reportbuilder para txt, pdf, xls, rtf e html. mais no site www.planeta*delphi*.com.br tem um componente pra isso. Em 28 de julho de 2010 13:01, Omar Marques webomarmat...@yahoo.com.brescreveu: Boa tarde amigos(as) Delphi(anos(as)) Gostaria de saber se alguém dispoe de algum componente ou suíte para geração de realtórios em PDF Uso QuickReport 3.0.5 - Delphi Enterprise. Abraço Obrigado a todos Ats. Omar M. Haddad Analista de Sistemas [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] varias notas em um cte
Olá senhores como muitos aqui com certeza ja implementaram um CTE, gostaria de saber se é possivel enviar um CTE com várias notas fiscais.
Re: [delphi-br] barra de ferramentas...
eu achei em pratico usar o component da tms. Em 28 de julho de 2010 13:20, thevorte...@yahoo.com.br escreveu: Ok Walter eu entendi, é o Dock do Mac OS X, eu fiquei curioso com a duvida do colega e nas minhas pesquisas eu encontrei este exemplo, http://delphi.about.com/od/fullcodeprojects/a/mac-doc-launch.htm Cujo fonte esta incluso, ele mostra como simular o efeito especial de aumentar os ícones e tbem sobre como refletir os componentes como se estivessem sobre um vidro, espero que isso ajude o colega. Força a todos. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jraviles%40stiware.com.br jravi...@stiware.com.br jraviles%40stiware.com.br Skype: stiware De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 28 de julho de 2010 09:05 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] barra de ferramentas... Mas ele perguntou por um recurso existente no Macintoch e não sobre Skin na aplicação dele. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br mailto:wchagasj%40bol.com.brwchagasj%2540bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com mailto: whitesockets%40hotmail.com whitesockets%2540hotmail.com SKYPE: WalterChagasJr - Original Message - From: thevorte...@yahoo.com.br thevortex78%40yahoo.com.br mailto: thevortex78%40yahoo.com.br thevortex78%2540yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Sent: Wednesday, July 28, 2010 7:34 AM Subject: RES: [delphi-br] barra de ferramentas... Bom dia com o VCLSkin, vc consegue mudar o aspecto dos componentes, http://www.link-rank.com/ Atenciosamente. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jraviles%40stiware.com.brmailto: jraviles%40stiware.com.br jraviles%2540stiware.com.br jravi...@stiware.com.br jraviles%40stiware.com.br mailto: jraviles%40stiware.com.br jraviles%2540stiware.com.br Skype: stiware De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Eloi Filho Enviada em: terça-feira, 27 de julho de 2010 18:53 Para: Grupo uninfe MG; Grupo lista-delphi; Grupo ib aberto; Grupo delphi-total aberto; Grupo delphi-br; Grupo Cooperar NFE SEFAZ-PR; Grupo automaçãototal Assunto: [delphi-br] barra de ferramentas... boa noite amigos, gostaria de saber se alguem tem ou ja fez alguma barra de ferramentas igual a do mac, aquela que quando vc coloca o cursor em cima dos icones eles ficam grandes e ela fica no desktop, se alguem tem um componente ou ja fez isso, gostaria de saber se pode compartilhar... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br mailto:efgf%40ig.com.brefgf%2540ig.com.br mailto:efgf%40ig.com.br efgf%2540ig.com.br Contatos: (92) 3654-4965 / 9130-5174 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] deadlock na instrução updat e no firebird RESOLVIDO
Bom dia senhores conforme sugerido pelos companheiros dei um commit no Transaction FibGeral.Close; FibGeral.SelectSQL.Clear; FibGeral.SelectSql.Text := 'UPDATE USUARIOS SET SITUACAO = ''ON'' WHERE NOME = '+QuotedStr(UpperCase(Us)); FibGeral.Open; if Transaction1.InTransaction then Transaction1.Commit; [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] Ajuda p/ TCC
Pensa na seguinte maneira, um software de cadastro e muito simples, procure visualizar e tentar pensar de que forma isso poderá ajudar? Que resultados irão refeletir de positivo? o que o hospital tem a ganhar com isso? tente pensar em segurança, acesso a dados a qualquer lugar do mundo. Imagino que uma boa medida tambem pensar em soluções web, nao necessariamente uma pagina mais sim como sua aplicação pode se comunicar com a internet, ainda pode-se incluir criptografia um otimo tema pra tcc, ou seja temas que podem ser utilizados junto com a aplicação. -- Luciano Danilo Machado WLE Tecnologia em automação - Desenvolvedor Twitter: @DevLuciano [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] MySQL Web, Conexão via Zeus, procedimentos
O protocolo é o mysql propriamente dito, sempre referencie a mesma versão do banco caso não tenho verifique a sua versão do zeos se não tem uma mais atual, em ultimo caso faça referencia a ultima versão da base. Quanto a DLL, sempre e bom ter uma que conecta sua aplicação ao banco, normalmente esta DLL esta na pasta Bin do mysql , talves ate tenha uma na pasta do Windows.Esta DLL não e necessário caso tenha na pasta do Windows o problema e se for rodar tua aplicação em uma maquina sem ela. Luciano Danilo Machado WLE Tecnologia em automação - Desenvolvedor Twitter: @DevLuciano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda sql uso do or ?
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M' tem que colocar o campo para 'M' Em 22/4/2010 22:23, alessandra porto escreveu: Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [As partes desta mensagem que não continham texto foram removidas] -- Luciano Danilo Machado WLE Tecnologia em automação - Desenvolvedor Twitter: @DevLuciano [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPPIC] Lista de CSharp
Procure no http://www.microsoft.com/brasil/msdn/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] campo igual com dados de tabela diferente
resolvi a soluçao da seguinte maneira funciona porem se nao for o ideial,
coalesce(Clientes.Nome,) || coalesce(Cli.nome,) as nome dentro do select
e nos joins
QueryNotas.Sql.Add('LEFT JOIN Clientes Clientes ON (Clientes.Codigo = Notas
Cliente)');
QueryNotas.Sql.Add('LEFT JOIN Fornecedores Cli ON (Fornecedores.Codigo =
Notas.Cliente)');
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Exclusão mestre/detalhe
Caso vc use o FireBird ... ALTER TABLE IPEDIDO ADD CONSTRAINT FK_IPEDIDO FOREIGN KEY (CODIGO) REFERENCES PEDIDO (CODIGO_NF) DELETE CASCADE ON UPDATE CASCADE; Quando deletar o codigo do pedido tambem deletará os itens do pedido usando ON DELETE CASCADE Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Em 24/03/2010 09:07, Huander escreveu: Pessoal, preciso de uma ajuda! Tenho duas tabelas, onde é a mestre e a outra é a detalhe, tipo PEDIDOS E IPEDIDOS (itens do pedido). Já estou com o cadastro funcionando, cadastrando e consultado normalmente! A minha pergunta é qual o melhor método de fazer a exclusão do mestre/detalhe? Sendo que se mando um delete do mestre recebo um erro do banco dizendo que tem detalhes. Tenho que excluir todos os itens do detalhe via código ou tem alguma forma de deletar o mestre e isto se replicar para o detalhe? Att... Huander [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] [OFF TOPIC] Desabafo contra a DevMedia (ClubeDelphi)
Estou com vc JB .. Também não renovei minha assinatura só pensar em LUCRAR !! Tem video aula que mesmo sendo assinante vc tem que ter crédito para baixar !!! Luciano Angelini Prefeitura de Lupionópolis-Pr JB escreveu: por isso não renovo (não assassino ) assino essa merda, algum ganancioso de plantão disfarçou os anúncios dessa merda pra enganar os que querem aprender a merda que eles inventam publicar. saudades quando Guinter Pauli era um ícone, agora são só um bando de moleques com menos experiência que minha avó, querendo apenas lucrar. ponto final. se for mentira falem comigo. 2009/12/1 EmbarcaDelphi embarcadel...@yahoo.com.br Antes de postar este OFF TOPIC eu entrei em contato pelo chat (atendente: Glória), nada foi solucionado, ou seja, é assim mesmo o funcionamento. Na revista não vem falando nada que só se tem um acesso e depois não se pode acessar novamente. É caso de polícia mesmo! Licerio Neto escreveu: Sou usuário da revista e dos videos que muito me auxiliaram nos meus estudos, com certeza deve ter ocorrido algum problema no gerenciador de cadastros deles, vamos ser cautelosos e aguardar que a DevMedia se manifeste sobre o assunto antes de ficarmos atirando pedras, caso isso não aconteca, ai vamos jogar tijolos,,, hehehehhehe, Alguem da DevMedia faça uso da palavra por favor. Licério Neto. _ --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 091202-0, 02/12/2009 Tested on: 12/2/ 09:12:16 avast! - copyright (c) 1988-2009 ALWIL Software. http://www.avast.com
[delphi-br] Delphi terá em 2010 versões para Linux e Mac OS
Delphi terá em 2010 versões para Linux e Mac OS Ferramenta de desenvolvimento para os dois ambientes deve chegar ao mercado no meio do próximo ano Por EDILEUZA SOARES, DO IDG NOW! 26 de novembro de 2009 - 13h15 · O programa Delphi, ferramenta para desenvolvimento de aplicações, principalmente para PCs, ganhará no próximo ano versões para Linux e Mac OS. A informação é do vice-presidente para relacionamento com desenvolvedores da Embarcadero e evangelista da tecnologia, David Intersimone. Ele esteve esta semana no Brasil reunido com cerca de 600 desenvolvedores. Intersimone, mas conhecido por David I, e que tem um http://blogs.computerworld.com/intersimone blog no site Computerworld americana, veio ao Brasil para apresentar à comunidade que trabalha com a ferramenta de desenvolvimento as inovações incorporadas ao Delphi 2010, versão que chegou recentemente ao mercado. O programa concorre com plataformas como .Net da Microsoft, Visual Studio e Java passou para as mãos da norte-americana Embarcadeiro no meio do ano passado. Na época, a companhia comprou a divisão CodeGear da Borland, unidade responsável por ferramentas multiplataforma para bancos de dados. Entre os quais estavam o Delphi. A Embarcadero ainda não está presente no Brasil e o atendimento aos usuários de Delphi no país continua sendo realizado pelo time da antiga Borland, comprada no ano passado pela Micro Focus. David I diz que o Brasil tem uma comunidade atuante de Delphi e acredita que o suporte da tecnologia a outros ambientes deverá dar mais flexibilidade aos que utilizam a ferramenta para desenvolver aplicações. Até então, o programa falava somente Windows. Ele estima que a versão do produto compatível com o sistema operacional de código aberto Linux e o Mac Os da Apple deverá chegar ao mercado no meio do próximo ano. Inovações do Delphi 2010 Ao comentar sobre as novidades do Delphi 2010, o especialista destacou, que além do produto já está preparado para Windows 7, vem com interfaces baseadas no recurso touch. Essa funcionalidade vai permitir aos desenvolvedores criarem mais rapidamente aplicações interativas para serem acessadas com toque na tela para rodar em celulares, PCs, terminais bancários e em outros tipos de hardware. David I afirma que uma das vantagens do recurso touch para os desenvolvedores e que eles vão poder levar essa funcionalidade também para as aplicações já existentes. · http://computerworld.uol.com.br/tecnologia/2009/11/26/delphi-tera-em-2010-ve rsoes-para-linux-e-mac-os/ []'s Luciano Topolniak Analista de Sistemas www.aquinoacre.com.br Professor Universitário www.uninorteac.com.br [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Banco Sybase com imagem
Primeiro gostaria de discordar sobre a documentação, ela é muito boa e há muitas referências na internet. Quanto a armazenar arquivos, tente utilizar campos do tipo long binary. Luciano Calenzani Simões De: rayerany pssalva...@hotmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Novembro de 2009 17:41:05 Assunto: [delphi-br] Banco Sybase com imagem Não sei se alguem usa o banco Sybase. Tenho que guardar nele documento PDF ou DOC. Qual tipo de dados posso usar? A documentação é muito ruim. Grato. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res: Aplicação com entrada e saída de dados
Creio que ele quer algo assim: c:\pograma1.exe programa2.exe param1 param2 O programa1 é executado, ou também poderia ser uma variável, e ele aguardaria o término do programa2 com o seu respectivo resultado. Quanto ao parâmetro de entrada sem problemas, use o recurso de Params(1), Params(2), ... Quanto ao parâmetro de saída creio que dá para fazer, apesar de nunca ter procisado, pelo menos não usando Delphi. Você pode ver pelo comando Halt que tem um parâmetro de retorno, ele encerra o sistema retornando o número passado. Luciano Calenzani Simões De: Sandro Ricardo Bueno san...@serel.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 12 de Novembro de 2009 16:58:07 Assunto: Re: [delphi-br] [MAF] Aplicação com entrada e saída de dados Olá Marcos, Me perdoe, mas o que você chama de 'parâmetro por linha de comando' e 'outro valor por linha de programação' ??? Obrigado SR 2009/11/12 Marcos Abreu Ferreira m.abreuferre...@hotmail.com Pessoal, alguém já criou alguma aplicação que o executável receba um parâmetro por linha de comando e retorne outro valor por linha de programação? Att, Marcos Ferreira Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Filtro no ClientDataSet Usando LIKE
Veja .
Vc pode usar esse exemplo num edit OnChange .. conforme vc vai digitando ...
FrmDm.CDS_Setores.filter := 'NOME_SET LIKE ' +
QuotedStr('%'+Edit1.text+'%');
FrmDm.CDS_Setores.Filtered := true;
FrmDm.CDS_Setores.locate('nome_set','edit1.text',[loPartialKey]) ;
** QuotedStr(''+Edit1.text+'%') que comece com a letra
** QuotedStr('%'+Edit1.text+'%') que contenha a letra
** QuotedStr('%'+Edit1.text+''); que termine com a letra
Espero ter ajudado !
Luciano Angelini
PM de Lupionópolis-Pr
Gilvan Costa escreveu:
Olá Srs
Estou querendo montar um filtro com ClietDataSet de forma que ele me traga
os registro de todos que começa com a letra A por exemplo .
Tipo o que eu faço com no SQL:
CDSPesquisa.Params.ParamByName('Pesquisa').Value := '%'+ Pesquisa +'%';
O objetivo é claro, uma vez que eu já tenho os dados no grid, gostaria de
fazer diversos filtros e não mais precisar
ir no banco de dados e fazer uma nova consulta.
Tentei montar o filtro usando LIKE mais não deu certo:
CDSPesquisa.Filtered := False;
CDSPesquisa.Filter := 'Meu Campo Like '+ QuotedStr('%' + BtePesquisar
Text + '%' );
CDSPesquisa.Filtered := True;
Assim deu certo, mas só funcionar para um valor completo
CDSPesquisa.Filter := 'Meu Campo = ' + QuotedStr(BtePesquisar.Text);
[As partes desta mensagem que não continham texto foram removidas]
avast! Antivirus http://www.avast.com: Inbound message clean.
Virus Database (VPS): 091108-1, 08/11/2009
Tested on: 11/9/ 09:18:35
avast! - copyright (c) 1988-2009 ALWIL Software.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 091108-1, 08/11/2009
Tested on: 11/9/ 09:35:08
avast! - copyright (c) 1988-2009 ALWIL Software.
http://www.avast.com
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Res: [delphi-br] retornar valor funçao que contem banco
Você tá fazendo a maior confusão na sequência correta para montar a query. Você
não pode dar Open antes de passar os parâmetros, não precisa usar Clear se você
está atribuindo direto na property Text e fique atento aos tipos dos campos:
QryConsulta. SQL.text: ='select Nome_antibiotico from tb_antibioticos Where
Cod_antibiotico = :Cod_antibiotico' ;
QryConsulta. ParamByName( 'Cod_antibiotico').AsInteger := StrToInt(codigo);
QryConsulta. Open;
Result:= QryConsulta. FieldByName( 'Nome_Antibiotico').AsString;
QryConsulta. Close;
Luciano Calenzani Simões
De: pablo freitas pablojfrei...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 2 de Novembro de 2009 10:46:51
Assunto: Re: Res: [delphi-br] retornar valor funçao que contem banco
Olá Luciano, muito obrigado mesmo pela ajuda Começou a iluminar o meu
programa,só que agora, está dando erro de QryConsulta: Field 'Cod_antibiotico'
is of an unknown type.
Eu acho que o tipo de parametro passado não está bantendo com o tipo do banco:
Lembrando: estou usando o banco Paradox do delphi mesmo {campos tabela
tb_antibioticos: Cod_antibiotico (tipo Alpha - Chave)| Nome_antibiotico (tipo
Alpha) }
e o codigo:
function nome_anti(codigo: string):string; //boolean;
begin
with form2 do
begin
QryConsulta. Close;
QryConsulta. SQL.Clear;
QryConsulta. SQL.text: ='select Nome_antibiotico from tb_antibioticos Where
Cod_antibiotico = :Cod_antibiotico' ;
qryConsulta. Open;
QryConsulta. ParamByName( 'Cod_antibiotico ').AsString := codigo;
Result:= QryConsulta. FieldByName( 'Nome_Antibiotic o').AsString;
QryConsulta. Close;
end;
end;
procedure TForm1.CBox1Select( Sender: TObject);
begin
edit1.Text:= nome_anti(CBox1. Text);
end;
Obrigado
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Pesquisa que atenda uma expressão
Estude o tema Pesquisa Operacional. Essa disciplina orienta na solução de problemas complexos, como o de logística por exemplo. Luciano Calenzani Simões De: Rubem Nascimento da Rocha djpardalro...@hotmail.com Para: delphi-br delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 3 de Novembro de 2009 23:56:29 Assunto: RE: [delphi-br] Pesquisa que atenda uma expressão Banco de dados? Estrutura das tabelas envolvidas? ??? To: delphi...@yahoogrup os.com.br From: jose.newton@ jnewton.com. br Date: Tue, 3 Nov 2009 19:00:11 -0300 Subject: [delphi-br] Pesquisa que atenda uma expressão Senhores, aqui vai a bomba para a qual eu preciso de uma dica: Tenho um banco de dados com várias alternativas de transporte em função de preço e lotação. Preciso pesquisar de uma forma que o sistema responda À seguinte pergunta : 1) Qual o equipamento (alternativa) de transporte adequada para o mês face o efetivo que vou transportador e aos preços que me são ofertados ? Seguindo um curva o efetivo poderá ser : Ex: Mes1 = 20 pessoas / Mes2 = 30 / Mês3 = 90 Um array de meses indefinido que pode ser de 2 a 48 Muito obrigado Sds, Jose Newton Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] retornar valor funçao que contem banco
Esta tua função está estranha, recebe nome como parâmetro e retorna a mesma
coisa? Não deveria receber um código e retornar a descrição?
Sem entrar em mais detalhes sobre a melhora neste seu processo, basta você
fazer:
QryConsulta.SQL.Text := 'select Nome_antibiotico from tb_antibioticos ' +
'where Cod_antibiotico =
:Cod_antibiotico';
QryConsulta.ParamByName('Cod_antibiotico').AsInteger := Codigo;
QryConsulta.Open;
Result := QryConsulta.FieldByName('Nome_Antibiotico').AsString;
QryConsulta.Close;
Obs.: Tente fazer um join entre as duas tabelas, assim você já busca a
descrição do remédio sem precisar ficar selecionamento na base de dados sempre
que selecionar outro item no combo.
Para que esse with form2 do? Por que você não cria um método independente de
form? Esse negócio de ficar fazendo referência direta entre forms é a maior
furada.
Luciano Calenzani Simões
De: pablo freitas pablojfrei...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Domingo, 1 de Novembro de 2009 11:19:50
Assunto: [delphi-br] retornar valor funçao que contem banco
Olá pessoal, estou com um problema, eu fiz uma query só para buscar dados do
meu banco. Porém não consigo retornar o valor da minha função, o programa trava
quando chega no acesso.Eu quero fazer toda vez, que eu selecionar um item da
combox, o edit ao lado dele, retorne o valor do banco.
function nome_anti(nome: string):string;
begin
{campos tabela tb_antibioticos: Cod_antibiotico| Nome_antibiotico }
with form2 do
begin
QryConsulta. Close;
QryConsulta. Open;
QryConsulta. Active:=true;
QryConsulta. SQL.Clear;
QryConsulta. SQL.append( 'select Nome_antibiotico from tb_antibioticos'
+
'where Cod_antibiotico =' + quotedstr(nome) +';');
qryConsulta. ExecSQL;
end;
// result:=?? (como faço para resultar o valor da minha consulta)
end;
procedure TForm1.CBox1Select( Sender: TObject);
begin
edit1.Text:= nome_anti(CBox1. Text);
end;
procedure TForm1.CBox2Select( Sender: TObject);
begin
edit2.Text:= nome_anti(CBox2. Text);
end;
Espero uma luz !--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
-- !--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-- !--
#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;} dd.last p a {
font-family:Verdana;font-weight:bold;} #ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-mlmsg #logo{
padding-bottom:10px;} #ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;} #reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;} #ygrp-vital a{
text-decoration:none;} #ygrp-vital a:hover{
text-decoration:underline;} #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;font-weight:normal;color:#00;}
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;} dd.last p span {
margin-right:10px;font-family:Verdana;font-weight:bold;} dd.last p
span.yshortcuts {
margin-right:0;} div.photo-title a,
div.photo-title a:active,
div.photo-title a:hover,
div.photo-title a:visited {
text-decoration:none;} div.file-title a,
div.file-title a:active,
div.file-title a:hover,
div.file-title a:visited {
text-decoration:none;} #ygrp-msg p#attach-count {
clear:both;padding:15px 0 3px 0;overflow:hidden;} #ygrp-msg p#attach-count span
{
color:#1E66AE;font-weight:bold;} div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;} #ygrp-msg p a {
font-family:Verdana;} #ygrp-mlmsg a {
color:#1E66AE;} div.attach-table div div a {
text-decoration:none
[delphi-br] [1/2 OFF] Estatísticas do Grupo
Ricardo, sei disse que você escreveu, mas não terei como fazê-lo, e os dados da lista para mim são suficientes para uma análise superficial, por dois principais fatores: - SPAM, Off-topic e solicitação de arquivo sempre existiram na lista, mesmo em 2002. Pelo tempo que acompanho a lista, eles existem sim, mas não são em números que justifiquem a diferença entre 2002 e 2009. - Os números seguem uma mesma tendência em todas as listas sobre Delphi do Yahoo!. Ou será que as listas do Yahoo! estão sendo abandonadas? Luciano Calenzani Simões De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 29 de Setembro de 2009 19:31:12 Assunto: Re: [delphi-br] Re: [1/2 OFF] Estatísticas do Grupo Um item importante a analisar nessa estatística (que para mim é apenas uma contagem comparativa) é a efetividade das mensagens. Vc pode ter 1 (dez mil) mensagens num mês, mas quantas delas foram efetivas? Ou foram sobre temas relevantes à lista? Estatística vai além de comparar números de mensagens entre períodos de tempo, ainda mais no caso das mensagens de uma lista de e-mails. Vc tem que descartar todas as mensagens que não atendam aos requisitos da lista (anúncios de produtos, serviços, empregos), mensagens de agradecimento e de solicitação de arquivos, off-topics, spam e etc. A partir do momento que se aplicou todos estes filtros, aí sim é possível iniciar o trabalho estatístico que pode ser verificar qual o assunto mais tratado, se as dúvidas propostas foram sanadas, qual foi o usuário mais ativo e etc. Pegar os apenas os números brutos de mensagens enviadas para uma lista e comparar entre periodos ou entre listas não é a melhor análise sem antes filtrar o que realmente conta para a lista. A iniciativa é muito boa, mas a análise estatística necessária não é tão fácil de ser aplicada, pois deve levar em consideração a leitura de todas (isso mesmo TODAS) as mensagens, para verificar quais devem ser descartadas do computo final. E mesmo assim, uma diminuição no número de mensagens pode não significar exatamente uma debandada do Delphi ou um melhor uso do histórico, isoladamente. [ http://pt.wikipedia .org/wiki/ Estat%C3% ADstica ] Abraço, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 29/9/09, simoesluciano simoesluciano@ yahoo.com. br escreveu: De: simoesluciano simoesluciano@ yahoo.com. br Assunto: [delphi-br] Re: [1/2 OFF] Estatísticas do Grupo Para: delphi...@yahoogrup os.com.br Data: Terça-feira, 29 de Setembro de 2009, 16:11 Opa, espera um pouco, não coloque palavra em meus dedos. Em momento algum falei sobre Delphi Morreu!, só estou tentando entender os números e não opniões pessoais. Observe bem e verá que a média deste grupo, mesmo anual, caiu e muito. Compare 2002 como 2009. Sim, os usuários vão ficando mais qualificados. Mas e o novos usuários? Uma das questões que levantei é exatamente essa, cadê os novos usuários com as dúvidas mais banais? Se houvessem, isso sim indicaria que tem gente nova no pedaço. A partir do momento que isso não acontece, ficando só o pessoal mais experiente, é claro que o número de mensagens vai diminuir. Observe o post que indiquei a lista de grupos sobre Delphi, vai observar que há sim uma queda drástica nas mensagens sobre Delphi em todos os grupo, uma excessão é o NDDV que já dei minha opnião sobre ele. Luciano C. Simões --- Em delphi...@yahoogrup os.com.br, Walter Chagas \(Bol\) wchag...@.. . escreveu Eu não iria pelo caminho destas premissa mais preocupante. Mas não obstante, ouve sim uma diminuição de mensagens no grupo mas não uma dimunição tão grande que justifiquem falar que o Delphi já morreu, que é aonde se pretende chegar, a bem da verdade. _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: Update de tabela atraves de query
Uma correção no meu texto: 2 - Altere a condição where para: UPDATE PRODUTO SET QUANTIDADE=: QUANTIDADEATUALI ZADA WHERE PRODUTO.CODIGODOPRODUTO =:CODIGODOPRODUTO Luciano Calenzani Simões De: simoesluciano simoesluci...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 21 de Setembro de 2009 15:54:03 Assunto: [delphi-br] Re: Update de tabela atraves de query Seu texto é veio vago, mas vamos a duas possibilidades. 1 - Limpe o SQL da Query antes de adicionar, assim: SQL.Clear; 2 - Altere a condição where para: WHERE PRODUTO.CODIGODOPRO DUTO =:CODIGODOPRODUTO ou WHERE CODIGODOPRODUTO =:CODIGODOPRODUTO Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Update de tabela atraves de query
Boa Tarde Hugo
Tente dar um espaço em
SQL.Add('UPDATE TABLE PRODUTO');
para
SQL.Add('UPDATE TABLE PRODUTO ');
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Hugo Vieira escreveu:
Boa tarde amigos,
Estou com uma duvida que ja me fez perder a paciencia.
Tenho uma query que a função dela é da baixa em estoque em um modulo
de produtos.
Botei o seguinte codigo:
SQL.Add('UPDATE TABLE PRODUTO');
SQL.Add('SET QUANTIDADE=:QUANTIDADEATUALIZADA ');
SQL.Add('WHERE P.CODIGODOPRODUTO =:CODIGODOPRODUTO
seto os ParamByName como o codigo do produto e a quantidade atualizada
como sendo a quantidade que o operador vendeu do produto. so que da o
seguinte erro: GENERAL SQL ERRO
sou iniciante ainda. p isso tenho essa simples duvida.
Hugo
__
Você sabia que o Hotmail mudou? Clique e descubra as novidades.
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: calculo da idade de nascimento no momento do cadastro
Gustavo Aparentemente seria só substituir o message pelo seu DBedit, mas eu penso que isso daria errado gravar a idade em um campo de dados, quando passar um certo tempo ja não estara correto os dados (idade), o correto seria fazer que calcula-se essa idade e jogaria em uma variavel, se vc por pra calcular a idade, tipo toda vez que vc abrir o sistema, imagine um sistema rodando em rede com 20 micros, com 1 pacientes/clientes, toda vez que uma maquina entra no sistema tem que fazer esse calculo, dar um while na tabela alterando e gravando, é de matar qualquer rede !! Eu tinha um sistema para imprimir cartão de aniversariantes do municipio que eu colocava uma Label só pra mostrar a idade !! Espero ter ajudado Luciano Angelini gustavoandref escreveu: Luciano, fico muito grato pela sua ajuda, mas estou precisando pegar esse valor e colocar em um outro dbedit, como faço isso? um abraço, --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Luciano Angelini luciano.angel...@... escreveu Boa Tarde Gustavo . Eu uso assim function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer; var D1, M1, A1, D2, M2, A2: Word; begin DecodeDate(Data1, A1, M1, D1); DecodeDate(Data2, A2, M2, D2); Result := A2 - A1; if (M1 M2) or ((M1 = M2) and (D1 D2)) then Dec(Result); end; procedure TForm1.Button1Click(Sender: TObject); var DataNasc: TDateTime; begin DataNasc := StrToDate(MaskEdit1.Text); ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos'); end; Espero ter ajudado !1 Luciano Angelini Prefeitura de Lupionópolis-Pr gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
Re: [delphi-br] calculo da idade de nascimento no momento do cadastro
e aproveitando caso vc queira saber anos ... meses e dias . procedure TForm1.BitBtn1Click(Sender: TObject); var Ano, Mes: Integer; Total_dias: Real; begin //Descobrir a idade somente em anos, meses ou dias... ShowMessage(IntToStr(YearsBetween(Date, StrToDate(MaskEdit1.Text))) + ' anos'); ShowMessage(IntToStr(MonthsBetween(Date, StrToDate(MaskEdit1.Text))) + ' meses'); ShowMessage(IntToStr(DaysBetween(Date, StrToDate(MaskEdit1.Text))) + ' dias'); end; gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
Re: [delphi-br] calculo da idade de nascimento no momento do cadastro
Boa Tarde Gustavo . Eu uso assim function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer; var D1, M1, A1, D2, M2, A2: Word; begin DecodeDate(Data1, A1, M1, D1); DecodeDate(Data2, A2, M2, D2); Result := A2 - A1; if (M1 M2) or ((M1 = M2) and (D1 D2)) then Dec(Result); end; procedure TForm1.Button1Click(Sender: TObject); var DataNasc: TDateTime; begin DataNasc := StrToDate(MaskEdit1.Text); ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos'); end; Espero ter ajudado !1 Luciano Angelini Prefeitura de Lupionópolis-Pr gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
RES: [delphi-br] Re: Herança e OOP em TDataModule
sim De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eliflaviob Enviada em: sexta-feira, 4 de setembro de 2009 08:20 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Herança e OOP em TDataModule Você está se referindo aos TFields que são adicionandos nos DataSets? Eli --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luciano Faria luci...@... escreveu Eli, seria por exemplo: Vc. cria um TDataModule para o FINANCEIRO que usa além das relativas ao módulo, também a tabela CLIENTES e cria outro para o módulo de ESTOQUE que usa a mesma tabela CLIENTES aí muda a estrutura da tabela CLIENTES e precisa alterar no TTable dos dois TDataModule's . dá pra evitar isso e alterar em um lugar só com alguma técnica? Estou aproveitando o gancho da pergunta do amigo anterior pra saber como o pessoal faz nesses casos. Obrigado. 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 eliflaviob Enviada em: quinta-feira, 3 de setembro de 2009 15:40 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Herança e OOP em quais processos? Qual a sua dúvida? Eli Flávio Bortolotte --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luciano Faria luciano@ escreveu Alguém tem boa experiência de uso e alguns exemplos de Herança e OOP com DataModules? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de simoesluciano Enviada em: quinta-feira, 3 de setembro de 2009 14:45 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Re: Herança e OOP em quais processos? Eu resolso isso tendo um form bem básico (basicão), todos os forms herdam dele, mesmo os forms básicos mais especializados, como o de básico consulta por exemplo. Algo simular a: |--TForm |--TFormBasico | |--TFormBasicoConsulta | |--TFormBasicoManutencao |--TFormBasicoRelatorio |-- TFormRelatorio1 |-- TFormRelatorio2 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Walter Chagas \(Bol\) wchagasj@ escreveu Porém, os forms que envolvem atividades do processo em questao, não há como herdar a menos que tais forms tenham muita coisa em comum. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Herança e OOP em TDataModule
Olá Eli, obrigado por responder. Eu também uso assim mas como isso não acaba 100% com o problema de atualização dos TFields em vários TDataModules, eu estava pensando se não havia nenhuma solução diferente. Abraço, Luciano. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eliflaviob Enviada em: sexta-feira, 4 de setembro de 2009 14:08 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Herança e OOP em TDataModule Eu crio um DataModule para cada módulo do sistema, independente das tabelas que sejam necessárias. Dentro das tabelas (Query ou ClientDataSet) eu adiciono apenas os campos necessários naquele módulo. Um DataModule pode fazer uso de um outro DataModule, dependendo da situação. Todas as regras de negócio ficam nesses DataModules, tudo que é relacionado à interface com usuário fica nos Forms. Eli Flávio Bortolotte --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luciano Faria luci...@... escreveu sim 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 eliflaviob Enviada em: sexta-feira, 4 de setembro de 2009 08:20 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Re: Herança e OOP em TDataModule Você está se referindo aos TFields que são adicionandos nos DataSets? Eli --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luciano Faria luciano@ escreveu Eli, seria por exemplo: Vc. cria um TDataModule para o FINANCEIRO que usa além das relativas ao módulo, também a tabela CLIENTES e cria outro para o módulo de ESTOQUE que usa a mesma tabela CLIENTES aí muda a estrutura da tabela CLIENTES e precisa alterar no TTable dos dois TDataModule's . dá pra evitar isso e alterar em um lugar só com alguma técnica? Estou aproveitando o gancho da pergunta do amigo anterior pra saber como o pessoal faz nesses casos. Obrigado. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de eliflaviob Enviada em: quinta-feira, 3 de setembro de 2009 15:40 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Herança e OOP em quais processos? Qual a sua dúvida? Eli Flávio Bortolotte --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luciano Faria luciano@ escreveu Alguém tem boa experiência de uso e alguns exemplos de Herança e OOP com DataModules? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de simoesluciano Enviada em: quinta-feira, 3 de setembro de 2009 14:45 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Re: Herança e OOP em quais processos? Eu resolso isso tendo um form bem básico (basicão), todos os forms herdam dele, mesmo os forms básicos mais especializados, como o de básico consulta por exemplo. Algo simular a: |--TForm |--TFormBasico | |--TFormBasicoConsulta | |--TFormBasicoManutencao |--TFormBasicoRelatorio |-- TFormRelatorio1 |-- TFormRelatorio2 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Walter Chagas \(Bol\) wchagasj@ escreveu Porém, os forms que envolvem atividades do processo em questao, não há como herdar a menos que tais forms tenham muita coisa em comum. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Herança e OOP em quais proces sos?
Alguém tem boa experiência de uso e alguns exemplos de Herança e OOP com DataModules? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de simoesluciano Enviada em: quinta-feira, 3 de setembro de 2009 14:45 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Herança e OOP em quais processos? Eu resolso isso tendo um form bem básico (basicão), todos os forms herdam dele, mesmo os forms básicos mais especializados, como o de básico consulta por exemplo. Algo simular a: |--TForm |--TFormBasico | |--TFormBasicoConsulta | |--TFormBasicoManutencao |--TFormBasicoRelatorio |-- TFormRelatorio1 |-- TFormRelatorio2 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Walter Chagas \(Bol\) wchag...@... escreveu Porém, os forms que envolvem atividades do processo em questao, não há como herdar a menos que tais forms tenham muita coisa em comum. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Herança e OOP em TDataModule
Eli, seria por exemplo: Vc. cria um TDataModule para o FINANCEIRO que usa além das relativas ao módulo, também a tabela CLIENTES e cria outro para o módulo de ESTOQUE que usa a mesma tabela CLIENTES aí muda a estrutura da tabela CLIENTES e precisa alterar no TTable dos dois TDataModules . dá pra evitar isso e alterar em um lugar só com alguma técnica? Estou aproveitando o gancho da pergunta do amigo anterior pra saber como o pessoal faz nesses casos. Obrigado. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eliflaviob Enviada em: quinta-feira, 3 de setembro de 2009 15:40 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Herança e OOP em quais processos? Qual a sua dúvida? Eli Flávio Bortolotte --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luciano Faria luci...@... escreveu Alguém tem boa experiência de uso e alguns exemplos de Herança e OOP com DataModules? 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 simoesluciano Enviada em: quinta-feira, 3 de setembro de 2009 14:45 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Re: Herança e OOP em quais processos? Eu resolso isso tendo um form bem básico (basicão), todos os forms herdam dele, mesmo os forms básicos mais especializados, como o de básico consulta por exemplo. Algo simular a: |--TForm |--TFormBasico | |--TFormBasicoConsulta | |--TFormBasicoManutencao |--TFormBasicoRelatorio |-- TFormRelatorio1 |-- TFormRelatorio2 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Walter Chagas \(Bol\) wchagasj@ escreveu Porém, os forms que envolvem atividades do processo em questao, não há como herdar a menos que tais forms tenham muita coisa em comum. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF-TOPPIC - Ramos de comércio
Pessoal, boa tarde. Alguém saberia informar se há na Internet uma base com todos os ramos de comércio? []s Topolniak. [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Re: OFF-TOPPIC - Ramos de comércio
Algo assim, mas é muito completo neh! Eu estava procurando algo mais simples. Somente para categorizar uma pesquisa de empresas cadastradas Bares, restaurantes, supermercados...etc. De qualquer forma, obrigado. Vou ver se me viro com essa. []s Topolniak. From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of simoesluciano Sent: segunda-feira, 31 de agosto de 2009 15:54 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: OFF-TOPPIC - Ramos de comércio Seria a CNAE? http://www.receita.fazenda.gov.br/PessoaJuridica/CNAEFiscal/cnaef.htm Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luciano Topolniak topoln...@... escreveu Pessoal, boa tarde. Alguém saberia informar se há na Internet uma base com todos os ramos de comércio? [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] DBGrid
Bom dia Paulo .
eu uso esse tipo de pesquisa no DBGrid usando os componentes DBExpress .
procedure TFrmCadProduto.Edit1Change(Sender: TObject);
begin
FrmDm.CDSCadProduto.filter := 'NOME_PRODUTO LIKE ' +
QuotedStr('%'+Edit1.text+'%');
FrmDm.CDSCadProduto.Filtered := true;
FrmDm.CDSCadProduto.locate('nome_produto','edit1.text',[loPartialKey]) ;
end;
sendo que a tabela esta carregada na memória, evita de ficar indo e
voltando no servidor
espero ter ajudado
Luciano Angelini
Prefeitura deLupionópolis-Pr
Claudiney - Listas escreveu:
Olá Paulo. Tudo bem?
Isso que você fez, do ponto de vista da linguagem, não está errado.
Porém, funciona muito bem em uma tabela com poucos registros. A partir do
momento que você tiver muitos dados na tabela isso pode (e provavelmente
vai) te atrapalhar bastante.
Eu trabalho um pouco diferente. Deixo o usuário digitar o que ele quer
pesquisar primeiro, sem fazer nada, e quando ele clicar num botão de
pesquisar, ou der enter no fim da digitação eu faço a pesquisa. Dessa
maneira fica mais tranqüilo, pois faz apenas um acesso ao servidor. Da
maneira que vc está fazendo hoje ele faz um acesso para cada letra
digitada.
Imagine uma pesquisa com muitas letras. E cada acesso ao servidor é uma
instrução SQL que é executada.
Para fazer dessa maneira é só colocar o seu código no evento click de um
botão, ou no evento onkeyup ou onkeypress to Edit, tratando o
parâmetro Key
e verificando se é um enter (#13 no caso do onkeypress ou vk_return no
onkeyup).
Abraço.
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ http://www.n2solutions.com.br/
www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ http://www.studion2.com.br/
www.studion2.com.br
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de pcedisi
Enviada em: segunda-feira, 24 de agosto de 2009 13:52
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] DBGrid
Ola!
Por favor, preciso de ajuda com DBGrid!
Tenho um DBGrid de clientes e uso onChange para fazer pesquisa
a cada letra digitada, o problema é que ele redimensiona a cada
busca alem de redesenhar o DBGrid gerando um efeito de piscar
a cada letra digitada. Alguem pode ajudar? Isso que estou fazendo
é o certo?
procedure TfrmClientes.edtPesquisaChange(Sender: TObject);
begin
dmcli.qryClientes.Close;
dmcli.qryClientes.Params[0].AsString := Trim(edtPesquisa.Text);
dmcli.qryClientes.Open;
end;
obrigado,
Paulo
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Delphi + DBX + Controle de Transações, sem condição, não funciona.
Ricardo, eu tive um problema assim em um sistema client/server. Resolvi trocando o driver de acesso ao banco de dados, passei a usar o DevArt. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Ricardo Lima rlma...@... escreveu Eduardo se você está referindo ao meu post, não é três camadas e sim client/server. At. Ricardo Lima
[delphi-br] Re: Autoampliar campo memo ??
Já olhou a propriedade ScrollBar? Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Heraldo Andrade heraldo_andr...@... escreveu Pessoal, na emissão de pedido, sai um campo memo que coloca todas as informações dos serviços a serem realizados no veículos, mas quando as informações não cabem no campo memo, o restante não aparece, tem como preparar o Memo para autoampliar de acordo com o tamanho dos textos ???
[delphi-br] Re: Autoampliar campo memo ?? Resolvido ...
Você não tinha relatado que o memo era de relatório, imaginei que fosse um TMemo. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Heraldo Andrade heraldo_andr...@... escreveu Eu uso o Report Builder, e fui testando até que descobri que a Propriedade é Stretch, Funcionou .
[delphi-br] Re: Desenvolvimento para Palm
No grupo tem um post, de 2003, que um papo bem longo sobre o assunto: http://br.groups.yahoo.com/group/delphi-br/message/8 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Leandro - Grupos leacarbone...@... escreveu E ai galera... blz... Seguinte, tenho um cliente onde os seus vendedores irão começar a trabalhar com Palms e precisamos desenvolver uma aplicação para eles para uma simples consulta de preços. Gostaria de saber se alguém já teve alguma experiência desse tipo e se teria algum material ou alguma dica para medar
Re: [Bulk] Re: [delphi-br] [ OFF - Video-aula Free] Orientação a Obj etos...
EmbarcaDelphi Eu também não irei renovar minha assinatura ClubeDelphi, por esse motivo ia para o 4ª de assinatura tem curso... video-aula que vc mesmo sendo assinante voce tem que comprar crédito para assistir os mesmos !!! Que futuro tem isso EmbarcaDelphi escreveu: O único problema desse site passado por Andrei é que os vídeos são todos dentro de um programa, o mesmo contém uma senha para ser acessado por um período de tempo. Não gosto de viver aprisionado por alguma coisa, a ClubeDelphi, em alguns vídeos também tem essa fres Isso foi causa de muita discussão, até mesmo de assinantes da revista, eu mesmo não renovei minha assinatura na ClubeDelphi por causa dessas e de outras coisas que a ClubeDelphi inovou para prender as pessoas a ela. Ricardo César Cardoso escreveu: Valeu Andrei! []'sRicardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 13/8/09, Andrei Luís compuvale.softw...@gmail.com mailto:compuvale.software%40gmail.com mailto:compuvale.software%40gmail.com escreveu: www.istudar. com.br [] Andrei .
[delphi-br] Re: Delphi + DBX + Controle de Transações, sem condição, não funciona.
Dalan, e quais componentes de terceiros vocês está utilizando? Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Dalan Silveira dalansilve...@... escreveu O problema é que os componentes nativos do delphi estão ultrapassados, eu recomendo vc procurar uma suite de componentes de conexão de terceiros, aí sim, vc terá um resultado muito melhor. Lembre-se, o banco de dados evolui e é atualizado praticamente todos os dias, a framework também tem q ter atualizações.
[delphi-br] Re: Delphi + DBX + Controle de Transações, sem condição, não funciona.
Ricardo, eu tive problema semelhando ao utilizar o componente TSQLDataSet. Dentro de uma transação, se usasse um TSQLDataSet para fazer um SELECT ele dava commit na transação automaticamente e aí dava pau na continuidade do código. Passei a usar TSQLQuery. Lembrando estou uso controle de transação manual, não uso TClientDataSet. Luciano C. Simões
RES: [delphi-br] Gerador de Relatório
Uma coisa que você vai ter de fazer é publicar o teu dicionário de dados. Uma boa idéia é, usar TPopupMenu sobre o campo para exibir qual o nome real do campo, isso facilita. Mas tem a problemática dos valores que são calculados em real-time, daí vai ter que ter view no banco. Mas é bem como você falou, as vezes nem usarão o recurso, eu mesmo conheço casos que usam softwares que tem esses recursos e não tem tempo pra fazer o relatório, simplesmente porque o negócio deles não é fazer relatório, é analisá-los. Mas com certeza isso conta um ponto a mais na venda de um software. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Marx Gentil marxgen...@... escreveu Concordo com vc também Rubem, o que acontece é o seguinte, eu tenho um cliente que usa o nosso software a 15 anos, e ele está adquirindo agora um software da TOTVS que não vai substituir o nosso já que é muito específico. O software da TOTVS segundo ele tem essa opção de gerar relatórios, e como vocês já sabem, santo de casa não faz milagre, os caras mal sabem usar o mouse, mas acharam o fato de montar o próprio relatório um negócio de outro mundo, e já que querem assim, que seja, e boa sorte para eles. Em tempo, agradeço aqueles que respoderam ao meu chamado. Grande abaço a todos.
[delphi-br] Re: Dúvida com Memo
Já tentou a propriedade ScrollBars = ssVertical? Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Hugo Vieira hugoviei...@... escreveu Ola amigos, Estou desenvolvendo uma aplicação de PDV ja na reta final. Estou usando um Memo para simular a impressao de um cupom fiscal a medida que os produtos sao inseridos na venda. A adição é realizada normalmente. . porem quando os produtos chegam ao fim do memo, os que adicionados posteriormente nao ficam visualizados no mesmo. Como eu faria para que houvesse uma barra de rolagem no memo para que os ultimos produtos sejam visualizados? Grato! Hugo
[delphi-br] Re: TJvEnterAsTab - Alguém Usa?
Nem precisa de componente para isso. Se você tiver um Form básico para toda sua
aplicação, nele faça os seguinte:
procedure TfrmBasico.FormKeyPress(Sender: TObject; var Key: Char);
begin
{ Usar tecla ENTER para trocar de objeto }
if (Key = #13) then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
Luciano C. Simões
--- Em delphi-br@yahoogrupos.com.br, valdirdill valdird...@... escreveu
Olá,
Alguém utiliza o componente TJvEnterAsTab do pacote JVCL?
Há como colocar apenas um componente para toda aplicação ou tenho que colocar
um em cada form?
obrigado
Valdir
[delphi-br] Re: Ajuda com Select Utilizando Union All e Cast
Para começar você não precisa fazer cast para renomear colunas, basta usar AS, CAST é para converter o tipo do campo. Para identificar de qual tabela é o registro, basta colocar mais um campo identificando, assim: SELECT '1' AS TIPO, CLIENTE, VENCIMENTO, SALDO_RECEBER AS VALOR_FINAL FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT '2' AS TIPO, CLIENTE, VENCIMENTO, VALOR_RECEBIDO AS VALOR_FINAL FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Desta forma os registro que tiverem a coluna TIPO = 1 são do contas a receber e TIPO = 2 são do conta recebidas. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, valdirdill valdird...@... escreveu Olá, Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o script: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou de CONTASRECEBIDAS Alguém pode me ajudar?
[delphi-br] Windows 7 x Delphi
Algum colega já testou alguma versão de Delphi no Windows 7, preferialmente o D2006 e D2009? Caso sim, tem algum experiência para compartilhar? Muito obrigado. Luciano C. Simões
[delphi-br] Res: Vaga para Analista - Programador
Rosana, para qual cidade e UF é a vaga? Obrigado, Luciano Calenzani Simões De: Rosana Marques m.ros...@yahoo.com.br Para: rosana.dani...@metrics.com.br Enviadas: Terça-feira, 28 de Julho de 2009 12:04:25 Assunto: [delphi-br] [delphi-SP] Vaga para Analista - Programador Metrics, empresa lider no segmento de ERP'S para o mercado gráfico procura Analista Programador Delphi. Requisitos: - Experiência em Delphi Orientado a Objeto; - Desejável ter trabalhado com ERP e/ou Automação Comercial. Contratação: CLT Os interessados, por gentileza encaminhar curriculo com pretensão salarial, para: rosana.daniele@ metrics.com. br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [OPORTUNIDADE] Analista Programador Pleno - Delphi
Para que cidade/UF é a vaga? Obrigado. Luciano Calenzani Simões De: rhfourway michel...@fourway.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 17 de Julho de 2009 14:55:56 Assunto: [delphi-br] [OPORTUNIDADE] Analista Programador Pleno - Delphi Analista Programador Pleno - Delphi Formação superior completa ou em curso. 3 anos de experiência em programação com linguagem Delphi, conhecimentos de analise de sistemas na área da saúde. Banco de Dados Oracle ou SQL Server. Forma de contratação: CLT Interessados encaminhar cv com pretensão para: r...@fourway.com. br mailto:r...@fourway.com. br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como rodar uma aplicação feita em Delphi 2009 no cliente? Quais arquivos (DLLs) ne cessários ?
Procure pelo alicativo FileMon, crie um filtro para seu EXE. Assim você verá quais são as dependências. Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Executar uma função...
Se for Delphi 2009, pesquise sobre métodos anônimos. Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Select dentro de Select...pode?
Pode sim, uma das formas seria (só para efeito de didática): select codigo, nome from (select codigo, nome from clientes union all select codigo, nome from fornecedores) as temp where temp.nome like 'A%' order by temp.nome Explicando: você um selec que busca informações em clientes, outro em fornecedores, o resultado dos dois é unido e há um select por fora que filtra dessa union os nomes que começam com A. Luciano Calenzani Simões De: rafaelpinto19 rafaelpint...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 19 de Junho de 2009 17:27:41 Assunto: [delphi-br] Select dentro de Select...pode? Olá Galera, pode ter uma Consulta Select dentro de uma consulta Select no Interbase e no Delphi? Tipo assim Select (Select Count(CAMPO1) as Total from TABELA) CAMPO1, CAMPO2 from TABELA where CONDICAO...??? Se Tiver como, podem colocar a Sintaxe ou estrutura correta?? Vou tentando aki, mas to sem noção... Agradeço pela ajuda... Rafael Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Identificar arquivos necessários para a aplicação rodar
Procure por Filemon Luciano Calenzani Simões De: Dirceu Vasson Jr vasso...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 16 de Junho de 2009 22:57:17 Assunto: [delphi-br] Identificar arquivos necessários para a aplicação rodar Olá a todos Tenho uma aplicação que na minha máquina roda 100%. Coloquei em outro computador e de cara dá o erro informando que o windows não pôde abrir o programa. Há como identificar quais arquivos (DLL por ex.) eu tenho que copiar junto ao programa (procurei na net e a única pergunta desta natureza estava sem resposta)? []s Dirceu Jr. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Formas de se fazer com que um computador desligue
Caro Carlos ... Uma pequena parte dos metidos a 'Técnico em Informatica' , quando não acham uma solução para o clientes, colocam culpa em alguma coisa, talvez viu alguma coisa diferente no computador, Seu Sistema ... e falou que é isso ! Desistale seu Programa/Sistema e veja o que acontece, tenho certeza que o computador ira desligar ! Pois isso é falha de hardware e não de Software. Luciano Angelini Prefeitura de Lupionópolis-Pr Carlos Negrão escreveu: Estou com um problema aqui. O computador que um cliente usa para rodar um programa que fiz anda desligando sozinho quando entra no programa. Eu sei que não coloquei nada no programa para desligar o computador, e não tenho a menor idéia de como poderia fazer isso acidentalmente, mas o técnico que olhou a máquina colocou a culpa no meu programa. Existe alguma coisa que eu possa ter feito para causar o problema por acidente, apesar de nunca acontecer em nenhum dos dois computadores que uso para programar e testar? Ou será que o problema deles só pode mesmo ser hardware e o técnico simplesmente não soube diagnosticar?
Res: [delphi-br] OOP - Quais as vantagens?
E quem te disse que você não pode fazer passando parâmetro para os métodos? Exemplo simples: var vObjCidade : TCidade; begin vObjCidade := TCidade.Create(Self); try vObjCidade.Inserir(19, 'VITÓRIA', 1821); // Código cidade, nome cidade e código país finally FreeAndNil(vObjCidade); end; end; Luciano Calenzani Simões De: Alexandre alexandresoare...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Maio de 2009 12:02:10 Assunto: Re: [delphi-br] OOP - Quais as vantagens? Percebi também que em alguns exemplos de oop usa muito mais linhas do que procedural por exemplo: Pessoa.nome := 'Maria'; Pessoa.endereco := 'RUA X'; Pessoa.salvaregistr o; em procedural ficaria: salva_banco( 'PESSOA', lista_de_ campos); isso que quero entender, se é tão bom, porque usa muito mais linhas?não sou contra, veja bem, só quero ter certeza que posso mudar meu sistema para oop de uma forma segura. Alex Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Relacionamento NxN e ClientDataset
Olá pessoal, como vocês tratam uma interface para cadastrar dados em uma tabela que está em um relacionamento NxN? []s [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema Campeonato de Futebol
Caro Alisson . Talvez vc não entendeu o que eu quiz dizer o sistema seria pra gerar a classificação do campéonato ... tipo o Campeonato brasileiro tem os jogos ... o sistema faz os calculo dos pontos ... dos jogos realizados Alisson escreveu: Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse programa? Qual a finalidade dele? O que ele vai controlar? Quem vai usar? Você deve definir o que realmente quer fazer. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Sistema Campeonato de Futebol
Caro Marcio ... Como é pra mim ter uma base vou começar com pontos corridos Marcio F. Cruz escreveu: é pontos corridos? tem oitavas-de-final? 2009/5/18 Alisson alss...@yahoo.com.br mailto:alssnco%40yahoo.com.br Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse programa? Qual a finalidade dele? O que ele vai controlar? Quem vai usar? Você deve definir o que realmente quer fazer. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ http://br.beta.messenger.yahoo.com/ -- Márcio F. Cruz [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF TOPIC - Cadastro de medicamentos
Olá pessoal, me perdoem pelo off...tenho uma pequena dúvida sobre cadastro de medicamentos...uma vez que existem medicamentos com os mesmo nome e diferentes formas de apresentação...como é que vcs (quem implementa sistemas para farmácias) procedem? A A S PROTECT 100MG CX 30 COMP A A S 100MG INF CX 120 COMP A A S 100MG INF CX 20BL X 10 COMP A A S 100MG INF CX 30 COMP A A S 500MG ADU CX 20 COMP A A S 500MG ADU CX 50BL CX 10 COMP A A S 500MG ADU CX 50BL CX 4 COMP ABILIFY 10MG CX 10 COMP ABILIFY 15MG CX 10 COMP ABILIFY 15MG CX 30 COMP ABILIFY 20MG CX 10 COMP ABILIFY 20MG CX 30 COMP ABILIFY 30MG CX 30 COMP ABLOK PLUS 100+25MG CX 30 COMP ABLOK PLUS 25+12,5MG CX 30 COMP ABLOK PLUS 50+12,5MG CX 30 COMP ABLOK 100MG CX 30 COMP ABLOK 25MG CX 30 COMP ABLOK 50MG CX 30 COMP ACCU-CHEK ACTIVE EQUIPAMENTO ACCU-CHEK ACTIVE KIT ACCU-CHEK ACTIVE SIR INFRAV (+15% IPI) ACCU-CHEK ACTIVE SOLUCAO CONTROLE ACCU-CHEK ACTIVE TIRAS 10' ACCU-CHEK ACTIVE TIRAS 25' ACCU-CHEK ACTIVE TIRAS 50' ACCU-CHEK ACTIVE/ADVANTAGE BATERIA LI CR2032 (+15% IPI) ACCU-CHEK ADVANTAGE BATERIA CR2450 (+15% IPI) ACCU-CHEK ADVANTAGE CHECK STRIP ACCU-CHEK ADVANTAGE COMPLETE ACCU-CHEK ADVANTAGE KIT ACCU-CHEK ADVANTAGE MONITOR ACCU-CHEK ADVANTAGE SOLUCAO CONTROLE ACCU-CHEK ADVANTAGE TIRAS '10 ACCU-CHEK ADVANTAGE TIRAS '25 ACCU-CHEK ADVANTAGE TIRAS '50 ACCU-CHEK CABO UNIV MONIT (+15% IPI) ACCU-CHEK GO KIT ACCU-CHEK GO MONITOR ACCU-CHEK GO SOLUCAO CONTROLE ACCU-CHEK GO TIRAS '10 ACCU-CHEK GO TIRAS '25 ACCU-CHEK GO TIRAS '50 ACCU-CHEK SOFTCLIX LANCETADOR (+8% IPI) ACCU-CHEK SOFTCLIX LANCETAS '200 (+8% IPI) ACCU-CHEK SOFTCLIX LANCETAS '25 (+8% IPI) ACCU-CHEK SOFTCLIX PRO LANCETADOR (+8% IPI) ACCU-CHEK SOFTCLIX PRO LANCETAS '200 (+8% IPI) ACCU-CHEK SOFTCLIX XL LANCETA 50 (+8% IPI) ACCU-CHEK 2,2 CAMIT PRO(+15% IPI) A melhor forma seria tartar cada um como um produto diferente? []s Topolniak. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Contar o número de possíveis va lores de um tipo enumerado
Rubem, agradeço sua ajuda e a dos outros participantes. Isso resolverá meu problema. Em tempo, gostaria de fazer um comentário sobre sobre seu lema Quem procura, acha!. Por suas mensagens dá para concluir que é um bom conhecedor de delphi, se não for um grande. Sim, quem procura acha, mas as vezes procura-se e não acha, não por preguiça mas sim por não procurar pelos termos corretos. Sempre procuro soluções para meus problemas, sejam quais forem, antes de solicitar ajuda. Sei que as vezes aparecem mensagens solicitando ajuda de coisas bem fáceis de fazer ou de localizar na internet, mas pense assim, sempre haverão iniciantes com dúvidas e mesmo pessoas experientes que uma vez ou outra terão dúvidas, inagino que você já foi iniciante um dia e teve as suas. Procurou e achou, ou quem sabe, perguntou a um amigo ou fórum. Afinal, pra que serve a lista? Só para contar participantes? Creio que não. Se você não gosta de responder as dúvidas, vamos dizer bobas, não responda, deixe que outro participante o faça com prazer. Tente ler seu lema com uma pontuação diferente e reflita, Quem procura, acha?. Muito obrigado. Luciano Calenzani Simões De: Rubem Nascimento da Rocha djpardalro...@hotmail.com Para: delphi-br delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 24 de Abril de 2009 17:23:16 Assunto: RE: [delphi-br] Contar o número de possíveis valores de um tipo enumerado Quem procura, acha! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Parâmetro do tipo AsDate no SQL Server Express 2008
Companheiros, preciso passar um parâmetro do tipo TDateTime para um TSQLDataSet
no banco MS SQL Server Express 2008 com Delphi 2009 com DBExpress, assim:
{Exemplo}
Query1.CommandText := 'select contrato from emprestimo where dt_vencimento =
:dt_vencimento';
Query1.ParamByName('dt_vencimento').AsDate := pDataVencimento; // Onde
pDataVencimento é uma variável do tipo TDateTime;
Query1.Open;
.
Query1.Close;
Quando executa o Query1.Open ocorre um erro informando que há um parâmetro não
setado. É a data. Se eu fizer assim funciona:
Query1.ParamByName('dt_vencimento').AsString := FormatDateTime('-MM-',
pDataVencimento);
Mas não quero ficar fazendo cast no campo e variável. O campo dt_vencimento no
banco é do tipo Date. E também não posso ficar concatenando String ao invés de
passar por parâmetro.
No Sybase isso funciona normalmente (das duas formas), só ocorre erro no SQL
Server.
Como vocês passam os parâmetros do tipo Date para as Querys?
Muito obrigado.
Luciano Calenzani Simões
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Parâmetro do tipo AsDate no SQL S erver Express 2008
Na versão SQL Server Express 2008 tem sim. Tem Data, Timestamp, DateTime, Time(5), ... O problema é na passagem de parâmetro no Delphi. Luciano Calenzani Simões De: O2 Tecnologia (aJato) o2tecnolo...@ajato.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 24 de Abril de 2009 10:10:21 Assunto: Re: [delphi-br] Parâmetro do tipo AsDate no SQL Server Express 2008 O maravilhosso (ECA), SQL Server EXIGE que seja usado o parametro .AsDateTime, por que ele não tem distinção de campos Date, Time e TimeStamp. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Parâmetro do tipo AsDate no SQL S erver Express 2008
Já tentei com AsDateTime, mas só aceita se eu passar o parâmetro como AsString, e é um Insert. Luciano Calenzani Simões De: O2 Tecnologia (aJato) o2tecnolo...@ajato.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 24 de Abril de 2009 10:57:03 Assunto: Re: Res: [delphi-br] Parâmetro do tipo AsDate no SQL Server Express 2008 Então, é uma boa novidade pois nas versões que trabalhei com o SQL Server, sempre tive problemas com campos DATA. Talvez então agora com esta flexbilidade, pode ser que o campo seja do tipo DateTime ou TimeStamp e o banco EXIJA que vá o parametro compativel com o tipo do campo, no Oracle é assim se o campo for de um tipo o parâmetro tem que ser compatível com ele, principalmente na cláusula WHERE. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Parâmetro do tipo AsDate no SQL S erver Express 2008
Sim, desta forma funciona, já tinha testado. Eu quero é passar por parâmetro.
Luciano Calenzani Simões
De: O2 Tecnologia (aJato) o2tecnolo...@ajato.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 24 de Abril de 2009 13:04:59
Assunto: Re: Res: [delphi-br] Parâmetro do tipo AsDate no SQL Server Express
2008
Tente o seguinte, aqui devido a aplicação ser multibanco, passamos data
atráves do SQL e não via parametros.
SQL.Add('WHERE ( EMISSAO = ' + QuotedStr(FormatDat eTime('dd. mm.
hh:nn', edtDta_Emissao. Date)) + ' )');
Desta forma roda em Firebird, PostgreSQL e Oracle.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Parâmetro do tipo AsDate no SQL Server Express 2008
Mas é exatamente isso que não quero fazer. Luciano Calenzani Simões De: TI - Metalurgica Jano t...@jano.ind.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 24 de Abril de 2009 7:42:57 Assunto: RES: [delphi-br] Parâmetro do tipo AsDate no SQL Server Express 2008 Usar o formatdatetime(‘ dd/mm/yy’, Variavel) ; Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Contar o número de possíveis valores de um tipo enumer ado
Como contar o número de possíveis valores de um tipo enumerado? Por exemplos: TMeuTipo = (tipo1, tipo2, tipo3); // Neste caso retornaria 3 TMeuTipo = (tipo1, tipo2); // Neste caso retornaria 2 TMeuTipo = (tipo1); // Neste caso retornaria 1 TMeuTipo = (tipo1, tipo2, tipo3, tipo4); // Neste caso retornaria 4 Obrigado. Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Acesso a arquivo DBF sem BDE
Como acessar, pelos recursos nativos no Delphi 2009, um arquivo DBF sem usar os componentes da BDE? Eu já faço isso usando TQuery, mas não queria ter de carregar o BDE na instalação da aplicação. Obrigado. Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] forms dinamicos e valores
Use property. Não faça referência direta aos componentes entre forms.
No seu form onde estão os edits, faça:
private
fValorA : String;
fValorB : String;
public
property ValorA : String read fValorA;
property ValorB : String read fValorB;
end;
No botão de fechar do form faça:
fValorA : Edit1.Text;
fValorB : Edit2.Text;
No form principal, faça:
var
vValorA, fValorB : String;
vObjFrm : TForm:
begin
vObjFrm := TForm.Create(Self):
try
{Aqui você faz o que já está fazendo hoje, criar componentes, ...}
vObjFrm.ShowModal;
vValorA := vObjFrm.ValorA;
vValorB := vObjFrm.ValorB;
finally
{Não precisa fazer edit1.free}
FreeAndNil(vObjFrm);
end;
{Aqui você usa o retorno}
showmessage(vValorA);
showmessage(vValorB);
end;
Isso é só um rascunho, tem que lapidar.
Luciano Calenzani Simões
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Campo Edit
Não seria mais simples usar um ClientDataSet, fazer um loop e ir incluindo os valores no ClientDataSet. Depois é só recuperar. Para visualizar, coloque um DGGrid com um DataSource ligado ao ClientDataSet. Também tem a possibilidade de usar um TValueListEditor. Luciano Calenzani Simões De: Luiz de Lima Lopes lui...@uol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 3 de Abril de 2009 10:12:34 Assunto: [delphi-br] Campo Edit Pessoal Bom Dia Preciso fazer um tabela com varios edit's, e estou precisando fazer um loop para preenchimento dele mais não estou conseguindo. ! Preciso fazer o calculo para o edit1, depois para o edit2, e assim sucessivamente ate o edit 100. Como Posso Fazer Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuca com SQL
Você tentou com a SQL que te passei? select num_pedido from pedido where vl_pedido (select coalesce(sum( vl_pagamento) , 0) from pagamento where cd_pedido = pedido.cd_pedido) Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuca com SQL
Vou fazer de uma forma que o Sybase suporte, não sei no seu SGDB. select CDPEDIDO, VALOR, (select coalesce(sum( ValorPgto) , 0) from BDpagamentos where cdpedido = BDpedidos.cdpedido) VALOR_PAGO from BDpedidos where VALOR VALOR_PAGO Luciano Calenzani Simões De: Vinicius da Silva Pinto vinic...@cnen.gov.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Abril de 2009 8:34:05 Assunto: RES: [delphi-br] Ajuca com SQL Luciano, a sua funcionou: select CDPEDIDO, VALOR from BDpedidos where VALOR (select coalesce(sum( ValorPgto) , 0) from BDpagamentos where cdpedido = BDpedidos.cdpedido) Me retornou os numeros dos pedidos corretos, só que eu preciso que me retorne tbm o montante já pago. Quando eu coloco o SUM no primeiro select, volto a situação anterior. O retorno deve ser tipo assim: PEDIDO VALORTOTAL VALORPAGO 1500 200 3600 5400 50 6290 150 7450 8600 99 320 100 Eu consigo mais estou fazendo duas querys... em uma só tá dificil. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuca com SQL
Testou desta forma? select CDPEDIDO, VALOR, (select coalesce(sum( ValorPgto) , 0) from BDpagamentos where cdpedido = BDpedidos.cdpedido) VALOR_PAGO from BDpedidos where VALOR VALOR_PAGO Luciano Calenzani Simões De: Vinicius da Silva Pinto vinic...@cnen.gov.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Abril de 2009 9:26:09 Assunto: RES: RES: [delphi-br] Ajuca com SQL Utilizando HEAVING, ele reclama do campo VALOR_PAGO select a.CDPEDIDO, a.VALOR, (select coalesce(sum( b.ValorPgto) , 0) from BDpagamentos b where b.cdpedido = a.cdpedido) VALOR_PAGO from BDpedidos a group by a.CDpedido, a.Valor HAVING A.VALOR VALOR_PAGO Retirando Group by e heavin, funciona que é uma beleza, mais traz tbm todos os registros pagos integralmente. Estou fazendo diversos testes utilizando o IBexpert em uma base INTERBASE 6.5 -Mensagem original - De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]Em nome de José Roberto Marque Enviada em: quarta-feira, 1 de abril de 2009 08:37 Para: delphi...@yahoogrup os.com.br Assunto: Re: RES: [delphi-br] Ajuca com SQL Complicado, hein, Vinicius. Será que não é o HAVING ? Porque o LEFT OUTER JOIN vai retornar nulo se o registro não existir. A dúvida que fica é como o HAVING trataria isso ... --- Em qua, 1/4/09, Vinicius da Silva Pinto vinic...@cnen. gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen. gov.br Assunto: RES: [delphi-br] Ajuca com SQL Para: delphi...@yahoogrup os.com.br Data: Quarta-feira, 1 de Abril de 2009, 7:56 Grande Jose, olha, o resultado foi o mesmo, todas as duas opções (a minha e a sua com left outer join) deram o mesmo resultado. estou fazendo teste com coalesce... Vinicius Tenta assim : SELECT A.CDPEDIDO, A.DATAEVENTO, A.VALOR, SUM( G.VALORPAGTO ) FROM BDPEDIDOS A LEFT OUTER JOIN BDPAGAMENTOS G ON A.CDPEDIDO = G.CDPEDIDO WHERE A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Entendeu ? Vê se funciona. --- Em sex, 27/3/09, Vinicius da Silva Pinto vinic...@cnen. gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen. gov.br Assunto: [delphi-br] Ajuca com SQL Para: delphi...@yahoogrup os.com.br Data: Sexta-feira, 27 de Março de 2009, 15:33 Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o resultado satisfatório. São duas tabelas, bem simples uma com os dados de um pedido com codigo, nome...e ValorTotal. Na outra tabela, a de pagamentos, só tem registro quando o cliente paga, pode ser a vista ou parcelado. As duas tabelas são unidas pelo campo CDpedido O que eu quero é o seguinte... um relação de todos os pedidos que ainda não pagaram o valor total. Fiz a seguinte query: SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS TOTALPAGO FROM BDpedidos A, BDpagamentos G WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os registros que estão na tabela principal que ainda não tiveram nenhum pagamento, não sai... Pergunta . como faço para aparecer tbm os registros que não tiveram pagamento. Agradeço qualquer ajuda ou dica. Vinicius Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Mudar senha de usuario.
Você está falando de usuário a nível de sistema ou de banco de dados? Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Mudar senha de usuario.
O controle se é o primeiro acesso terá de ser via uma tabela e para mudar a senha do usuário no SGDB pode ser alterada via: GRANT CONNECT TO USUARIO IDENTIFIED BY 'SENHA'; Isso usando SGDB Sybase. Pesquise sobre um comando semelhante no seu SGDB. Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Erro doido no pascal
Isso tá com cara de dízimas. Tente debugar para ver os valores das suas variáveis, se o problema persistir, tente usar um arredondamento ou truncate nas variáveis; Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Arquivos de Ajuda
Ninguém faz help nas aplicações? Luciano Calenzani Simões De: Luciano Calenzani Simões simoesluci...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Março de 2009 8:07:11 Assunto: [delphi-br] Arquivos de Ajuda Quais tecnologias vocês estão usando para fazer o help de suas aplicações? Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuca com SQL
Uma forma de fazer: select num_pedido from pedido where vl_pedido (select coalesce(sum(vl_pagamento), 0) from pagamento where cd_pedido = pedido.cd_pedido) Luciano Calenzani Simões De: Vinicius da Silva Pinto vinic...@cnen.gov.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Março de 2009 15:33:42 Assunto: [delphi-br] Ajuca com SQL Ve se alguem pode me ajudar, já quebrei a cabeça e não obtive o resultado satisfatório. São duas tabelas, bem simples uma com os dados de um pedido com codigo, nome...e ValorTotal. Na outra tabela, a de pagamentos, só tem registro quando o cliente paga, pode ser a vista ou parcelado. As duas tabelas são unidas pelo campo CDpedido O que eu quero é o seguinte... um relação de todos os pedidos que ainda não pagaram o valor total. Fiz a seguinte query: SELECT A.CDPEDIDO, A.dataevento, A.valor AS VALORTOTAL, SUM(G.ValorPgto) AS TOTALPAGO FROM BDpedidos A, BDpagamentos G WHERE G.CDpedido = A.CDpedido AND A.DATAEVENTO = '01/04/2009' GROUP BY CDPEDIDO, DATAEVENTO, VALOR HAVING SUM(G.ValorPgto) A.valor Funciona, só que só aparecem os pedidos que já tiveram algum pagamento, os registros que estão na tabela principal que ainda não tiveram nenhum pagamento, não sai... Pergunta . como faço para aparecer tbm os registros que não tiveram pagamento. Agradeço qualquer ajuda ou dica. Vinicius Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2007 e Mysql 5.1
Olá pessoal, bom dia. Como está essa questão do Delphi 2007 e Mysql 5.1? O DBExpress está trabalhando direitinho com ele? EU pretendo usar o Delphi 2007 e Mysql 5.1 que o vertrigo instalamas sempre dá o erro da libmysql []s Topolniak. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Será que é tao difici l escrever um memo justificado no delphi?
Bom dia Rafael Nos meus sistemas eu utilizo o Fortes Reportes os componentes RLMemo e RLDBMemo com as propriedades Aligment := taJustify Funciona corretamente Luciano Angelini Prefeitura de Lupionópolis-PR Rafael Jorge escreveu: eu to tentando escrever um contrato... inicialmente tente usar quickerp.. mas nao consequi justificar de jeito nenhum.. depois tentei com o rave.. e nem consequi preencher um memo.. nao tenho experiencia em nenhum outro compomente de relatorio.. so o quickrep.. e to aqui a 3 dias ja tentando so fazer isso.. se alquem souber alguma forma de transferir um memo de um memo de algum rlatorio justificado me avise uma forma.. pq ja nao sei mais o que fazer.. obrigado e t+ -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Será que é tao difici l escrever um memo justificado no delphi?
Rafael Segue o link do forum do Fortes Report ... http://forum.produsys.com.br/viewforum.php?f=1 Luciano Angelini Prefeitura de Lupionópolis-Pr Rafael Jorge escreveu: tem como vc me enviar o que vc usa.. o que eu usava vivia dando bronca. sem dizer que eu uso o delphi 2006 tem alguma versao pra ele? 2009/3/25 Luciano Angelini luciano.angel...@uol.com.br mailto:luciano.angelini%40uol.com.br Bom dia Rafael Nos meus sistemas eu utilizo o Fortes Reportes os componentes RLMemo e RLDBMemo com as propriedades Aligment := taJustify Funciona corretamente Luciano Angelini Prefeitura de Lupionópolis-PR Rafael Jorge escreveu: eu to tentando escrever um contrato... inicialmente tente usar quickerp.. mas nao consequi justificar de jeito nenhum.. depois tentei com o rave.. e nem consequi preencher um memo.. nao tenho experiencia em nenhum outro compomente de relatorio.. so o quickrep.. e to aqui a 3 dias ja tentando so fazer isso.. se alquem souber alguma forma de transferir um memo de um memo de algum rlatorio justificado me avise uma forma.. pq ja nao sei mais o que fazer.. obrigado e t+ -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas] -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida basica OpenDialog
guimaraesrodrigo23 Tem um componente da JEDI . TJvDriveCombo muito bom !! Luciano Angelini Prefeitura de Lupionópolis-Pr guimaraesrodrigo23 escreveu: Fala galera bom dia. To precisando usar um Opendialog, porém ele funciona apenas para selecionar arquivos. Preciso selecionar diretórios. Utilizei funcao do delphi SelectDirectory, mas aquilo é muito limitado. Alguém tem uma alternativa legal para selecionar pastas? abraço
Re: [delphi-br] Duvida basica OpenDialog
guimaraesrodrigo23 Complementando . Vc usa o JvDriveCombobox junto com o JvDirectoryListBox vc escolhe o Drive com o JVDriveComboBox e o JvDirectoryListBox mostra as pasta que tem bem bacana Luciano Angelini guimaraesrodrigo23 escreveu: Fala galera bom dia. To precisando usar um Opendialog, porém ele funciona apenas para selecionar arquivos. Preciso selecionar diretórios. Utilizei funcao do delphi SelectDirectory, mas aquilo é muito limitado. Alguém tem uma alternativa legal para selecionar pastas? abraço
Res: [delphi-br] Duvida basica OpenDialog
A Jedi tem uns diálogos interessantes. Olhe o JvSelectDirectory. Luciano Calenzani Simões De: guimaraesrodrigo23 guimaraesrodr...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Março de 2009 10:53:34 Assunto: [delphi-br] Duvida basica OpenDialog Fala galera bom dia. To precisando usar um Opendialog, porém ele funciona apenas para selecionar arquivos. Preciso selecionar diretórios. Utilizei funcao do delphi SelectDirectory, mas aquilo é muito limitado. Alguém tem uma alternativa legal para selecionar pastas? abraço Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tamanho EXE
Caros, vocês já utilizaram ou utilizam as opções de packages em Project/Options/Packages? Fiz um teste aqui, deixei marcado somente os pacotes que são usados e marquei a opção Build with runtime packages e uma aplicação que tinha 2.1 MG ficou com 176kb. Só deixei o básico. Só que fiquei meio desconfiado, diminuiu muito. Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Tamanho EXE
Acabei descobrindo aqui. Ele não compila os pacotes junto ao EXE, mas precisa levá-los para o cliente a parte. Podem dar esse post como encerrado. Obrigado. Luciano Calenzani Simões De: jAlosii jalo...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 17 de Março de 2009 10:30:42 Assunto: Re: [delphi-br] Tamanho EXE Aqui não ficamos desabilitando pacotes, mas quando o executável é enviado ao cliente, utilizamos o aplicativo upx, que faz isso ai no executável, e o exe diminui de 34 mb pra 5.4 mb, mais ou menos. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] FORMULÁRIO FORMULÁRIO
Propriedade do Form BorderStyle = bsSingle; Luciano Calenzani Simões De: Sergio - Jundiai /SP sergioinf...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 15 de Março de 2009 13:37:05 Assunto: [delphi-br] FORMULÁRIO FORMULÁRIO Boa tardea WindowstateWsNormal Gostaria de saber se tem como fixar a borda do form, para que o usuario nao clique na borda e aumente o tamanho. Sergio Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FORMULÁRIO FORMULÁRIO
BORDERSTYLE := bsSIZEABLE ; Sergio - Jundiai /SP escreveu: Boa tardea Windowstate WsNormal Gostaria de saber se tem como fixar a borda do form, para que o usuario nao clique na borda e aumente o tamanho. Sergio [As partes desta mensagem que não continham texto foram removidas]
