Brio常用脚本.pdf

在BRIO的开发中，由于其没有继承的特性，很多东西都要不同程度的重复工作， 这给大家都造成很多麻烦。下面给大家发一段代码，放到ONSTARTUP中去执行， 这样可以对做一个新的文档能简化一些工作，当然脚本还不是很完善，大家毕竟 都有自己的需求，放上来可以大家一同修改，完善，不足之处，希望大家指出 /********************初始变量*************************/ g_CycleType = MONTH; //报表类形(日报:DAY,月报:MONTH) g_MainEisName = EIS; //主界面 g_IsAutoSizeWidth = false; //旋转透视表是否自适应宽度 if(Application.Name.substr(0,9) != BrioQuery) g_Operator = ActiveDocument.ODSUsername.toLowerCase(); else g_Operator = sysop; //用户登录名称 g_CycleStart = ; //开始周期 g_CycleEnd = ; //结束周期 g_QueryCycle = ; //周期范围 g_OperatorName = ; //用户名称 g_OperatorTel = ; //用户联系电话 g_ExportPath = //用户导出路径 g_Oce = ; //OCE名称 g_OceUser = ; //OCE用户 g_OcePass = ; //OCE密码 g_ProspectusServer = ; //报表样张服务器地址 g_AllCode = 全部; //全部所使用的中文名称 g_ExlObjExist = false; //Excel句柄是否存在 g_ConditionArry = new Array(); g_MainQueryName = new Array(); //存放主数据查询名称 g_MainResultName= new Array(); //存放主数据结果名称 /********************得到用户资料*************************/ ActiveDocument.Sections[ 查 询 -SYSINFO].Limits[Oid].SelectedValues.RemoveAll(); ActiveDocument.Sections[ 查 询 -SYSINFO].Limits[Oid].SelectedValues.Add(g_Operator); ActiveDocument.Sections[查询-SYSINFO].Process(); if(ActiveDocument.Sections[结果-SYSINFO].RowCount 0){ Alert(+g_Operator+用户系统资料错误,请与系统管理员联系！,提示); return; } try{ g_OperatorName = ActiveDocument.Sections[表-USERINFO].GetCell(1,3); g_OperatorTel = ActiveDocument.Sections[表-USERINFO].GetCell(2,3); g_ExportPath = ActiveDocument.Sections[表-USERINFO].GetCell(3,3); g_Oce = ActiveDocument.Sections[表-LOGIN].GetCell(1,2); g_OceUser = ActiveDocument.Sections[表-LOGIN].GetCell(2,2); g_OcePass = ActiveDocument.Sections[表-LOGIN].GetCell(3,2); g_ProspectusServer = ActiveDocument.Sections[表-LOGIN].GetCell(4,2); } catch(e){ Alert(+g_Operator+用户系统资料错误,请与系统管理员联系！,提示); Alert(e,提示); if(Application.Name.substr(0,9) != Br