| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265915
建立时间:2005年6月6日 |
| |
|
 [delpih编程]让ejungrid导出excel时也保存公式
软件技术
吕向阳 发表于 2010/8/13 13:55:21 |
ejungrid处理导入excel基本无损失，但在保存时，只能保存数值，不
能保存公式。但这丝毫不影响作为一个插件的优秀之处，因为它的界面
与excel配合的太出色了。
经过一番研究，发现xlsreadwriteII这个插件可以弥补这个小缺撼。思
路是在ejungrid调出表格后，要保存时，不调用savetoexcel事件，此
时调用xlsreadwriteII插件，读取源文件，比较两个控件每个单元格的
字符串是否相同，相同不处理，不相同将改动保存到xlsreadwrite的单
元格上，最后xlsreadwriteII的单元格就是我们想要保存的结果了，再
调用xlsreadwriteii的write功能就完工了。说了这么多，其实代码比
较短。
procedure TForm1.btn5Click(Sender: TObject);
var i, j: integer;
aformula: string;
begin
xls_1.Filename := 'd:\a000.xls |
|
|
[delpih编程]给亿君表格 ejungrid增加处理excel的sunif函数功能
软件技术
吕向阳 发表于 2010/8/13 11:37:31 |
ejungrid亿君表格很强大，还体现自定义函数功能的扩充非常方便。在使用中我发现没有内置 sumif的excel函数，但我又着急用不能等升级，自己动手很方便，下面是sumif的代码
unit test_ejungrid;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ZcCalcExpress, ZJGrid, ZcDataGrid, ZcUniClass,
ZcSheetControl, ZcFormulas, StdCtrls, ExtCtrls, ZcGridStyle,
ZcGridClasses;
type
TstrArray = array of string;
TDataArray = array of Extended; |
|
|
[delpih编程]二招搞定office2007的重装
软件技术
吕向阳 发表于 2010/8/11 20:11:27 |
office2007出问题了，想删了重装。可是没那么简单
首先，它的卸载程序总说有问题，无法进行。那么你就没有选择，手动
删除该文件夹。这样做的后果，做的时候没有预料到，重新安装的新的
OFFICE总是这样那样的毛病，这个窗口那个窗口弹不停，让你不能用。
怎么办，原因无非是注册表与服务中的相应程序没有卸载干净，对症下
药为：
1、google里查找一下RipOutOffice2007.exe，这是专门用于删除
office2007的，下载一个运行一次。
2、360安全卫士中的软件管家，选【软件卸载】，找到文字处理中的
office2007,上面的普通卸载后一定要选最下面一项，强力删除，将剩
余文件与注册表残留全部删除
这样保证OFFICE2007在系统里无残留了再安装，熟悉的界面就又回来了
|
|
|
[delpih编程]ejungrid把excel插进你的软件
软件技术
吕向阳 发表于 2010/8/11 16:13:38 |
花了巨多银子将ejungrid(亿君表格,国产表格插件）放进电脑了，不简
单啦。
尽管用过了免费版，拿到正式版还是小激动了一番。放了一个
tejundatagrid到我的表单中，加了一个button,button的事件里
就加了两句话，
mbfile := extractfilepath(application.ExeName) +
'hbreport.xls';
ejungrid1.LoadFromExcel(mbfile,0);
excel飞快地进入了我的表单，见图。
格式与excel中打开的文档的格式几乎完全一样，相当地惊艳。公式解
析得也很完美。sum,if ,count等常用公式及单元格的加减都没问题，并
表，跟excel一样，如有sum(a1:a3)这样的公式，a1变化了，公式的值
也变化，让人误以为这就是excel环境。
我也要的就是这种效果，因为工作中excel表格是我最常用到的，现在
我可以对excel表格随心而动了。
|
|
|
[delpih编程]d6下tmsxlsd6.dpk插件时出现错误提示的解决
软件技术
吕向阳 发表于 2010/8/10 9:25:27 |
还在用delphi6,但今天装tms的tmsxlsd6.dpk插件时出现错误提示，中心
意思是VarDateFromStr没有定义，无法完成编译。
网上搜了一圈，发现是delphi的rtl3没装。
====下为查得的提示：
IDE updates
Always make sure to have the latest update packs installed for
the IDE that is used. For Delphi 6, make sure that the RTL3
update is also installed. If this is not the case, this can
for some components result in the error : "Unit XXXXX was
compiled with a different version of VarUtils.VarDateFromStr".
|
|
|
[delpih编程]delphi利用ado将excel数据导入access
软件技术
吕向阳 发表于 2010/7/19 14:06:39 |
==
两点注意：
1、路径不要用引号直接放入查询表达式中，而使用范例中的变量导入
的方法，否则会出现‘不能更新 数据库或对象为只读’的错误。
2、insert into 表名(字段名列表）
select (字段名列表） from ..中字段名列表应相同
var
xlspath, sSql: string;
begin
qryadd.Close;
qryadd.SQL.Clear;
qryadd.SQL.Add('delete from gdzc');
qryadd.ExecSQL;
xlspath := 'd:\gdzc.xls';
qryadd.Close;
qryadd.SQL.Clear;
sSql :=
'INSERT INTO gdzc(dm,mc,yza,zja)' +
' SELECT ' +
' 代码 as dm,名称 as mc,原值 as yza,累计折旧 as zja' +
' FROM [ |
|
|