- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
看实例学
登录窗口
本例制作一个简单的登录表单,系统运行时首先启动此登录表单,运行界面如下图:
输入正确的用户名及密码才会启动主表单,如下图;若连续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) 输入用户名后按回车即进入输密码
thisform.Text2.enabled=.t.
thisform.Text2.setfocus
endif(四)“确定”按钮command1的click事件代码:
cname=alltrim(thisform.text1.value)
ppassword=alltrim(thisform.text2.value)
cn=cn+1
if cn=3
thisform.release
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事件代码:thisform.release
九、运行“系统登录.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
case thisform.t
您可能关注的文档
最近下载
- 数学中考总复习.doc VIP
- 限制型心肌病超声诊断与评估.pptx
- _【课件】第四章 三角形 +问题解决策略:特殊化课件北师大版七年级数学下册.pptx VIP
- 中考数学总复习第一轮考点复习(重庆专版).pptx VIP
- 2025在线网课《信息检索与科技写作( 理大)》单元测试考核答案.pdf VIP
- 高频精选:京东快递员ai面试题及答案.doc VIP
- 新北师大版初中七年级数学下册《第四章三角形问题解决策略:特殊化(1)》教学课件.pptx VIP
- 河北 2023年农信社储蓄知识考试真题模拟汇编(共213题).doc VIP
- 河北 2023年农信社基础知识考试真题模拟汇编(共672题).doc VIP
- 四川省宜宾市2023-2024学年高一下学期期末学业质量监测语文试卷(原卷版+解析版).docx VIP
文档评论(0)