前往Shuct.Net首页

Shudepb PB反编译专家长时间以来,为业内同类软件事实上的唯一选择.细节,彰显专业.态度,决定品质.

关于pb decompiler的搜索

PB调用EXCEL的操作不失为一种好的报表输出方式 - chengg0769 来自四川,在东莞虚度十载 - 博客频道 - CSDN.NET chengg0769 来自四川,在东莞虚度十载 PB反编译_Powerbuilder DeCompiler_PB反编译器_PB混淆器_PB加密 目录视图 摘要视图 订阅 新年新气象------CSDN2014新版导航就要跟大家见面了 2014年1月微软MVP当选名单揭晓! 消灭0回答,赢下载分 “我的2013”年度征文活动火爆进行中! 专访何海涛:“不正经”程序员的进阶之路 PB调用EXCEL的操作不失为一种好的报表输出方式 2009-05-15 23:17 2017人阅读 评论(0) 收藏 举报 excel报表stringpowerbuilder工作microsoft 对于较为中国化的报表,虽然后dw这个坚强后盾,但是也难不住繁复疲劳的应对。 不过我们可以知道,数据的输出,都是居于table的栏位或者计算字段。只是很多统计的模式和展现模式不同。 我在一年前作完一个系统,可是客户几乎隔三差五有新的东东要输出报表。终于我发现。让客户先在excel里弄好,然后再写程序来输出也是一个不错的方法。关键是,客户给的东西不必要再进自己的系统,所以数据不会发生什么问题。如果本身软件有任何问题,那能从excel里的写的结果很容易看得出来。虽然写excel表格要花很多时间,但是减少了输入导入和输出的一些麻烦。 转载excel操作大全: powerbuilder操作excel命令大全(例子的有些地方不对!) 2006-12-04 16:43 1.创建Excel对象   eole=CREATEOBJECT(&prime;Excel.application&prime;)   2.添加新工作簿   eole.Workbooks.add   3.设置第3个工作表为激活工作表   eole.Worksheets(&Prime;sheet3&Prime;).Activate   4.打开指定工作簿   eole.Workbooks.Open(&Prime;c:/temp/ll.xls&Prime;)   5.显示Excel窗口   eole.visible=.t.   6.更改Excel标题栏   eole.Caption=&Prime;VFP应用程序调用Microsoft Excel&Prime;   7.给单元格赋值   eole.cells(1,4).value=XM(XM为数据库字段名)   8.设置指定列的宽度(单位:字符个数)   eole.ActiveSheet.Columns(1).ColumnWidth=5   9.设置指定行的高度(单位:磅)   eole.ActiveSheet.Rows(1).RowHeight=1/0.035   (设定行高为1厘米,1磅=0.035厘米)   10.在第18行之前插入分页符   eole.Worksheets(&Prime;Sheet1&Prime;).Rows(18).PageBreak=1   11.在第4列之前删除分页符   eole.ActiveSheet.Columns(4).PageBreak=0   12.指定边框线宽度(Borders参数如下)   ole.ActiveSheet.Range(&Prime;b3:d3&Prime;).Borders(2).Weight=3   13.设置四个边框线条的类型   eole.ActiveSheet.Range(&Prime;b3:d3&Prime;).Borders(2).LineStyle=1   (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)   14.设置页眉   eole.ActiveSheet.PageSetup.CenterHeader=&Prime;报表1&Prime;   15.设置页脚   eole.ActiveSheet.PageSetup.CenterFooter=&Prime;第&P页&Prime;   16.设置页眉到顶端边距为2厘米   eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035   17.设置页脚到底边距为3厘米   eole.ActiveSheet.PageSetup.FooterMargin=3/0.035   18.设置顶边距为2厘米   eole.ActiveSheet.PageSetup.TopMargin=2/0.035   19.设置底边距为4厘米   eole.ActiveSheet.PageSetup.BottomMargin=4/0.035   20.设置左边距为2厘米   veole.ActiveSheet.PageSetup.LeftMargin=2/0.035   21.设置右边距为2厘米   eole.ActiveSheet.PageSetup.RightMargin=2/0.035   22.设置页面水平居中   eole.ActiveSheet.PageSetup.CenterHorizontally=.t.   23.设置页面垂直居中   eole.ActiveSheet.PageSetup.CenterVertically=.t.   24.设置页面纸张大小(1-窄行8 5 11 39-宽行14 11)   eole.ActiveSheet.PageSetup.PaperSize=1   25.打印单元格网线   eole.ActiveSheet.PageSetup.PrintGridlines=.t.   26.拷贝整个工作表   eole.ActiveSheet.UsedRange.Copy   27.拷贝指定区域   eole.ActiveSheet.Range(&Prime;A1:E2&Prime;).Copy   28.粘贴   eole.WorkSheet(&Prime;Sheet2&Prime;).Range(&Prime;A1&Prime;).PasteSpecial   29.在第2行之前插入一行   eole.ActiveSheet.Rows(2).Insert   30.在第2列之前插入一列   eole.ActiveSheet.Columns(2).Insert   31.设置字体   eole.ActiveSheet.Cells(2,1).Font.Name=&Prime;黑体&Prime;   32.设置字体大小   eole.ActiveSheet.Cells(1,1).Font.Size=25   33.设置字体为斜体   eole.ActiveSheet.Cells(1,1).Font.Italic=.t.   34.设置整列字体为粗体   eole.ActiveSheet.Columns(1).Font.Bold=.t.   35.清除单元格公式   eole.ActiveSheet.Cells(1,4).ClearContents   36.打印预览工作表   eole.ActiveSheet.PrintPreview   37.打印输出工作表   eole.ActiveSheet.PrintOut   38.工作表另为   eole.ActiveWorkbook.SaveAs(&Prime;c:/temp/22.xls&Prime;)   39.放弃存盘   eole.ActiveWorkbook.saved=.t.   40.关闭工作簿   eole.Workbooks.close   41.退出Excel   eole.quit 42 合并 string worksheet,beginRowcol,EndRowCol MyOLE.ActiveWorkBook.Sheets(worksheet).Range(BeginRowCol ":" EndRowCol).SelectMyOLE.ActiveWorkBook.Sheets(worksheet).Range(BeginRowCol ":" EndRowCol).Merge 43 sheet改名MyOLE.ActiveWorkBook.Sheets(olename).selectMyOLE.ActiveWorkBook.Sheets(olename).name=newname MyOLE=Create OLEObjectConnectErr=MyOLE.ConnectToNewObject ("excel.Application")MyOLE.visible=false//打开指定的XLS文件激活workbooksMyOLE.application.workbooks.Open (FilePath)//对XLS文件进行了改动以后,在关闭该文件时是否需要向用户提出警告。MyOLE.Application.DisplayAlerts = False if isnull(MyOLE) then return -1 ;if ConnectErr <0 thenchoose case ConnectErrcase -1messagebox('错误提示','无效的调用')case -2messagebox('错误提示','类名没发现')case -3messagebox('错误提示','对象不能创建')case -4messagebox('错误提示','文件不能连接')case -5messagebox('错误提示','不能连接现在的对象')case -6messagebox('错误提示','文件无效')case -7messagebox("错误提示","文件不存在或已经打开")case -8messagebox("错误提示","服务器不能装载选择的文件")case -9messagebox("错误提示","其他错误")end choosereturn -1end if /////////////////////////////////////////////////////////////////////////////// oleobject xlApp //声明Excel应用程序对象 xlApp = Create OLEObjectOLEObject xlsub1,xlsub2,xlsub3,obook1,obook2,xlsub4,obook3ret = xlApp.ConnectToNewObject( "Excel.Sheet" ) //打开自动化对象 应为 "excel.application" if ret < 0 then MessageBox("Connect to Excel Failed !",string(ret)) return //操作第一个excel文件 string ls_file3="C:/mytest.xls"obook3=xlApp.Application.Workbooks.Open(ls_file3) //打开文件 xlsub4 = xlapp.Application.ActiveWorkbook.Worksheets[1] //激活第一页 //对单元格赋值 xlsub4.cells[c,3].Value = string(mydata.getitemdecimal(r,'rs'))xlsub4.cells[c,5].Value = string(mydata.getitemdecimal(r,'yp'))xlsub4.cells[c,6] = string(mydata.getitemdecimal(r,'jc'))xlsub4.cells[c,7] = string(mydata.getitemdecimal(r,'hy'))xlsub4.cells[c,8] = string(mydata.getitemdecimal(r,'zl')) //合并一个excel文件 string ls_ranls_ran = "B6:M"+string(ld_1+1)obook1 = xlApp.Application.Workbooks.Open(ls_file2)xlsub1 = xlapp.Application.ActiveWorkbook.Worksheets[1]xlsub1.Range(ls_ran).Copy() //把所选内容复制到内存中xlApp.Application.Visible = falsexlsub2 = obook3.Worksheets.add()xlsub2.name = "分类汇总" xlsub2.Range(ls_ran).PasteSpecial() //把上一个文件内容粘过来//加入分类汇总obook3.Worksheets("分类汇总").Activate() integer a[6] a={8,9,10,11,12,13} xlsub2.Range(ls_ran).Select() xlApp.Application.Selection.Subtotal(3,-4157,a, True, False, True)xlsub2.Rows(1).Insert()xlsub2.cells[1,1] = left(gs_shuqi,4)+"年"+right(gs_shuqi,2)+"月份"xlsub2.Cells[1,1].Font.Name="宋体"xlsub2.Cells[1,1].Font.Size=22xlsub2.Range("A1:M1").Select()xlApp.Application.Selection.Merge()xlApp.Application.Selection.HorizontalAlignment = 2oBook1.save()oBook3.Save()oBook3.Saveas(is_docname)oBook1.close()oBook3.close()xlApp.Application.quit()xlApp.DisConnectObject() 更多 上一篇:NetDiskdll.dll中MD5File函数使用时遇到的问题 下一篇:Access DB压缩函数gf_compactandrepairaccessdb 查看评论 * 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场 核心技术类目 全部主题 Java VPN Android iOS ERP IE10 Eclipse CRM JavaScript Ubuntu NFC WAP jQuery 数据库 BI HTML5 Spring Apache Hadoop .NET API HTML SDK IIS Fedora XML LBS Unity Splashtop UML components Windows Mobile Rails QEMU KDE Cassandra CloudStack FTC coremail OPhone CouchBase 云计算 iOS6 Rackspace Web App SpringSide Maemo Compuware 大数据 aptech Perl Tornado Ruby Hibernate ThinkPHP Spark HBase Pure Solr Angular Cloud Foundry Redis Scala Django Bootstrap 个人资料 chengg0769 访问:515776次 积分:8552分 排名:第420名 原创:267篇 转载:211篇 译文:0篇 评论:348条 文章搜索 文章分类 PB反编译与加密(12) IOS和安卓(9) PB与数据库(9) 网络相关(1) 搜索相关(0) 闲话扯起耍(1) 其他语言(4) 文章存档 2013年12月(2)2013年11月(2)2013年09月(1)2013年02月(1)2012年11月(1)2012年09月(1)2012年08月(6)2012年07月(1)2012年05月(3)2012年03月(4)2011年12月(2)2011年11月(2)2011年10月(9)2011年09月(6)2011年08月(11)2011年07月(2)2011年06月(4)2011年04月(3)2010年12月(1)2010年10月(2)2010年09月(8)2010年08月(1)2010年07月(8)2010年06月(17)2010年05月(2)2010年04月(2)2010年03月(4)2010年01月(1)2009年09月(8)2009年08月(5)2009年07月(8)2009年06月(8)2009年05月(16)2009年03月(2)2009年02月(7)2008年12月(2)2008年11月(4)2008年10月(5)2008年08月(1)2008年07月(2)2008年01月(12)2007年12月(29)2007年11月(7)2007年10月(4)2007年09月(20)2007年08月(55)2007年07月(176) 阅读排行 搜索引擎学习资源(作者:dongdonglang)(14656) 做代理网站最有效的4种宣传方法(admin9.com)(12007) 再谈powerbuilder程序防止破解的办法(终结篇,以后不再写这个问题)(8066) 程序员的SEO总结(7459) 浅谈Powerbuilder的未来和Powerbuilder使用者的未来(5999) 在一台联想3000G430 T1600笔记本上安装黑苹果(东皇v10.6.3)成功(5948) PowerBuilder DeCompiler(pb decompiler) Demo download(PB反编译,支持5-12)(5887) PB11.5,PB12 web项目初探(5635) 文件夹加密原理 [转](5627) powerbuilder反编译器开发-第一步:pbd结构分析和pbkiller分析(5473) 评论排行 浅谈Powerbuilder的未来和Powerbuilder使用者的未来(49) 程序员的SEO总结(32) 有关Powerbuilder的悲观论和乐观论(由郭贴引发的300多贴争辩想到的,也是很久就想秉明的一个观点)(22) Powerbuilder混淆,加密(powerbuilder防止反编译,pb混淆器,PB加壳,支持5-12) obfuscator for PowerBuilder(20) 戏说DataWindow的“移植”和“临摹”(19) 因为垄断形成,数据库市场将出现更多开源数据库(19) 免费软件模式之随想(18) 软件提交到国外的下载站的几点操作和想法(15) PB11.5,PB12 web项目初探(15) 关于对pbd反编译器的期待(11) 推荐文章 最新评论 安装两个BCB6控件SynEdit、mwEdit 0.92a的过程总结 jiduxiaozhang12345: 请问BCB6的第三方控件在哪下载啊?急求 Powershield一个疑似的BUG zhj149: 高手啊,看你的文章,感觉你玩pb已经到了极致的境界了,我自认为pb还不错,和你比起来,还是差了太多了 软件提交到国外的下载站的几点操作和想法 u012353953: 楼主在吗?有个问题请教,看到请加我QQ,谢谢。17493589 Lucene(Nutch)距离商业文本搜索引擎还有多远?(转载) koubi1986: 你好!请教一些问题:请问一下1。你是如何把nutch抓取到的二进制内容,在项目中读取的。2。nutc... 看一个商业共享软件是如何在下载站刷下载量来作弊的! u011506701: 您的判断是有误的,像我研究的刷量算法你就根本看不出来,出现的曲线图跟正常的一模一样的,附:刷量是最好... 垂直搜索引擎蜘蛛的基本解决方案(编程实例:所以推荐) gis101989: 你好,我正在写面向主题搜索引擎结合地理信息的论文,很多地方不懂,能加个扣扣吗?非常感谢你的帮助,我的... 浅谈Powerbuilder的未来和Powerbuilder使用者的未来 hosthelp: PB的最大缺点就是:(其实很简单)过时了。 服装过时就没人穿了, 电器过时就没人买了, 明星过时(过... 三岁小孩开发搜索引擎,搜索引擎白热化[原创] rongzi1987: 顶一个。先顶再看 再谈powerbuilder程序防止破解的办法(终结篇,以后不再写这个问题) hua2000: 顶顶更健康正在研究反向工程 有个傻B说破解了我的软件—哈哈!黄金屋手机MP3.MP4.3GP.电影.下载系统 ljx811216: 真有这事,看看 我的未来方向 pconline/asp.net周金桥老师的aspnet 友人Blog 旧博客在sina Bluesen的语音卡开发平台 JackXu的开源语音卡框架 经验丰富的好友:杨光的专栏 蓝星际语音平台,Koodoo语言 Lucene改造者-yuetiantian 西部.阿呆's blog manesking:全文检索c/c fullfocus研究lucene,nutch 黄国酬的博客 把“天轰穿”的asp.net 雨松.安卓