发布时间 : 星期六 文章vfp下例题汇总更新完毕开始阅读acff0def19e8b8f67c1cb97b
Vfp下例题汇总
SET DELETE ON TIMER1的TIMER事件 SKIP IF EOF() GO TOP ENDIF THISFORM.TEXT1.VALUE=学号 THISFORM.TIMER1.ENABLED=.T. THISFORM.TEXT1.FORECOLOR=RGB(0,0,0) THISFORM.TEXT1.VALUE=学号 THISFORM.TIMER1.ENABLED=.F. DELETE THISFORM.TEXT1.FORECOLOR=RGB(0,0,255) SET DELETE OFF RECALL ALL THISFORM.RELEASE
COMMAND1的CLICK事件 COMMAND2的CLICK事件 COMMAND3的CLICK事件 44． 三次口令验证
要求：如图所示，口令为“MANAGER”,用户如果三次输错口令，则提示并关闭程序。
图1 设计界面 图2 运行时界面
图3 运行时界面
图4 运行时界面
属性窗口设置 属性窗口设置： FORM1_CAPTION=口令验证窗口 第 45 页 共 77 页
Vfp下例题汇总
事件 FORM1的INIT事件 TEXT1的VALID事件 LABEL1_CAPTION=请输入口令 代码 PUBLIC INPUTTIME INPUTTIME=0 INPUTTIME=INPUTTIME+1 IF THIS.VALUE=\ MESSAGEBOX(\欢迎使用本系统！\ RETURN .T. ELSE IF INPUTTIME<3 MES=\第\次口令错误，请重新输入！\ MESSAGEBOX(MES) RETURN .F. ELSE MESSAGEBOX(\次口令错误，您无权使用本系统！\ THISFORM.RELEASE ENDIF ENDIF 45． 指定表文件字段浏览。 要求：
(1)编制一个界面程序，实现将用户指定的表文件的字段名列表显示
(2)系统自动查询用户指定的表文件是否存在，存在则列表显示指定表文件的所有字段名信息，否则给出信息提示框
图1 设计界面 图2 运行时界面 图3 运行时界面 图4 运行时界面
属性窗口设置 属性窗口设置： 事件 FORM1的INIT事件 TEXT1的VALID事件 THISFORM.LABEL2.VISIBLE=.F. THISFORM.LIST1.VISIBLE=.F. FN=ALLTRIM(THIS.VALUE)+\IF FILE(FN) THISFORM.SETALL(\ THISFORM.LIST1.CLEAR 第 46 页 共 77 页
FORM1_CAPTION=指定表文件的字段列表 LABEL1_CAPTION=请输入指定的表文件名（扩展名略）： LABEL1_CAPTION=指定表文件中的字段名列表： 代码 Vfp下例题汇总
USE (FN) FOR I=1 TO FCOUNT() THISFORM.LIST1.ADDITEM(FIELD(I)) ENDFOR ELSE THISFORM.LABEL2.VISIBLE=.F. THISFORM.LIST1.VISIBLE=.F. MESSAGEBOX(\您所指定的表文件并不存在！\表文件存在判断\ENDIF THIS.SELECTONENTRY=.T. FORM1的DESTROY事件 USE 46． 选页调色板
要求： (1)编制一个“选页调色板”表单 (2)当用户按了某页后，页框的背景色就会变成指定的对应颜色。
图1 设计界面 图2 初始运行界面
图3 运行界面 图4 运行界面
属性窗口设置 属性窗口设置： 事件 FORM1_CAPTION=选页调色板 PAGEFRAME1_PAGECOUNT=5 代码 第 47 页 共 77 页
Vfp下例题汇总
FORM1的INIT事件 C=\红绿蓝黑白\FOR I=1 TO 5 THIS.PAGEFRAME1.PAGES[I].CAPTION=SUBSTR(C,2*I-1,2) ENDFOR DO CASE CASE THIS.ACTIVEPAGE=1 THIS.PAGE1.BACKCOLOR=RGB(255,0,0) CASE THIS.ACTIVEPAGE=2 THIS.PAGE2.BACKCOLOR=RGB(0,255,0) CASE THIS.ACTIVEPAGE=3 THIS.PAGE3.BACKCOLOR=RGB(0,0,255) CASE THIS.ACTIVEPAGE=4 THIS.PAGE4.BACKCOLOR=RGB(0,0,0) CASE THIS.ACTIVEPAGE=5 THIS.PAGE5.BACKCOLOR=RGB(255,255,255) ENDCASE
PAGEFRAME1的CLICK事件 47． 学籍信息自动浏览
编制一个表单完成表文件“学生.dbf“、 “成绩.dbf“、 “课程.dbf“内容的编辑浏览显示功能 要求： (1)三个表文件分别显示在三个不同的页面上
(2)表单内容将以20s为间隔自动换页刷新，即自动翻页及编辑浏览显示功能 (3)未被激活的页面自动设为不可访问
图1 设计界面 图2 初始运行界面
图3 运行界面
属性窗口设置 第 48 页 共 77 页