Delphi+SQL Server小型连锁超市进销存系统 第35页

  begin

       findparent(Ttreenode(list1[n]));

     end;

     tv.FullCollapse; // 仅仅显示根节点

   end;

end;

树的响应事件代码：  //点击节点显示相应的商品信息

procedure TForm5.tvChange(Sender: TObject; Node: TTreeNode);

var

  S: String;

  function SQLWhereStr(const Node: TTreeNode): String;

  var

    tmpNode: TTreeNode;

 begin

    Result := '';

    if Node = nil then Exit;

    tmpNode := Node;

    repeat

      Result := Result + IntToStr(PNode(tmpNode.Data)^.ID) + ',';

      tmpNode := tmpNode.GetNext;

    until (tmpNode = nil) or (tmpNode.Level<=Node.Level);

    if Result <>'' then

        begin

         Delete(Result, Length(Result), 1);

         Result := ' 商品部编码 in('+Result+') ';

    end;

  end;

begin

  S := SQLWhereStr(tv.Selected);

  if S <> '' then

     data1.quy_spjbxx.Close;

     data1.quy_spjbxx.SQL.Text := 'select * from spjbxxb '+ 'where ' +S;

     data1.quy_spjbxx.Open;

end;

procedure TForm5.AddNode(Parent: TTreeNode);  //添加节点公用过程

var

  Text: String;

  Node: TTreeNode;

  NodeData: PNodeData;

  function GetID: Integer;

  begin

    with Data1.qryTemp do

    begin

      Active := False;

 << 上一页  [31] [32] [33] [34] [35] [36] [37] [38] [39] [40]  ... 下一页  >>