Visual FoxPro 课程设计实验报告--21-52711-737

理化历务理结财税管理人力资源公文写作度┆以下为文案正文： VisualFoxPro课程设计实验报告——“学生信息管理系统”4074224息管理系统VFP6.0握课堂讲授的基本数据库知识和VFP的基本技巧：数据库应用系统；2.VFP的界面组成与操作；3.VFP的工作方式；4.标的基本操作(表的建立与修改、表达式、维护命令)；5.表的查询与统计(排序与索引，SELECT-SQL查询，数据库于视图)；6.程序设计初步(程序文件，程序的控制，多模块程序)。学部分书本关于VFP的内容：2.表单设计；3.表单控件设计；4.实例：汽车修理管理系统的开发。(3)要求能够独立设计。完成一个简单的学生信息管理系统，此系统必须有如下基本功能：2.记录的增加，删除，修改等功能；3.系统界面良好；4.操作方便，运行稳定。FP1.需求分析2.数据库设计3.应用程序设计行测试通过简单的系统设计、开发，激发学生的学习兴趣和动手能力。户统计查询退出退出查询维护个人统计课程统计学生信息课程信息成绩信息学生信息课程户统计查询退出退出查询维护个人统计课程统计学生信息课程信息成绩信息学生信息课程信息成绩信息个人统计课程统计流程图：goscx统计学生信息课程信息成绩信息计f专业、籍贯。Course.dbf记录的是有关课程的信息，如：课程编号、课程名称、学分、任课老师。Score.dbf记录的是每个同学不同科目的考试成绩，有以下这些内容：课程编号、课程名称、学号、成绩。Password.dbf记录系统普通用户的用户名和密码。Passwordm.dbf记录系统管理员的用户名和密码。设计户登陆时此系统时将无法使用系统的维护功能。下面就各个表单功能和使用作如下简述：先选择用户类型：普通用户、管理员，输入密码，按确定键进入(按重写键重新填写；按退出键退出系统)。主要代码如下：optiongroup1.click事件：ethisvaluethisformcomborowsource=""thisvaluethisformcomborowsource="password.用户名"thisvaluethisformcomborowsource="passwordm.管理员"“确定”键command1.click事件：publicguestprivatePassword1esethisformoptiongroupvalueswordpassword1=alltrim(thisform.text1.value)locateforalltrim==alltrim(bo1.value)iffoundandpassword=alltrim(密码)tisformreleaseoformmainscxmessagebox户名或密码错误,请重新输入!")thisformtext1.setfocusendifsethisformoptiongroupvaluewordmpassword1=alltrim(thisform.text1.value)locateforalltrim==alltrim(bo1.value)iffoundandpassword=alltrim(密码)tisformreleaseoformmainscxmessagebox户名或密码错误,请重新输入!")thisformtext1.setfocusendif在此代码中定义了公共变量guest，是为了判断用户类型以确定进入系统界面后“维护”键是否可用。“重写”键command2.click事件：thisformcombovalue=""thisformtextvalue=""thisformtext1.setfocus“退出”键command3.click事件：isformrelease系统界面是普通用户时，系统界面中的“维护”键是不可用的。当管理员登陆时则可以使用“维护”键。“维护”键可否使用是通过form.activate来实现的：ifguest=1thisform.Command2.enabled=.t.elsethisform.Command2.enabled=.f.endifdoformchaxunscxoformweihuscxoformstatisticscxisformreleasermlogo用户可以在此查询学生信息、课程信息和成绩信息。查询学生信息时“确定”键的代码是：thisformpageframepage1.grid1.recordsource=""XHalltrimthisform.pageframe1.page1.text1.value)thisform.pageframe1.page1.grid1.recordsource="selectstudent.学号,student.姓名,student.性别,XHoralltrim姓名)==XHintocursortemp"thisformpageframepage1.text1.value=""查询课程信息时的代码为：kcmcalltrimthisform.pageframe1.page2.text1.value)course.学分,course.任课老师fromcoursewherealltrim(课程名称)=kcmcoralltrim(课程编kcmcintocursortempthisformpageframepage2.text1.value=""查询成绩信息时的代码为：xhalltrimthisformpageframe1.page3.text1.value)thisform.pageframe1.page3.grid1.recordsource="selectstudent.学号,student.姓名,course.课程名称,score.成绩fromstudent,course,scorewherealltrim(score.学号)==xhandalltrim(student.学empthisformpageframepage3.text1.value="".维护界面只有管理员才能进入此界面。进入此界面后，选择组合框里的一项可以查询此项的数据，但不能修改，只有按下“进行修改”键后才能进行修改，修改后按“确定”键确认修改。按“退出”键退出此界面。optiongroupclick码为：ecasethisformoptiongroupoptionvaluethisformgridrecordsource="student"thisformgridrefreshcasethisformoptiongroupoptionvaluethisformgridrecordsource="course"thisformgridrefreshcasethisformoptiongroupoptionvaluethisformgridrecordsource="score"mand1.enabled=.mand2.enabled=.mand3.enabled=.t.“进行修改”键的click代码为：thisform.grid1.enabled=.t.thisform.grid1.readonly=.f.thisform.grid1.allowaddnew=.mand1.enabled=.f.“确定”键的click代码为：sethisform.grid1.enabled=.t.thisform.grid1.allowaddnew=.f.thisform.grid1.readonly=.mand1.enabled=.mand2.enabled=.mand3.enabled=.f.通过选择组合框中的选项，可以统计个人成绩或某一课程的成绩。optiongroupclick码为：ocasethisvaluehisformcomborowsourcethisvalueThisformcomborowsourcestudent号"thisvalueThisformcomborowsourcecourse程名称"ase“确定”键的click代码为：esethisformoptiongroupvaluexhalltrimthisformcombo1.value)ecalculatemaxmin绩),avg(成绩),cnt();forxhtoaa2,a3,a4Thisformtextvaluealltrimstra))Thisformtextvaluealltrimstra))Thisformtextvaluealltrimstra))Thisformtextvaluealltrimstra))sethisformoptiongroupvalueKcmcalltrimthisformcombo.value)Locatefor名称=kcmcCalculatemaxmin绩),avg(成绩),cnt();For程名称=kcmctoa1,a2,a3,a4Thisformtextvaluealltrimstra))Thisformtextvaluealltrimstra))Thisformtextvaluealltrimstra))Thisformtextvaluealltrimstra))ase登陆系统，选择选项按钮组中的“普通用户”，在组合框中选择用户(如用“王仪”登陆，密否有效。进入系统界面，查看“维护”键是否可用(用户为管理员时才可用)；点击“查询”键进入查询界面，点击页框的“学生信息”一项，在文本框中输入学号或姓名(如1或王仪)，单击“确“退出”。点击“统计”进入统计界面，选择选项按钮组中的“个人统计”选项，在组合框中选择学号(如然后单击“退出”。点击“维护”(当用户为管理员时)，选择选项按钮组中的“学生信息”选项，然后单击列表，检