[delphi-br] Problema chato
Pessoal, já tentei procurar soluções de todas as maneiras e não consegui
resolver, este assunto, vamos ver se alguém consegue ajudar
Tenho um sistema chamado editor que seria meu programa principal... através
dele tenho alguns botões que executam outros programinhas.. por exemplo
tenho um botão que chama um programa de consulta, mas este programa só pode
ser aberto através do editor então no botão de chamada de consulta esta
assim:
Erro := WinExec('C:\editor\consulta.exe vgCodigoUsu', SW_SHOW);
if Erro = 31 then { Se ocorreu erro... }
ShowMessage('Erro ao executar o programa.');
No programa de consulta tenho o seguinte, desta maneira forço o usuário a
abrir o sistema pelo editor...
if ParamStr(1) 'vgCodigoUsu' then begin
ShowMessage('Execute este programa através do Editor');
Halt; { Finaliza }
end;
Application.Title := 'Consulta';
Application.CreateForm(TDM, DM);
Application.CreateForm(TFormConsulta1, FormConsulta1);
Application.Run;
O problema é que sempre que chamo esta consulta o programa editor trava...
Alguém tem alguma dica da melhor forma de modularizar casos deste tipo, ou
alguém já teve este problema e possa me ajudar a resolver...
Uso o Firebird e tanto o editor como o consulta tem sua conexão própria para
o mesmo banco... seria este o problema nem sei mais o que verificar...
Valeu
Valdir
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda Aplicativo
Pessoal, alguém já teve este problema que possa me ajudar: Tenho um Aplicativo1, que atreves de um botão chama outro Aplicativo2(através do Winexec); Só que ocorre um problema que toda vez que abro o Aplicativo2 o minimizo o Aplicativo1 ele trava, não respondendo mais, mesmo que eu feche o aplicativo2, alguém tem uma idéia do que possa ser? Valdir [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Agenda Médica
Uma vez tivemos que criar algo assim, onde tínhamos o horário que o médico atendia e também os dias de atendimento Então quando era chamado a agenda do médico primeiro era verificado se ele iria atender naquele dia se sim, criava-se um grid onde mostrava todos os horários e outras informações como paciente, convênio etc.. quando iria ser registrado uma nova consulta era só clicar no horário onde estava a linha sem dados de paciente e abria uma telinha onde informava o paciente Como era gravado: Ao clicar em um botão agendar era verificado se a agenda já existia no banco se não existisse gravava o grid inteiro só com a data , codigo do medico e horários...como podia ter horários que de um dia para outro não teve agendamento nenhum existia uma verificação ao iniciar o sistema se no dia anterior existiu agendamento sem paciente se sim apagava estes registros da agenda e bloqueava para alteração a agenda... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alcistemas Informática Enviada em: 15 de maio de 2007 16:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Agenda Médica não acho uma boa idéia assim.. .pois algumas clinicas atendem 24:00 por dia... faça o lançamento livre DATA. / / e hora ___:___ apenas paciente e em um dbgrid as consultas setadas para determinado medico em determinado dia 09:00 | JOANA 09:20 | MANOEL 09:35 | JOSE (APENAS LEITURA DOS EXAMES) 09:40 | SILVANA nao custa por uma validação para apenas avisar que o agendamento já tem algo menos que 20 minutos antes ou vinte minutos depois - Original Message - From: Diego Dmitruk Maturana To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, May 11, 2007 2:39 PM Subject: Re: [delphi-br] Agenda Médica Nossa, muito legal estes componentes. Estou pesquisando algum método de fazer uma agenda com um visual legal. Mas tenho uma dúvida. Estou montando uma agenda. Com agendamente de 20 em 20min. Ex: 08:00 :20 :40 09:00 :20 :40 10:00 :20 :40 E assim por diante. As vezes alguns horários não terão registro. Mas gostaria de criar uma tela fixa para sempre exibir o mesmo layout, assim fica mais fácil ver os horários disponíveis. E que eu gostaria de saber é como vou salvar no banco de dados os horários, vou ter que ter tabelas com os horários, e os dias. Alguém poderia me dar uma ajuda? Obrigado. Diego. - Original Message - From: Gerhard Roger Nack To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, May 11, 2007 11:53 AM Subject: RES: [delphi-br] Agenda Médica Aconselho você a dar uma olhada nesses endereços abaixo para tirar umas idéias, não só pela parte de interface, mas também para a parte de modelagem. Os exemplos vem como uma base, acho que era Access, modelada com essa estrutura e da para você tirar uma idéia do todo (interface visual modelo). http://www.tmssoftw http://www.tmssoftware.com/dbplanner.htm are.com/dbplanner.htm http://www.devexpre http://www.devexpress.com/Products/VCL/ExScheduler/ ss.com/Products/VCL/ExScheduler/ Se não me engano os componentes JEDI também tem algo assim, mas não tenho certeza pois não os utilizo. [ ] s Gerhard Roger Nack [EMAIL PROTECTED] mailto:ginho%40mult.com.br br De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Ricardo Mendes Enviada em: sexta-feira, 11 de maio de 2007 09:30 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: Re: [delphi-br] Agenda Médica Galera eu tenho a tabela de agedamento criada.. ID_Agenda ID_medico ID_Procedimento Hora Data_Agen A modelagem das tabelas eu tenhoa minha duvida é como criar uma agenda, que coloque os horários das consultas do medico selecionado e com os intervalos... Exemp.. O medico Ricardo atende segunda, terça e quarta.. Começa a atender seus pacientes a partir das 08:00 até 12:00 e suas consultas devem ser agendadas em intervalos de 45 minutos. Ricardo Mendes TotalSat - Rastreamento de Veículos Departamento de Informática E-mail: [EMAIL PROTECTED] mailto:r.mendes%40totalsat.com.br com.br mailto:r.mendes%40totalsat.com.br Tel. (41) 2109-7717 [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]
[delphi-br] String Grid com banco de dados Access
Ai vai pelo que o pessoal ta falando sobre utilizar os DBgrid, bem se quiser
usar mesmo um stringgrid e tiver os componentes da Jedi utiliza o componente
JvgVertDBSGrid1(é um string grid disfarçado hehehehe) , aí é so ligar seu
adotable na propriedade datasource , que ta resolvido.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Márcio Ricardo
Enviada em: 17 de abril de 2007 11:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: String Grid com banco de dados Access
Prioridade: Alta
Kra no DBgrid é só ligar o DataSource do DBGRID com um componente
TDataSource e a opção DataSet do DataSource liga o AdoTable seu.
No evento show do form, vc dá um open no AdoTable, pronto seus dados estão
na grid.
- Original Message -
From: Gustavo André de Freitas
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Tuesday, April 17, 2007 10:38 AM
Subject: [delphi-br] Re: String Grid com banco de dados Access
Quem puder ajuda então, como faço para inserir esses dados que estão
indo pro string grid num dbGrid?
segue o código atual:
procedure TForm1.Monitorar;
var
hprinter:thandle;
bytesneeded,numjobs,i,ii:cardinal;
pj:pjobs;
begin
hprinter := getcurrentprinterhandle(SGPrinter.Cells
[0,linhaprinterselecionada]);
try
// EnumJobs(hprinter,0,100,1,nil,0,bytesneeded,numjobs);
EnumJobs(hprinter,0,1000,2,nil,0,bytesneeded,numjobs);
pj := AllocMem(bytesneeded);
if not EnumJobs(hprinter,0,1000,2
{1},pj,bytesneeded,bytesneeded,numjobs) then
RaiseLastWin32Error;
// if numjobs = 0 then
// else begin
for i := 0 to StringGrid1.ColCount -1 do
for ii := 0 to StringGrid1.RowCount -1 do StringGrid1.Cells
[i,ii] := '';
StringGrid1.Cells[0,0] := 'Nome do documento';
StringGrid1.Cells[1,0] := 'Status';
StringGrid1.Cells[2,0] := 'Proprietário';
StringGrid1.Cells[3,0] := 'Páginas';
StringGrid1.Cells[4,0] := 'Enviado';
StringGrid1.Cells[5,0] := 'Tamanho';
StringGrid1.Cells[6,0] := 'Cód. Status';
if numjobs0 THEN BEGIN
StringGrid1.RowCount := numjobs+1;
for i := 0 to pred(numjobs) do begin
StringGrid1.Cells[0,i+1] := pj^[i].pDocument;
StringGrid1.Cells[1,i+1] := getstatus(pj^[i].status);
StringGrid1.Cells[2,i+1] := pj^[i].pUserName;
StringGrid1.Cells[3,i+1] := inttostr(pj^[i].TotalPages);
StringGrid1.Cells[4,i+1] := getdatajob(pj^[i].Submitted);
StringGrid1.Cells[5,i+1] := copy(FloatTostr(pj^
[i].Size/1024),1,1+pos(',',FloatTostr(pj^[i].Size/1024)))+'
KB'; //FormatFloat('###,##0.0 KB',trunc((pj^[i].Size/1024)/0.1)/10);
jobids[i+1] := pj^[i].JobId;
StringGrid1.Cells[6,i+1] := inttostr(pj^[i].Status);//+' -
'+inttostr(jobids[i]);
end;
end;
// end;
finally
ClosePrinter(hprinter);
end;
end;
--- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu
Companheiro, a experiência diz, e também quem trabalha com grandes
quantidades de dados comprova isso, que fazer a carga e a
apresentação dos
dados de forma manual, sem fazer uso de controles data-aware (que
são
próprios para isso), é uma prática questionável, uma vez que isto
impacta
diretamente no tempo de resposta que sua aplicação terá.
Prefira usar TDBGrid ao invés de TStringGrid, pois o TDBGrid é um
controle
de grid preparado para exibição de dados a partir de um dataset
proveniente
(ou não) de uma conexão com um banco de dados.
Sds.
From: Gustavo André de Freitas [EMAIL PROTECTED]
Reply-To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Subject: [delphi-br] String Grid com banco de dados Access
Date: Mon, 16 Apr 2007 20:28:52 -
Pessoal,
tenho uma StringGrid que recebe alguns dados na minha aplicação e
queria que esses dados fossem gravados num banco de dados, a
princípio
esse banco seria o Access, gostaria de saber como faço para linkar
(?),
essa StringGrid com o banco de dados. estou usando adoconection e
adotable...
Desde já agradeço a ajuda de todos!
Gustavo André de Freitas
__
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.
http://www.hotmail.com com
[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] Numero por extenso
Pega ai um exemplo.
unit Ext;
interface
function extenso (valor: real): string;
implementation
uses
SysUtils, Dialogs;
function extenso (valor: real): string;
var
Centavos, Centena, Milhar, Milhao, Texto, msg: string;
const
Unidades: array[1..9] of string = ('Um', 'Dois', 'Tres', 'Quatro', 'Cinco',
'Seis', 'Sete', 'Oito', 'Nove');
Dez: array[1..9] of string = ('Onze', 'Doze', 'Treze', 'Quatorze', 'Quinze',
'Dezesseis', 'Dezessete', 'Dezoito',
'Dezenove');
Dezenas: array[1..9] of string = ('Dez', 'Vinte', 'Trinta', 'Quarenta',
'Cinquenta', 'Sessenta', 'Setenta',
'Oitenta', 'Noventa');
Centenas: array[1..9] of string = ('Cento', 'Duzentos', 'Trezentos',
'Quatrocentos', 'Quinhentos',
'Seiscentos',
'Setecentos', 'Oitocentos',
'Novecentos');
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Igor Alexandre
Enviada em: segunda-feira, 15 de janeiro de 2007 11:09
Para: Delphi-Br; Delphi-Total
Assunto: [delphi-br] Numero por extenso
Alguem sabe como retornar um numero por extenso. ex: 29 - Vinte e nove;
--
Igor Alexandre.
[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] Validação mais inteligente
Porque vc já não valida se o cpf é valido? Por exe: //procedure para que só deixe digitar números procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in['0'..'9',Chr(8)]) then Key:= #0; end; //função para verificar se o CPF é valido... uses SysUtils; function cpf(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1=10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[10]+num[11]; if calculado=digitado then cpf:=true else cpf:=false; end; Ats... Valdir _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Enviada em: quinta-feira, 30 de novembro de 2006 16:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Validação mais inteligente if (cpf '000')and(cpf '111')and(cpf '222') and(cpf '333')and(cpf '444')and(cpf '555') and(cpf '666')and(cpf '777')and(cpf '888') and(cpf '999')then galera tenho uma validação de CPF e tive que colocar esse codigo acima também existe uma forma de validação...usando expressão regular..ou algo melhor do que o acima...? qq sugestão é bem vinda. abs. Rodrigo Mota. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] DBExpress
Pra mim é o melhor... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabio Dantas Enviada em: quinta-feira, 30 de novembro de 2006 15:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DBExpress Pessoal vcs recomendam o uso da paleta dbExpress para acessar o firebird ? ou melhor outro componente ? Abraço [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Lendo e Gravando Imagem no BD
Não eu apenas o utilizei em firebird..
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Paulo Batalhão
Enviada em: terça-feira, 7 de novembro de 2006 17:08
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Lendo e Gravando Imagem no BD
Valdir , você já utilizou com MySQL ?
- - - -
att' Paulo Batalhão - [EMAIL PROTECTED]
arphanet.com http://www.arphanet.com/
batalhao.eti.br http://www.batalhao.eti.br/
saudeamericana.com.br http://www.saudeamericana.com.br/
fusame.com.br http://www.fusame.com.br/
Não existe patch para a estupidez humana
- Original Message -
From: Valdir UOL [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, November 07, 2006 3:39 PM
Subject: RES: [delphi-br] Lendo e Gravando Imagem no BD
Olá, eu utilizo da seguinte maneira, para gravar:
procedure TFormEmpresa.Exporta1Click(Sender: TObject);
var Stream: TStream;
Stream2: TMemoryStream;
ImagemJPG: TJPEGImage;
Imagem: TBitmap;
begin
if Dmcon.cdsEmpresa.State in [dsEdit, dsInsert] then
begin
OpenPictureDialog1.InitialDir := (ExtractFilePath(Application.ExeName)
+ 'Logos');
if (OpenPictureDialog1.Execute) then
if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.BMP') then
begin
Stream := TFileStream.Create(OpenPictureDialog1.FileName,
fmOpenRead or fmShareDenyWrite);
Stream.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am);
Stream.Free;
end
else if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.JPG') then
begin
Stream2 := TMemoryStream.Create;
Stream2.Clear;
ImagemJpg := TJPEGImage.Create;
ImagemJpg.LoadFromFile(OpenPictureDialog1.FileName);
Imagem := TBitmap.Create;
Imagem.Width := ImagemJPG.Width;
Imagem.Height := ImagemJPG.Height;
Imagem.Canvas.Draw(0, 0, ImagemJPG);
Imagem.SaveToStream(Stream2);
Stream2.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am2);
Stream2.Free;
ImagemJPG.Free;
Imagem.Free;
end
else
Application.MessageBox('Esta não é uma IMAGEM VÁLIDA...', 'ATENÇÃO
!!!', MB_ICONSTOP);
end
else
begin
Application.MessageBox('Clique em EDITAR para realizar qualquer
ALTERAÇÃO...', 'ATENÇÃO !!!', MB_ICONSTOP);
end;
end;
E para Excluir
procedure TFormEmpresa.Excluir1Click(Sender: TObject);
begin
inherited;
dbimage1.Picture:= nil;
end;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de carolinetcc
Enviada em: terça-feira, 7 de novembro de 2006 13:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Lendo e Gravando Imagem no BD
Olá pessoal!
Preciso muito da ajuda de vocês!
É o seguinte... eu uso um Banco de Dados(Firebird) integrado ao
Delphi, e nesse BD eu tenho uma tabela chamada EVENTOS, onde um dos
campos desta tabela chama-se LOGO_EVENTO que eu preciso armazenar o
logo/imagem do evento.
Eu já estou lendo a imagem e mostrando ela num componente Image, mas
eu quero GRAVAR essa imagem no meu banco de dados...
Espero que alguém possa me ajudar.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
Este e-mail está livre de vírus.
Verificado por AVG.
Versão: 7.5.431 / Banco de dados de Vírus: 268.13.31/522 - Data de
Lançamento: 7/11/2006 09:40
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Lendo e Gravando Imagem no BD
Olá, eu utilizo da seguinte maneira, para gravar:
procedure TFormEmpresa.Exporta1Click(Sender: TObject);
var Stream: TStream;
Stream2: TMemoryStream;
ImagemJPG: TJPEGImage;
Imagem: TBitmap;
begin
if Dmcon.cdsEmpresa.State in [dsEdit, dsInsert] then
begin
OpenPictureDialog1.InitialDir := (ExtractFilePath(Application.ExeName)
+ 'Logos');
if (OpenPictureDialog1.Execute) then
if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.BMP') then
begin
Stream := TFileStream.Create(OpenPictureDialog1.FileName,
fmOpenRead or fmShareDenyWrite);
Stream.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am);
Stream.Free;
end
else if (AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) =
'.JPG') then
begin
Stream2 := TMemoryStream.Create;
Stream2.Clear;
ImagemJpg := TJPEGImage.Create;
ImagemJpg.LoadFromFile(OpenPictureDialog1.FileName);
Imagem := TBitmap.Create;
Imagem.Width := ImagemJPG.Width;
Imagem.Height := ImagemJPG.Height;
Imagem.Canvas.Draw(0, 0, ImagemJPG);
Imagem.SaveToStream(Stream2);
Stream2.Position := 0;
TGraphicField(Dmcon.cdsEmpresa.FieldByName('LOGOMARCA')).LoadFromStream(Stre
am2);
Stream2.Free;
ImagemJPG.Free;
Imagem.Free;
end
else
Application.MessageBox('Esta não é uma IMAGEM VÁLIDA...', 'ATENÇÃO
!!!', MB_ICONSTOP);
end
else
begin
Application.MessageBox('Clique em EDITAR para realizar qualquer
ALTERAÇÃO...', 'ATENÇÃO !!!', MB_ICONSTOP);
end;
end;
E para Excluir
procedure TFormEmpresa.Excluir1Click(Sender: TObject);
begin
inherited;
dbimage1.Picture:= nil;
end;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de carolinetcc
Enviada em: terça-feira, 7 de novembro de 2006 13:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Lendo e Gravando Imagem no BD
Olá pessoal!
Preciso muito da ajuda de vocês!
É o seguinte... eu uso um Banco de Dados(Firebird) integrado ao
Delphi, e nesse BD eu tenho uma tabela chamada EVENTOS, onde um dos
campos desta tabela chama-se LOGO_EVENTO que eu preciso armazenar o
logo/imagem do evento.
Eu já estou lendo a imagem e mostrando ela num componente Image, mas
eu quero GRAVAR essa imagem no meu banco de dados...
Espero que alguém possa me ajudar.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Email
Eu já utilizei desta maneira e funcionava legal... Procedure TForm1.EnviarEMail(const MailTo: String); Var MailObj: TNMSmtp; begin MailObj := TNMSMTP.Create( self ); Try // Seu Servidor SMTP MailObj.Host := '10.0.1.1'; With MailObj.PostMessage Do Begin FromAddress := '[EMAIL PROTECTED]'; FromName:= 'Info'; Subject := 'Delphi Teste'; ToAddress.Add( MailTo ); Attachments.Add( 'C:\Deptsetr.lst' ); // Arquivo Atachado Attachments.Add( 'C:\Deptsetr2.lst' ); // Segundo Arquivo Atachado Body.Add( 'Texto do E-Mail gerado pelo Delphi...' ); Body.Add( 'Segunda Linha do e-mail. Fim.' ); End; MailObj.Connect; MailObj.SendMail; MailObj.Disconnect; Finally MailObj.Free; End; end; -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de dionatanhenrique Enviada em: quarta-feira, 1 de novembro de 2006 09:10 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Email Pessoal muita gente ja trabalhou com o componente NMSMTP (envia e recebe email), dentre tanto estou enfretando algumas dificuldades quando os usuários anexam arquivos estou usando o seguinte comando: PostMessage.Attachments.Clear; PostMessage.Attachments.Add(Caminho do arquivo); Bom com este comando ele anexa sem problemas e envia o arquivo também. Porém quando os usuários recem o arquivo eles nao conseguem abri-lo por problemas de codificação. Alguém pode me ajudar neste problema? Att -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] video aulas
Realmente é muito bom mas é demorado para compactar. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabio Dantas Enviada em: sexta-feira, 15 de setembro de 2006 09:02 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] video aulas Pessoal não sei vocês mas eu achei incrível a taxa de compactação dessas vídeo aulas. Pena que testei o programa com arquivos PDF e não foi tão eficiente [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] video aulas
É um programa chamado Winhuha ou alguma coisa pareceida procura no google com descompactador para .hua que aparece... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hayalon A. de Oliveira Enviada em: quinta-feira, 14 de setembro de 2006 16:38 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] video aulas Galera desculpe a ignirancia, mas a extensão uha é qual software?? _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei Luís Enviada em: quinta-feira, 14 de setembro de 2006 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] video aulas Segue link: http://rapidshare.de/files/33117725/curso_professor_pedro_souza.uha.html [] Andrei Em 14/09/06, Thalys[EMAIL PROTECTED] escreveu: Ola pessoal bom dia, Queria saber se alguém tem vídeo aulas, que se poderem postem ai por favor, é que eu estou estudando muita coisa e acho que com vídeos facilitariam tanto para mim como para todos que se interação em qualquer ária de informática. Postem ai qualquer vídeo de desenvolvimento ou sistemas de programação. Grato Atenciosamente, == Thalys de Aguiar Gomes Inbra Metais TI - Tecnologia da Informação e-mail: [EMAIL PROTECTED] Fone: (11) 6955-8007 Mobile: (11) 9249-4235 Home: (11) 6966-0314 == [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Editor de ícones
Eu utilizo o IconEdit2 ele é bem simples mas sempre deu pro gasto só que é pago $20,00. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: sexta-feira, 25 de agosto de 2006 08:57 Para: Grupo Yahoo (Delphi) Assunto: [delphi-br] Editor de ícones alguém aí conhece um editor de ícones que permita trabalhar mais que 16 cores? É q ainda uso o delphi 5... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda urgente
Como trabalhar com imagem no firebird 1.5. Não estou conseguindo recuperar a imagem do banco da erro de stream read error. Já tentei recuperar com o Timage, dbimage, jvdbimage, jvimage. Cadanos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Trazer data em um edit
Vc pode fazer o seguinte coloque um Time e no evento Ontimer coloque:
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Que vai funcionar...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 10:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Trazer data em um edit
Olá Felipe...
Eu tentei e não deu certo não aparece nada no edit. Será que é porque eu
to usando um dbedit? mas mudei o código para
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Velew
Fellipe Henrique [EMAIL PROTECTED] escreveu:
Coloca no OnCreate,
Edit1.Text := FormatDateTime('dd/mm/', Now);
[]s
Em 16/05/06, Amanda Mendonça [EMAIL PROTECTED] escreveu:
Ol´Pessoal Bom Dia,
Alguém sabe como posso trazer a data atual em um edit? Mas não queria
que isso fosse feito através de um botão. Gostaria que quando entrar no
sistema ele mostre a data atual.
Será que alguém pode me dar uma forcinha?
Valew
Abraços,
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
*Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
http://br.ard.yahoo.com/SIG=12fnmm9f7/M=396559.7942981.9411632.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1147791364/A=3690222/R=2/id=noscript/SIG=154d
aec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BADGSeg=DHSD
URL="" href="http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2">http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2
6l%3dpt%26s%3ddhs
--
*Links do Yahoo! Grupos*
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED][EMAIL PROTECTED]
om.br?subject=Unsubscribe
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
var lrec_target=_top;var lrec_URL=new Array();
lrec_URL[1]=http://br.ard.yahoo.com/SIG=12fj0gr50/M=396559.7942981.9411632.
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147791549/A=3690222/R=0/id=flash
url/SIG=154daec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BA
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/deskt
ops?c%3dbr%26l%3dpt%26s%3ddhs; var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/160506_y300x250_
maio02_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1); var
lrec_altURL=http://br.ard.yahoo.com/SIG=12fj0gr50/M=396559.7942981.9411632.
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147791549/A=3690222/R=1/id=altim
g/SIG=154daec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BAD
GSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktop
s?c%3dbr%26l%3dpt%26s%3ddhs; var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/160506_y300x250_mai
o02_dhs_dimension5150.gif;
var lrec_width=300;var lrec_height=250;
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
RES: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida - QReport
Aproveitando a perninha do quick report como faço para instalar ele aqui no
meu Delphi 7 ele não aparece, preciso pegar algum instalador?
Ou se alguém puder me mandar em pvt manda pra [EMAIL PROTECTED]
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 12:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida -
QReport
Oi Galera,
Valew pela ajudinha... Funcionou de todas as formas é que precisava mudar
o banco...
Bem, mas agora vou precisar de mais uma ajudinha de vocês... Não sei se
podem me ajudar...
Mas é o seguinte...
Estou elaborando o relatório(Quick Report) e gostaria de trazer no
relatório apenas o registro que eu solicitar.
Entenderam minha pergunta?
Ai pessoal desculpem por tantas dúvidas é que sou nova nessa linguagem e
preciso entregar esse sistema em uma semana...
Bom se puderem me ajudar mais uma vez...
Agradeço desde já...
Abração Galera
Valdir UOL [EMAIL PROTECTED] escreveu:
Vc pode fazer o seguinte coloque um Time e no evento Ontimer coloque:
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Que vai funcionar...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 10:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Trazer data em um edit
Olá Felipe...
Eu tentei e não deu certo não aparece nada no edit. Será que é porque eu
to usando um dbedit? mas mudei o código para
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Velew
Fellipe Henrique [EMAIL PROTECTED] escreveu:
Coloca no OnCreate,
Edit1.Text := FormatDateTime('dd/mm/', Now);
[]s
Em 16/05/06, Amanda Mendonça [EMAIL PROTECTED] escreveu:
Ol´Pessoal Bom Dia,
Alguém sabe como posso trazer a data atual em um edit? Mas não queria
que isso fosse feito através de um botão. Gostaria que quando entrar no
sistema ele mostre a data atual.
Será que alguém pode me dar uma forcinha?
Valew
Abraços,
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
*Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
http://br.ard.yahoo.com/SIG=12fnmm9f7/M=396559.7942981.9411632.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1147791364/A=3690222/R=2/id=noscript/SIG=154d
aec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BADGSeg=DHSD
URL="" href="http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2">http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2
6l%3dpt%26s%3ddhs
--
*Links do Yahoo! Grupos*
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED][EMAIL PROTECTED]
om.br?subject=Unsubscribe
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
var lrec_target=_top;var lrec_URL=new Array();
lrec_URL[1]=http://br.ard.yahoo.com/SIG=12fj0gr50/M=396559.7942981.9411632.
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147791549/A=3690222/R=0/id=flash
url/SIG=154daec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BA
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/deskt
ops?c%3dbr%26l%3dpt%26s%3ddhs; var
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/160506_y300x250_
maio02_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1); var
lrec_altURL=http://br.ard.yahoo.com/SIG=12fj0gr50/M=396559.7942981.9411632.
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147791549/A=3690222/R=1/id=altim
g/SIG=154daec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BAD
GSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktop
s?c%3dbr%26l%3dpt%26s%3ddhs; var
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/160506_y300x250_mai
o02_dhs_dimension5150.gif;
var lrec_width=300;var lrec_height=250;
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que vo
RES: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida - QReport
Valeu
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Henrique
Enviada em: terça-feira, 16 de maio de 2006 15:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida -
QReport
Valdir isso é fácil vc vai no menu component, depois em install packages...
quando abri a caixa de dialogo vc clica em add...
e vai procurar pelo arquivo: dclqrt70.bpl ele fica em C:\Arquivos de
programas\borland\Delphi7\bin
Qualquer coisa estamos as ordens
Henrique Peixinho
- Original Message -
From: Valdir UOL
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 16, 2006 1:45 PM
Subject: RES: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida -
QReport
Aproveitando a perninha do quick report como faço para instalar ele aqui
no
meu Delphi 7 ele não aparece, preciso pegar algum instalador?
Ou se alguém puder me mandar em pvt manda pra [EMAIL PROTECTED]
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 12:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida -
QReport
Oi Galera,
Valew pela ajudinha... Funcionou de todas as formas é que precisava
mudar
o banco...
Bem, mas agora vou precisar de mais uma ajudinha de vocês... Não sei se
podem me ajudar...
Mas é o seguinte...
Estou elaborando o relatório(Quick Report) e gostaria de trazer no
relatório apenas o registro que eu solicitar.
Entenderam minha pergunta?
Ai pessoal desculpem por tantas dúvidas é que sou nova nessa linguagem e
preciso entregar esse sistema em uma semana...
Bom se puderem me ajudar mais uma vez...
Agradeço desde já...
Abração Galera
Valdir UOL [EMAIL PROTECTED] escreveu:
Vc pode fazer o seguinte coloque um Time e no evento Ontimer coloque:
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Que vai funcionar...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 10:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Trazer data em um edit
Olá Felipe...
Eu tentei e não deu certo não aparece nada no edit. Será que é porque eu
to usando um dbedit? mas mudei o código para
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Velew
Fellipe Henrique [EMAIL PROTECTED] escreveu:
Coloca no OnCreate,
Edit1.Text := FormatDateTime('dd/mm/', Now);
[]s
Em 16/05/06, Amanda Mendonça [EMAIL PROTECTED] escreveu:
Ol´Pessoal Bom Dia,
Alguém sabe como posso trazer a data atual em um edit? Mas não queria
que isso fosse feito através de um botão. Gostaria que quando entrar no
sistema ele mostre a data atual.
Será que alguém pode me dar uma forcinha?
Valew
Abraços,
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
*Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
http://br.ard.yahoo.com/SIG=12fnmm9f7/M=396559.7942981.9411632.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1147791364/A=3690222/R=2/id=noscript/SIG=154d
aec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BADGSeg=DHSD
URL="" href="http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2">http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2
6l%3dpt%26s%3ddhs
--
*Links do Yahoo! Grupos*
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED][EMAIL PROTECTED]
om.br?subject=Unsubscribe
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
var lrec_target=_top;var lrec_URL=new Array();
lrec_URL[1]=http://br.ard.yahoo.com/SIG=12fj0gr50/M=396559.7942981.9411632.
2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147791549/A=3690222/R=0/id=flash
url/SIG=154daec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BA
DGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/deskt
ops?c%3dbr%
RES: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida - QReport
Desculpa ai não sabia que o qreport não era free, pois eu sabia que ao
instalar o delphi o quick já vem junto, e meu delphi é registradinho só não
tinha encontrado aqui os pakages, valeu pela dica já ta instalado
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Walter Alves Chagas Junior
Enviada em: terça-feira, 16 de maio de 2006 15:15
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida -
QReport
Valdir, não precisa mandar nada pra voce em pvt não mermão, e toma cuidado
com isto porque pedir produto pirata em lista de discussão é passivo até de
expulsão.
Pra instalar o quick no D7, vai no menu Component | Install Packages
Clica no botão Add
Localize no diretório \Bin do Delphi as packages: dclqrt70.bpl e
dcltqr70.bpl
clique no botão abrir e deixa instalar.
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Valdir UOL
Enviada em: terça-feira, 16 de maio de 2006 13:45
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida
- QReport
Aproveitando a perninha do quick report como faço para instalar ele aqui no
meu Delphi 7 ele não aparece, preciso pegar algum instalador?
Ou se alguém puder me mandar em pvt manda pra [EMAIL PROTECTED]
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 12:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida -
QReport
Oi Galera,
Valew pela ajudinha... Funcionou de todas as formas é que precisava mudar
o banco...
Bem, mas agora vou precisar de mais uma ajudinha de vocês... Não sei se
podem me ajudar...
Mas é o seguinte...
Estou elaborando o relatório(Quick Report) e gostaria de trazer no
relatório apenas o registro que eu solicitar.
Entenderam minha pergunta?
Ai pessoal desculpem por tantas dúvidas é que sou nova nessa linguagem e
preciso entregar esse sistema em uma semana...
Bom se puderem me ajudar mais uma vez...
Agradeço desde já...
Abração Galera
Valdir UOL [EMAIL PROTECTED] escreveu:
Vc pode fazer o seguinte coloque um Time e no evento Ontimer coloque:
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Que vai funcionar...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 10:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Trazer data em um edit
Olá Felipe...
Eu tentei e não deu certo não aparece nada no edit. Será que é porque eu
to usando um dbedit? mas mudei o código para
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Velew
Fellipe Henrique [EMAIL PROTECTED] escreveu:
Coloca no OnCreate,
Edit1.Text := FormatDateTime('dd/mm/', Now);
[]s
Em 16/05/06, Amanda Mendonça [EMAIL PROTECTED] escreveu:
Ol´Pessoal Bom Dia,
Alguém sabe como posso trazer a data atual em um edit? Mas não queria
que isso fosse feito através de um botão. Gostaria que quando entrar no
sistema ele mostre a data atual.
Será que alguém pode me dar uma forcinha?
Valew
Abraços,
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
*Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
http://br.ard.yahoo.com/SIG=12fnmm9f7/M=396559.7942981.9411632.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1147791364/A=3690222/R=2/id=noscript/SIG=154d
aec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BADGSeg=DHSD
URL="" href="http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2">http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2
6l%3dpt%26s%3ddhs
--
*Links do Yahoo! Grupos*
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED][EMAIL PROTECTED]
om.br?subject=Unsubscribe
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] - QReport Ainda uma dúvi da - ainda...
Um jeito que da pra fazer é assim...passando algo como parâmetro
procedure TFormLocacao.SpeedButton8Click(Sender: TObject);
begin
application.CreateForm(tformrelatorio, formrelatorio);
formrelatorio.ltitulo.caption := fdado.dbedit1.Text;
formrelatorio.lendereco.caption := fdado.DBMemo1.Text;
formrelatorio.quickrep1.Previewmodal;
formrelatorio.release;
end;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 15:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] - QReport Ainda uma dúvida - ainda...
OI pessoal,
Acho que não conseguiram ler o que eu estou precisnado... Estou elaborando
o relatório(Quick Report) e gostaria de trazer no relatório apenas o
registro que eu solicitar... Ou seja não quero ver todos os registros e sim,
apenas o que eu solicitar...
Tem Como me ajudarem... por favor...
Brigadinha
Amanda Mendonça [EMAIL PROTECTED] escreveu:
Olá Valdir,
Você precisa instalar apenas um componente...
Siga os passos:
1) Vá em install
2) Install Packages
3) Add...
4) Arqwuivos de programas/Borland/Delphi7/Bin/dcltqr70.bpl
E prontinho... Devois e só verificar na paleta de componentes e ele estará
instalado na última abinha...
Espero ter ajudado
Valdir UOL [EMAIL PROTECTED] escreveu:
Aproveitando a perninha do quick report como faço para instalar ele aqui
no
meu Delphi 7 ele não aparece, preciso pegar algum instalador?
Ou se alguém puder me mandar em pvt manda pra [EMAIL PROTECTED]
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 12:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Trazer data em um edit - Mais uma dúvida -
QReport
Oi Galera,
Valew pela ajudinha... Funcionou de todas as formas é que precisava mudar
o banco...
Bem, mas agora vou precisar de mais uma ajudinha de vocês... Não sei se
podem me ajudar...
Mas é o seguinte...
Estou elaborando o relatório(Quick Report) e gostaria de trazer no
relatório apenas o registro que eu solicitar.
Entenderam minha pergunta?
Ai pessoal desculpem por tantas dúvidas é que sou nova nessa linguagem e
preciso entregar esse sistema em uma semana...
Bom se puderem me ajudar mais uma vez...
Agradeço desde já...
Abração Galera
Valdir UOL [EMAIL PROTECTED] escreveu:
Vc pode fazer o seguinte coloque um Time e no evento Ontimer coloque:
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Que vai funcionar...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Amanda Mendonça
Enviada em: terça-feira, 16 de maio de 2006 10:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Trazer data em um edit
Olá Felipe...
Eu tentei e não deu certo não aparece nada no edit. Será que é porque eu
to usando um dbedit? mas mudei o código para
dbEdit1.Text := FormatDateTime('dd/mm/', Now);
Velew
Fellipe Henrique [EMAIL PROTECTED] escreveu:
Coloca no OnCreate,
Edit1.Text := FormatDateTime('dd/mm/', Now);
[]s
Em 16/05/06, Amanda Mendonça [EMAIL PROTECTED] escreveu:
Ol´Pessoal Bom Dia,
Alguém sabe como posso trazer a data atual em um edit? Mas não queria
que isso fosse feito através de um botão. Gostaria que quando entrar no
sistema ele mostre a data atual.
Será que alguém pode me dar uma forcinha?
Valew
Abraços,
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
*Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE
http://br.ard.yahoo.com/SIG=12fnmm9f7/M=396559.7942981.9411632.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1147791364/A=3690222/R=2/id=noscript/SIG=154d
aec8p/*http://lt.dell.com/lt/lt.aspx?CID=12903LID=339725DGC=BADGSeg=DHSD
URL="" href="http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2">http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2
6l%3dpt%26s%3ddhs
--
*Links do Yahoo! Grupos*
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED][EMAIL PROTECTED]
om.br?subject=Unsubscribe
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continha
