资源描述:
《Treeview绑定SQL》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、SQL:string;vDRec,vGRec:integer;vDNode,vGNode,vUNode:TTreeNode;vRDept:PrDepartment;vRGroup:PrGroup;vRUser:PrUser;beginSQL:='SELECTD.RecordIDDRecID,D.DepartmentID,D.DName,D.DDescription,'+'D.DepartmentPopedom,G.RecordIDGRecID,G.GroupID,G.GName,G.GDescription,'+
2、'G.GroupPopedom,U.RecordIDURecID,U.UserID,U.OName,U.OPassword,'+'U.UserPopedom,U.CreateTime,U.ModifyTimeFROMODEPARTMENTD'+'LEFTJOINOGROUPGONG.DepartmentID=D.DepartmentID'+'LEFTJOINOUSERUOND.DepartmentID=U.DepartmentIDandU.GroupID=G.GroupID'+'ORDERBYD.RecordID
3、,G.RecordID,U.RecordID';qrUser.SQL.Text:=SQL;qrUser.Open;vDRec:=0;vGRec:=0;vGNode:=nil;vDNode:=nil;whilenotqrUser.EofdobeginifvDRec<>qrUser.FieldByName('DRecID').AsIntegerthenbegin//增加部门节点vRDept:=New(PrDepartment);vRDept.RecID:=qrUser.FieldByName('DRecID').As
4、Integer;vRDept.DeptID:=qrUser.FieldByName('DepartmentID').AsString;vRDept.Name:=qrUser.FieldByName('DName').AsString;vRDept.Desc:=qrUser.FieldByName('DDescription').AsString;vRDept.Popedom:=Trim(qrUser.FieldByName('DepartmentPopedom').AsString);vRDept.Popedom
5、:=TCommFun.DencryptStr(vRDept.Popedom,vRDept.Name);vDNode:=tvUser.Items.AddChildObject(nil,vRDept.Name,vRDept);vDNode.SelectedIndex:=0;vDNode.ImageIndex:=0;vDRec:=vRDept.RecID;vGRec:=0;end;ifvGRec<>qrUser.FieldByName('GRecID').AsIntegerthenbegin//增加班组节点vRGrou
6、p:=New(PrGroup);vRGroup.RecID:=qrUser.FieldByName('GRecID').AsInteger;vRGroup.GroupID:=qrUser.FieldByName('GroupID').AsString;vRGroup.DeptID:=qrUser.FieldByName('DepartmentID').AsString;vRGroup.Name:=qrUser.FieldByName('GName').AsString;vRGroup.Desc:=qrUser.F
7、ieldByName('GDescription').AsString;vRGroup.Popedom:=Trim(qrUser.FieldByName('GroupPopedom').AsString);vRGroup.Popedom:=TCommFun.DencryptStr(vRGroup.Popedom,vRGroup.Name);vGNode:=tvUser.Items.AddChildObject(vDNode,vRGroup.Name,vRGroup);vGNode.SelectedIndex:=1
8、;vGNode.ImageIndex:=1;vGRec:=vRGroup.RecID;end;//增加用户节点vRUser:=New(PrUser);vRUser.RecID:=qrUser.FieldByName('URecID').AsInteger;vRUser.UserID:=qrUser.FieldByName('UserID').AsString;vRUser