获得用户部门权限
摘要：
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 Qcj 阅读(328) 评论(0) 推荐(1) 编辑