[原创]会计信息系统（新来乍到，拜上旧作，源码公开，请多指教）

王大可

<P> D1zuWI5M.rar (147.07 KB, 下载次数: 419)

2005-4-12 01:43 上传

点击文件名下载附件
[原创]

</P>
<P>本系统是基本参照《Microsoft Excle与会计信息系统》一书做的（电子工业出版社，高职高专成人高等教育教材），但代码都是自己一行行敲进去的，为适应自己的实际使用，也做了一些修改和补充，增加了证帐的打印模块，简化了审核记帐主管签字等内控模块。




<P>
<P>   当时做这个东西可谓是凭着一腔盲目的热血，想搞明白编程与财务软件原理，更想用自己写出的程序用于实际工作。在VBA知识＝0的情况下，就依靠一本书与EXCEL里VBA的帮助文档，居然最终被自己写了出来并应用了一年多，自己都觉的有点不可思议。假使再来一次，我肯定放弃了。当时也就凭着一口气，觉得写了一半多了不愿放弃。搞的经常写到半夜三更，有时候为解决一个问题要苦思冥想好几天。


<P>
<P>
<P>   其实一开始是把书抄一遍，因为书没附光盘。所以代码敲的估计也有上万行了，有时自己敲错，有时书上的代码有误，反复调试，搞的真有吐血的感觉。后来看到书中有个界面的表格，上面有作者的联系地址与电话，试着一打，居然打通了，听上去浓厚的方言，我以为是个老头呢。当时教授答应给我电邮一份，可不知是由于口音的关系没说清楚呢还是什么缘故，没有收到电邮。没办法，只好继续一行一行敲了。把书上的代码抄了一遍，运行成功后，再根据自己的需要重新设计流程，改写代码和添加模块。同时也参考了另一本《Excle 的财务应用》（中国铁道出版社）来修改，前后断断续续搞了有半年多。可惜只用了半年，单位里就要统一财务软件了。也就丧失了继续钻研的动力。


<P>
<P>
<P>   后来在书店里又看到《Microsoft Excle与会计信息系统》一书的新版，里面附了光盘，不过这时我已用不着了。再后来在《财会月刊》上看到该教授的文章，个人照片附在上面，看上去也就四五十岁的样子，不禁哑然失笑。


<P>
<P>
<P>   现在当时掌握的一点VBA可能也忘的差不多了，也曾买过一本专门介绍EXCEL 中的VBA的书，可也没怎么看。对编程的兴趣早已丧失了一大半，只是平时偶尔编点小程序用于工作。来到中文EXCEL论坛，回想当初可谓是一个人在黑暗中痛苦而艰难地摸索（其时我所在的地方无法上网），想找个人问问那是不可能的事。在这里能见到这么多志同道合的朋友，有这么多深不可测的如云高手，看了不少让人醍醐灌顶恍然大悟的帖子，我感到在走过了一大段弯路，经过很长时间停滞后，又鼓起了超越（EXCLE）的勇气。我现在想学习如何应用EXCEL结合VBA从SQL数据库中取数后自动生成所需报表，还望高手多多指教。


<P>
<P>   密码：780103</P>
<P>   进入各子界面后可按 ctrl+q 返回“菜单”工作表。
   

</P>

[此贴子已经被作者于2005-4-13 11:46:04编辑过]

张振林

<P>密码</P>

tof

<P>界面觉的呆板了些．</P>
<P>不过这个帐对小企业估计有用．</P>

<P>你提的需求，这里应该有你搜索一下．这里有从用友和金蝶数据库取数的事例.</P>
<P>对ＳＱＬ不熟悉，不过用ＥＸＣＥＬ你可以考虑用外部数据连接，通过ＡＤＯ或ＯＤＢＣ实现对ＳＱＬ的连接，文本＼ＡＣＣＥＳＳ＼ＦＯＸ等已经有现成的了．</P>

[此贴子已经被作者于2005-4-13 10:06:49编辑过]

王大可

<B>以下是引用<I>tof</I>在2005-4-13 10:00:00的发言：</B>
<P>界面觉的呆板了些．</P>
<P>不过这个帐对小企业估计有用．</P>
<P>你提的需求，这里应该有你搜索一下．这里有从用友和金蝶数据库取数的事例.</P>
<P>对ＳＱＬ不熟悉，不过用ＥＸＣＥＬ你可以考虑用外部数据连接，通过ＡＤＯ或ＯＤＢＣ实现对ＳＱＬ的连接，文本＼ＡＣＣＥＳＳ＼ＦＯＸ等已经有现成的了．</P>

