课表查询系统报告

1、VFP综合程序设计报告秦皇岛分校经济系课表查询系统$才*旬产朝15£ 6东北大学秦皇岛分校姓名：学号：指导教师：日期：2012 年 06 月 16 日、总体说明总体功能介绍1 .我们制作的是一个经济系课表查询系统，可以按照班级，课程，时间进行查 询。并且可以将查询结果打印，并且能够进行数据的录入及修改。2 .用户首先进入“欢迎使用经济系课表查询系统”首页，之后页面自动跳转到 用户登录界面，用户须输帐号，密码方可进入查询系统.3 .在查询系统中有三个菜单，分别为“开始 ”“编辑”“查询”。分别对应着信 息的输入，修改和课程的查询 。其中查询可分为按班级查询，按时间查询， 和按课程查询。

2、4 .按班级查询可以通过选择所要查的班级进行查询不同时刻不同教室的相关信 息，按照时间查询用叶框的方式进行查询，按课程查询通过选择所要查的课 程进行查询。同时可以将查询结果打印出来。5 .通过系统维护可以对教室课表进行增加、删除和修改，并且增加、删除和修 改之后可以浏览表，已进行对照。6 .以后点击退出后，会出现谢谢使用，退出系统二、功能模块结构图三、变量说明(公有、私有、本地变量)四、数据库、表的设计及描述课表查询项目下有：数据库：课表查询.dbc表：users1.dbf(储存密码及账号)按班级查询.dbf班级代码.dbf 教师课程表.dbf教师上课表.dbf 课表.dbf课程表.dbf 周

3、一 .dbf 周二.dbf 周三.dbf 周四.dbf周五.dbf1、其中，数据库，课表查询.DBC的设计为：(1)从菜单文件中选择新建(2)在弹出的对话框中选择数据库，保存为课表查询.dbc(3)在数据库设计器中添加相应的表(4) users1.dbf(储存密码及账号)按班级查询.dbf班级彳弋码.dbf教师课程表.dbf教师上课表.dbf课表.dbf课程表.dbf 周一 .dbf 周二.dbf 周三.dbf周四.dbf周五.dbf2、表的设计：(1) 从菜单文件中选择新建在弹出的对话中i中选择表，分别保存为 users1.dbf(储存密码及账号) 按班级查询.dbf 班级代码.dbf教师课

4、程表.dbf教师上课表.dbf课表.dbf课程表.dbf周一 .dbf 周二.dbf 周三.dbf 周四.dbf周五.dbf 在表设计器中写入相应的字段(2) 然后录入数据3描述数据库课表查询.dbc ,中有表：users1.dbf(储存密码及账号)按班级查询.dbf班级代码.dbf教师课程表.dbf教师上课表.dbf课表.dbf 课程表.dbf 周一.dbf 周二.dbf 周三.dbf 周四.dbf周五.dbfusersl.dbf 表结构字段名宽度字符型10密码字符型10按班级查询.dbf表结构字段名回宽度班级代码字符型5教师姓名字符型10课程名称字符型22课程编号字符型3Week字符型2上

5、课时间字符型5地点字符型4班级代码表结构字段名宽度索引班级代码字符型10班级名称字符型10课表表结构课程表表结构周一到周五的表的结构相同，如下:其中教师上课表是根据课程表和教师课程表根据查询去向生成的表， 按班级查询 表是根据教师上课表和课表表根据查询去向生成的表，周一到周五的表是根据按 课程查询以week为查询条件以查询去向生成的表。五、操作说明1.双击课程查询系统的应用程序，进入该系统的封面（欢迎界面），上有“退出 系统”：等待10秒后即可进入“登陆界面”；点击“返回封面”将返回封面。2、在登陆界面输入正确的账号和密码，注意在登陆界面上有用户名，用户密码 以及确定和重置将鼠标至于文本框旁边

6、会有一个用户名和密码的提示，可以根据所给的用户名和密码进入课表查询系统， 并且进行下一步操作。如果未输入用户 名和密码，单击确定将会跳出一窗口，提示“请输入用户名和密码” ；如果输入 的密码错误，将会提示“密码错误，请重新输入”，如果密码错误超过三次，将 会提示“密码错误，禁止登录！ ”，并且退出系统。3 .若进入主界面，上面有菜单，可以通过菜单完成一些操作，比如查询功能、总 表录入功能，修改数据退出系统功能等等。在查询功能中可以按课程、时间、班 级进行查询，点击报表打印可以将查询结果进行打印预览。 总表录入可以调出一 表单，可以周一至周五的课表进行增加、 删除等修改操作，还有可以对教师的信

7、息进行修改，包括增加删工作人员等，还有可以对班级的信息进行修改， 包括增 加删班级等。4 .单击退出时会出现一个表单提示是否退出，点击是将出现一表单“谢谢使用， 欢迎下次使用”，并且在3秒后自动退出系统。若点击否将会释放表单“是否”， 可以重复3的步骤六、各模块代码及结果图1、封面(表单 1.SCX )某些重要模块的程序语句代码运行的效果截图显示当前时间 thisform.text1.value=time()滚动字幕 timen d=thisform.label1.widthIF thisform.label1.Left+d>=thisform.Widththisform.label1.

