ExecuteUpdate(sqlstr);
　　                                      end;
　　                              end;
　　                          kh1:=kh2;
　　                          ye1:=ye2;
　　                          sktime1:=sktime2;
　　                          skje1:=skje2;
　　                      end;
　　              end;
　　      end;   
　　end.
　　
　　第四步，结果比对生成疑点。分析检查普通型电子车票实际缴费与应有充值记录数据的一致性，并重点将审查月份应有充值记录但无实际缴费的电子车票情况生成表：疑点表_普通型电子车票应有充值但实际无充值记录情况。
　　//定义变量
　　Var SqlStr;
　　Begin
　　//Sql语句赋值给变量
　　SqlStr:='select 左表.电子车票卡编号,(左表.后一次刷卡后余额+左表.后一次刷卡消费金额-左表.前一次刷卡后余额) as 本月应充值金额 from 结果表_普通卡应有充值情况 左表 left join 有缴费记录的电子车票数据表 右表 on 左表.电子车票卡编号=右表.电子车票卡编号 and 左表.电子车票卡类型=右表.电子车票卡类型 where 右表.电子车票卡编号 is null';
　　//生成"疑点表_普通型电子车票应有充值但实际无充值记录情况"临时表
　　  CreateTempTable('疑点表_普通型电子车票应有充值但实际无充值记录情况',SqlStr);