VF登陆界面登陆按钮的click事件代码

做VF系统常用到的代码

一、时钟代码。

1.添加计时器控件time1time1的interva为1000，enabled为T form1的load事件public ss,mm,hh,x,y,x2,y2,x3,y3,x4,y4 store 0 to ss,mm,hhform1的init事件x=thisform.Width/2y=thisform.Height/2thisform.fillcolor=rgb(128,128,255) thisform.Circle(100,x,y)for i=1 to 12x1=x+100*cos(i*3.14159/6)y1=y+100*sin(i*3.14159/6)thisform.fillcolor=rgb(255,188,255)thisform.Circle(5,x1,y1)nexttime1的time事件thisform.forecolor=rgb(128,128,255)x2=x+90*cos((ss-15)*3.14159/30)y2=y+90*sin((ss-15)*3.14159/30) thisform.line(x,y,x2,y2)ss=mod(ss+1,60)x2=x+90*cos((ss-15)*3.14159/30)y2=y+90*sin((ss-15)*3.14159/30) thisform.forecolor=rgb(255,0,0) thisform.line(x,y,x2,y2)if ss=0thisform.forecolor=rgb(128,128,255)y3=y+70*sin((mm-15)*3.14159/30)thisform.line(x,y,x3,y3)mm=mod(mm+1,60)thisform.forecolor=rgb(128,128,255)x4=x+60*cos((hh-3)*3.14159/6)y4=y+60*sin((hh-3)*3.14159/6)thisform.line(x,y,x4,y4)hh=hh+1/60x3=x+70*cos((mm-15)*3.14159/30)if hh>=12hh=0endifendifx3=x+70*cos((mm-15)*3.14159/30)y3=y+70*sin((mm-15)*3.14159/30)thisform.forecolor=rgb(0,255,0)thisform.line(x,y,x3,y3)x4=x+60*cos((hh-3)*3.14159/6)y4=y+60*sin((hh-3)*3.14159/6)thisform.forecolor=rgb(0,0,0)thisform.line(x,y,x4,y4)二、同心圆。

vf课程设计图书管理系统(界面很漂亮)

visual foxpro课程设计报告专业：珠宝学院珠宝设计专业班级：142091学号：************名：**题目名称：图书管理系统熊玮版完成日期：2011年1月29日目录一、前言——————————————— 3二、系统概况————————————— 3三、需求分析————————————— 2四、数据库设计———————————— 4五、主程序清单————————————9六、模块界面与代码——————————13七、设计小结—————————————63前言长期以来，图书管理都是依赖人工进行的，面对如此众多的图书信息，其工作量可想而知，不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量的不可控因素，造成了图书管理的某些不规范。

在学校，尤其是在大中专院校，图书管理是学校的一项重要的数据资源，图书管理也是学校的一项常规性的重要工作。

随着社会的日益发展，尤其是科技的迅猛发展，计算机广泛地应用在生产生活的各个方面，不仅提高了工作效率，而且也降低了劳动强度，美化了我们的工作环境。

在电子信息化时代，设计一款计算机图书管理系统尤为必要，它不仅能大大减轻图书馆工作人员的工作量，而且全面提高图书馆的管理效率及服务质量。

我以Visual Foxpro 6.0为环境，开发了此应用软件，本系统适用于各类小型图书馆，以及各类大中专院校、中小学校的图书馆和资料室的现代化综合管理。

系统概况一、课题名称：图书管理系统熊玮版二、设计环境：开发工具：Microsoft Visual FoxPro 6.0操作系统：Windows XP需求分析一、系统功能分析图书管理系统的主要任务是对图书馆图书信息、读者个人信息、图书借阅归还信息的查询、统计、更新，并且能按一定要求输出报表。

通过该系统，使图书管理工作系统化、规范化、自动化，从而提高图书管理的效率。

二、系统功能模块设计本系统分为如下的几大模块：1、主界面模块该模块提供管理系统的主界面，是主系统的唯一入口和出口，该界面提供用户选择并调。

VFP常见命令按钮组的代码

