TreeView - ClientDataset - Inserir e Editar

Delphi

26/09/2009

Bom dia. estou engatinhando na programaçao, e estudando sempre, tenho uma treeview para controle de acessos...estou com a seguinte dificuldade...quando tenho a acao Ticada na treeview, faco a comparacao com o banco. se existir trabalho somente alterando para V ou F...o problema esta quando nao existe a acao para o usuario no banco, entao tenho que inclui-la...ja tentei de varias formas e nao consegui entra num loop axo...
Estou tentando seguir esta logica
for i:=0 to TreeView.Items.Count -1
begin
dataset.close;
dataset.open;
dataset.first;
while not dataset.eof do
begin
if (item[i].text = datasetcaption.text)
begin
//edit;
end;
if (item[i].text <> datasetcaption.text)
begin
//inclui;
end;
dataset.next;
end;

Alguem poderia me ajudar...esta correto percorrer o dataset dentro do if da treeview ?


Flast2008

Flast2008

Curtidas 0

Respostas

Afarias

Afarias

26/09/2009

vc não tem q percorrer o DataSet. Para isso existem métodos como FindKey e Locate, um exemplo:


var
  Valor: string;
begin

  DataSet.Close; 
  DataSet.Open; // prepara o dataset

  for i := 0 to TreeView.Items.Count-1 do
  begin 
    Valor := TreeView.Item[i].Text;
    if DataSet.Locate(´CAPTION´, Valor, []) then // se existe o ´caption´
    begin
      DataSet.Edit; // editar
      {...}
    end else // se não
    begin
      DataSet.Append; // incluir
      {...}
    end;
  end;

end;



T+


GOSTEI 0
Flast2008

Flast2008

26/09/2009

Mais uma vez muito obrigado pela Ajuda amigo...Vlew dmais....


GOSTEI 0
POSTAR