用Vb.net实现事务提醒.docVIP

用Vb.net实现事务提醒 　　摘 要：对于大多数单位而言，每天需要完成的工作很多，时常会因漏办事务而对工作造成影响。已有的一些如闹钟、备忘录等工具，很难满足实际工作的需要。设计一个功能较为完善的事务提醒程序很有必要。该文以一个功能较为全面的事务提醒程序编制为例，从程序功能设计、实现的过程、具体编程方法等方面，详细介绍了用Vb.net实现事务提醒的思路和编程方法，对于相似类型的事务提醒程序的编制有一定的参考价值。 　　关键词：Vb.net 实现 事务提醒 方法 　　中图分类号：TP311 文献标识码：A 文章编号：1674-098X（2015）08（c）-0059-03 　　目前，对于大多数单位而言，每天需要完成的工作很多，时常会因漏办事务而对工作造成影响。由于事务类型繁多，提醒周期也不尽相同，已有的一些如闹钟、备忘录等工具，很难满足实际工作的需要。因此，设计一个功能较为完善的事务提醒程序很有必要。 　　该文以一个功能较为全面的事务提醒程序编制为例，介绍用Vb.net实现事务提醒的思路和编程方法。 　　1 程序功能概述 　　程序能对节假日（包括法定和自定义节假日）、24节气、自定义事务等进行提醒。对于自定义任务，还能按周期，如“仅一次、每天、每周、每月、每年”等进行重复提醒，并可设置再次提醒时间。程序运行主界面如“图1”所示。 　　2 提醒功能的实现 　　2.1 “万年历”的制作 　　万年历是实现节假日（包括法定公农历节假日、自定义节假日等）提醒的基础。 　　本程序建立了一个“公――农历转换”的类，以公历日期为参数，通过该类可计算出相对应的农历日期、星期、节假日日期、天干地支、星座等。主要实现方法如下。 　　2.1.1 公历节假日的获取 　　（1）定义如下数组并进行初始化： 　　Dim sFtv（） As Object={1，1，“元旦”，3，8，“妇女节”，3，23，“世界气象日”} 　　其中：每个节日为3个元素，分别表示月、日和节日名。按此规律可加入自定义的节假日。 　　（2）下面的代码可取得数组中定义的节假日月、日及节假日名称。 　　Private SolarHolidayInfo（）As SolarHolidayStruct 　　Private Structure SolarHolidayStruct 　　Dim Month As Integer 　　Dim Day As Integer Dim HolidayName As String 　　End Structure 　　‘取得节假日月、日及名称 　　Dim b As Integer= UBound（sFtv） + 1 　　ReDim SolarHolidayInfo（b /3） ‘为数组重新分配存储空间 　　For i=0To（b/3）-1 　　SolarHolidayInfo（i）.Month = sFtv（i*3）‘月数 　　SolarHolidayInfo（i）.Day = sFtv（i * 3 + 1）‘日数 　　SolarHolidayInfo（i）.HolidayName = sFtv（i * 3 + 2）‘节假日名称 　　Next 　　（3）用公历的月、日数分别与SolarHolidayInfo（i）.Month、SolarHolidayInfo（i）.Day对比，如果相同，SolarHolidayInfo（i）.HolidayName即为相应日的公历的节假日名称。 　　2.1.2 农历节假日的获取 　　定义如下数组并进行初始化： 　　Dim lFtv（） AsObject ={1，1，“春节”，1，15，“元宵”，5，5，“端午”，8，8， “苗族风情节”} 　　先将公历日期通过“公――农历转换”类，得到相应的农历日期。同前述“公历节假日的获取”方法，便可得到相应日的农历的节假日名称。 　　2.2 “24节气”日期的计算 　　我国的万年历以紫金山天文台发布的为标准，通过公式法计算出的24节气日期与标准日期有时会相差一天。为了与标准万年历一致，本软件先将标准万年历中的24节气日期存入数据库（图2），采用查表法得到24节气的日期。 　　2.3 本程序中与日期、时间运算相关的主要方法 　　2.3.1 日期、时间大小的比较 　　将需要比较的两个日期、时间值转化为24小时制的String类型，再用比较运算符直接比较。此方法可以比较任意精度的日期、时间。例如：如下代码能将当前日期转化为24小时制的String类型： 　　DateTime.Now.ToString（“yyyy-MM-dd HH：mm：ss”） 　　2.3.2 日期、时间加减 　　使用下面Date对象的方法