|
|||
|
摘要：
刚刚解决了一个实际问题，拿出来分享。我刚将Spark重新编译，编译完成后是一个start.bat文件，双击start.bat就能够启动Spark，但是有一个命令窗口，要是能隐藏掉就好了。隐藏命令窗口Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c startup.bat",vbhide创建快捷方式'取得当前用户的application data文件夹Const APPLICATION_DATA = &H1a&Set objShell = CreateObject(" 阅读全文
posted @ 2011-04-07 13:59 刘政道 阅读(780) 评论(0) 推荐(0)
摘要：
自己留作参考 Sub test() Dim str Dim i, j i = 1 j = 1 For r = 1 To Worksheets(2).UsedRange.Rows.Count For c = 1 To Worksheets(2).UsedRange.Columns.Count str = Worksheets(2).Cells(r, c).Value Worksheets(3).Cells(j, 1).Value = i Worksheets(3).Cells(j, 2).Value = c Worksheets(3).Cells(j, 3).Value = str j = j 阅读全文
posted @ 2011-03-25 10:42 刘政道 阅读(23444) 评论(0) 推荐(0)
摘要：
我创建MiniOA这个开源项目，旨在与大家分享Java、JSF、Richfaces、Javascript等Web Application 开发技术，分享协同办公系统设计思想。向优秀的开源软件学习，分享开源精神，传递开源力量。MiniOA即可当作学习案例，也可当作开发框架，也适合企业搭建协同办公系统。 MiniOA计划开发组织结构管理、权限管理、菜单管理、文件管理、信息发布、Web邮件客户端、电子表单管理、工作流管理、Spark即时通讯、数据图表等模块，目前已完成程序基本框架和Openfire的集成。我可能并不擅长编码，对Java并不精通，但是我在协同办公系统的设计方面考虑很多，这些考虑来源于. 阅读全文
posted @ 2011-03-23 21:22 刘政道 阅读(3312) 评论(4) 推荐(0)
摘要：
刚好一个案例需要在写存储过程，但是总是报错No data - zero rows fetched, selected, or processed存错过程代码如下DELIMITER $$DROP PROCEDURE IF EXISTS `jbpm`.`refreshRoster` $$CREATE DEFINER=`root`@`%` PROCEDURE `refreshRoster`(in hostname varchar(30))BEGIN DECLARE uname varchar(30); DECLARE cur1 CURSOR FOR SELECT username FROM ofus 阅读全文
posted @ 2011-03-17 16:30 刘政道 阅读(7460) 评论(0) 推荐(0)
摘要：
最近在做模拟自动登录的案例，需要在页面中模拟鼠标单击的效果，因为通过document.forms[0].submit的方式可以提交表单，但是对于一些表单是通过一个链接或是Ajax方法以单击效果提交的表单，就束手无策。上网查了查，有以下代码可实现，evt = document.createEvent('MouseEvents');evt.initEvent('click', false, false);document.getElementsByName('loginForm:submitBtn')[0].dispatchEvent(evt);经测 阅读全文
posted @ 2011-03-15 09:16 刘政道 阅读(669) 评论(0) 推荐(0) |
|||
浙公网安备 33010602011771号