论文部分内容阅读
[摘要] 营造轻松快乐的购物氛围，是商家在激烈竞争中取胜必须考虑的一个重要环节。开辟单纯的体力游戏已不能适应陪父母购物的大龄儿童的需要。利用Visual FoxPro 6.0开发简易绘图程序，不仅丰富了卖场的娱乐活动，而且有助于开发儿童智力，发挥才智，还能培养他们正确地运用计算机，掌握计算机的基本操作知识。寓学于乐，使家长安心购物，从而会促进卖场的销售量，提高经济效益。
[关键词] Visual FoxPro 6.0卖场娱乐表单控件属性事件代码
肯德基在世界上那么受欢迎，除了精心选址、定位准确以外，很大程度上与服务质量、服务方式有关。其食物口味独特鲜香，深受小朋友的喜爱自不必说，营造西式快餐轻快的就餐氛围，开辟为儿童庆祝生日的区域，布置儿童喜好的多彩装饰，节假日还备有玩具作为礼品，这也是吸引小朋友的重要一面。我们的一些卖场，也已经做到了这一点，如设置“海洋球”、“蹦蹦床”等娱乐空间。但是，开放的对象多是针对学龄前儿童的，对于大一点的小学生来说，因为一个人在家家长会不放心，往往是经常被迫地“陪”父母上街购物。这样一来需要为他们开辟一个空间，父母购物的同时，他们在娱乐与学习。
小学生不单纯地停留在“玩”上了，他们喜欢智慧游戏，在娱乐中学习。不妨用Visual FoxPro6.0设计个简易绘图的程序，供小学生朋友展开绘画的想象力，充分发挥绘画才艺，寓学于乐，还可以把自己的“作品”打印出来带回家，相信以后他们会很高兴地陪父母购物的。这样一来，会提高顾客流量，卖场的效益也会有所提高。
虽说Windows系统中自带“画图”功能，但随着电脑的普及，已为人熟知，对小顾客已没有了新鲜感和吸引力。而基于VFP进行简易绘图，形式新颖操作灵活，对孩子将来的计算机教育又打下了一定的基础。况且这种娱乐方式商家实现起来容易，占地小成本又低，只要有一台普通配置的电脑，一名有计算机基本操作技能的工作人员就可以了。下面就设计、实现过程及其功能做一介绍。
一、硬、软件要求
硬件基本配置：主频233MHZ的奔腾Ⅱ以上的微型机；64MB以上的主存；100MB以上的硬盘；800*600或更高分辨率的显示器；一台彩喷打印机。
软件环境：Windows98/2000/XP环境均可。
二、安装VFP环境
将VFP光盘插入CD-ROM中；在“资源管理器”目录中，选择光驱，运行“Setup.exe ”文件；按照安装向导，选择安装形式并完成安装。
三、 功能介绍及代码实现
1.功能
有小朋友画图时，滚动字幕隐藏，按“微调控件”的上、下箭头选择线的粗细，按“颜色”按钮选择画线的颜色，不满意时按“擦除”按钮清除所画内容重新来。如图1 所示。
图1 图 2
当无人画图时，单击“字幕滚动（按空格停止）”按钮可以控制出现滚动字幕“来！大显身手！”，按空格键就停止且隐藏。如图2所示。
2.设计过程
启动VFP。选择“开始”菜单下的“程序”选项，再选择“Microsoft Visual FoxPro 6.0”选项。
启动“表单设计器”。单击常用工具栏中的“新建”按钮。或者在“文件”下拉菜单中单击“新建”选项；打开“新建”对话框以后，先选定“表单”文件类型，然后单击“新建文件”按鈕。或者，在命令窗口中输入Creat Form form1。表单设计器启动后，它的“属性”对话框、“表单设计器”工具栏与“表单控件”工具栏都显示在屏幕上。
在表单（Form1）中，添加一个标签（Label1）、一个微调控件（Spinner1）、四个命令按钮（Command1～Command4）。在“属性”对话框中将表单、标签、命令按钮的标题（Caption）属性分别设置为“简易绘图”、“线宽”、“颜色”、“擦除”、“退出”、“字幕滚动（按空格停止）”等。微调控件（Spinner1）的SpinnerLowValue属性值设置为1，控制线最小宽度；SpinnerHighValue属性值设置为7，控制线的最大宽度；Value属性值设置为1，控制线宽的默认值。
在表单（Form1）中，添加第二个标签(Label2)，其自动大小（AotoSize）属性设置为.T.；是否可见（Visible）属性设置为.F.；字体属性（FontName）设置为“隶书”，字体大小(FontSize)属性设置为“20”；字体颜色（ForeColor）属性设置为“255，0，128”（桃红色）。
3.代码实现
双击“表单”，打开代码编辑器，选择“对象”为“Form1”，选择“过程”为“MouseDown”。即编写Form1_MouseDown（）事件代码：
LPARAMETERS nButton, nShift, nXCoord, nYCoord&&确定画线起点
This.CurrentX=nXcoord
This.CurrentY=nYcoord
编写Form1_MouseMove（）事件代码：
LPARAMETERS nButton, nShift, nXCoord, nYCoord&&画线
Ifnbutton=1
This.Line (nXcoord,nYcoord)
Endif
编写Command2_Click()事件代码：
Thisform .Cls &&擦除
编写Command3_Click()事件代码：
Thisform.Release&&退出
编写Spinner1_ InteractiveChange()事件代码：
Thisform.Drawwidth=This.Value&&控制画线的宽度
编写Command1_Click()事件代码：
Thisform.Forecolor=RGB(Rand()*255,Rand()*255,Rand()*255)
&&控制画笔的颜色，每次单击“颜色”按钮，就会得到不同的颜色，随机的。
编写Command4_Click()事件代码：
Thisform.Label2.Visible=.T.&&滚动字幕显示
Thisform.Label2.Caption=“来！大显身手！”
b=Thisform.Label2.Caption
Key=0
Do While Key!=32&&按空格键停止
b1=Substr(b,1,2)
b=Alltrim(Substr(b,3))+b1 &&使字符串首尾相接，循环不断
Thisform.Label2.Caption=b
Key=Inkey(0.7,'H') &&延时0.7秒
Thisform.Refresh
Enddo
Thisform.Label2.Visible=.F. &&字幕隐藏
四、 运行
画完图后，想看一下效果，就运行此表单。共有四种方法：
> 单击常用工具栏的“运行”按钮；
> 按组合键Ctrl+E；
> 在命令窗口中输入命令：Do Form Form1.scx
> 打开“程序”菜单，选择“运行”选项。在弹出的“运行”对话框中选择表单名，单击“运行“按钮。
五、 打印
表单运行后，按组合键Alt+PrintScreen进行屏幕拷贝，以图片的形式将其粘贴到Microsoft Word文档中，进行打印即可。
带着自己的作品回家，小顾客们一定会兴高采烈，父母也会觉得轻松愉快。在商家众多、竞争日趋激烈的今天，希望各卖场调动员工的积极性，利用计算机编程语言开发出更多更简便易行的小程序，丰富卖场的娱乐活动，创造良好的服务质量与服务方式，一定会给卖场带来勃勃的生机和可观的效益。
[关键词] Visual FoxPro 6.0卖场娱乐表单控件属性事件代码
肯德基在世界上那么受欢迎，除了精心选址、定位准确以外，很大程度上与服务质量、服务方式有关。其食物口味独特鲜香，深受小朋友的喜爱自不必说，营造西式快餐轻快的就餐氛围，开辟为儿童庆祝生日的区域，布置儿童喜好的多彩装饰，节假日还备有玩具作为礼品，这也是吸引小朋友的重要一面。我们的一些卖场，也已经做到了这一点，如设置“海洋球”、“蹦蹦床”等娱乐空间。但是，开放的对象多是针对学龄前儿童的，对于大一点的小学生来说，因为一个人在家家长会不放心，往往是经常被迫地“陪”父母上街购物。这样一来需要为他们开辟一个空间，父母购物的同时，他们在娱乐与学习。
小学生不单纯地停留在“玩”上了，他们喜欢智慧游戏，在娱乐中学习。不妨用Visual FoxPro6.0设计个简易绘图的程序，供小学生朋友展开绘画的想象力，充分发挥绘画才艺，寓学于乐，还可以把自己的“作品”打印出来带回家，相信以后他们会很高兴地陪父母购物的。这样一来，会提高顾客流量，卖场的效益也会有所提高。
虽说Windows系统中自带“画图”功能，但随着电脑的普及，已为人熟知，对小顾客已没有了新鲜感和吸引力。而基于VFP进行简易绘图，形式新颖操作灵活，对孩子将来的计算机教育又打下了一定的基础。况且这种娱乐方式商家实现起来容易，占地小成本又低，只要有一台普通配置的电脑，一名有计算机基本操作技能的工作人员就可以了。下面就设计、实现过程及其功能做一介绍。
一、硬、软件要求
硬件基本配置：主频233MHZ的奔腾Ⅱ以上的微型机；64MB以上的主存；100MB以上的硬盘；800*600或更高分辨率的显示器；一台彩喷打印机。
软件环境：Windows98/2000/XP环境均可。
二、安装VFP环境
将VFP光盘插入CD-ROM中；在“资源管理器”目录中，选择光驱，运行“Setup.exe ”文件；按照安装向导，选择安装形式并完成安装。
三、 功能介绍及代码实现
1.功能
有小朋友画图时，滚动字幕隐藏，按“微调控件”的上、下箭头选择线的粗细，按“颜色”按钮选择画线的颜色，不满意时按“擦除”按钮清除所画内容重新来。如图1 所示。
图1 图 2
当无人画图时，单击“字幕滚动（按空格停止）”按钮可以控制出现滚动字幕“来！大显身手！”，按空格键就停止且隐藏。如图2所示。
2.设计过程
启动VFP。选择“开始”菜单下的“程序”选项，再选择“Microsoft Visual FoxPro 6.0”选项。
启动“表单设计器”。单击常用工具栏中的“新建”按钮。或者在“文件”下拉菜单中单击“新建”选项；打开“新建”对话框以后，先选定“表单”文件类型，然后单击“新建文件”按鈕。或者，在命令窗口中输入Creat Form form1。表单设计器启动后，它的“属性”对话框、“表单设计器”工具栏与“表单控件”工具栏都显示在屏幕上。
在表单（Form1）中，添加一个标签（Label1）、一个微调控件（Spinner1）、四个命令按钮（Command1～Command4）。在“属性”对话框中将表单、标签、命令按钮的标题（Caption）属性分别设置为“简易绘图”、“线宽”、“颜色”、“擦除”、“退出”、“字幕滚动（按空格停止）”等。微调控件（Spinner1）的SpinnerLowValue属性值设置为1，控制线最小宽度；SpinnerHighValue属性值设置为7，控制线的最大宽度；Value属性值设置为1，控制线宽的默认值。
在表单（Form1）中，添加第二个标签(Label2)，其自动大小（AotoSize）属性设置为.T.；是否可见（Visible）属性设置为.F.；字体属性（FontName）设置为“隶书”，字体大小(FontSize)属性设置为“20”；字体颜色（ForeColor）属性设置为“255，0，128”（桃红色）。
3.代码实现
双击“表单”，打开代码编辑器，选择“对象”为“Form1”，选择“过程”为“MouseDown”。即编写Form1_MouseDown（）事件代码：
LPARAMETERS nButton, nShift, nXCoord, nYCoord&&确定画线起点
This.CurrentX=nXcoord
This.CurrentY=nYcoord
编写Form1_MouseMove（）事件代码：
LPARAMETERS nButton, nShift, nXCoord, nYCoord&&画线
Ifnbutton=1
This.Line (nXcoord,nYcoord)
Endif
编写Command2_Click()事件代码：
Thisform .Cls &&擦除
编写Command3_Click()事件代码：
Thisform.Release&&退出
编写Spinner1_ InteractiveChange()事件代码：
Thisform.Drawwidth=This.Value&&控制画线的宽度
编写Command1_Click()事件代码：
Thisform.Forecolor=RGB(Rand()*255,Rand()*255,Rand()*255)
&&控制画笔的颜色，每次单击“颜色”按钮，就会得到不同的颜色，随机的。
编写Command4_Click()事件代码：
Thisform.Label2.Visible=.T.&&滚动字幕显示
Thisform.Label2.Caption=“来！大显身手！”
b=Thisform.Label2.Caption
Key=0
Do While Key!=32&&按空格键停止
b1=Substr(b,1,2)
b=Alltrim(Substr(b,3))+b1 &&使字符串首尾相接，循环不断
Thisform.Label2.Caption=b
Key=Inkey(0.7,'H') &&延时0.7秒
Thisform.Refresh
Enddo
Thisform.Label2.Visible=.F. &&字幕隐藏
四、 运行
画完图后，想看一下效果，就运行此表单。共有四种方法：
> 单击常用工具栏的“运行”按钮；
> 按组合键Ctrl+E；
> 在命令窗口中输入命令：Do Form Form1.scx
> 打开“程序”菜单，选择“运行”选项。在弹出的“运行”对话框中选择表单名，单击“运行“按钮。
五、 打印
表单运行后，按组合键Alt+PrintScreen进行屏幕拷贝，以图片的形式将其粘贴到Microsoft Word文档中，进行打印即可。
带着自己的作品回家，小顾客们一定会兴高采烈，父母也会觉得轻松愉快。在商家众多、竞争日趋激烈的今天，希望各卖场调动员工的积极性，利用计算机编程语言开发出更多更简便易行的小程序，丰富卖场的娱乐活动，创造良好的服务质量与服务方式，一定会给卖场带来勃勃的生机和可观的效益。