常见命令按钮组的代码goto top && 指针跳到第一个记录mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t. && 根据状况设置各按钮的可用状态thisform.refreshskip -1 && 指针后退一个if bof() && 如果已经是第一个记录messagebox("不好意思，已是第一个记录",48,"信息窗口")mand1.enabled=.f.mand2.enabled=.f.skip && 指针前进一个，使之仍然显示第一个记录elsemand1.enabled=.t.mand2.enabled=.t.endifmand3.enabled=.t.mand4.enabled=.t. && 根据状况设置各按钮的可用状态thisform.refreshskipif eof() && 如果已经是最后一条记录messagebox("不好意思，已是最后一条记录",48,"信息窗口")skip -1 && 记录后退一个，使之仍然显示最后一条记录mand3.enabled=.f.mand4.enabled=.f.elsemand3.enabled=.t.mand4.enabled=.t.endifmand1.enabled=.t.mand2.enabled=.t.thisform.refreshgoto bottommand3.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. thisform.refresha=messagebox("你真的要退出吗?",4+16+0,"对话") if a=6release thisformendif********************* ********************* 首记录go topdfirst.enabled=.f. dlast.enabled=.t. dpre.enabled=.f. dnext.enabled=.t. thisform.refresh末记录go bottomthis.enabled=.f.dfirst.enabled=.t. dpre.enabled=.t. dnext.enabled=.f. thisform.refresh前一条skip -1if bof()this.enabled=.f.dfirst.enabled=.f. dlast.enabled=.t. dnext.enabled=.t. elsethis.enabled=.t.dfirst.enabled=.t. dlast.enabled=.t. dnext.enabled=.t. endifthisform.refresh下一条skip 1if eof()this.enabled=.f.dfirst.enabled=.t. dlast.enabled=.f. dnext.enabled=.t. elsethis.enabled=.t.dfirst.enabled=.t.dlast.enabled=.t. dnext.enabled=.t. endifthisform.refresh增加if len(thisform.编号1.value)=0go bottomdelepackwait window "编号不能为空" timeout 1 endifappendthisform.refresh删除if messagebox("确实要删除本记录么？",1+64+256,"提示")=1 deletepackskip -1thisform.refreshendif。

VF资料

红色字表示经常用到1.记住VF各种文件的后缀名2.了解各种命令的使用（记一些经常用的，在题中常见的）3.SQL语句4.表单常用按钮及一些常用属性如下图所示，用标签、文本、命令按钮构成一个表单。

在标签中显示以下文字“当前时间”，运行表单时，单击“显示”按钮将显示系统时间；单击“清除”按钮，文本框中的内容将被清楚，单击“退出”按钮，将退出表单运行。

为完成上述要求：（1）“清除按钮”的Click事件代码是____________________（2）“退出按钮”的Click事件代码是____________________（3）“显示按钮”的Click事件代码是____________________（4）应该设置表单的_________属性为______________-thisform.text1.value=""thisform.releasethisform.text1.value=time()caption(经常填空) 显示当前系统时间3、程序功能是为数据表SB-1.DBF编制的一个输入程序，要求可以连续添加记录。

USE SB-1DO WHILE .T.CLEAR@2,5 SAY “请添加记录：”__________________@4,5 SAY “编号”GET编号@6,5 SAY “名称”GET名称@8,5 SAY “启用日期”GET启用日期@10,5 SAY “价格”GET 价格@12,5 SAY “部门”GET 部门@14,5 SAY “主要设备” GET 主要设备___________________@18,5 SAY “是否输入商标内容?(Y/N)” GET SHB DAFAULT SPACE(1)READIF UPPER(SHB)=’Y’MODIFY GENERAL 商标ENDIF@20,5 SAY “是否继续添加？（Y/N）” GET JX DEFAULT SPACE（1）READIF LOWER(JX)=’N’___________________________ENDIFENDDORETURNappend blank read exit2、数据表，图书表TS.DBF 和定单表DD.DBF，要求计算订单金额。

全国计算机二级VF二级试题集及答案

2002年9月全国计算机考试VF二级考试笔试试题一、选择题（（一）——（35）每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，是有一个选项是正确的。

请将正确选项添涂在答题卡相应的位置上，答在试卷上不得分。

