VFP课程设计任务书

数据库程序设计VFP班级：人力资源 120231208090462013-2014目录31.1 31.2 3 4 53.153.263.31011143.3.2 143.3.3 163.3.4 163.4 1616一、系统总分析1.1系统功能简介录入：录入学号、学生姓名，录入课程号、课程名，录入成绩修改：按课程号修改成绩查询：按学号查询该同学的各科成绩、按课程号查询该同学的成绩打印：按课程号打印成绩单1.2系统结构图学生信息管理系统学生 成绩 课程 退出学学学打成成成成课课课课生生生绩绩绩绩程程程程输维查印输查维打输维查打入护询入询护印入护询印二、数据库设计本系统根据学生成绩单、基本信息单等单据的数据需求，从学生成绩单、基本信息单、成绩从高到低排序单相关数据统计单中归纳出三个表的数据库。在项目文件中建立student.dbc数据库,在数据库中分别建立xs.dbf(学生表)、kc.dbf(课程表)、cj.dbf(成绩表)三个表现将这些表列出如下：1）成绩表：学号、课程号、成绩一成绩表名称字段名数据类型宽度小数位数索引null学号XhC10无普通升序否课程号KchC3无普通升序否成绩cjN30无否2）学生表：姓名、学号、性别、籍贯、入学成绩、婚否、出生日期、简历、照片、外语二学生表名称字段名字段类型宽度小数位数索引null姓名XmC6无无否学号XhC10无主索引否性别XbC2无无否籍贯JgC14无无否入学成绩RxcjN30普通索引否婚否HfL1无无否出生日期CsrqC8无普通索引否简历JlM4无无否照片ZpG4无无否外语WyC10无无否（3）课程表：课程号、课程名、学分三课程表名称字段名字段类型宽度索引null课程号kchC3主索引无课程名KcmC18无无学分xfN2无无信息如下图：三、程序设计界面分别建立如下表单文件:3.1登录表单(1)mm.scx(密码)表单输入姓名、密码错误小于四次可修改姓名密码，输入姓名、密码4次错误强制终止程序执行，姓名密码正确调用huanying.scx表单程序释放当前表单。命令：在form1中设置load事件公用变量：publicii=1命令按钮“确认”中 click事件代码：i=i+1ifi<=3ifthisform.text2.value='201201'andthisform.text1.value=' 卞敏辰'messagebox('欢迎使用学生管理信息系统 !',0,'信息提示')doformhuanying.scxthisform.releaseelseifthisform.text2.value='19930624'messagebox('用户名称错误，请重新输入 !',16,'信息提示')thisform.text1.value=''thisform.text1.setfocuselseifthisform.text1.value='王鹏'messagebox('密码错误，请重新输入 !',16,'信息提示')thisform.text2.value=''thisform.text2.setfocuselsemessagebox('姓名和密码都错误，请重新输入 !',16,'信息提示')thisform.text1.value=''thisform.text1.setfocusthisform.text2.value=''thisform.text2.setfocusendifendifendifelsemessagebox('你无权登陆本系统 !',16,'信息提示')thisform.releaseendif显示效果如下图：用户名错误： 输入三次以上密码错误：3.2欢迎界面(2)huanying.scx( 欢迎)表单点击“确认”按钮调用 xitong表单，释放当前表单；如果不点击“确认”按钮调用xitong表单10秒后自动调用xitong表单，释放当前表单。点击“重置时间”按钮则重新计时。A.Timer1:internal属性1000Clik事件代码：thisform.text1.value=thisform.text1.value-1ifthisform.text1.value=0doformxitong.scxreleasethisformEndifB.command1:click事件代码：doformxitong.scxreleasethisformC.command2:click事件代码：thisform.text1.value=10显示效果如下图：3.3系统菜单（3）进入xitong 页面3.3.1学生1、xscx1.scx(学生查询)cjcxxh表单，点击相应的按钮调用相应的表单或查询，其中按学号查询调用该表单中有一个下拉组合框，和一个表格构成，下拉组合框中选择姓名学号，表格中显示相应的各门成绩。按课程查询类似，按专业号课程号、班级课程号查询可以用SELE或表单完成。命令代码：Command2:doformcjcx1Command1:doformcjcx2Command5:thisform.releaseA：按姓名学号查询命令代码：Combo1interactivechange 事件：x1=this.valuethisform.grid1.columncount=3thisform.grid1.recordsourcetype=4thisform.grid1.recordsource='select cj.xh,kch,cj fromcjwherecj.xh=bo1.value intocursorlx2'Thisform.refresh按课程号查询命令代码：Combo1interactivechange 事件：x1=this.valuethisform.grid1.columncount=3thisform.grid1.recordsourcetype=4thisform.grid1.recordsource='selectcj.kch,xh,cjfromcjwherecj.kch=x1intocursorlx3'thisform.refresh2、学生输入xssr.scx(学生输入)该表单可增加学生表记录，学号相同不能输入，为空不能输入。确认按钮命令：i=thisform.optiongroup1.valuedocasecasei=1WY1="英语"casei=2WY1="日语"casei=3WY1="俄语"endcaseXM1=THISFORM.text1.V ALUEXh1=THISFORM.text2.VALUExb1=THISFORM.text3.VALUEJL1=THISFORM.edit1.VALUEIFLEN(ALLTRIM(XH1))=0=MESSAGEBOX(" 输入项不能为空 !",0+16,"ERROR")THISFORM.text2.SETFOCUSELSESEEKXH1ORDERxhIFFOUND()=MESSAGEBOX("学号不唯一!",0+16,"ERROR")THISFORM.text2.SETFOCUSELSEINSERTINTOxs(xm,xh,xb,wy,bz)V ALUE(XM1,XH1,XB1,WY1,JL1)THISFORM.text1.VALUE=""THISFORM.text2.VALUE=""THISFORM.text3.VALUE="男"THISFORM.OPTIONGROUP1.V ALUE=1THISFORM.edit1.VALUE=""ENDIFENDIF关闭按钮命令：Thisform.release显示效果如下图：当为空值时： 当学号相同时：3、学生维护xswh.scx(学生维护)该表单可以通过往前往后翻或姓名查询找到需要修改或删除的记录进行修改或删除。A:commandgroup1命令：docasecasethis.value=1gomand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.t.casethis.value=2skip-1ifbof()gomand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.t.elsethis.setall('enabled',.t.)endifcasethis.value=3skipifeof()gomand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.f.elsethis.setall('enabled',.t.)endifcasethis.value=4gomand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.f.endcaseThisform.refresh删除按钮：x=messagebox('您真的确定要删除吗？ ',1)ifx=1selekcdeley=this.parent.parent.text1.valueselezykcsetordertokcdmscanforkcdh=ydeleendsselekcskipendiThisform.refresh关闭按钮命令：Thisform.release运行：第一条记录： 第二条记录：最后一条记录： 删除记录：4、打印3.3.4成绩1、成绩查询2、成绩输入Command1click事件命令代码：thisform.releaseCommando2click1事件命令代码：deleteskip-1appendblankthisform.refreshCommand3click事件命令代码：xh1=THISFORM.text1.VALUEkch1=THISFORM.text2.VALUEcj1=THISFORM.text3.VALUEIFLEN(ALLTRIM(xh1))=0=MESSAGEBOX(" 输入项不能为空 !",0+16,"ERROR")THISFORM.text1.SETFOCUSELSEINSERTINTOcj(xh,kch,cj)V ALUE(xh1,kch1,val(cj1))THISFORM.text1.VALUE=""THISFORM.text2.VALUE=""THISFORM.text3.VALUE=''ENDIF3、成绩维护Commandgroup1click 事件命令代码：DOCASECASETHIS.VALUE=1GOTOPTHIS.COMMAND1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.t.casethis.value=2skip-1ifbof()GOTOPTHIS.COMMAND1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.t.elsethis.setall('enabled',.t.)endifcasethis.value=3skipifbof()gobottomThIS.COMMAND1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.f.elsethis.setall('enabled',.t.)endifcasethis.value=4gobottomThIS.COMMAND1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.f.endcasethisform.refresh4、成绩打印3.3.5课程1、课程查询2、课程输入3、课程维护4、课程打印3.3.5退出3.4报表四、总结当今世界，信息科学技术已经渗透到经济、文化和社会的各个领域，迅速改变着人们的观念、生活和社会结构，作为大学生的我们应该紧跟时代潮流，不断丰富自己的知识，以适应知识经济发展的需要。通过这次关于学生信息管理系统的课程设计，让我更加深刻地感受到了掌握计算机知识的重要，并在这短暂的实践中熟练的掌握了数据库的设计、表单的设计、表单与数据库的连接、SQL语言的使用和了解它的功能：数据定义、数据操纵、数据控制，以及简单VF程序的编写。基本实现了学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除，并对VisualFoxPro6.0的各种功能有了进一步的了解，并且使我的动手操作能力得到了很大提高，为我们以后更加深入的学习奠定了基础