国家公职人员不及时办理退休手续以多获工资情况的计算机审计方法

序号

数据资料名称

结构化

非结构化

半结构化

1

月球县2013年5月31日在编人员信息表

√

步骤

内容

1

查询未及时办理退休手续的男性并生成疑点。

2

查询未及时办理退休手续的女性并生成疑点。

步骤

内容

1

var sql,a,bz;

begin

  sql:='select * from 月球县2013年5月31日在编人员信息表 where ((len(身份证号)=18 and left(right(身份证号,2),1) in(1,3,5,7,9)) or (len(身份证号)=15 and right(身份证号,1) in(1,3,5,7,9))) and datediff(year,出生年月,''2013-4-1'')>60';

  CreateTempTable('未及时办理退休手续男性公职人员表',sql);

  a:=CreateQ('select * from 未及时办理退休手续男性公职人员表',-1);

  while qeof(a)<>1 do

      begin

          AddTransRslt(a,'未及时办理退休手续男性公职人员');

          bz:=qmov(a,1);

      end;

  TransBatch(a,'所有的未及时办理退休手续男性公职人员');

end.

2

var sql,a,bz;

begin

  sql:='select * from 月球县2013年5月31日在编人员信息表 where ((len(身份证号)=18 and left(right(身份证号,2),1) in(0,2,4,6,8)) or (len(身份证号)=15 and right(身份证号,1) in(0,2,4,6,8))) and datediff(year,出生年月,''2013-4-1'')>55';

  CreateTempTable('未及时办理退休手续女性公职人员表',sql);

  a:=CreateQ('select * from 未及时办理退休手续女性公职人员表',-1);

  while qeof(a)<>1 do

      begin

          AddTransRslt(a,'未及时办理退休手续女性公职人员');

          bz:=qmov(a,1);

      end;

  TransBatch(a,'所有的未及时办理退休手续女性公职人员');

end.