vf表单综合实验new

1、Visual FoxPro综合实验报告学生姓名学号教学班A28密12n实验项目面向对象程序设计-表单设计与应用实验地点G304实验最后完成时间2010年12月21日必修选修指导教师批阅教师电子稿记录指导教师评语及成绩：红笔批阅：成绩：日期： 任课教师（批阅）签名：打印稿记录等级迟交：抄习：一、实验综述实验目的及要求在面向对象程序设计思想和理论的指导下，运用Visual FoxPro对面向对象方法的支持，使用表单设计器、数据环境设计器及常用的若干基本控件（表单、命令按钮（组），标签，文本框，页框等），设计一个集登录、查询、修改、删除等功能的表单综合应用系统。通过多功能表单的设计，一方面可以提高实

2、验者的动手操作能力，另一方面，可以综合利用所学知识的能力。实验者通过自己的设计和实验，进一步加深理解面向对象程序设计的基本理论和方法。实验者在完成下列实验任务后，须认真总结实验心得，尽量用清晰简明的语言、步骤详实地记录实验过程，撰写通顺流畅的实验报告，以提高文档写作能力。实验仪器、设备或软件安装有Visual Foxpro 6.0关系数据库软件的计算机，且该计算机具备文件网络下载和上传的功能。实验任务. 表单设计前的操作任务要求在表单设计前先用SQL语言中的insert语句（命令）在班级表class.dbf中增加一条新班级的记录，然后在学生表student.dbf中至少增加3条记录（该3条记录

3、的姓名字段值分别是实验者、与实验者同姓不同名、与实验者同名不同姓的3个同学的姓名）到新增加的班级中。在成绩表achievement.dbf增加若干条记录，保证每个新增的学生至少有3门功课的成绩。也要求在课程表course.dbf中至少增加1门新课程。图a 数据库shu5678.dbc及表. 设计表单（功能与任务要求）请设计一个管理学生信息的应用系统，该应用系统的功能与任务要求如下：该系统具有6个功能模块（登录、信息查询、修改数据、删除数据、浏览信息及退出系统）。系统首先运行登录功能模块，让用户输入用户名和密码，如果用户和密码输入正确，才能正常使用系统的其它5个功能模块。该应用系统表单的标题名（

4、Caption）为“学生信息管理系统”，说明：【1】 信息查询功能（查询时不能修改或删除数据）: 输入学号或姓名，并根据该学号或姓名查询该同学的信息，查询的内容包括学号，姓名，性别，出生日期，是否少数民族，课程代号，课程名称和成绩。【2】 浏览学生信息要求输入学院名称或班级号后进行浏览。只考虑浏览同一个学院或同一个班级的所有学生的学号、姓名、性别、出生日期、班级号及入学成绩等6个字段。【3】尽量在表单设计中运用更多的控件对象和方法，开动大脑，发挥创造力，创建更多合理的功能，例如录入数据，或在查询时进行成绩统计等。. 设计一个管理学生信息的应用系统（技术要求）：【1】所有表单文件的主名为实验者姓

5、名(拼写)+两位编号构成，例如学生舒驹的表单文件主名为：Shuju-01.scx、Shuju-02.scx、 .【2】表单中所有对象(含表单对象本身)的Name属性值为实验者的姓名拼音+系统给对象默认Name属性值的前四位字符+两位编号构成，比如所有表单对象的Name属性值为Shuju-form01、Shuju-form02、 ,所有命令按钮的Name属性值为Shuju-comm01、Shuju-comm02、,所有标签的Name属性值为Shuju-Labe01、Shuju-Labe02、,所有文本框的的Name属性值为Shuju-Text01、Shuju-Text02、，其它控件对象的Nam

6、e属性赋值采用类似方法。【3】界面友好，美观大方，交互功能强。二、实验过程（试验步骤、源程序代码）及相关结果（一） 实验步骤1：. 表单设计前的操作任务 set defa to E:常用数据库教学数据库cnopen database studentdb.dbcuse classinsert into class values(EFC0802,金融管理08-02, , ,0) use student insert into student;values(0090975,胡娅,女,1991/01/07,.T.,CSOA28,重庆铜梁,600.0, , ) insert into student;v

