参考自http://www.ithao123.cn/wenku/list_310_2.html

static void GD_Eric_ChangeUserinfoFont(Args _args)
{
    UserInfo    curUserInfo;
    container   curCon;
    ;
    ttsBegin;
    select firstOnly forUpdate curUserInfo where curUserInfo.id == curUserId();
    if(curUserInfo)
    {
        curUserInfo.propertyFontName    = "Tahoma";
        curUserInfo.formFontName          = "Tahoma";
        curUserInfo.reportFontName        = "Tahoma";
        curUserInfo.doUpdate();
        curCon = ["Proper:"+curUserInfo.propertyFontName,curUserInfo.formFontSize,"Report:"+curUserInfo.reportFontName,curUserInfo.reportFontSize];
        info(con2Str(curCon));
    }
    ttsCommit;
}