计算机审计(带原来的答案)

实习题一、数据采集1．文本文件数据采集（1）已知“\02练习数据\007各种类型的数据”文件夹内有两种类型的贷款利率表文本文件（带分隔符的“贷款利率分隔.txt”和固定宽度的“贷款利率定长.txt”），请选用一定的方法将它们转换到SQL Server数据库中。

（2）在审计的过程中采集到一个文本文件“\数据\各种类型的数据\AAAA.TXT”，请选择一种合适的方法将它导入到SQL Server数据库中。

（3）在对SAP审计的过程中采集到一个文本文件“\02练习数据\007各种类型的数据\MARA V.TXT”，请选择一种合适的方法将它导入到SQL Server数据库中。

2．电子表格数据采集（1）已知“\02练习数据\007各种类型的数据”文件夹内有一个“贷款利率.xls”，请选用一定的方法将它们转换到SQL Server数据库中。

（2）在审计的过程中采集到一个电子表格文件“\02练习数据\007各种类型的数据\某行信贷报表.XLS”，其中第2列与第3列代表发放日和到期日(这两列应转换为日期型)。

为了处理方便，请选择一种合适的方法将它分别导入到SQL Server数据库中，并完成相应的数据转·1·换。

（3）在对SAP审计的过程中采集到一个电子表格文件“\02练习数据\007各种类型的数据\LFM1.xls”，请选择一种合适的方法将它导入到SQL Server数据库中。

二、审计软件部分：利用《审计数据采集分析3.0》或其他工具及软件完成下列审计要求。

1．帐户信息查询（数据筛选）我们在对某国有银行进行审计时发现，银行内部开设的小金库帐户多半有帐号而无户名，或者在户名中出现“银行”、“储蓄所”、“分理处”等字样。

请在“002某工行账户”目录下的“某市工行帐户.mdb”的“帐户”表中（1）将具有下列特征的数据挑选出来：·开户单位名称为空的记录·开户单位名称中包含“工行”或“银行”字样select*into问题帐户from某市工行帐户where开户单位名称like'%工行%'or开户单位名称like'%银行%'or开户单位名称is null （2）将查询结果生成新表“问题账户”（3）根据“问题账户”，按开户单位名称汇总资金金额（保留两位小数），按汇总值降序排列。

select开户单位名称,·2·cast(SUM(资金余额)as decimal(18,2))汇总值from问题帐户group by开户单位名称order by cast(SUM(资金余额)as decimal(18,2))desc （这里也可以写order by 2）2．固定资产折旧审计（构造计算字段）在对某企业的固定资产计提折旧情况审计中，审计人员发现该企业的固定资产台帐中使用日期在前，入帐日期在后。

这样，按照固定资产的入帐日期计提折旧就会发生少提折旧的情况。

请利用这个线索，在“004某烟厂数据”目录下的“固定资产.mdb”中的“折旧表”中估算出该企业少提折旧的总额。

分步实：select*into使用日期早于入账日期from固定资产折旧表where使用日期<入帐日期select sum(DATEDIFF(MONTH,使用日期,入帐日期)*月折旧额)少提折旧金额from使用日期早于入账日期一步实现：select sum(DATEDIFF(MONTH,使用日期,入帐日期)*月折旧额)少提折旧金额into少提折旧总额from固定资产折旧表where使用日期<入帐日期3．某烟厂销售收入真实性审计（多维分析思路介绍）在对某烟厂销售收入真实性的审计过程中，一审计人员进行了下列数据处理、分析、推断与核实：·3·（1）选择“004某烟厂数据”目录下的“销售库.mdb”中的“商品进销存结转表”，构造计算字段“月份”【通过mid函数（Access 中）和substring函数（sql server中）】，设定检索条件“类别＝2”（类别“2”表示产品销售，类别“4”表示上年结转，等等）进行检索，生成新表“商品进销存结转表_生成表”，其中包括的字段有：“入帐日期，单位代码，商品代码，数量”和新生成的字段“月份”。

select入帐日期,单位代码,商品代码,数量,SUBSTRING(入帐日期,3,2)月份into商品进销存结转表_生成表from商品进销存结转表where类别='2'（2）对第一步生成的新表“商品进销存结转表_生成表”，以“月份”为分组字段，“数量”为统计字段进行分组统计，并按照汇总数量的“降序”对结果排序。

通过分析审计人员发现企业1～10月份销售数量都保持在3至4万箱左右，11月份达6万箱，而到了12月份销售数量异常增长为7万多箱，引起审计人员注意，决定将12月份的销售作为审计的重点内容。

select月份,SUM(数量)汇总数量from商品进销存结转表_生成表group by月份order by 2 desc（3）对表“商品进销存结转表_生成表”以“月份”、“商品代码”和“单位代码”为分组条件对“数量”进行汇总，并对汇总的数量进·4·行“降序”排列。

审计人员发现数量最大的是6600箱，单位代码为“011220”，商品代码为“03”。

