利用ACCESS实现出差补助自动计算.docVIP

　　利用ACCESS实现出差补助自动计算 　［摘要］ 本文利用ACCESS小型数据库设计差旅费报销计算软件，目的是在细化出差补助管理的情况下，减轻会计人员核算工作的劳动强度。 　　［关键词］ ACCESS；出差补助；自动计算 　　　　 　　为保证出差人员工作与生活需要，规范差旅费的管理，学校根据财政部《中央国家机关和事业单位差旅费管理办法》，并结合实际情况，制定了学校内部差旅费管理办法。办法中详细规定根据不同出差事项及出差时间长短计算出差补助。由于情况复杂，增加了会计人员的计算工作量。针对此情况，本文利用ＡＣＣＥＳＳ小型数据库设计了差旅费报销计算软件，旨在方便会计人员工作，减轻会计人员核算工作的劳动强度。 　　一、设计思路 　　首先确定差旅费报销单中的明细项目内容和数据类型等基本信息。如：单位、姓名、事由、出差地点、出差起止日期、出差总计天数、伙食补助天数、伙食补助标准、伙食补助金额、卧铺补助天数、卧铺补助标准、卧铺补助金额、交通费补助天数、交通费补助标准、交通费补助金额等。 　　其次确定补助计算类型。根据内部差旅费管理办法，划分差旅费补助计算类型，如正常分段计算、不分段计算、有交通工具市外实习、无交通工具市外实习、有交通工具市内实习、无交通工具市内实习、无伙食补助正常分段、无伙食补助不分段等情况。 　　确定补助计算公式。根据补助计算类型确定出差补助计算公式，如正常分段计算情况下的出差伙食补助计算为：出差时间小于等于３０天的，伙食补助＝出差天数５０，交通费补助＝３０３０；出差时间大于３０天小于等于６０天的，伙食补助＝３０５０＋（出差天数－３０）２５，交通费补助＝３０３０＋（出差天数－３０）１５；出差时间大于６０天的，伙食补助＝３０５０＋３０２５＋（出差天数－６０）１５，交通费补助＝３０３０＋３０１５+（出差天数－６０）８。不分段计算情况下的出差伙食补助计算为：伙食补助＝出差天数５０，交通费补助＝出差天数３０。 　　二、设计表单 　　在出差补助计算项目中共设计了3个表单：差旅费出差报销单、出差类型、单位。差旅费出差报销单是主表单，根据确定好的差旅费报销单明细项目设置。出差类型表单只有两个字段：ＩＤ（序号字段）和ＦＤＪＳ（划分的补助计算类型字段）。出差类型表单与差旅费出差报销单表单中ＳＦＦＤ字段相关联。单位表单由ＩＤ（序号字段）和ＤＷ（学校各部门名称）组成。单位表单与差旅费出差报销单表单中ＤＷ字段相关联。 　　三、设计窗体 　　使用向导创建窗体，调整窗体布局如图1所示。 　　窗体调整好后，对单位、补助类型两个字段与相关表单进行关联。编写需要计算的字段的代码。几个关键代码举例如下： 　　编写计算天数代码： 　　Ｐｒｉｖａｔｅ Ｓｕｂ ｃｃｄａｔｅｔ１＿Ｅｎｔｅｒ（） 　　Ｉｆ ｃｃｄａｔｅｚ２．Ｖａｌｕｅ ＜＞ ＂＂ Ｔｈｅｎ 　　ｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １ ＋ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ２， ｃｃｄａｔｅｚ２） ＋ １ 　　Ｅｌｓｅ 　　ｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １ 　　Ｅｎｄ Ｉｆ 　　Ｅｎｄ Ｓｕｂ 　　编写伙食补助金额代码：Ｐｒｉｖａｔｅ Ｓｕｂ ｈｓｂｚｊｅ＿Ｅｎｔｅｒ（） 　　Ｉｆ ｈｓｂｚｂ．Ｖａｌｕｅ ＜＞ ＂０＂ Ｔｈｅｎ 　　ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ ｈｓｂｚｂ．Ｖａｌｕｅ 　　Ｅｌｓｅ 　　Ｉｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂无伙食补助正常分段＂ Ｔｈｅｎ 　　ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂ 　　Ｅｌｓｅ 　　Ｉｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂无伙食补助科研不分段＂ Ｔｈｅｎ 　　ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂ 　　Ｅｌｓｅ 　　Ｉｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ６０ Ｔｈｅｎ 　　ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ ５０ ＋ ３０ ２５ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ６０） １５ 　　Ｅｌｓｅ 　　Ｉｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ３０ Ｔｈｅｎ 　　ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ ５０ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ３０） ２５ 　　Ｅｌｓｅ 　　ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ ５０ 　　Ｅｎｄ Ｉｆ 　　Ｅｎｄ Ｉｆ 　　Ｅｎｄ Ｉｆ 　　Ｅｎｄ Ｉｆ 　　Ｅｎｄ Ｉｆ 中国论文联盟.L. 　　Ｅｎｄ Ｓｕｂ 　　设计完成的页面如图2所示。