8、Left=thisform.label1.Left-1thisform.timer2.Interval=10thisform.timer1.Interval=0elsethisform.label1.Left=thisform.label1.Left+1endiftimer2 的timer 属性为thisform.label1.Left=thisform.label1.Left-1IF thisform.label1.Left=0thisform.label1.Left=thisform.label1.Left+1thisform.timer1.Interval=10this.Interval

9、 =0endif自动进入登陆界面的timer4 的timer属性为thisform.releasedo form 登陆界面.scx显示时间的time4 timer 属性为thisform.text1.value=time()2、登陆界面(登陆界面.scx )登陆按钮(command 1的click事件代码为：i=i+1uid=alltrim(thisform.txtusercode.value)pwd=alltrim(thisform.txtpassword.value)locate for ALLTRIM( 帐号)=uidif not found()messagebox("无此用户

10、",0,"课表查询系统")&&如果未找到该用户thisform.txtusercode.selstart=0 &&选定文本起,点位置thisform.txtusercode.sellength=len(thisform.txtusercode.text)&&选定文本长度为文本框实际长度thisform.txtusercode.setfocus && 设置焦,点return && 返回endif*判断密码是否合法if alltrim(密码)=pwd &&密码正确 this

11、form.release && 关闭当前表do form frmmain.scx elseif i>3 &&三次密码不正确messagebox("三次输入密码不对，系统将退出！”)thisform.releaseendifmessagebox("密码不正确，请重新输入！"+"你还有"+alltrim(str(3-i)+"次机会！")thisform.txtpassword.selstart=0 &&选定文本起点位置thisform.txtpassword.sellengt

12、h=len(thisform.txtpassword.text) &&选定文本长度为文本框实际长度thisform.txtpassword.setfocus &&设置焦点endif返回封面按钮的click 事件do form 表单 1.scx3、主菜单(frmmain.scx )(加载主菜单) init事件为do 课表查询.mpr with this, .t.load事件thisform.width=_screen.width/2thisform.height=_screen.height/2thisform.left=(_screen.width - this

13、.width)/2 thisform.top=(_screen.height - this.height)/2 unload事件quit4、主菜单(课表查询.mpr)4 开始，编辑菜单菜单栏工退出菜单表单是否退出(shifou.dbf )command加click 事件代码为:do form tuichu.scxcommand2勺click事件代码为：thisform.release闪动字母的timeU 的timer事件代码: rivate i,j,ki=int(rand()*255)j=int(rand()*255)k=int(rand()*125)thisform.label1.forec

14、olor=rgb(i,j,k)4 表单退出(tuichu.dbf )timeri的timer是事件代码为：quittimeri 的 interval 属性为：3000;查询菜单1、按班级查询（注意吧showwindow属性设为1）Combo酌click事件为 select * from 按班级查询 where ALLTRIM(班级代 码)=alltrim(bo1.value) into cursor tempi thisform.grid1.recordsource="temp1” thisform.refresh设置数据环境打印按钮click命令为Select按班级查询Report

15、 Form 按班级查询 For ALLTRIM（班级代 码）=alltrim（bo1.value） Preview1、按课程查询和按班级查询类似（注意吧showwindow属性设为1）2、按时间查询（注意吧showwindow属性设为1）土建立页框，将pagecount设为5土设置数据环境，将周一到周五表添加进去4 在各自的也框里建立表格，和打印按钮 Report Form 周* Preview士 将各自表的recordsourccetype 设为0-表recordsourcce 设为所需设置的 表士 将各自表格的caption属性设为周一，周二周五。士打印报表选 择 新 建 报表 报 表 向

16、 导 表 单 向 导完成按此方法建立周一，周二，周三，周四，周五，按班级查询，报表例如一下：* 建立班级信息编辑表单，教师信息编辑表单，综合信息表单。班级信息编辑表单：菜单栏，新建一一表单一一向导一一表单向导一一确认一一班级代码.dbf可用字段选全部添加一一下一步一一样式为标准式，按钮类型选择文本按钮，一一完成一一以班级信息编辑保存教师信息查询表单，综合信息查询表单和班级信息编辑相似，不过选择教师上课表，和按班级查询作为数据源。*当所有表单做完后，将所有的表，表单，报表，自定义类，加载到项目中。本 建立主程序新建程序，输入 _screen.visible=.f. do form 表单l.scx read events 保存.将程足加载到项目中，点击程序,右键选择设 置主文件建立应用程序 点击项目中的应用程序，点击连编即可七、体会通过对vf的学习，由原来的不懂、“晕”逐渐向一个理解的层次迈进。在课 上听不懂的下课后可以自己看一下，更重要的是还可以在vf的上机课上再次听老师的讲解，让我们把教室的理论与机房的实际相结合。 边学边上机，学以致用, 理论联系实际，让我们对所学的知识有了更深层次的理解。在这次的课程设计中，由于自己的知识不是很扎实，遇到许多问题，比如: 不能存取文件，我们采用关闭所有表，重新打开 vf；登陆界面文件正在使用