登录窗口
本例制作一个简单的登录表单，系统运行时首先启动此登录表单，运行界面如下图：
输入正确的用户名及密码才会启动主表单，如下图；若连续3次输入错误的用户名及密码则会自动退出。
制作步骤如下：
一、新建表单，将表单的caption属性值设置为“系统登录”，ShowWindow属性值设置为“2-作为顶层表单”，width属性值设置为295，height属性值设置为100，AutoCenter属性值设置为，并将表单保存为“系统登录.scx”。
二、继续设置该表单的属性：将表单的MaxButton及MinButton属性值均设置为.f.，这样就屏蔽掉了表单的最大化和最小化按钮，成为只有一个关闭按钮的对话框。
三、向表单添加两个label控件，将它们的caption属性值分别设置为“用户名”和“密 码”。
四、向表单添加两个文本框控件，并将其中的Text2的PasswordChar属性值设置为“*”。
五、向表单添加两个命令按钮command1和command2，将它们的caption属性值分别设置为“确定”和“退出”。
六、适当调整各控件在表单上的位置及大小，调整后的表单设计器如下图：
七、右击表单空白处，选“数据环境”命令，将“管理”表添加到表单的数据环境中。
八、添加事件代码：
（一）表单的init事件代码：
public cn &&声明全局变量,用于计算登录次数
cn=0
(二) 表单的unload事件:
close all
clear events
quit
（三）接收用户名的文本框Text1的KeyPress事件代码：
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=13.and.!empty(this.value) &&输入用户名后按回车即进入输密码
abled=.t.
thisform.Text2.setfocus
endif（四）“确定”按钮command1的click事件代码：
cname=1.value)
ppassword=2.value)
cn=cn+1
if cn=3
lease
endif
set exact on
go top
locate for 操作员姓名=cname.and.密码=ppassword
if eof()
messagebox('用户名或密码错误，请重新输入！','系统提示')
return
else
thisform.visible=.f.
do form 主表单 &&调入主界面表单
endif
set exact off &&设置字符非精确比较（五）“退出”按钮command2的click事件代码：lease
九、运行“系统登录.scx”即可,在看实例学VFP：示例数据库一文中已经给出了“管理.dbf”的结构,其中预置的两个操作员的用户名及密码分别是：
看实例学VFP：用编辑框控件做个“摸奖机”
编辑框控件与文本框控件的功能是相似的，实际上你可以把它看作是可以展示多行数据、数据多时可以有滚动条的文本框，它的属性和事件也大多与文本框相似。在vfp基础教程-编辑框控件(editbox)一文中已经给出了一个例子，今天我们用编辑框再来做一个趣味小实例：摸奖机。程序运行界面如下：
这个例子并没有什么复杂的东西，主要是在命令按钮的click事件中对文本框输入的值进行判断，根据所输入的选择值将其对应的奖品显示到编辑框中。
制作步骤如下：
一、新建表单，将其caption属性值设置为“编程入门网-制作一个摸奖机”，AutoCenter属性值设置为.t.，width和height属性值分别设置为280和150，并将其保存为“摸奖机.scx”。
二、添加控件并设置属性：
1.向表单上添加一个label控件label1，并将其caption属性值设置为“请输入您的选择(1-4)”。
2.向表单上添加一个文本框控件Text1，将其InputMask属性值设置为9，value属性值设置为0。
3.向表单上添加一个命令按钮Command1，并将其caption属性值设置为“您获得的奖品是”。
4.向表单上添加一个编辑框控件Edit1。
三、按上图所示的程序运行界面，适当调整各控件的大小及在表单上的位置。
四、添加事件代码：
命令按钮command1的click事件代码：
do case
1.value=1
thisform.edit1.value="您的奖品是手机一部."
textbox控件边框设置 1.value=2
thisform.edit1.value="您的奖品是10000元."
1.value=3
thisform.edit1.value="您的奖品是学习机一部."
1.value=4
thisform.edit1.value="您的奖品是彩电一台."
otherwise
thisform.edit1.value="谢谢您的参与."
endcase五、运行“摸奖机.scx”。
本文来自编程入门网：www.bianceng/Programming/vfp/200903/11294.htm
看实例学VFP：用列表框控件做个“开始菜单”
What is “开始菜单”？这应该是一句废话。因为只要是使用Windows系统的，都知道单击了任务栏左侧的“开始”按钮就会出现这个菜单，并且可能每天都会使用这个菜单。
那么用vfp编写的软件能否不使用菜单，而是把软件菜单的功能项都放到这样一种类似于Windows系统的“开始菜单”里呢？可以的，只要你喜欢。
今天我们用列表框控件做个简单的“开始菜单”，运行时单击了表单的“开始”按钮后如下图：
此时就可以执行这个“开始菜单”中的各个功能项了，比如单击了“显示背景”后表单变成下面
的这个样子：
另外在上个例子看实例学VFP：Timer控件实例-动画中标签是上下运动的，本例中的动画是左右运动的。在vfp基础教程-列表框控件(listbox)一文中已经给出了列表框控件的常用属性和方法，本例不再重复这些内容了，只给出例子的制作过程和代码。
制作步骤：
一、新建表单,将其width和height属性值分别设置为290和250，保存为“表单1.scx”。
二、向表单添加控件并设置属性：
1、在表单左下角添加一个命令按钮，将其caption属性值设置为“开始”。
2、在命令按钮的上方添加一个列表框控件List1，用鼠标拖动将它的宽度调成和命令按钮一样宽，height属性值设置为85。
3、添加一个标签控件label1，并将其caption属性值设为“编程入门网”，forecolor属性值设为“255,0,0”，AutoSize属性值设为.t.，FontSize属性值设为12，FontBold属性值设为.t.。
4、添加一个timer控件，interval属性值采用默认的0。
以上步骤完成后的表单设计器如下图：
三、添加事件代码：
1、表单的Activate事件代码：
this.list1.additem("显示动画")
this.list1.additem("关闭动画")
this.list1.additem("显示背景")
this.list1.additem("去掉背景")
this.list1.additem("退出系统")
2、表单的MouseMove事件代码：
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.list1.visible=.f.
3.表单的init事件代码：
cc=sys(16)
start=at(":",cc)-1
cend=rat("\",cc,1)
set default to (substr(cc,start,cend-start+1))
thisform.list1.visible=.f.
thisform.label1.visible=.f.
4、命令按钮“开始”的click事件代码：thisform.list1.visible=.t.
5、列表框控件List1的click事件代码：
do case this.listindex
case this.selected(5) &&退出系统
lease
case this.selected(4) &&去掉背景
thisform.picture=""
this.visible=.f.
case this.selected(3) &&显示背景
thisform.picture="风景.jpg"
this.visible=.f.
case this.selected(2) &&关闭动画
thisform.timer1.interval=0
thisform.label1.visible=.f.
this.visible=.f.
case this.selected(1) &&显示动画
thisform.timer1.interval=40
thisform.label1.backstyle=0
thisform.label1.visible=.t.
this.visible=.f.
endcase6、计时器控件timer1的timer事件代码：
if thisform.label1.left+thisform.label1.width>0
thisform.label1.left=thisform.label1.left-3
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论