ActiveDelphi

[cr4zyluiz]

Bom Dia.. estou desenvolvendo um sistema de cadastro e impressao. para controle de entrega de leite de uma igreja...

estou usando o sql server 2005 e o delphi 2007
estou com algumas dificuldades..

1ª é como salvar foto jpg dentro do banco para cada cadastrado.
no momento esta assim a função de salvar a foto:
procedure TFrmCadBeneficiario.Button3Click(Sender: TObject);
begin
inherited;
if OpenPictureDialog1.Execute then
begin
DBImage1.picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;

2ª eu até to conseguindo adcionar os cadastros novos.. porém naum estou conseguindo excluir.:
procedure TFrmCadBeneficiario.BtnExcluirClick(Sender: TObject);
begin
inherited;
DM.ClientSataSet1.delete;
end;

e 3ª porém a q eu acho bem mais complicada... preciso fzer uma tela pra impressão... tem q ser impressão em lista pra controle e a impressao do formulario em si.. como se fosse um crachá com foto e tudo mais...o fonte dessa parte ficou extremamente grande e complexo pra mim eu usei o quickrep para fzer o form do relatorio.. mais ele naum aparece nada!

se alguem puder me dar uma ajuda.. eh de extrema urgência issu..

vlw! qq coisa me add no msn cr4zyluiz@hotmail.com

[betosurf]

[cr4zyluiz]

Beto... blza... soh q no report eu to usando um QuickRep e um QrBand...
vc conhece algum post q explique qual linkage q fais.. ouw algum exemplo..

o Quickreport1.Preview eu jah to usando e naum aparece nada nele...

e na questao da foto vo tentar fzer desse jeito!

[betosurf]

Eu faço assim:

1º. Adiciona o quickreport, coloca uma banda e na sua propriedade BandType coloca Title. Coloca um qrSubDetail e na sua propriedade DataSet ligo com uma query(ibquery1), que você adicionará nessa mesma tela do quickreport..

2º. Essa IBQuery1 liga com a DataBase que está no DM, e liga com a sua tabela.

3º. Adicione dois qrtext no qrsubdetail, ligue com a ibquery1.. coloque o nome e endereço (por exemplo).

se eu quero listar todos os clientes eu faço um sql:
ibquery1.close;
ibquery1.sql.clear;
ibquery1.sql.add('select * from clientes');
ibquery1.open;
quickreport.preview;

muito importante:
* não esqueça de ligar o qrSubDetail com o ibquery1 pela propriedade dataset.

qquer coisa estamos ai..

[cr4zyluiz]

MEu Querido conseguiii.... Só q um outro detalhe eh q toda veis q vai pra impressao ele vai todos os registros.. to tentando colocar uma opção de imprimir tudo ou só oq está selecionado... mais agora fiquei meio sem idéia de como fazer!
e também naum consegui o da foto...
voce disse pra eu salvar uma copia da foto em um diretorio dentro da pasta do sistema q eu to fzendo certo?

[betosurf]

[betosurf]

já para aparecer somente o que você quer no relatório você faz via sql..

o sql que lhe falei é para mostrar todos os clientes..

[cr4zyluiz]

entaum na imagem tah dando um erro.. meio estranho ateh.. tentei com o dbimage e o timage...
Function JPG2Bmp(Arquivo: TFileName): TBitmap;
var
Img: TPicture;
begin
Img := TPicture.Create;
Result := TBitmap.Create;
try
Img.LoadFromFile(Arquivo);
Result.Height := Img.Height;
Result.Width := Img.Width;
Result.Assign(Img.Graphic); //nessa linha!
finally
Img.Free;
end;
end;

"cannot assign a TOleGraphic to a tBitmap."

agora a do relatório to tentando fzer o seguinte.. qdo o cadastro for salvo ele marcar a data q foi alterado e para impressao um campo para imprimir td e um parar imprimir por data.. no caso por dia...

[betosurf]

estranho, no uses do form está setado as duas propriedades abaixo?
Graphics, jpeg
veja e se não der me avise.

Já no quickreport você pode adicionar dois datetimepicker.

e no select assim:

[cr4zyluiz]

entaum.. estaum sim tanto o jpeg qto o Graphic em uses.. e continua no mesmo erro.. tbm to achando estranho....

acho q jah falei q eu tentei tanto como Timage e com o Tdbimage...


o outro eu to tentando.. to colcando o campo pro usuario preencher a data q foi criado o registro.. tava tentando colocar pra preencher automatico mais naum sei pq num aceito..

tinha feito o Dbedit receber o formatdatetime na hora de salvar.. mais num foi!

[betosurf]

Pra preencher automatico a data faz assim:
DM.clientesqueryDATA.asstring:=formatdatetime('dd/mm/yyyy',date);

use asstring, ao invez de value.. porque assim ele transforma em string para salvar a data no padrão dd/mm/aaaa.
Tipo na hora que clicar no botão gravar você usa o codigo que lhe falei, assim ele grava do banco de dados no formato dd/mm/aaaa.

E no relatório no quickreport você usa o datetimepicker, como na outra mensagem que lhe falei anteriormente.

----------
sobre a imagem, eu particularmente uso o Timage..
agora sobre esse erro eu particularmente não sei nem o que lhe dizer, pois pra fim funciona 100%..

essa função você está colocando aonde? coloque logo abaixo do

{$R *.dfm}
Function JPG2Bmp(Arquivo: TFileName): TBitmap;
var
Img: TPicture;
begin
.
.
.

-----------------
qquer coisa to ae..

[cr4zyluiz]

Cara to apanhando.. vamo lah... pra pesquisar por data lah q eu te falei..

coloquei no caso dois edit.. to tentando fzer um laço pra ele buscar as datas do edit e jogar esse periodo no formulario.. mais cara.. to apanhando do delphi...

esse eh meu primeiro sistema pra cliente....

=/

e cara acho q eu te passai errado... o q eu to usando pra imprimir o relatorio eh o rave Report....

se der me adciona no msn cr4zyluiz@hotmail.com

vlw

[cr4zyluiz]

bom.. consegui fzer o carregamento da foto.. mais ele salvando o caminho num Dbedit e puxando por ali mesmo... agora estou com outro problema q eh na conexao..

quando eu rodo o sistema e vou incluir um novo cadastro ele abre a tela mais quando eu vou salvar ele aparece uma mensagem de erro na linha "End;" dizendo que naum foi possivel realizar a transação porque foi excedida!

quem puder me ajudar nissu e eu nao sei como faço pra fechar o programa e fzer um install.. pq todos os caminhos do sistema esta feito em cima do meu COmputador... qro q no install ele jah arrume de acordo com o COmputador do usuario

Obrigado!