设计一个如图2-1所示的表单,具体描述如下:
(1)表单名和文件名均为timer,表单标题为“时钟”,表单运行时自动显示系统的当前时间。
(2)显示时间的为标签控件Label1(要求在表单中居中,标签文本对齐方式为居中)。
(3)单击“暂停”命令按钮(Command1)时,时钟停止。
(4)单击“继续”命令按钮(Command2)时,时钟继续显示系统的当前时间。
(5)单击“退出”命令按钮(Command3)时,关闭表单。
提示:使用计时器控件,将该控件的Interval属性设置为500,即每500毫秒触发一次计时器控件的Timer事件(显示一次系统时间);将该控件的Interval属性设置为0将停止触发Timer事件。在设计表单时将Timer控件的Interval属性设置为500。
参考答案:
(1)在命令窗口中输入命令:
Creat Form Timer
(2)在表单中添加一个标签控件Label1,三个命令按钮控件Command1、Command2、Command3,一个时钟控件timer。
(3)在表单属性窗口中将form1的Caption属性值修改为“时钟”,Name属性值修改为“timer”,Label1的Alignment属性值修改为2,选择[格式]→[对齐]→[水平居中],将Label1设置为水平居中。在表单属性窗口中将Command1、Command2、Command3的Caption属性值为“暂停”、“继续”、“退出”。
(4)双击“暂停”命令按钮,在Click事件中输入代码:
ThisForm.Timer1.Interval=0
双击“继续”命令按钮,在Click事件中输入代码:
ThisForm.Timer1.Interval=500
双击“退出”命令按钮,在Click事件中输入代码:
This1Form.Release
双击“计时器”命令按钮,在Click事件中输入代码:
ThisForm.Label1.Caption=time( )
解析:
本题主要考查的知识点是:SQL语句的使用、通过报表向导建立报表及菜单。