Editar Tabela

[Curinga]

Pessoal, apareceu uma duvida e gostaria que vocês me ajudassem.

Estou fazendo uma area de edição, ou seja o usuario pode editar um cliente já cadastrado, para isso, ele faz a busca, clica com o botao direito em cima dos dados do cliente no DBGrid, abre o menu de opções, e ai quando ele clica em EDITAR, o programa roda um SHOW ate a area de edição.

Pois aí é q está o problema, nessa area de edição está todos os meus DBEdits, para que seja editado o cliente, só que quando eu abro o form de edição aparece o NOME, CODIGO, CPF, tudo certo, tdo beleza, mas quando eu coloco o foco em um determinado DBGrid ele apaga automaticamente, porque isso ta acontecendo?

Como eu faço para que, ao abrir o FORM de edição, ele pegue os valores contidos dos campos que eu cliquei do DBGRID e jogue nos DBEdits do FORM de edição?

obrigado pela atenção, e espero que eu tenha explicado com clareza o problema.

[sillier]

Olá Curinga,

Uma alternativa (não digo que seja a mais prática!) é você usar Edits normal ao invés de DBEdits. Logo, no evento on Show do formulário de alteração você coloca o edit recebendo o campo do banco de dados:

Edit1.Text:= Query.FieldByName('campo').AsString; 

e fazer isso para todos os edits e campos que quiser que sejam exibidos.

Espero ter ajudado...

Qualquer coisa posta eaew!

falou

[bastard2003]

tenta da um SelectAll em vez de SetFocus

pode ser q de certo!

[Curinga]

Olá Pessoal,

Obrigado pelas dicas. Mas se por exemplo, eu usar EDITS ao invés de DBEdits, como eu faço pra depois eu salvar as alterações.

Mais uma vez obrigado pela atenção...

[sillier]

Bem....

A idéia do SelectAll é boa, mas não sei se será bem aplicada corretamente na sua aplicação, contudo... não custa tentar!

Caso você resolva usar Edits, a inclusão dependerá de qual componente está sendo usado para acessar o banco (Table, Query,.....).

falou...

[Guest - Rafael -]

Pessoal, apareceu uma duvida e gostaria que vocês me ajudassem.

Estou fazendo uma area de edição, ou seja o usuario pode editar um cliente já cadastrado, para isso, ele faz a busca, clica com o botao direito em cima dos dados do cliente no DBGrid, abre o menu de opções, e ai quando ele clica em EDITAR, o programa roda um SHOW ate a area de edição.

Pois aí é q está o problema, nessa area de edição está todos os meus DBEdits, para que seja editado o cliente, só que quando eu abro o form de edição aparece o NOME, CODIGO, CPF, tudo certo, tdo beleza, mas quando eu coloco o foco em um determinado DBGrid ele apaga automaticamente, porque isso ta acontecendo?

Como eu faço para que, ao abrir o FORM de edição, ele pegue os valores contidos dos campos que eu cliquei do DBGRID e jogue nos DBEdits do FORM de edição?

obrigado pela atenção, e espero que eu tenha explicado com clareza o problema.

Meu caro colega experimente usar o edit comum na paleta standart, ok? ele deve funcionar.

[Curinga]

Oi,

Outras pessoas me deram essa ideia, mas depois como é que eu faço pra salvar as alterações usando o EDIT?

obrigado, valeu....

[Kikonanet]

Olá,

Se você estiver usando uma Query.

with Query do
begin
Close;
Sql.Clear;
Sql.Add('UPDATE Tabela SET Campo1 ="'+Edit1.Text+'", Campo2 ="'+Edit2.Text+'" ');
Sql.Add('WHERE Id = '+EditId.text+'');
ExecSql;
end;

Abs.

Kiko

[Curinga]

Pessoal, obrigado pela ajuda, consegui resolver o problema anterior,

mas agora ta acontecendo um segundo problema.

