Fórum Ajuda Alterar Registro #261354
10/12/2004
0
Oi Pessoal tô precisando da seguinte ajuda.
Criei um formulário com 3 TAB, 1º Seleção, 2º Registro Mae e 3º Registro filho.
Nesta Tabela filho vou precisar alterar o campo tipo, entao coloquei um pop menu ligado a grid quando clico com o botão direito em cima da grid
ele me mostra as opcoes Cancelar e Excluir.
O que quero é o seguinte quando escolher Cancelar ele mude o conteúdo do campo Tipo para ´C´ e se for Excluir para ´E´. como fazer isso?
Veja meu select ao entrar na tab filhos:
procedure TFatCadForm.OpenFat;
var
Cod: String;
begin
if not QueryActive then exit;
if not DadosQ.Active then exit;
CloseNReg;
Cod := DadosQ.FieldByName(´ITH_COD´).AsString;
DadosQ.SQL.Clear;
DadosQ.SQL.Add(´SELECT * FROM IDADOS ´);
Dados.SQL.Add(´ WHERE´);
Dados.SQL.Add(´ ITI_COD in (´);
Dados.SQL.Add(´ SELECT ITH_COD FROM DADOS´);
Dados.SQL.Add(´ WHERE´);
Dados.SQL.Add(´ ITH_COD = ´+Aspas(Cod)+´)´);
Dados.SQL.Add(´ ORDER BY ITI_COD´);
try
SQLMemo.Lines := Dados.SQL;
DadosQ.Open;
except
on E: EDatabaseError do
begin
MessageDlg(´Error->Message: ´+E.Message, mtInformation,[mbOk], 0);
end;
end;
DadosQ.First;
end;
OBS: Postando novamente pois meu tópico ficou com problemas!
Criei um formulário com 3 TAB, 1º Seleção, 2º Registro Mae e 3º Registro filho.
Nesta Tabela filho vou precisar alterar o campo tipo, entao coloquei um pop menu ligado a grid quando clico com o botão direito em cima da grid
ele me mostra as opcoes Cancelar e Excluir.
O que quero é o seguinte quando escolher Cancelar ele mude o conteúdo do campo Tipo para ´C´ e se for Excluir para ´E´. como fazer isso?
Veja meu select ao entrar na tab filhos:
procedure TFatCadForm.OpenFat;
var
Cod: String;
begin
if not QueryActive then exit;
if not DadosQ.Active then exit;
CloseNReg;
Cod := DadosQ.FieldByName(´ITH_COD´).AsString;
DadosQ.SQL.Clear;
DadosQ.SQL.Add(´SELECT * FROM IDADOS ´);
Dados.SQL.Add(´ WHERE´);
Dados.SQL.Add(´ ITI_COD in (´);
Dados.SQL.Add(´ SELECT ITH_COD FROM DADOS´);
Dados.SQL.Add(´ WHERE´);
Dados.SQL.Add(´ ITH_COD = ´+Aspas(Cod)+´)´);
Dados.SQL.Add(´ ORDER BY ITI_COD´);
try
SQLMemo.Lines := Dados.SQL;
DadosQ.Open;
except
on E: EDatabaseError do
begin
MessageDlg(´Error->Message: ´+E.Message, mtInformation,[mbOk], 0);
end;
end;
DadosQ.First;
end;
OBS: Postando novamente pois meu tópico ficou com problemas!
Wgm8
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)