VF学生成绩查询系统设计论文 第7页
依次把数据库环境中基本情况表的学号和密码字段拖到空表单的合适位置。在表单上出现学号标签、密码标签以及name属性为txt学号、txt密码的文本框。调整这4个控件在表单上的位置。右击控件，选择【属性】选项，在【属性】面板中分别设置文本框的Name属性为no、password1。【密码】文本框的passwordchar属性为【*】。
单击表单控件中的标签控件，在表单中添加两个标签控件。设置该标签控件的caption属性分别为【大学生成绩查询系统】和【登录表单】，fontsize属性值分别设为14和18。
添加两个按钮，按钮caption属性分别为：【确定】和【退出】。
在【属性】面板中，设置该表单的caption属性为：【登录表单】，Name属性为：login。
布局完成完登录表单的控件后，开始设计表单的方法和事件代码。
4.2.1 load 事件
Load事件在加载登录表单时运行。右击表单窗口，在弹出的快捷菜单中选择【代码】命令，弹出如图2.18所示的对话框。
原文请找腾讯752018766优:文~论^文.网
http://www.youerw.com 图2.18
Login的load事件代码如下所示：
SET TALK OFF
SET SAFETY OFF
CLOSE ALL
OPEN DATABASE .\成绩查询.dbc EXCLUSIVE
SELECT A
USE .\基本情况.dbf
4.2.2 unload事件
与建立load代码的方法类似，unload事件代码如下所示。
caozuoyuan=' '
RETURN caozuoyuan
CLOSE all
4.2.3 确定和退出代码
【确定】按钮的click事件的代码如下所示：
PRIVATE xh,mm,ST
ST='密码不正确，请重新输入！'
xh=alltrim(THISFORM .no.Value)
mm=alltrim(THISFORM.password1.value)
LOCATE FOR xh==alltrim(基本情况.学号) .AND. alltrim(基本情况.密码)==mm
IF FOUND()
caozuoyuan=alltrim(基本情况.学号)
DO zhumenu.mpr
CLOSE ALL
THISFORM.RELEASE
ELSE
WAIT WINDOW ST TIMEOUT 2
THISFORM.password1.value=' '
THISFORM.password1.SetFocus
ENDIF
【退出】按钮的click事件的代码如下所示。
tuichu=MESSAGEBOX('你确定要退出大学生成绩查询系统吗？',4+32+0,'大学生成绩查询系统')
If tuichu=6
caozuoyuan=' '
Thisform.Release
Endif
Clear events
4.2.4 关闭与运行
关闭表单设计器，在弹出的保存对话框中保存表单。文件命名为【登录表单】。
在【项目管理器】对话框中，选择【文档】选项卡下的【表单】中的【登录表单】，单击【运行】按钮。运行后的登录表单，如图2.19所示。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VF学生成绩查询系统设计论文 第7页下载如图片无法显示或论文不完整，请联系qq752018766