因此审计人员决定将此作为分析对象。

select月份,商品代码,单位代码,SUM(数量)汇总数量from商品进销存结转表_生成表group by月份,商品代码,单位代码order by汇总数量desc（4）对表“商品进销存结转表_生成表”以“入帐日期”、“商品代码”和“单位代码”为分组条件对“数量”进行汇总。

对汇总数量进行“降序”排列。

select入帐日期,商品代码,单位代码,SUM(数量)汇总数量from商品进销存结转表_生成表group by入帐日期,商品代码,单位代码order by汇总数量desc运行后，发现仅1998年12月29日一天被审计单位就对代码为“011220”的购货单位销售了数量为4700箱的产品。

通过检查该笔业务的原始附件，发现一是该笔业务没有相应的购货合同，二是提货单显示该笔销售的4700箱产品竟在一天内全部由购货方用卡车提货运走，审计人员认为这不符合常规，因为按照该产品的体积和重量，一辆卡车一次才能装几十箱产品，也就是这4700箱产品要一天提完货的话需要几百辆卡车，显然是不太可能的。

至此被审·5·计单位不得不承认，为了完成利税指标，制造已经销售的假象，而将该批4700箱产品在企业外另租仓库保管，形成账外资产。

通过实地查看仓库，共统计出被审计单位账外资产6400多万元。

4．车辆购置附加费审计（根据业务需求实现简单的数据分析）在车辆购置附加费审计过程中，审计人员采集到下列3张表：model_cz.dbf ：车主信息Model_da.dbf ：车辆档案信息Model_gc.dbf ：征费信息4-1 在对某省车购费征收情况的审计过程中，审计人员发现不输入发票价和最低征收额而直接输入实际征收额的情况。

在数据中表现为发票价和最低征收额同时为空值。

经过数据清理，现已经将原来数据中的空值全部替换成了0。

请按年度统计出96年以来（从1996年1月1日算起）这种情况下的各年实际征收额的汇总值，填入下表（保留2位小数）。

在数据中应该剔除一次换本时征收的2元费用（设定“实际征收金额<>2”）Select year(征费日期),cast(SUM(实际征收额)asdecimal(10,2))实际征收额的汇总值from MODEL_DA d join MODEL_GC g on d.关键字=g.关键字·6·where征费日期>='1996-1-1'and(发票价=0 and最低征收额=0)and实际征收额<>2group by year(征费日期)--征费日期>='1996-1-1' 可以表示为：year(征费日期)>=19964-2 根据相关政策规定，车辆购置附加费的征收应满足下列条件：车辆购置附加费＝Max{发票价*0.1，最低征收金额}减征额＝应该征收金额－实际征收金额请将征费日期在96-10-28至2000-3-31之间的减征额按年度统计出来。

(去除发票价和最低征收额同时为0的情况，以及在数据中应该剔除的一次换本时征收的2元费用（设定“实际征收金额<>2”）。

)Select year(征费日期) 年份,sum(发票价*0.1-实际征收额) 少征额Into 少征额from MODEL_DA d join MODEL_GC g on d.关键字=g.关键字join dbo.MODEL_CZ c on c.关键字=d.关键字where 发票价*0.1>最低征收额and 发票价*0.1>实际征收额and (征费日期between '1996-10-28' and '2000-3-31')and(not (发票价=0 and 最低征收额=0))and (实际征收额<>2)group by year(征费日期)union allSelect year(征费日期) 年份,sum(最低征收额-实际征收额) 少征额from MODEL_DA d join MODEL_GC g on d.关键字=g.关键字join dbo.MODEL_CZ c on c.关键字=d.关键字where 发票价*0.1<=最低征收额and 最低征收额>实际征收额and (征费日期between '1996-10-28' and '2000-3-31')and(not (发票价=0 and 最低征收额=0))and (实际征收额<>2)group by year(征费日期)select 年份,sum(少征额) 总计少征额from少征额group by 年份order by 年份或者：select year(征费日期)年份,减征额=SUM(case·7·when 发票价*0.1>最低征收额then (发票价*0.1-实际征收额)when 发票价*0.1<=最低征收额then (最低征收额-实际征收额) end)into 少征额from MODEL_DA d join MODEL_GC g on d.关键字=g.关键字join dbo.MODEL_CZ c on c.关键字=d.关键字where((发票价*0.1>最低征收额and 实际征收额<发票价*0.1) or(发票价*0.1<=最低征收额and 实际征收额<最低征收额))and (征费日期between '1996-10-28' and '2000-3-31')and not (发票价=0 and 最低征收额=0)and 实际征收额<>2group by year(征费日期)select * from dbo.少征额order by 年份5．企业生产成本审计（根据业务需求实现简单的数据分析）对生产成本的审计是企业审计的难点之一，但是根据卷烟企业的生产特点，选择具有固定单耗定额，并且与企业生产流程相关性不强的辅料如烟箱、条盒、烟盒等作为分析的对象往往可以发现一些线索。