선택된 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;