Erro no comando clicado duas vezes no frmcli

[Netwollf]

Ola, galera!

Estou com um problema que não estou sabendo resolver por ser um estudante ainda dessa maguinífica ferramenta que é o DELPHI 7 não estou sedno capaz de resolver esse problema. Veja: Eu abro o menu frmclientes cadastro uma pessoa e logo clico em salvar se eu clicar só uma vez para salvar funciona numa boa, mas se eu mesmo clicar outra vez em gravar o programa da errado. Lembando que eu não estou usando o DBnavegator e sim buttons cada um configurado com sua funçao.

Editado Agosto 29, 2010 por Netwollf

[Alberto Mota]

Voce só pode salvar um registro em modo de edição.

Uma vez que já o salvou, não precisa clicar de novo.

Use esse procedimento de configuração:

Adapte para sua necessidade.

procedure TFrmAssociados.ConfiguraBotoes;

begin

sbInserir.Enabled := not sbInserir.Enabled;

sbEditar.Enabled := not sbEditar.Enabled;

sbExcluir.Enabled := not sbExcluir.Enabled;

sbOk.Enabled := not sbOk.Enabled;

sbCancelar.Enabled := not sbCancelar.Enabled;

end;

o código abaixo voce deve colocar no datasource

no evento on change

procedure TFrmAssociados.DataSource1DataChange(Sender: TObject;

Field: TField);

begin

with QueryAssociados do

Begin

sbInserir.Enabled := (State = dsBrowse);

sbEditar.Enabled := (State = dsBrowse) and (not IsEmpty);

sbExcluir.Enabled := (State = dsBrowse) and (not IsEmpty);

sbOK.Enabled := (State <> dsBrowse);

sbCancelar.Enabled := (State <> dsBrowse);

sbFirst.Enabled := (not Bof) and (State = dsBrowse);

sbPrior.Enabled := (not Bof) and (State = dsBrowse);

sbNext.Enabled := (not Eof) and (State = dsBrowse);

sbLast.Enabled := (not Eof) and (State = dsBrowse);

end;

end;

[Netwollf]

Como eu poderia melhorar esse código amigo para carregar imagem no formato Jpeg. Eu uso um banco de dados paradox 7 acrescentei um campo para add foto e coloquei no frmcliente aparecendo um TBimage, local para colocar a imagem, nessa imagem eu programaei o seguinte códito para locazar as imagens no meu hd, só que tem um porem só abre bitmap e gostaria que fosse Jpeg. Outra coisa que eu queria saber se depois de compilado posso apargar as pastas de horigem que não vai da erro? Pode da um trato nesse código ai pra mim

Obs: DataModule1.clieentes

tblclientes

opendialogo

procedure Tfrmclientes.imageClick(Sender: TObject);

begin

if opendialogo.execute then

Image.Picture.LoadFromFile(opendialogo.FileName);

end;

end.

vou esta on no MSN e no forum se quiser me add é netwollf@hotmail.com

[Alberto Mota]

Veja esse link

http://www.activedelphi.com.br/forum/viewt...aa4ff8309e005cb

Editado Agosto 30, 2010 por Alberto Mota

[Netwollf]

Galera eu estou on da essa força ai. Sou novato nessa área

OBS: Atente para as regras do forum

3.6 É proibida a abertura de tópicos com títulos como "Socorro", "Ajuda", "Urgente", etc, ou com títulos que não descrevam a dúvida, como "Uma dúvida simples", "Alguém pode me ajudar?", "Dúvida de Iniciante", etc. Tópicos assim serão editados sem aviso prévio.

[Alberto Mota]

Está mais simples agora.

o seu jpeg tem que ser do mesmo numero

Exemplo: 1.jpeg

Supondo que voce tenha um produto de Referência = 1

procedure TFrmProdutos.DsProdutosDataChange(Sender: TObject;

Field: TField);

var

foto1,guardafoto : string;

begin

guardafoto := inttostr(Produtos.FieldByName('referência').AsInteger);

if not(fileexists('C:\wa\'+guardafoto+'.jpg')) then

begin

foto1 := ('C:\wa\wa2.jpg');

end else

foto1 := ('C:\wa\'+guardafoto+'.jpg');

DbImage1.Picture.loadfromfile(foto1);

end;

Editado Agosto 31, 2010 por Alberto Mota