获得用户部门权限
摘要：var LoginUserDepts : WideString; procedure SetDBComboBoxDeptItems; var DeptList :TStringlist; i :Integer; begin DeptList:=TStringlist.Create; try DeptList.CommaText:=ListUserDepts(aLoginUser.Userid); for i:=0 to DeptList.Count-1 do begin LoginUserDepts:=LoginUserDepts...
阅读全文
posted @ 2009-04-10 13:03
