Q&A

  • TreeView 와 DB 연동하여 DB수정하기에서..
선택된 TreeView Node를 팝업메뉴로 클릭하여 선택된 Node의 DB내용을

수정하려고 합니다..!!

우선 선택된 노드를 Edit.Text에 나타내려고 하는데..선택된 TreeView의

Node.Text 의 DB 내용이 나오지 않고 처음에 저장된 DB 내용이 Edit.Text에 나옵니다..

선택된 노드의 값이 DB의 내용과 같게 나오게 하려면 어떻게 해야 하는지..

고수님들의 의견 부탁드립니다...

procedure TForm1.Properties1Click(Sender: TObject);
var
  Node1 : TTreeNode;
  i : Integer;
  tmp : String;
begin
    Node1 := TreeView1.Selected;
    BoxDataModule.tbl_RlyZone.Open;

    if (TreeView1.Selected.Level = 1) then
    begin
            with BoxDataModule.Qry_Relay do
            begin
                tmp := FieldByName('Relay_IP').AsString;
                Close;
                Active := True;
                if tmp = Node1.Text then
                begin
                    Rly_ProP.Rly_P_Name.Text := FieldByName('Relay_Name').AsString;
                    Rly_ProP.Rly_P_IP.Text   := FieldByName('Relay_IP').AsString;
                    Rly_ProP.Rly_P_EX.Text   := FieldByName('Relay_Ex').AsString;
                end;
            end;
    end;
0  COMMENTS