7、alues(0090955,胡琳,女,1991/07/07,.F.,CSOA28,江西上饶,566.0, , )insert into student;values(0090966,李娅,女,1991/09/07,.F., ICS1001,上海,666.0, , ) use achievement insert into achievement;values(0090975,C3005,88.0)insert into achievement;values(0090975,C3004,87.0)insert into achievement;values(0090975,A0101,82.0)

8、 insert into achievement;values(0090955,C3005,86.0) insert into achievement;values(0090955,A0101,89.0) insert into achievement;values(0090955,B1001,86.0) insert into achievement;values(0090966,B1001,86.0) insert into achievement;values(0090966,C3004,88.0) insert into achievement;values(0090966,B1002

9、,78.0) use course insert into course;values(D1003,大学语文,1,04,16,4)（二） 实验步骤2：. 设计表单一、登录系统的相关设计及代码（1） 在系统工具栏单击“新建”按钮，打开“新建的”对话框。在“文件类型”选项中选择“表单”，单击“新建文件按钮”，打开“表单设计器”窗口。修改表单主名为huya-01.scx,单击表单，将其属性中的caption设置为 登录系统-huya，name 设置为 huyaform01。（2） 在表单“登录系统”的主区内添加3个标签：label1、label2,label3,2个文本框Text1,Text2,2个

10、命令按钮Command1,Command2。各个控件的属性如下：=huyalabel01,=huyalable02,=huyalabel03,label1.caption=用户名,label2.caption=密码，label3.caption=学生信息查询系统labelT=huyaText1,T=huyaText2,Text.passwordchar=*;C=huyaComm1,C=huyaComm2,Command1.caption=确认，C

11、ommand2.caption=取消如图所示： （3） 鼠标双击“登录”窗体的Text1文本区，进入代码编辑界面（初始界面为Text1.Click）,选择Text1.KeyPress事件，编写代码如下： LPARAMETERS nKeyCode, nShiftAltCtrlif !empty(thisform.huyaText1.value) thisform.huyaText2.enabled=.T.endif(4)在表单的设计环境下编辑登录系统窗体中的“确认”命令按钮的代码如下：denglucs=0if thisform.huyatext1.value=胡娅 and thisform.hu

12、yatext2.value=0090975 messagebox(登录成功！,0,提示)else denglucs=denglucs+1 if denglucs=3 messagebox(续登录3次均失败,再见,0+48,提示) inkey(2) thisform.release else thisform.huyatext1.value= thisform.huyatext2.value= thisform.huyatext2.enabled=.F. endifEndifthisform.release（5）编辑登录系统中的“取消”按钮 thisform.release二、学生信息查询（1）

13、单击菜单栏中的“表单”，选择“创建表单集”“添加新表单”。将新表单的name 设置为huyaform02, caption 设置为 “学生信息管理系统-huya”。（2）在表单的主区内添加10个标签，8个文本框，2个命令按钮和1个复选框。各个控件的属性控制如下：设置10个标签=huyalabel1, ==huyalabel10设置8个文本框 =huyatext1,text2name==huyatest8设置2个命令按钮 =h

14、uyacomm1, =huyacomm2按钮的Caption 值如图所示设置1个复选框 =huyaCheck1(3) 双击“查询”命令按钮，输入代码值如下：sele studentlocate for alltrim(学号)=alltrim(thisform.huyatext1.value)thisform.refresh（4）双击“取消”命令按钮，输入代码值如下：thisform.release（5）点击菜单栏“显示”按钮，选择“数据环境”，添加“教学管理数据库”中“studentdb.dbc”中的学生表，课程表，班级表，成绩表。并进行如下设置

15、： Text2.controlsource= student.姓名 Text3.controlsource= student.出生日期 Text4.controlsource= course.课程号 Text5.controlsource= course.课程名 Text6.controlsource= student.性别 Text7.controlsource= student.籍贯 Text8.controlsource= student.入学成绩 Check1.controlsource= student.少数民族否三、信息修改（1）单击菜单栏中“显示”，选择“添加新表单”。将表单的n

