基于VFP的学生成绩管理系统设计
- 格式:pdf
- 大小:311.71 KB
- 文档页数:11
VFP学生成绩管理系统设计报告学生成绩管理系统由高设计,自096 200810301633首先,需求分析学生成绩管理系统包括学生基本信息、课程基本信息、学生成绩信息和部门信息的管理。
它可以添加、删除、修改和查询这些数据。
还要求学生的分数可以很容易地输入和查询。
其功能要求如下:(1)着陆界面:进入系统需要正确的用户名和密码。
(2)学生成绩输入:要求学生所有科目的分数都可以轻松输入。
(3)学生成绩查询:要求能够准确地查询学生在各科的成绩。
④数据维护:它可以维护学生的基本信息、学生成绩信息、课程信息和部门信息。
(5)系统维护:要求进入系统后可以更改登录密码。
二.系统的总体设计“学生成绩管理系统”可以全面管理学生的各种信息。
系统的总体结构是根据需求分析设计的,如图1- 首先,需求分析学生成绩管理系统包括学生基本信息、课程基本信息、学生成绩信息和部门信息的管理。
它可以添加、删除、修改和查询这些数据。
还要求学生的分数可以很容易地输入和查询。
其功能要求如下:(1)着陆界面:进入系统需要正确的用户名和密码。
(2)学生成绩输入:要求学生所有科目的分数都可以轻松输入。
(3)学生成绩查询:要求能够准确地查询学生在各科的成绩。
④数据维护:它可以维护学生的基本信息、学生成绩信息、课程信息和部门信息。
(5)系统维护:要求进入系统后可以更改登录密码。
第二,系统的总体设计“学生成绩管理系统”可以全面管理学生的各种信息。
根据需求分析,系统的总体结构设计如图1所示:成绩输入模块、成绩查询模块、数据维护模块和系统维护模块。
数据维护模块还包括:学生信息维护模块、学生成绩信息维护模块、部门信息维护模块、课程信息维护模块。
学生成绩管理系统登录界面系统安全维护课程信息维护部门信息维护学生成绩信息维护学生基本信息维护学生成绩录入系统维护学生成绩查询数据维护系统主界面图1-数据维护模块还包括: 学生信息维护模块、学生成绩信息维护模块、部门信息维护模块、课程信息维护模块。
6。
3查询功能模块查询功能可以按学校、姓名和考号中的任何一种方式,对考生的成绩进行查询.考生信息导入后,打开的表单,如图6。
8所示,在“按学校"的下拉列表框中所列的学校是系统自动将不同的参赛学校列进去的。
用户只要选择一个学校,单击“确定”按钮,即可在表格中列出该学校考生的成绩信息。
同时,单击“导出EXCEL”按钮,可保存该学校考生的成绩单,还可利用本系统提拱的发送电子邮件功能,将该学校考生的成绩单发送给该学校.另外,只要将光标移到“按考号”或“按姓名”的文本框中,输入考号或姓名,单击“确定”按钮,表格即显示该学生的考试成绩[4]。
图6.8查询表单实现系统自动将不同的参赛学校列进下拉列表框功能,需要在表单Form1的Activate事件中加入如下代码:count to num &&判断记录数go topif num==0 &&无记录messagebox(”请先录入考生信息",64,”提示")thisform。
releaseelse &&有记录set order to 1 &&打开索引,按学校升序排go topa=学校thisform。
combo1。
additem(a)&&将首记录的学校名加进去skipdo while not eof() &&以下代码完成移动指针的作用,将不同的学校名加入组合框if 学校==askipelsethisform。
combo1。
additem(学校)skipa=学校endifenddoset order to &&关闭索引endif6。
4排序功能模块排序功能包括按团体排序和按个人排序,实现对考生成绩的统计、排序等功能.6。
4。
1按团体排序功能考生信息导入后,打开的表单,如图6。
9所示,这里所说的团体是指学校,一个学校代表一个团体,本系统自动将考生人数十人以上(包括十人)的学校放在一个列表框中,不满足十人的学校放在另一个列表框中,单击学校即可显示该学校的考生人数和总分。
《Visual FoxPro 数据库程序设计》课程设计说明书题目:学生成绩管理系统1.系统总体设计1.1系统功能简介数据录入:输入学生的学号,给出学生姓名;输入课程号,给出课程名;输入学生成绩。
数据修改:按课程号修改成绩。
成绩查询:按学号查询该同学的各科成绩;按课程号查询每名同学的成绩,并排序查询结果。
1.2系统功能结构图2.数据库设计2.1建立数据库和基本表,并建立合理的约束打开Visual FoxPro,建立数据库,名为学生成绩管理系统,并在数据库下建立三张表:学生表、课程表、成绩表。
表结构如下:学生表(学号,姓名,性别,出生年月)建立主索引:名为学号表达式为:学号课程表(课程名,课程号,学分,主讲教师)建立主索引:名为课程号表达式为:课程号成绩表(学号,课程号,成绩)建立普通索引:名为学号表达式为:学号建立普通索引:名为课程号表达式为:课程号学生表、课程表、成绩表相关联如图所示:2.2录入数据学生表录入数据如下所示:课程表录入数据如下所示:成绩表录入数据如下所示:3.程序设计界面3.1系统主界面系统主界面设计如图所示:1)菜单设计1、按照系统功能结构图设计顶层菜单。
2、在VFP系统主菜单的“显示”菜单下,选择“常规选项”命令,在弹出的对话框中,勾选顶层表单选项,将该菜单设置为顶层表单菜单。
设计如下:2)控件属性设置图片Image1的路径属性Picture设置为VFP的默认路径。
标签label1的标题属性Caption设置为:三亚学院学生成绩管理系统,并设置相应的字体、字号和颜色。
3)表单代码设计表单的Init事件代码:DO 学生成绩.MPR WITH THIS表单的Destroy事件代码:RELEASE MENU 学生成绩EXTENDED3.2学生成绩录入学生成绩录入表单设计如图所示:1)控件属性设置标签:label1学号标题:Caption 设置为:学号Label2课程号标题:Caption 设置为:课程号Label3成绩标题:Caption 设置为:成绩文本框:txt1学号数据源:ControlSource 设置为:成绩.学号 Txt2课程号数据源:ControlSource 设置为:成绩.课程号 Txt3成绩数据源:ControlSource 设置为:成绩.成绩命令按钮:command1 标题:caption 设置为:追加Command2 标题:caption 设置为:退出2)代码设计文本框txt学号的GotFocus事件代码:select 成绩append blankjlh=recno()文本框txt学号的LostFocus事件代码:select 成绩replace 学号 with thisform.txt学号.valueselect 学生locate for 学号=thisform.txt学号.valuebel1.caption="姓名: "+学生.姓名select 成绩文本框txt课程号的getFocus事件代码:select 成绩thisform.txt课程号.value=' '文本框txt课程号的LostFocus事件代码:select 成绩go jlhreplace 课程号 with thisform.txt课程号.valueselect 课程表locate for 课程号=thisform.txt课程号.valuebel2.caption="课程名: "+课程表.课程名 select 成绩go jlhthisform.txt成绩.value=0文本框txt成绩的getFocus事件代码:select 成绩go jlh文本框txt成绩的LostFocus事件代码:select 成绩go jlhreplace 成绩 with thisform.txt成绩.value命令按钮command1的Click事件代码:bel1.caption=" "bel2.caption=" "select 成绩append blankthisform.txt学号.setfocusthisform.refresh命令按钮command2的Click事件代码:select 成绩useuse 成绩delete for 学号=space(8).or.课程号=space(5)packclose databasethisform.release3.3学生成绩修改学生成绩修改表单设计如图所示:按课程号修改数据,用户由键盘输入课程号,当控制交点离开文本框时,在表格中显示要修改的数据记录。
第26卷第4期山西青年管理干部学院学报Vol.26No.4 2013年12月Journal of Shanxi College for Youth Administrators Dec.,2013【计算机应用】基于VFP 的学生成绩查询系统的设计与实现韩继英(山西职业技术学院计算机工程系,山西太原030006 )摘要:目前,利用计算机对数据信息进行管理已经成为主流。
基于VFP 的学生成绩查询系统的设计与实现,可以使高校工作人员摆脱手工管理学生成绩的方式,加快成绩查询速度,提高高校的成绩管理效率。
关键词:成绩查询系统;Microsoft Visual FoxPro 6.0;数据库中图分类号:TP391.3文献标识码:C文章编号:1008-8997(2013)04-0108-02目前仍有很多高校采用手工方式来管理学生成绩,这样不仅降低了成绩管理员工作效率,而且还不便于学生查询自己各学期的成绩。
如果能够有效地利用计算机强大的数据处理功能来管理学生考试成绩的话,这一问题就可以迎刃而解。
笔者曾利用Microsoft Visual FoxPro 6.0开发了一个学生成绩查询系统,来方便教务人员对成绩的管理和学生对自己各学期各门功课成绩的随机查询。
一、需求分析1.功能需求一个良好的成绩查询系统应该能够将学生成绩输入到系统中,由专门的成绩管理员来管理,并且学生能够通过系统查询自己各学期各门功课的成绩。
基于上述任务,该系统可以划分为任课教师模块、学生模块、成绩管理员模块和辅导员模块4个模块。
(1)任课教师模块。
在该模块,各任课教师可以在每学期期末考试结束后,完成所授课程成绩的录入、修改和打印,并能够对自己的登录密码进行修改。
(2)学生模块。
在该模块,每个学生登录系统以后,可以按学期查询每门课程的成绩,并能够对自己的登录密码进行修改。
(3)成绩管理员模块。
在该模块,管理员可以对每一个系统用户的个人信息进行管理,进行添加、修改以及删除等操作;可以完成对每学期课程的安排、录入、修改、删除等操作任务;还可以对自己的登录密码及其他任何用户的登录密码进行修改,对每个用户的权限进行设置。
基于VFP的学生成绩管理系统设计学生成绩管理系统一.系统概述学生成绩管理系统可以广泛应用于大专院校、高中、初中、小学等各类学校。
下图所示是我设计的中山大学学生成绩管理系统。
二.系统功能与结构图1.系统功能简介初始化:清空所有数据(慎用)输入/编辑:学生信息输入、成绩输入、专业信息输入;打印:打印成绩单;退出:退出系统。
2.系统结构图三.数据库设计创建新项目,添加表,并输入数据学生数据表: xs.dbf成绩数据表: cj.dbf专业代码数据表: zydm.dbf系统数据表:(用于验证管理员身份) xt.dbf四.界面设计1.欢迎界面jm.scx“进入”click事件use xt.dbfif alltrim(thisform.text1.value)==alltrim(用户名) .and. alltrim(thisform.text2.value)==alltrim(密码)use_screen.visible=.t.do form caidan.scxthisform.releaseelsemessagebox("用户名与密码不对!","本系统通知您") endif“退出”click事件quit2.系统主界面caidan.scx“系统初始化”click事件do form csh.scx“学生信息输入”click事件do form xssr.scx“成绩输入”click事件do form cj.scx“专业信息输入”click事件do form zysr.scx“打印”click事件Report from cjbb.frx “系退出”click事件quit3.系统工具界面(1)初始化界面 csh.scx“初始化”click事件sele 1use cj excldele allpacksele 2use xs excldele allpacksele 3use zydm excldele allpackclose datamessagebox("操作完成","")(2)学生信息输入界面xssr.scx学生信息输入界面xssr.scx是一个表单集,有两个表单如上所示。
学生综测管理系统一. 需求分析(一)数据分析1.原始数据包括4个表:(1)会计一班综测成绩单(2)会计二班综测成绩单(3)会计三班综测成绩单(4)财务管理班综测成绩单2.表内容:3.表单(封面):要求:在用户名中输入学号密码中输入数字“0”点击“确认”按钮后进入主菜单如果未输入密码时,显示如果输入密码错误时,显示4.菜单:(1)数据浏览:例如点击“浏览”栏中的财管班综测,得:精品文档(2)数据编辑:例如点击“编辑”按钮栏中的会计二班得:(3)数据查询:按照学号查询个人综测成绩例如查询学号为20101000001的学生的综测得如果学好不存在时,显示5.退出:点击“退出”按钮时,显示点击“是”则可以退出系统。
二. 程序设计主程序set talk offclose alldo form fmmodify wind screen titl'地大经管学生综测管理系统' cleardo cxcd.mprread eventquit菜单部分浏览子菜单代码:会计一班综测use kj1brow会计二班综测use kj2brow会计三班综测use kj3brow财管综测use cgbrow编辑子菜单代码:编辑会计一班use kj1append编辑会计二班use kj2append编辑会计三班use kj3append编辑财管班use cgappend查询子菜单代码:会计一班do while .T.accept "请输入要查询的学生学号(输入0结束查询):"to xh if xh=='0'exitendiflocate for alltrim(学号)==xhif found()disp for alltrim(学号)==xhelsewait "没有此学号!" windowendifenddo会计二班use kj2do while .T.accept "请输入要查询的学生学号(输入0结束查询):"to xh if xh=='0'exitendiflocate for alltrim(学号)==xhif found()disp for alltrim(学号)==xhelsewait "没有此学号!" windowendifenddouse kj3do while .T.accept "请输入要查询的学生学号(输入0结束查询):"to xh if xh=='0'exitendiflocate for alltrim(学号)==xhif found()disp for alltrim(学号)==xhelsewait "没有此学号!" windowendifenddo财管班use cgdo while .T.accept "请输入要查询的学生学号(输入0结束查询):"to xh if xh=='0'exitendiflocate for alltrim(学号)==xhif found()disp for alltrim(学号)==xhelsewait "没有此学号!" windowendifEnddo汇总查询use hzdo while .T.accept "请输入要查询的学生学号(输入0结束查询):"to xhif xh=='0'exitendiflocate for alltrim(学号)==xhif found()disp for alltrim(学号)==xhelsewait "没有此学号!" windowendifEnddo退出代码:ask=messagebox("确实要退出系统吗",4+32+256,"学生综测管理系统") if ask=6close allquitelseendif帮助子菜单代码:版本信息clearuse 版本list封面部分代码数据环境中加入新口令表(xklb.dbf,存密码和学号)Form1.intn中写:Public errornumber,PsErrornumber=0退出的click中写:ask=messagebox("确定要退出系统吗?",4+32+256,"学生综测管理系统") if ask=6close allquitelseendif确定的click中写:use xklba=Thisform.text1.valueb=Thisform.text2.valueif a==""n=messagebox("请输入用户名",4+32,"学生管理系统登陆")do casecase n=6thisform.text1.value=""thisform.text1.setfocuscase n=7thisform.releaseendcaseelseif b==""n=messagebox("请输入密码",4+32,"学生管理系统登陆")do casecase n=6thisform.text2.value=""thisform.text2.setfocuscase n=7thisform.releaseendcaseendifendiflocate for alltrim(xklb.Id)==alltrim(a)if found()if alltrim(xklb.Ps)==alltrim(b)do cxcd.mprthisform.releaseelsemessagebox("密码错误,请重新输入",64,"学生综测管理系统登陆") errornumber=errornumber+1endifelsemessagebox("用户"+a+"不存在!",64,"学生综测管理系统登陆") errornumber=errornumber+1endif。
毕业设计(论文)任务书学院级专业姓名题目学生成绩管理系统一、主要内容学生成绩管理是学校管理中异常重要的一个环节,作为学校,除了育人,就是育知,学生成绩管理的计算机化是整个学校教务管理中的重要一部分,能否实现这一步关系到学校办学整体效率的高低,介与它的重要性,学生成绩管理系统的开发与应用就逐渐提入议程,并占着越来越重要的份量。
运用学生成绩管理系统可以减轻学院教学人员的工作量,加快查询速度,加强管理,以及国家各部门关于信息化的步伐,使各项管理更加规范化。
还有就是缩小开支,提高工作效率与准确率。
可以使学生能够合理安排时间,能够尽快的知道自己的考试成绩,投入新的课程的学习或复习这次没有考过的课程.并且学生成绩管理系统的应用也为今天的高校教育在未来市场的竞争力的提高达下坚实的基础。
如今,不管是小学、初中、高中、甚至是很多大学生的学生成绩管理基本上是靠人工进行管理,但随着时间的变化,学校规模的扩大,有关学生成绩管理工作和所涉及到的数据量越来越大越来越多,大多数学校不得不靠增加人力、物力、财力来进行学生成绩管理。
但是人工管理成绩档案具有效率低、查找麻烦、可靠性不高、保密性低等因素.因此开发出一个不仅仅是适用于大中专院校以及其它高校通用的学生成绩管理系统是必要的。
本系统主要用于学校学生信息管理,特别是学生成绩的管理,采用面向对象的设计思想,以菜单和表单的形式进行各表单的调用,主要任务是计算机对学生信息进行日常管理,如查询、修改、增加、删除,另外考虑到学生选课。
针对这些要求,设计这些要求,设计了学生成绩管理系统。
因此,本系统应该主要完成和实现如下功能:1.系统登陆功能。
要求系统登陆时有密码管理功能,可分为管理人员登陆和普通用户登陆两种方式,只有身份和密码全正确才能成功登陆。
2.基本数据管理功能.此功能主要是用于对学生的基本情况的管理,如学生所在的系、班级、以及所学的专业、课程等内容。
管理人员登陆后可对系统内的信息进行修改。
VF成绩管理系统设计VF成绩管理系统设计引言 31.系统规划 31.1系统设计思想 41.2系统设计目标 41.3 系统总体设计方案 42、系统分析 42.1业务需求分析 42.2业务流程图 42.3数据流程图 53.系统设计 63.1系统软件功能结构 63.2系统软硬件配置 73.3系统数据库设计 73.3.1数据库设计要点 73.3.2数据库应用系统设计的重点及难点 8 页脚内容13.3.3数据库及其表的建立和使用 83.3.4系统文件组成说明 83.3.5数据库的概念设计 83.3.6数据库的逻辑设计 93.3.7数据库的物理设计 103.4系统输出设计 103.5系统输入设计 104.系统实施 114.1主程序流程 114.2主程序设计 114.3子程序设计 124.3.1系统登录 124.3.2系统主界面 134.3.3档案管理 134.3.4成绩管理 184.3.5 报表打印 22页脚内容24.3.6系统管理 234.3.7退出系统 254.4系统测试 255结束语 25致谢: 26参考文献 131[10]VF成绩管理系统ER图+流程图+总结结构图+数据流图【摘要】福州大学学生成绩管理系统以VF6.0为软件平台,包括学生信息管理、成绩录入、成绩查询、报表打印四大模块。
是一个实效,快捷,友好的系统,为学校管理者提供了更好的了解本学校学生的基本情况、班级安排、课程安排及学校各方面的安排提供了帮助,可以说是——得利助手。
把复杂的系统简单化是福州大学学生成绩管理系统的特点,快捷,方便,准确是系统的长处,也为学校学生和老师提供了方便,并且可对相应的信息进行打印输出。
【关键词】学生成绩数据库Visual Foxpro 6.0引言随着计算机技术的飞速发展,信息时代的到来,信息改变了我们这个社会。
学校在管理、教学、办公各个方面也在悄悄地变化。
一个学校的信息化程度体现在将计算机与信息技术应用于教学与管理,以现代化工具代替传统手工作业。
《数据库应用》课程设计题目:学生成绩管理系统二零一一年十二月一.系统总体设计1. 系统功能简介录入:录入学号,给出学生姓名;录入课程号,给出课程名;录入成绩。
修改:按课程号修改成绩。
查询:按学号查询该同学的各科成绩;按课程号查询每名同学的成绩,排序查询结果。
打印:按课程号打印成绩单。
2. 系统功能结构图二.数据库设计1. 学生表(学号,姓名,性别,出生年月)主关键字:学号2. 课程表(课程名,课程号,学分,主讲教师)主关键字:课程号3. 选修表(学号,课程号,成绩)普通关键字:学号普通关键字:课程号,如图所示;实验数据1)学生表数据如图所示:2)课程表数据如图所示:3)选课表数据如图所示:三.程序界面设计1. 系统主界面设计1)控件属性设置图片Image1的路径属性Picture设置为VFP的默认路径。
标签label1的标题属性Caption设置为:学生成绩管理系统,并设置相应的字体、字号和颜色。
2)代码设计表单的Destroy事件代码:RELEASE MENU wh EXTENDED。
3)菜单设计按照系统功能结构图设计菜单。
在VFP系统主菜单的“显示”菜单下,选择“常规选项”命令,在弹出的对话框中,勾选顶层表单选项,将该菜单设置为顶层表单菜单,如图所示。
2. 学生成绩录入学生成绩录入表单设计,如图所示。
1)控件属性设置标签:lbl学号标题:Caption 设置为:学号Lbl课程号标题:Caption 设置为:课程号Lbl成绩标题:Caption 设置为:成绩Label1,label2标签无标题,程序运行时,根据文本框的内容显示标题信息。
文本框:txt学号数据源:ControlSource 设置为:选修.学号Txt课程号数据源:ControlSource 设置为:选修.课程号 Txt成绩数据源:ControlSource 设置为:选修.成绩命令按钮:command1 标题:caption 设置为:追加Command2 标题:caption 设置为:退出2)代码设计文本框txt学号的getFocus事件代码:select 选修append blankjlh=recno()文本框txt学号的LostFocus事件代码:select 选修replace 学号 with thisform.txt学号.valueselect 学生locate for 学号=thisform.txt学号.valuebel1.caption="姓名: "+学生.姓名select 选修文本框txt课程号的getFocus事件代码:select 选修thisform.txt课程号.value=' '文本框txt课程号的LostFocus事件代码:select 选修go jlhreplace 课程号 with thisform.txt课程号.valueselect 课程locate for 课程号=thisform.txt课程号.valuebel2.caption="课程名: "+课程.课程名 select 选修go jlhthisform.txt成绩.value=0文本框txt成绩的getFocus事件代码:select 选修go jlh文本框txt成绩的LostFocus事件代码:select 选修go jlhreplace 成绩 with thisform.txt成绩.value命令按钮command1的Click事件代码:bel1.caption=" "bel2.caption=" "select 选修append blankthisform.txt学号.setfocusthisform.refresh命令按钮command2的Click事件代码:select 选修useuse 选修delete for 学号=space(8).or.课程号=space(5)packclose databasethisform.release3. 学生成绩修改按课程号修改数据,用户由键盘输入课程号,当控制交点离开文本框时,在表格中显示要修改的数据记录。
用户用鼠标、键盘对数据记录进行修改,如图所示。
1)控件属性设置标签:label1 标题:caption 设置为:课程号文本框:text1 接收由键盘输入的数据命令按钮:command1 标题:caption 设置为:退出表格:显示要修改的记录2)代码设计文本框text1的LostFocus的事件代码:set filter to alltrim(课程号)=alltrim(thisform.text1.value)设置过滤器,修改满足条件的数据记录。
4. 学生成绩查询(1)标签:label1 标题:caption 设置为:学号文本框:text1 接收由键盘输入的数据命令按钮:command1 标题:caption 设置为:查询Command2 标题:caption 设置为:退出表格:显示查询结果2)代码设计命令按钮command1的Click事件代码:set safety offselect 选修.学号,学生.姓名,选修.课程号,课程.课程名,选修.成绩from 选修,学生,课程;where 选修.学号=学生.学号 and 选修.课程号=课程.课程号 and alltrim(选修.学号)=alltrim(thisform.text1.value);into table cxbthisform.grid1.recordsource='cxb'thisform.refreshset safety on命令按钮command2的Click事件代码:thisform.release5. 学生成绩查询(2)标签:label1 标题:caption 设置为:学号文本框:text1 接收由键盘输入的数据单选按钮组:OptionGroup1.option1 标题:Caption 设置为:升序 OptionGroup1.option2 标题:Caption 设置为:降序命令按钮:command1 标题:caption 设置为:查询Command2 标题:caption 设置为:退出表格:显示查询结果2)代码设计命令按钮command1的Click事件代码:set safety offif thisform.optiongroup1.option1.value=1select 选修.学号,学生.姓名,选修.课程号,课程.课程名,选修.成绩from 选修,学生,课程;where 选修.学号=学生.学号 and 选修.课程号=课程.课程号 and alltrim(选修.课程号)=alltrim(thisform.text1.value);order by 选修.成绩 asc into table cxb1elseselect 选修.学号,学生.姓名,选修.课程号,课程.课程名,选修.成绩from 选修,学生,课程;where 选修.学号=学生.学号 and 选修.课程号=课程.课程号 and alltrim(选修.课程号)=alltrim(thisform.text1.value);order by 选修.成绩 desc into table cxb1endifthisform.grid1.recordsource='cxb1'thisform.refreshset safety on6. 打印学生成绩单设计该功能的实现方法是,由键盘输入要打印的课程号,按课程号整理数据,然后调用报表文件输出报表,如图所示。
1)控件属性设置标签:label1 标题:caption 设置为:课程号命令按钮:command1 标题:caption 设置为:预览Command2 标题:caption 设置为:退出文本框:text1 接收由键盘输入的信息2)代码设计命令按钮command1的Click事件代码:select 课程locate for alltrim(课程号)=alltrim(thisform.text1.value)kcm=课程名select 选修select 选修.学号,学生.姓名,选修.课程号,课程.课程名,选修.成绩;from 选修,学生,课程;where 选修.学号=学生.学号 and 选修.课程号=课程.课程号;and alltrim(选修.课程号)=alltrim(thisform.text1.value);into table dybreport form 学生成绩报表.frx previewset safety on命令按钮command2的Click事件代码:thisform.release7. 报表文件设计如图所示。
数据源为:dyb.dbf用标签设计表头部分,用域控件设计输出数据,kcm变量为全程公共变量,是根据输入的课程号,检索出的相应课程名,运行结果如图所示。