综合实验报告格式VF牛世杰.docx
《综合实验报告格式VF牛世杰.docx》由会员分享，可在线阅读，更多相关《综合实验报告格式VF牛世杰.docx（17页珍藏版）》请在冰豆网上搜索。
综合实验报告格式VF牛世杰
华北科技学院计算机系综合性实验
实验报告
课程名称计算机技术基础（VF）
实验学期2009至2010学年第二学期
学生所在系部管理系
年级09专业班级工商管理B09-2班
学生姓名牛世杰学号200904024205
任课教师王晓菊
实验成绩
计算机系制
《计算机技术基础（VF）》课程综合性实验报告
开课实验室：
基础实验室六2010年6月15日
实验题目
学生信息管理系统的设计与实现
一、实验目的
1、掌握应用程序设计规划的基本方法；
2、掌握使用VFP设计简单的查询系统；
3、掌握数据表的建立，及表单控件与数据源的连接方法；
4、掌握查询、修改、添加、删除记录的基本实现方法
二、设备与环境
PC兼容机、Windows系列操作系统、VisualFoxPro数据库编程环境
三、实验内容
以及启动界面、登陆界面、系统主界面、确认窗口、学生信息管理表单、课程信息管理表单、学生选课信息管理表单、综合消息表单、考试证打印预览页面、关于系统表单
四、实验结果及分析
<<启动界面>>
时钟控件的Timer事件代码：
Thisform.release
Doformlogin.scx
<<登陆界面>>
“进入系统”的click事件代码
setexacton
i=i+1
selectpasswd
locateforalltrim（用户名）=alltrim（bo1.value）
iffound（）andalltrim（密码）=alltrim（thisform.text1.value）
setexactoff
releasethisform
doformmain
else
ifi<3
messagebox（"帐号或密码错误,请重试!
",48,"警告"）
bo1.value=""
thisform.text1.value=""
bo1.setfocus
else
messagebox（"非法用户,系统无法启动!
",16,"警告"）
releasethisform
endif
endif
“退出系统”的click事件代码
yn=messagebox（"确定退出?
",4+32,"信息窗口"）
ifyn=6
thisform.release
clearevents
quit
endif
数据环境
passed
<<系统主界面>>
“主界面”的init事件代码：
domenu_sys.prgwiththis,.T.
<<系统>>
退出程序代码:
a=messagebox（"确认退出系统吗？
",1+32+0,"确认窗口"）
docase
casea=1
quit
casea=2
waitclear
endcase
<<学生基本信息查询>>
<<课程信息查询>>
Click事件代码：
*click事件代码
ifeof（）=.t.
messagebox（"已经到最后一条记录!
"）
else
skip
endif
thisform.refresh
rightclick事件代码：
ifbof（）=.t.
messagebox（"已经到第一条记录!
"）
else
skip-1
endif
thisform.refresh
<<选课信息查询>>
<<综合信息浏览>>
显示删除标记列复选框InteractiveChange的事件代码：
ifthisform.pageframe1.page1.grid1.deletemark=.F.
thisform.pageframe1.page1.grid1.deletemark=.T.
else
thisform.pageframe1.page1.grid1.deletemark=.F.
endif
thisform.refresh
编辑信息复选框InteractiveChange的事件代码：
ifthisform.pageframe1.page1.grid1.readonly=.F.
thisform.pageframe1.page1.grid1.readonly=.T.
else
thisform.pageframe1.page1.grid1.readonly=.F.
endif
thisform.refresh
<<自定义界面>>
查找命令按钮的Click事件代码：
Context=alltrim（thisform..text1.value）
Docase
Casethisform.optiongroup1.value=1
Setfilterto学号=context
Casethisform.optiongroup1.value=2
Setfilterto姓名=context
Casethisform.optiongroup1.value=3
Setfilterto性别=context
Casethisform.optiongroup1.value=4
Setfilterto籍贯=context
Casethisform.optiongroup1.value=5
Setfilterto所在系=context
<<学生信息管理>>
<<课程信息管理>>
<<选课信息管理>>
<<考试证打印预览>>
<<课程打印预览>>
<<关于系统>>
“超链接”的click代码：
thisform.hyperlink1.navigateto（""）
Timer的timer事件代码：
ifthisform.label1.left+thisform.label1.width<0
thisform.label1.left=thisform.width
else
thisform.label1.left=thisform.label1.left-10
endif
教师评价
评定项目
A
B
C
D
评定项目
A
B
C
D
算法正确
界面美观，布局合理
程序结构合理
操作熟练
语法、语义正确
解析完整
实验结果正确
文字流畅
报告规范
题解正确
其他：
评价教师签名：
年月日
升级会员 