数据库应用课程设计-元旦倒计时.docVIP

《数据库应用》 课程设计 题 目： 2012年元旦倒计时 二零一一年十一月 摘要：本文介绍了利用Visual FoxPro 6设计倒计时器，给出了程序关键词：倒计时器；Visual FoxPro；程序设计计时器控件和设置计数变量设计倒计时器程序中用一个计数变量t来实现计时，在表单的Init事件中给t赋初值（本例中倒计时时间设为。程序中用到一个计时器控件，设置计时器控件的Interval属性为1000（即1秒），则它每秒钟被触发一次。在计时器的Timer事件代码中加入t＝t－1，则每隔1秒钟t递减1。程序中还用到个变量th、tm、ts，分别用来表示时间的时、分、秒，用于将时间t用时分秒的格式显示。在表单的Init事件代码中包含thisform.timer1.enabled .f.”，再在“开始”按钮的Click事件代码中加入代码：thisform.timer1.enabled .t.”。这样当单击“开始”按钮时才开始计时。程序清单表单Form1的Init事件代码：thisform.timer1.enabled .f. public t dNewyear datetime year date + 1, 1, 1 dNow datetime t dNewyear – dNow标签Label1的属性Caption：标签Label的属性Caption：标签Label的属性Caption：标签Label的属性Caption：计时器Timer1的属性Interval：1000计时器Timer1的timer事件代码：if t 0 else td int t/86400 th int t-td*86400 /3600 tm int t-td*86400-th*3600 /60 ts t - td*86400 - th*3600 - tm*60 thisform.label2.caption str td,2 + 天 + str th,2 + 时 + str tm,2 + 分 + str ts,2 + 秒 endif t t -1 命令按钮Command1的属性Caption：命令按钮Command1的Click事件代码：thisform.timer1.enabled .t. 命令按钮Command2的属性Caption：退出命令按钮Command2的Click事件代码：release thisform 日历控件显示当前系统的年月日及星期 在表单上添加 日历控件日历控件不是Visual FoxPro 的基本控件, 它属于 ActiveX 控件 。其建立过程如下 : 从表单控件工具栏 中选定 ActiveX 控件按钮, 在表单中单击鼠标, 屏幕上弹 出一个插入对象对话框, 其中包括“新建”、“由文件创建”、“创建控件”三个选项按钮，“创建控件”按钮用于向表单中添加一个ActiveX控件。 选定“创建控件”选项按钮, 插入对象对话框 中将显示“添加控件”按钮，单击该按钮，弹出“浏览”对话框，指 定 Visual FoxPro 安装目录下的文件FPOLE.OCX，然后选择打开对象类型列表中出现大量控件选项，选定“日历控件12.0”后按确定按钮，日历控件出现在表单上。 为日历控件编写代码。要想表单运行后，日历控件显示的时间随着当前系统日期而变化，还要为Olecontrol1控件的Init事件添加如下代码： this.year year date this.month month date this.day day date 利用定时器Timer2控件显示系统日期时间 要显示系统的当前日期、时间利用定时器控件比较容易实现，在表单上添加文本框及定时器控件，文本框用于显示当前系统日期时间，每隔1秒。 定时器 的Interval属性：1000 Time2事件代码：thisform.text1.value datetime 表单运行结果　　本表单包含两个命令按钮，运行结果如所示：：出版社 郝峰、何曙光Visual FoxPro 6.0/7.0命令与函数大全 北京：电子工业出版社 胡明.Visual FoxPro 中日历、时钟的动态显示. 农业网络信息2007年第8期 百度文章网，/