审计文档生成系统

随着各项审计准则的出台，审计工作越来越走向规范化，审计质量也得到了很大提高。但是，在执行各项准则过程中，也给审计人员增加了不少的工作量。如在审计实施结束后，审计人员要根据审计取证记录编制审计工作底稿，根据《审计机关审计工作底稿准则》规定"做到一事一稿"'一个审计项目的审计结果就可能形成N个审计工作底稿，再由N个审计工作底稿形成一个审计报告，这就会出现同一个内容，需要反复抄写几遍。因此，审计结束后，审计人员需要花费大量时间整理编制审计文档。为了减轻审计人员的负担，我用VB编写了一个审计文档生成系统小软件，基本做到了只需一次录入，即可自动生成审计取证记录、审计工作底稿和审计报告，既减少了工作量，又提高了工作效率。下面我将该软件的基本情况作个介绍。
　　一、软件的基本功能
　　(一)主界面介绍
　　如图一。主界面的中间是两个文本框，即"主要事项记录"和"审计结论"。"主要事项记录"对应着审计取证记录中的"主要事项的记录"一栏和审计工作底稿中"审计过程记录"一栏；"审计结论"对应着审计工作底稿中"审计结论或者审计查出问题摘要及其依据"。在自动服务区内有四个命令按钮，即"生成取证记录"、"生成工作底稿"、"生成审计报告"和"编辑审计报告"。在屏幕操作区内有三个命令按钮，即"保存当前连续记录"、"查阅历史记录"、"清空显示记录"。另外，在主界面的左上方还有两个菜单，即程序菜单和计算器菜单。
　　(二)基本功能介绍　
　　"生成取证记录"命令主要完成两项任务，一是将"主要事项记录"文本框中的内容放到一个临时文件里，二是调用"审计取证记录"模板，并将临时文件里的内容写入"审计取证记录"中。其程序代码如下：
　　Private Sub Command5_Click()　
　　n＝HScro111．Value
　　Close(1)
　　Opens_path +\"\\333．tXt\"For Output As#1
　　Print#1，Text1(n)．Text
　　Close(1)
　　OLE1．CreateLinks_path +\"\\取证记录．doc\"
　　OLE1．DoVerb-1
　　End Sub
　　"生成工作底稿"命令也完成两项任务，一是将"主要事项记录"和"审计结论"两个文本框中的内容放到临时文件中，二是调用"审计工作底稿"模板，并将临时文件中的内容分别写到相应的位置。其程序代码如下
　　Private Sub Command1_Click()
　　n＝HScroll1．Value
　　Close(1)　
　　Opens_path +\"\\111．txt\"For Output As#1
　　Print#1，Text1(n)．Text
　　Close(1)
　　Opens path+\"\\222．txt\"For Output As#1
　　Print#1，Text3(n)．Text
　　Close(1)
　　OLE1．CreateLinks path +\"\\工作底稿.doc\"
　　OLE1．DoVerb-1
　　End Sub
　　 "生成审计报告"命令主要是将输入的所有记录，生成一个word　文件。其程序代码如下：
　　Private Sub Command6_Click()
　　Dim f1 Sa string，f2 As String
　　Close(1)
　　cdg．Filter＝\"*．Pwd|*．pwd\"
　　Cdg．ShowOpen
　　f1＝Cdg．FileName
　　Cdg1．Filter＝\"*．dOC|*．doc\"
　　Cdg1．ShowSave　
　　f2＝Cdgl．FileName
　　Load Text1(100)
　　Text1(100)．Text＝\"\"
　　getfi1es_path+\"\\filehead．txt\"
　　getfile f1
　　getfiles_path+\"\\filetail．txt\"
　　Open f2 For Output As#1
　　Print #1，Text1(100)．Text
　　Unload Text1(100)　　　
　　Close(1)
　　MsgBox\"文件\"+f2+\"生成成功!\"
　　End Sub
　　Sub getfile(ff As String)
　　Close(1)
　　Open ff For Input As#1　
　　1p：
　　If EOF(1)Then
　　Close(1)　
　　Exit SUb
　　End lf
　　Line lnput#1，a
　　lf Trim(a)=\"[\"Or Trim(a)＝\"＠\"Then Go To 1p
　　Text1(100)．Text＝Text1(100)．Text+a+vbCrLf
　　GoT01p
　　End Sub
　　"编辑审计报告"命令是调用"生成审计报告"命令中生成的word文件，并对其修改、排版。
　　该软件关键点在于VB启动OFFICE2000模板文件后如何将VB生成的中间文件自动插入OFFICE2000模板文件中表格的相应位置，为此我在OFFICE2000模板文件中编制了VBA的宏程序来完成此项功能，并在OFFlCE2000模板文件的工具栏上加上了醒目的宏操作按钮，以方便工作人员操作.
　　"保存当前连续记录"命令是将一次输入的所有记录以一定的格式保存起来。在审计实践中，一个审计项目的取证记录一般是多次、不同时间输入的，这不要紧，不管什么时间、不管分多少次输入，你只需将上次输入的记录调出来，接着输入新记录，输完后，用该命令保存在一个文件里即可。例如，第一次输入5个记录，存在Audit文件里，下一次输入时；你只需将第一次输入的5个记录调出来(用"查看历史记录"命令实现)，从第6个记录往下录入，录完后，再保存到Audit文件中即可。
　　"查阅历史记录"命令是调用以前保存过的记录。它的使用已在上面的例子中提到过。
　　"清空显示记录"命令可以将文本框中的内容清空。
　　"程序"菜单中有两个子菜单，即Word子菜单和Excel子菜单，单击"Word"或"Excel"可以直接调用这两个应用程序。这么设置目的在于为今后数据共享提供便利。
　　'"计算器"菜单可以调用计算器。审计人员在编制审计记录时，遇到计算问题时，可以随时调用。
　　三；软件的特点
　　(一)适应性强，根据需要可以挂接不同的模板。《审计文档生成系统》不但可以挂接"审计取证记录"、"审计工作底稿"等模板，还可以挂接"汇总工作底稿"等模板，适应不同的文档编辑需要。
　　(二)数据共享。《审计文档生成系统》中的文本框支持复制、粘贴技术，不同程序中的数据，如Wbrd、Excel、Notepad、Access等应用程序中的数据，均可以通过剪贴板复制到文本框中，审计人员在其它程序中制作或得到的审计记录、审计证据都可以通过这种方式进行共享，节省审计人员大量的录入审计记录时间。另一方面，审计组成员间可以通过软盘交换信息。审计结束后，审计人员将在本系统中生成的记录保存到软盘上交给审计组长，审计组长在本系统中，通过"查阅历史记录．"命令调用这些记录，再把它们存到自己保存记录的文件中，便可轻松完成这个项目的文档编制工作。