16、ame 值设置为 huyaform03,Caption 值设置为 “学生信息修改-huya”。（2）在表单的主区内添加3个标签，3个命令按钮，1个文本框和1个表格。各个控件的属性值设置如下：设置3个标签：name 值分别为 huyalabel1,huyalabel2,huyalabel3设置3个命令按钮：name 值分别为 huyacomm1,huyacomm2,huyacomm3设置1个文本框：name 值为 huyatext1设置1个表格：name 值为 huyagrid1各个按钮的caption 值如图所示：（3）双击“查找”命令按钮，输入代码如下：sele studentlocate

17、for alltrim(学号)=alltrim(thisform.huyatext1.value)thisform.refresh（4）双击“确认”命令按钮，输入代码如下：locate for 学号=alltrim(thisform.huyaText1.value) c=messagebox(确认修改吗？,1+32,对话窗口) if c=1 browse endif （5）双击“取消”命令按钮，输入代码如下：thisform.release四、信息删除（1）单击菜单栏中“显示”，选择“添加新表单”。将表单的name 值设置为 huyaform04,Caption 值设置为 “学生信息删除-hu

18、ya”。（2）在表单的主区内添加2个标签，3个命令按钮，1个文本框和1个表格。各个控件的属性值设置如下：设置2个标签：name 值分别为 huyalabel1,huyalabel2设置3个命令按钮：name 值分别为 huyacomm1,huyacomm2,huyacomm3设置1个文本框：name 值为 huyatext1设置1个表格：name 值为 huyagrid1各个按钮的caption 值如图所示：（3）双击“查找”命令按钮，输入代码如下：sele studentlocate for alltrim(学号)=alltrim(thisform.huyatext1.value)thisf

19、orm.refresh（4）双击“删除数据”命令按钮，输入代码值如下：locate for 学号=alltrim(thisform.huyaText1.value) c=messagebox(确认删除吗？,1+32,对话窗口) if c=1 dele from student where 学号=alltrim(thisform.huyatext1.value) dele from achievement where 学号=alltrim(thisform.huyatext1.value) sele * from student into cursor huya thisform.huyagri

20、d1.recordsource=huya endif （5）双击“取消”命令按钮，输入代码值如下：thisform.release（6）点击菜单栏“显示”按钮，选择“数据环境”，添加“教学管理数据库”中“studentdb.dbc”中的学生表，课程表，班级表，成绩表。并进行如下设置：Grid1.recordsource=student五、学生信息浏览（1）单击菜单栏中“显示”，选择“添加新表单”。将表单的name 值设置为 huyaform05,Caption 值设置为 “学生信息浏览-huya”。（2）在表单的主区内添加2个标签，1个命令按钮，2个列表和1个表格。各个控件的属性值设置如下：设

21、置2个标签：name 值分别为 huyalabel1,huyalabel2设置1个命令按钮：name 值分别为 huyacomm1设置2个列表：name 值为 huyalist1,huyalist2设置1个表格：name 值为 huyagrid1各个按钮的caption 值如图所示：（3）双击list1按钮，过程选择为“click”,输入代码如下：sele student.学号 from student where student.班级号=class.班级号;order by student.学号 into cursor huyathisform.huyagrid1.recordsourcet

22、ype=1thisform.refresh双击huyalist2按钮，过程选择为“click”，输入代码如下：thisform.refresh（4）双击“退出系统”命令按钮，输入代码值如下：thisform.release（5）点击菜单栏“显示”按钮，选择“数据环境”，添加“教学管理数据库”中“studentdb.dbc”中的学生表，课程表，班级表，成绩表。并进行如下设置：List1.Rowsource= class.班级号List1.controlsource= class.班级号List2.rowsource= class.所在学院List2.controlsource= class.所在学院Grid1.recordsource= student说明：（1）表单设计步骤可采用截图展示含属性与核心代码的设计及效果。（2）实验步骤可从设计表单前开始，比如打开数据库，增加新记录情况展示，再到表单的具体设计各个步骤。 三、主要实验结果分析（可采用截图）. 表单设计前的操作任务的结果. 设计表