（1）在写列四个选项中，不属于基本关系运算的是A）连接 B）投影 C）选择 D）排序（2）如果一个班只能有一个班长，而且一个班长不能同时担任其他班的班长，班级和班长两个实体之间的关系属于A）一对一联系 B）一对二联系 C）多对多联系 D）一对多联系（3）VF支持的数据模型是A）层次数据模型 B）关系数据模型 C）网状数据模型 D）树状数据模型（4）VF的命令窗口中键如CREATE DATA命令以后，屏幕会出现一个创建对话框，要想完成同样的工作，还可以采取如下步骤A）单击“文件”菜单中的“新建”按钮，然后在新建对话框中选定“数据库”单选钮，再单击“新建文件”命令按钮B）单击“文件”菜单中的“新建”按钮，然后在新建对话框中选定“数据库”单选钮，再单击“向导”命令按钮C）单击“文件”菜单中的“新建”按钮，然后在新建对话框中选定“表”单选钮，再单击“新建文件”命令按钮D）单击“文件”菜单中的“新建”按钮，然后在新建对话框中选定“表”单选钮，再单击“向导”命令按钮（5）将内存变量定义为全局变量的VF命令是A）LOCAL B）PRIVATE C）PUBLIC D）GLOBAL 0（6）扩展名为DBC的文件是A）表单文件 B）数据库表文件 C）数据库文件 D）项目文件（7）建设已经生成了名为mymenu的菜单问，执行该菜单文件的命令是A）DO mymenu B）DO mymenu.mpr C）DO mymenu.pjx D）DO mymenu.mnx0（8）下面有关索引的描述正确的是A）简化里索引以后。

原来的数据库表文件中记录的物理顺序将被改变B）索引与数据库表的数据存储在一个文件中C）创建索引是创建一个指向数据库表文件记录的指针构成的文件D）使用索引并不能加快对表的查询操作（9）若建立索引的字段值不允许重复，并且一个表中只能创建一个。

vf答案 (26)

【操作步骤】
（1）①在命令窗口执行命令：MODIFY FORM one，打开表单设计器修改表单。
②双击“显示”命令按钮，编写按钮的Click事件代码：
THISFORM.TEXT1.VALUE=YEAR(DATE())
③单击“常用”工具栏中的“运行”按钮查看结果，将表单文件保存到考生文件夹下。
DO WHILE NOT EOF()
IF Alltrim(用户名)==Alltrim(Thisform. Text1.Value)
IF Alltrim(口令)==Alltrim(Thisform. Text2.Value)
WAIT "欢迎使用" WINDOW TIMEOUT 2
CREATE VIEW salary AS;
SELECT 系号,AVG(工资) AS 平均工资 ;
FROM 教师表 ;
GROUP BY 系号 ;
ORDER BY 平均工资 DESC
步骤3：在命令窗口执行命令：DO four，执行文件。
（2）【审题分析】本题主要考查的是DO WHILE循环语句和IF条件语句的使用。本题程序的功能大致如下：
（2）①在命令窗口执行命令：MODIFY FORM two，打开表单设计器修改表单。
②执行【表单】→【新建方法程序】菜单命令，在弹出的“新建方法程序”对话框的“名称”文本框中输入“test”，单击“添加”按钮新增方法，然后关闭对话框。
③在“属性”窗口中双击此方法，打开用户自定义过程代码框输入：MAND1.ENABLED=.F.。
（4）在命令窗口执行命令：ALTER TABLE 教师表 ALTER 职工号 SET CHECK LEFT(职工号,3)="110"。

vf参考答案与评分标准

Visual FoxPro 2007年4月笔试试题参考答案与评分标准一、单选题（30分，每小题1分）1.（1）min(工资) (2) "教授"$职称或职称="教授" OR职称="副教授" (3) >=502. (4) date() (5) Endcase (6) coth3. (7) with 数学，语文,zf (8) skip4. (9) avg(成绩) (10) group by 课程号四、程序分析（20分，每小题5分）1. 姓名性别班级总分张萧女１班5202. 1+1+2+1+2+3+1+2+3+4+1+2+3+4+5+= 353. 20 30 40100 200 4020 3 44. 8五、程序设计（20分）（1）8分，评分标准：循环语句4分，累乘3分，输出1分clears=1for n=1 to 5s=s*nendfor?”5的阶乘为：”,sreturn（2）12分，评分标准：更新4分，临时关联4分，汇总和输出4分select 1use rxsreplace all 营业额with 数量*单价select 2use yyyindex on 营业员代码tag dmselect rxsset relation to 营业员代码into yyyaccept “输入营业员代码：” to dm?”代码：”+dmlocate for 营业员代码=dm?“姓名：”+yyy.姓名+“性别：”+ yyy.性别List 品名,营业额for 营业员代码=dm offsum 营业额to x1 for 营业员代码=dm?”营业额：”,x1ReturnVisual FoxPro 2007年4月上机试题参考答案与评分标准1.（共40分）本大题不给参考答案。

评分标准如下：正确建立2个表的数据结构（表结构设计正确）20分数据正确15分永久关联正确5分2．（共30分）每小题10分。