树形结构的组织机构的递归应用

表结构

Dept_ID Dept_Code Parent Content

 程序

  private
    { Private declarations }
    function recursivedep(inparent: string): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.recursivedep(inparent: string): string;
begin

  QryDepname.Close;
  QryDepname.ParamByName('parent').AsString := inparent;
  QryDepname.Open;

  if trim(QryDepname.FieldByName('parent').AsString) <> '' then
  begin
    result := QryDepname.FieldByName('content').AsString + '\';
    result := recursivedep(QryDepname.FieldByName('parent').AsString) + result;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var parent: string;
begin
  edit2.text := '';
  resultstr:='' ;
  QryDepcode.Close;
  QryDepcode.ParamByName('deptid').AsInteger := strtoint(edit1.Text);
  QryDepcode.Open;

  if trim(Qrydepcode.FieldByName('parent').AsString) = '' then
    exit
  else
    parent := Qrydepcode.FieldByName('parent').AsString;

  edit2.text := recursivedep(parent) + Qrydepcode.FieldByName('content').AsString;
end;

end.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/166523/viewspace-204048/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-204048/