Toda vez que eu mando salvar da erro de "Key Violation". já mudei minha rotina toda e não acho o problema, o q pode ta acontecendo?

Ta ai a minha rotina, pessoal.

Para explicar melhor:

Antes de entrar nesse FORM(EDITAR), tem um FORM(PESQUISAR), então a pessoa pesquisa e os resultados aparecem no DBGrid(DBPesquisa2). Ele clica com o botão direito em cima de um determinado resultado, e então abre o TPopupMenu com o item EDITAR. Nesse EDITAR do TPopupMenu tem um SHOW q leva até o nosso FORM(EDITAR).

procedure TEditar.FormActivate(Sender: TObject);

begin

TCPFisica.Edit;

Pesquisar.DBPesquisa2.SelectedIndex:=0;

TCPFisica.FieldByName('CODIGO').AsString := Pesquisar.DBPesquisa2.SelectedField.Text;

Pesquisar.DBPesquisa2.SelectedIndex:=1;

TCPFisica.FieldByName('NOME').AsString := Pesquisar.DBPesquisa2.SelectedField.Text;

etc...

etc...

end;

procedure TEditar.BtnSalvarClick(Sender: TObject);

begin

TCPFisica.Edit;

TCPFisica.Post;

MessageBox(Application.Handle, Pchar ('As informações foram salvas com sucesso.'), 'C-Commerce', MB_OK+MB_ICONWARNING+MB_DEFBUTTON1);

end;

O interessante disso tudo é que, o primeiro item q aparece do meu DBGrid, quando eu faço a pesquisa

da certo, ele altera, se eu fizer uma busca e achar dois ou mais resultados e fizer isso com o 2.º

item q aparece, ou o 3º, ele da erro de "Key Violation", estranho...

Eu sei que eu tenho enchido vocês, mas eu não tenho a qm recorrer, por isso pesso a ajuda de vocês.

Obrigado, mais uma vez...

[bastard2003]

cara pelo q eu pude notar ele da esse erro porque ele não ta achando o codigo da pessoa q você ta querendo muda... não sei se você ta usando uma qry ou uma table pra fazer isso... se tiver usando uma queri adiciona uma restricao do tipo:

where codigo= :codigo

so pra ele saber qual pessoa ele tem q mudar.. ai quando você for chamar esse form pra mudar tu manda o codigo.. ficaria algo do tipo:

dtmPrincipal.qrydados.Close;
dtmPrincipal.qrydados.Parameters.ParamByName('codigo').Value := tblCODIGO.valeu
dtmPrincipal.qrydados.Open;

onde o tblCODIGO.valeu é o campo da tua tabela q tem o codigo da pessoa q você que mudar...

axo q isso pode te ajuda... qualquer coisa... posta ai velho...

[Curinga]

Olá,

Obrigado pela dica, complementando, eu estou usando table na busca, quando entra no FORM, ele identifica perfeitamente o CODIGO, mas so altera o primeiro, o resto não.

Como eu transformaria sua dica, se fosse no meu caso, q é o uso de TABELA?

Obrigado...

[sillier]

Olá Curinga,

Não sei se entendi bem o que você quer, mas veja se é isso:

    DM.Tabela.Edit;
    DM.Tabela.Insert;

    DM.Tablela.FieldbyName('Campo1').AsString := Edit1.Text;
    DM.Tablela.FieldbyName('Campo2').AsString := Edit2.Text;
    DM.Tablela.FieldbyName('Campo3').AsString := Edit3.Text;
    DM.Tablela.FieldbyName('Campo4').AsString := Edit4.Text;
    DM.Tablela.FieldbyName('Campo5').AsString := Edit5.Text;
    DM.Tablela.FieldbyName('Campo6').AsString := Edit6.Text;
    .
    .
    . {aqui continua a insersão, dependendo de quantos campos você tem}

Ou se você quiser pode usar o método Append, ao invés do Edit e do Insert.

Não sei se era isso, qualquer coisa posta eaw...

Até mais!