拒绝录入错误日期的编程方法

2016-02-19 14:22 13 1 收藏

下面是个拒绝录入错误日期的编程方法教程,撑握了其技术要点,学起来就简单多了。赶紧跟着图老师小编一起来看看吧!

【 tulaoshi.com - 编程语言 】

为了防止日期出错可以使用各种技术,防止日期超前不太容易,但对天天都使用的软件可以在软件启动后检测日期,使之必须连续无间隔即可。
  
  
  防止日期退后很有必要,有一种通用的方法:软件每次运行都将当前日期和时间存盘,软件在启动时则对比当前日期时间和保存的日期时间,发现有退后现象就提示错误信息,不予运行。
  
  
  此方法也可以作为试用版软件防用户更改日期的方法。
  
  
  用VisualBASIC编写的示例程序如下:
  
  
  建一个空窗体,在代码窗口中输入以下代码即可运行,当程序发现日期出现返回错误时会给出提示。把本程序生成可执行文件放在启动组中就可以在每次开机时检测日期/时间的错误,放在个人程序的启动部分就可以在个人程序中检测日期/时间错误。
  
  
  OptionExplicit
  
  PrivateSubForm_Load()
  
  
  DimSaveNow,ReadNow,DateErrAsBoolean,Msg
  
  
  OnErrorGoToItErr
  
  
  '读取储存的日期/时间。
  
  
  Open"C:WINDOWSDATAOK.DAT"ForInputAs#1
  
  
  Input#1,ReadNow:SaveNow=CDate(ReadNow)
  
  
  Close#1
  
  
  '储存时间比当前时间大时错误发生。
  
  
  IfSaveNow〉NowThenDateErr=TrueElseDateErr=False
  
  
  IfNotDateErrThen
  
  
  '未发现错误,重新写入当前时期/时间。
  
  
  Open"C:WINDOWSDATAOK.DAT"ForOutputAs#1
  
  
  Print#1,Now
  
  
  Close#1
  
  
  MsgBox"日期正常,欢迎使用本软件。"
  
  
  ExitSub
  
  
  Else
  
  
  '提示出错信息。
  
  
  Msg="上次储存日期/时间:"&&SaveNow&&vbCrLf
  
  
  Msg=Msg&&"当前日期/时间:"&&Now&&vbCrLf&&vbCrLf
  
  
  Msg=Msg&&"请务必改正当前时间,以防出错!"
  
  
  MsgBoxMsg,,"日期/时间检测出错!"
  
  
  End
  
  
  EndIf
  
  
  ItErr:
  
  
  '首次运行程序,直接写入当前日期/时间
  
  
  Open"C:WINDOWSDATAOK.DAT"ForOutputAs#1
  
  
  Print#1,Now
  
  
  Close#1:End
  
  
  EndSub
  
  
  
  
  程序在VB6.0专业版下调试通过。->

来源:http://www.tulaoshi.com/n/20160219/1606852.html

延伸阅读
解决win7系统唤醒休眠状态出现“拒绝访问”错误的方法   windows休眠状态是指将所有运行的实时数据存储到硬盘上,并且关闭一切不必要的硬件从而节省电量,无论你所使用的windows是哪个版本,系统都能够让用户自动进入休眠状态,当然在你没有关闭休眠功能的前提下,不过在近期有部分win7用户反映,将系统从休眠状态唤醒时,出现拒绝访...
卡地亚手表怎么调日期  这个卡地亚手表的日期的调法和时间的调法是不一样的,这些东西都是属于卡地亚手表的技巧,如果我们连调一个时间都不会,那么就算你拥有了卡地亚手表,那也是非常尴尬的一种存在,今天图老师就来给大家解决这个问题,教大家怎么去调卡地亚手表的日期,下面我们就一起来看看吧。 把表冠拔出,让腕表所有指针停走,进...
(1)“我的程序都是对的,可结果不对” 想想你的四周,是不是也有人说这样的话?假如你也曾经说过,那就此打住,不要再说这句话,因为这句话只会显示说话者的无知。既然程序都是对的,那为什么结果不对? (2)“程序=算法+数据结构” 假如刚刚学完C语言,我们说这样的话,完全可以理解,而且可以说是正确的。但是假如你是一位即将...
标签: ASP
  <% rem 文章题目 asp中利用数组实现数据库记录的批量录入方法(原创) 作者:yanek 联系email:aspboy@263.net % 包括两个文件 1。allneeddj.asp:实现表单的生成 2. allneeddjresult.asp 处理表单批量录入 3.hbedu.mdb :数据库文件 其数据库结构如下 provinceid:省份编号 数值型 dytaocount:打样套数 数值型 papertaocount:纸样套数 ...
1.引言 !-- frame contents -- !-- /frame contents -- 还记得当年学数学、英语都有个窍门,那就是搞个错题集。经常复习一下这个错题集,就可以避免下次犯同样的错误。而几乎所有的程序员都是从犯错误开始的,我们也很有必要总结一下编程新手的常见错误,本文的目的在于此。文中所列出的都是笔者在项目开发中接...

经验教程

209

收藏

50
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部