|
|||
|
摘要：
自己留作参考 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 刘政道 阅读(23389) 评论(0) 推荐(0) 编辑
摘要：
我创建MiniOA这个开源项目，旨在与大家分享Java、JSF、Richfaces、Javascript等Web Application 开发技术，分享协同办公系统设计思想。向优秀的开源软件学习，分享开源精神，传递开源力量。MiniOA即可当作学习案例，也可当作开发框架，也适合企业搭建协同办公系统。 MiniOA计划开发组织结构管理、权限管理、菜单管理、文件管理、信息发布、Web邮件客户端、电子表单管理、工作流管理、Spark即时通讯、数据图表等模块，目前已完成程序基本框架和Openfire的集成。我可能并不擅长编码，对Java并不精通，但是我在协同办公系统的设计方面考虑很多，这些考虑来源于. 阅读全文
posted @ 2011-03-23 21:22 刘政道 阅读(2970) 评论(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 刘政道 阅读(7226) 评论(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 刘政道 阅读(638) 评论(0) 推荐(0) 编辑
摘要：
安装Oracle Developer后 pl sql无法使用报错 ORA 12538 TNS no such protocol adapter这是因为安装Oracle Developer后，tns配置发生变化，此时需要稍作修改。假设Oracle Developer安装在D:\Oracle\ora90 1 将原来tnsnames.ora中的内容追加到D:\Oracle\ora90\network\ADMIN\tnsnames.ora中；2 未登录状态下进入pl sql，选择工具-首选项-oracle-设置Oracle主目录名为OraHome90，设置OCI库为D:\Oracle\ora90\bi 阅读全文
posted @ 2011-03-08 15:36 刘政道 阅读(352) 评论(0) 推荐(0) 编辑 |
|||