<P>    多谢TOF版主指教，非常中肯。拖到今天再回复，是为了重新仔细复习一遍旧作再作回答。</P>
<P>     其实这个软件的原型在这个论坛上也有，它起初本来就是用于教研的，并非从实际使用的角度考虑编制的。因此它的结构非常严谨，设计了很多代码用于防错与校验财务数据（还有审核、主管等内控，都被我删了），从中可以了解财务软件的编程思路与各模块的设计。但它的缺点就是很多地方没有考虑到实际应用，象原型中的凭证只有六行空白分录，根本没有考虑到分录超过六行怎么办？还有凭证的修改，证帐的打印，这些我都作了修改。但这些还好办，原型是一月一个工作簿，按月结转，只有本期数，根本无法应用于实际报表取数的需要。我在里面的工作底稿与科目设置表中增加了年初余额、上期借方累计发生额、上期贷方累计发生额列，并对程序进行了增补，在原有期初借方余额、期初贷方余额、本期借方发生额、本期贷方发生额、期末借方余额、期末贷方余额六个自定义函数的基础上添加了年初余额方向、期初余额方向、累计借方发生额、累计贷方发生额、期末余额方向五个函数，基本满足了报表取数的要求（月、年报）。在原来的期末（即月末）结转的基础上又添加了年末结转的宏，以满足年末结转要清空累计数的需要。但原型一月一个工作簿，按月结转的先天性结构缺陷导致如要改动为年（甚至历年）放在一个工作簿里要重写大部分代码（哪怕就是在某表中添加一列也会导致相关该列代码的全部失效，由此可见EXCEL用于较大型开发的缺陷），我后来也就没有继续下去。</P>
<P>    不过该原型的优点也就是它是一个比较大型（相对与一些个人开发的小型财务软件）正规的会计信息系统，帐表的通用性、灵活性非常强，可建立任意级科目，因为采用了自定义函数，可增设、变动任意报表。（由于这个原因，加上大量防错与校验财务数据的代码，程序在查询报表的时候需要等待一点时间『视机器配置而定』，这也是EXCEL中VBA执行效率的又一个缺陷了）。特别值得一提的是，我在原有科目函数的基础上又自定义了两个科目函数，编写了余额报表的宏，用于实现余额报表的自动形成。可实现查询任意科目级数的余额报表（在“菜单”工作簿选中B12单元格,点选A12单元格上的按钮，在“报表列表”窗体中选中“余额报表”，点击“查询报表”宏按钮，在出现的“余额报表”工作表中选中B2单元格,点选A2单元格上的按钮,在“科目列表”窗体中选中需要的科目，点击“余额报表”宏按钮稍等片刻即可得到该科目的余额表)。这一点也是现在的财务软件都没有做到的（据我所知），我用的软件还得手工输入余额表公式，虽然现在的财务软件还有辅助核算等子系统更为复杂，但我觉得定义一个这样的表以实现报表的全自动化应该还是可以实现的。唉，现在的财务软件，开发商不懂会计，象现金流量表主表程序中缺陷不少，附表根本没法用，其实这些都是完全可以解决的问题。</P>
<P>   其实写这篇东西的目的，一个就是回顾与纪念。虽然我的VBA不怎么高明，但通过编写这个系统，对我使用财务软件有极大的帮助。我能够比一般人更深入的理解财务软件的工作原理、数据流程，并帮助系统内其他单位解决了不少问题。还有一个目的就是为了交流，还是请版内众高人赐教，在下获益匪浅。</P>
<P>     另：取数我用EXCEL的导入外部数据已能实现，但问题是我用的软件中其他帐表都能以EXCEL格式直接导出，唯有现金流量子系统中形成的现金流量表只能导出总表，每一项的明细清单是无法导出的。只能在选中某项现金流量项目后，在下方的明细窗口里用抓图的方式抓到WORD里，可就是这样窗口大小又没法调整，每次只能抓六条分录。查询该软件的技术帮助手册，说是现金流量子系统中形成的现金流量表是临时生成的，不保存在任何表中。在将数据库中相关现金流量的表导入EXCEL后发现，全是按1234的顺序排列的，无法区分时间，虽然有项目类别的编号，但凭证摘要确不在表内（会不会是放在凭证库里，需要查询的时候再去调用？），望能明示。</P>

[此贴子已经被作者于2005-4-15 1:03:47编辑过]

城市自由人

怎么解压缩不了？提示说要什么分解压缩卷？？？不明白，谁能解释一下啊？[em06][em06][em06]

bluesky100

应该是要分卷解压缩吧？我用WINRAR怎么一下就解压缩了？解出来的四个文件，似乎都一样啊？

王大可

<B>以下是引用<I>城市自由人</I>在2005-4-15 10:40:00的发言：</B>
怎么解压缩不了？提示说要什么分解压缩卷？？？不明白，谁能解释一下啊？[em06][em06][em06]

    由于受上传大小限制，所以是用分卷压缩的。解压后按顺序把压缩包名字改为1、2、3、4，再打开名字为1的压缩包即可。

shuiyuan

谢谢共享。我这儿打开后存盘时Excel自动重新启动，文件自动恢复

wzw117

兴趣是学习的最大动力。