1、综合实验报告格式VF牛世杰华北科技学院计算机系综合性实验实 验 报 告 课程名称 计算机技术基础(VF) 实验学期 2009 至 2010 学年 第 二 学期学生所在系部 管理系 年级 09 专业班级 工商管理B09-2班 学生姓名 牛世杰 学号 200904024205 任课教师 王晓菊 实验成绩 计算机系制计算机技术基础(VF)课程综合性实验报告开课实验室: 基础实验室六 2010年 6 月 15 日实验题目学生信息管理系统的设计与实现一、实验目的1、 掌握应用程序设计规划的基本方法;2、 掌握使用VFP设计简单的查询系统;3、 掌握数据表的建立,及表单控件与数据源的连接方法;4、 掌握查
2、询、修改、添加、删除记录的基本实现方法二、设备与环境PC兼容机、Windows系列操作系统、Visual FoxPro数据库编程环境三、实验内容 以及启动界面、登陆界面、系统主界面、确认窗口、学生信息管理表单、课程信息管理表单、学生选课信息管理表单、综合消息表单、考试证打印预览页面、关于系统表单四、实验结果及分析时钟控件的Timer事件代码:Thisform.releaseDo form login.scx“进入系统”的click 事件代码set exact on i =i+1select passwdlocate for alltrim(用户名)=alltrim(bo1.value)if f
3、ound( ) and alltrim(密码)=alltrim(thisform.text1.value) set exact off release thisform do form mainelse if i3 messagebox(帐号或密码错误,请重试!,48,警告) bo1.value= thisform.text1.value= bo1.setfocus else messagebox(非法用户,系统无法启动!,16,警告) release thisform endif endif“退出系统”的click 事件代码yn=messagebox(确定退出?,4+32,信息窗口)if y
4、n =6 thisform.release clear events quit endif数据环境passed“主界面”的init事件代码:do menu_sys.prg with this,.T.退出程序代码:a=messagebox(确认退出系统吗?,1+32+0,确认窗口 )do case case a=1 quit case a=2 wait clear endcaseClick事件代码:*click 事件代码if eof()=.t. messagebox(已经到最后一条记录!)else skipendifthisform.refreshrightclick事件代码:if bof()=
5、.t. messagebox(已经到第一条记录!)else skip -1endifthisform.refresh显示删除标记列复选框InteractiveChange的事件代码:if thisform.pageframe1.page1.grid1.deletemark = .F. thisform.pageframe1.page1.grid1.deletemark = .T.else thisform.pageframe1.page1.grid1.deletemark = .F. endifthisform.refresh编辑信息复选框InteractiveChange的事件代码:if t
6、hisform.pageframe1.page1.grid1.readonly=.F. thisform.pageframe1.page1.grid1.readonly=.T.else thisform.pageframe1.page1.grid1.readonly=.F.endifthisform.refresh查找命令按钮的Click事件代码:Context=alltrim(thisform.text1.value)Do case Case thisform.optiongroup1.value=1 Set filter to 学号=contextCase thisform.optiong
7、roup1.value=2Set filter to 姓名=contextCase thisform.optiongroup1.value=3Set filter to 性别=contextCase thisform.optiongroup1.value=4 Set filter to 籍贯=contextCase thisform.optiongroup1.value=5Set filter to 所在系=context“超链接”的click代码:thisform.hyperlink1.navigateto()Timer的timer事件代码:if thisform.label1.left+thisform.label1.width0 thisform.label1.left=thisform.widthelse thisform.label1.left=thisform.label1.left-10endif 教 师 评 价评定项目ABCD评定项目ABCD算法正确界面美观,布局合理程序结构合理操作熟练语法、语义正确解析完整实验结果正确文字流畅报告规范题解正确其他:评价教师签名:年 月 日
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1