VF综合性课程设计.doc

*计算机系综合性实验报告计算机系综合性实验实 验 报 告 课程名称 程序设计语言基础（VF） 实验学期 2011 至 2012 学年 第 2 学期学生所在系部 年级 11 专业班级 学生姓名 学号 任课教师 实验成绩 计算机系制程序设计语言基础VF课程综合性实验报告开课实验室： 2012 年 6 月 25 日实验题目简单的“学生信息查询系统”的设计与实现一、实验目的1、掌握应用程序设计规划的基本方法；、掌握使用VFP设计简单的查询系统；、掌握数据表的建立，及表单控件与数据源的连接方法；、掌握查询、修改、添加记录的基本实现方法二、设备与环境PC兼容机、Windows系列操作系统、Visual FoxPro数据库编程环境三、实验内容（一）设计简单的“学生信息查询系统”；要求：设计一个简单的“学生信息查询系统”，其功能包括系统的登陆、学生信息的添加/删除、根据不同条件进行模糊查询等。（二）创建项目文件，设计数据库，包括：密码表、学生表、课程表和成绩表表中记录自行输入，记录应尽量真实，每个表记录数不得少于条。表结构如下。密码表passwd.dbf字段名字段类型字段宽度说明用户名字符型10字符密码字符型10英文字母或数字学生表student.dbf字段名类型宽度小数位数学号字符型8-姓名字符型8-性别字符型2-出生日期日期型8-系别字符型10-贷款否逻辑型1-简历备注型4-照片通用型4-课程表course.dbf字段名类型宽度小数位数课程号字符型3-课程名字符型20-学时数值型3-学分数值型2-4.成绩表score.dbf字段名类型宽度小数位数NULL值学号字符型8-课程号字符型3-成绩数值型51（三）欢迎界面要求：创建系统欢迎界面，单击窗口开始系统登录（四）查询系统登陆界面要求：、填入正确的用户名和密码，登录系统；、假若用户名或密码错误，应给出相应提示；、重试次数不得超过三次。、加入“重新填写”功能。（五）系统主界面要求：“学生信息查询系统”主界面包括四个按钮：、学生信息查询、信息的查询、信息的打印、退出。（六）查询模块要求：、查询能够实现按照不同条件进行查询；、查找到的信息显示在查询内容下方的表格中；、当没有找到符合条件的记录时，能够给出友好的提示信息；（七）信息浏览界面要求：、完成信息的浏览操作；、实现不同控件绑定数据源显示；（八）记录的打印界面要求：、实现记录的打印功能。、打印报表要求实现相关数据统计功能。四、实验结果及分析（一）项目管理器界面；图1 学生信息管理项目管理器界面（二）数据库界面：图2 学生信息管理数据库（三）数据表界面：图3 学生信息表表图4 课程表图5 成绩表图6 密码表（四）欢迎界面图7 欢迎界面 属性设置：对象属性名值作用Form1Alwaysontop.T. - 真表单总是处在其他打开窗口之上Alwayscenter.T. - 真初始化时表单处在主窗口居中位置Caption欢迎使用学生信息查询系统设置欢迎界面表单标题内容Maxbutton.F.- 假控制表单不具有最大化按钮Picture欢迎界面.jpg为表单插入背景图Label1Autosize.T. 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption学生信息管理系统设置文字内容Fontname隶书设置字体为隶书Fontsize36设置字号为36Forecolor255,255,0设置体颜色为黄色Label2Autosize.T. 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption单击图片进入系统设置文字内容Fontname隶书设置字体为隶书Fontsize14设置字号为14Forecolor255,255,0设置体颜色为黄色Timer1Interval200指定标签游动间隔时间为200msImage1Picture图标.bmp指定显示的图片Stretch1 等比填充指定图像尺寸调整方式代码： Form1的rightclick事件代码： DO 快捷菜单.MPR Timer1的timer事件代码： if thisform.label2.left+thisform.label2.width0thisform.label2.left=thisform.widthelsethisform.label2.left=thisform.label2.left -10endif Image1的click事件代码： thisform. releasedo form 系统登录.scx（五）登录界面图8 系统登录界面 属性设置：对象属性名值作用Form1Alwaysontop.T. - 真表单总是处在其他打开窗口之上Alwayscenter.T. - 真初始化时表单处在主窗口居中位置Caption系统登录设置欢迎界面表单标题内容Maxbutton.F.- 假控制表单不具有最大化按钮Picture欢迎界面.jpg为表单插入背景图Label1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption学生信息管理系统登录设置文字内容Fontname隶书设置字体为隶书Fontsize36设置字号为36Forecolor255,255,0设置体颜色为黄色Label2Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption用户名设置文字内容Fontname隶书设置字体为隶书Fontsize18设置字号为18Forecolor255,255,0设置体颜色为黄色Label3Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption口令设置文字内容Fontname隶书设置字体为隶书Fontsize18设置字号为18Forecolor255,255,0设置体颜色为黄色Text2Passwordchar*设置占位符Command1Autosize.T. - 真自动调节控件大小以容纳其内容Caption确定（Y）设置文字内容Fontsize14设置字号为14Command2Autosize.T. - 真自动调节控件大小以容纳其内容Caption重新填写(R)设置文字内容Fontsize14设置字号为14Command3Autosize.T. - 真自动调节控件大小以容纳其内容Caption退出（Q）设置文字内容Fontsize14设置字号为14代码：Form1的load事件代码：public istore 0 to iCommand1的click事件代码：local cnamecname = alltrim(thisform.text1.value)use 密码表i=i+1if i3 if ! empty(cname) locate for 用户名=alltrim(thisform.text1.value) if found() if alltrim(密码)=alltrim(thisform.text2.value) release thisform do form 学生信息管理系统主界面 else messagebox(密码错误，请重新输入,48) thisform.text2.value= thisform.text2.setfocus endif else messagebox(无此用户，请重新输入,48) thisform.text1.value= thisform.text2.value= thisform.text1.setfocus endif else messagebox(没有输入用户，无法查询！,16,提示信息) thisform.text1.setfocus endifelse messagebox(输入错误次数过多，禁止进入系统,48) release thisform clear events quitendif useCommand2的click事件代码：thisform.text1.value=thisform.text2.value=thisform.text1.setfocusCommand3的click事件代码：release thisform（六）系统主界面图9 系统主界面 属性设置：对象属性名值作用Form1Alwayscenter.T. - 真初始化时表单处在主窗口居中位置Caption主界面设置欢迎界面表单标题内容Maxbutton.F.- 假控制表单不具有最大化按钮Picture系统界面.jpg为表单插入背景图ShowWindow2 作为顶层表单指定工具栏位置Label1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption学生信息管理系统主界面设置文字内容Fontname隶书设置字体为隶书Fontsize36设置字号为36Forecolor255,255,0设置体颜色为黄色Command1Autosize.T. - 真自动调节控件大小以容纳其内容Caption学生信息浏览设置文字内容Fontsize20设置字号为20Command2Autosize.T. - 真自动调节控件大小以容纳其内容Caption基本信息查询设置文字内容Fontsize20设置字号为20Command3Autosize.T. - 真自动调节控件大小以容纳其内容Caption基本信息打印设置文字内容Fontsize20设置字号为20Command4Autosize.T. - 真自动调节控件大小以容纳其内容Caption退出系统设置文字内容Fontsize20设置字号为20代码：Form1的init事件代码：DO 自定义菜单.MPR WITH THIS, .T.Command1的click事件代码：release thisformdo form 学生基本信息浏览Command2的click事件代码：release thisformdo form 基本信息查询Command3的click事件代码：release thisformdo form 基本信息打印Command4的click事件代码：release thisform（七）信息浏览界面图10 基本信息浏览界面 属性设置：对象属性名值作用Form1Alwayscenter.T. - 真初始化时表单处在主窗口居中位置Caption学生基本信息浏览设置欢迎界面表单标题内容Maxbutton.F.- 假控制表单不具有最大化按钮Picture系统界面.jpg为表单插入背景图ShowWindow2 作为顶层表单指定工具栏位置Label1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption学生基本信息浏览设置文字内容Fontname隶书设置字体为隶书Fontsize36设置字号为36Forecolor255,255,0设置体颜色为黄色Label2、3、4、5、6、7、8Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption学号、性别、系别、姓名、出生日期、简历、照片设置文字内容Fontname隶书设置字体为隶书Fontsize12设置字号为12Forecolor255,255,0设置体颜色为黄色Text1ControlSource学生信息表.学号绑定数据源Text2ControlSource学生信息表.姓名绑定数据源Text3ControlSource学生信息表.出生日期绑定数据源Optiongroup1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致BorderStyle0 无指定对象无边框ButtonCount2设置选项按钮组数目ControlSource学生信息表.性别绑定数据源Vaule1初始停留在第一个按钮Option1、2Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption男、女设置文字内容Fontname隶书设置字体为隶书Fontsize12设置字号为12Forecolor255,255,0设置体颜色为黄色Combo1ControlSource学生信息表.系别绑定数据源Fontsize16设置字号为16Style2 下拉列表框指定控件的样式Edit1ControlSource学生信息表.简历绑定数据源Check1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption贷款否设置文字内容ControlSource学生信息表.贷款否绑定数据源Fontname隶书设置字体为隶书Fontsize14设置字号为14Forecolor255,255,0设置体颜色为黄色oleboundcontrol1ControlSource学生信息表.学号绑定数据源Stretch1 等比填充指定图像尺寸调整方式Commandgroup1Autosize.T. - 真自动调节控件大小以容纳其内容BackStyle0 透明指定标签对象与背景色一致BorderStyle0 无指定对象无边框ButtonCount5设置选项按钮组数目Commandgroup1Command1、2、3、4、5Autosize.T. - 真自动调节控件大小以容纳其内容Caption首记录、上一条、下一条、末记录、返回设置欢迎界面表单标题内容Fontsize14设置字号为14代码：Form1的init事件代码：DO 自定义菜单.MPR WITH THIS, .T.Commandgroup1的click事件代码：DO CASECASE THIS. VALUE = 1 GO TOPTHIS.COMMAND2.ENABLED=.F.THIS.COMMAND3.ENABLED=.T.THISFORM.REFRESHCASE THIS. VALUE = 2 SKIP -1 THIS.COMMAND3.ENABLED=.T. IF BOF() MESSAGEBOX(已经到表头！,0+64,提示信息) THIS.COMMAND2.ENABLED=.F. ENDIF THISFORM.REFRESHCASE THIS. VALUE = 3 SKIP THIS.COMMAND2.ENABLED=.T. IF EOF() MESSAGEBOX(已经到表尾！,0+64,提示信息) THIS.COMMAND3.ENABLED=.F. ENDIF THISFORM.REFRESHCASE THIS. VALUE = 4 GO BOTTOM THIS.COMMAND3.ENABLED=.F. THIS.COMMAND2.ENABLED=.T. THISFORM.REFRESHCASE THIS. VALUE = 5 RELEASE THISFORM DO FORM 学生信息管理系统主界面ENDCASECombo1的init事件代码： THIS. ADDITEM(法律系)THIS. ADDITEM(计算机系)THIS. ADDITEM(管理系)THIS. ADDITEM(秘书系)THIS. ADDITEM(机械系)THIS. ADDITEM(中文系)THIS. LISTINDEX=1（八）信息查询界面1、学生信息查询 图11 基本信息查询-学生信息查询属性设置：对象属性名值作用Form1Alwayscenter.T. - 真初始化时表单处在主窗口居中位置Caption基本信息查询设置欢迎界面表单标题内容Maxbutton.F.- 假控制表单不具有最大化按钮Picture系统界面.jpg为表单插入背景图ShowWindow2 作为顶层表单指定工具栏位置Label1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption基本信息查询设置文字内容Fontname隶书设置字体为隶书Fontsize36设置字号为36Forecolor255,255,0设置体颜色为黄色Pageform1Pagecount3设置页框中包含页面数为3Page1属性设置：对象属性名值作用Page1Caption学生信息查询设置欢迎界面表单标题内容BackColor255,128,192设置背景颜色Picture页框.jpg为表单插入背景图Label1、2Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption查询方式、查询内容设置文字内容Fontsize12设置字号为12Forecolor128,0,255设置体颜色Optiongroup1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致BorderStyle0 无指定对象无边框ButtonCount4设置选项按钮组数目Vaule0初始不显示光标Optiongroup1Option1、2、3、4Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption学号、姓名、性别、系别设置文字内容Fontsize11设置字号为11Check1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption显示全部设置文字内容Fontsize12设置字号为12Grid1ColumnCount5指定列的数目Header1、2、3、4、5Alignment2 居中设置文本对齐方式Caption学号、姓名、性别、出生日期、系别设置文字内容Command1Caption查询(C)设置文字内容Command2Caption返回设置文字内容代码：Form1的load事件代码：public seleno store 0 to selenoForm1的unload事件代码：close table allForm1的init事件代码：THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=THISFORM.PAGEFRAME1.PAGE2.GRID1.RECORDSOURCE=THISFORM.PAGEFRAME1.PAGE3.GRID1.RECORDSOURCE=DO 自定义菜单.MPR WITH THIS, .T.Optiongroup1的click事件代码：DO CASE CASE THIS.VALUE=1 SELENO=1 CASE THIS.VALUE=2 SELENO=2 CASE THIS.VALUE=3 SELENO=3 CASE THIS.VALUE=4 SELENO=4ENDCASECheck1的click事件代码：if thisform.pageframe1.page1.check1.value=1 THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=SELECT 学号,姓名,性别,出生日期,系别 from 学生信息表 into cursor Qelse THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=endifCommand1的click事件代码：LOCAL CNAMECNAME = ALLTRIM(THISFORM.PAGEFRAME1.PAGE1.Text1.VALUE)SELECT 学生信息表DO CASE CASE SELENO=0 MESSAGEBOX(没有输入，无法查询！,16,提示信息) CASE SELENO=1 IF ! EMPTY(CNAME) LOCATE FOR 学号 = CNAME IF FOUND() THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=SELECT 学号,姓名,性别,出生日期,系别,贷款否 from 学生信息表 where 学号= alltrim(thisform.pageframe1.page1.text1.value) into cursor a ELSE MESSAGEBOX(学生记录中没有+CNAME+同学,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.VALUE = THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIF ELSE MESSAGEBOX(没有输入学生学号，无法查询！,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIF CASE SELENO=2 IF ! EMPTY(CNAME) LOCATE FOR 姓名 = CNAME IF FOUND() THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=SELECT 学号,姓名,性别,出生日期,系别,贷款否 from 学生信息表 where 姓名= alltrim(thisform.pageframe1.page1.text1.value) into cursor a ELSE MESSAGEBOX(学生记录中没有+CNAME+同学,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.VALUE = THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIF ELSE MESSAGEBOX(没有输入学生姓名，无法查询！,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIF CASE SELENO=3 IF ! EMPTY(CNAME) LOCATE FOR 性别 = CNAME IF FOUND() THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=SELECT 学号,姓名,性别,出生日期,系别,贷款否 from 学生信息表 where 性别= alltrim(thisform.pageframe1.page1.text1.value) into cursor a ELSE MESSAGEBOX(学生记录中没有性别+CNAME+的同学,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.VALUE = THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIF ELSE MESSAGEBOX(没有输入学生系别，无法查询！,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIF CASE SELENO=4 IF ! EMPTY(CNAME) LOCATE FOR 系别 = CNAME IF FOUND() THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE=SELECT 学号,姓名,性别,出生日期,系别,贷款否 from 学生信息表 where 系别= alltrim(thisform.pageframe1.page1.text1.value) into cursor a ELSE MESSAGEBOX(学生记录中没有+CNAME+同学,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.VALUE = THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIF ELSE MESSAGEBOX(没有输入学生系别，无法查询！,16,提示信息) THISFORM.PAGEFRAME1.PAGE1.Text1.SETFOCUS ENDIFENDCASECommand2的click事件代码：RELEASE THISFORMDO FORM 学生信息管理系统主界面2、课程信息查询：图12 基本信息查询-课程信息查询Page2属性设置：对象属性名值作用Page2Caption课程信息查询设置欢迎界面表单标题内容BackColor255,255,128设置背景颜色Picture页框.jpg为表单插入背景图Label1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption课程名称设置文字内容Fontsize12设置字号为12Forecolor128,0,255设置体颜色Grid1ColumnCount4指定列的数目Header1、2、3、4、Alignment2 居中设置文本对齐方式Caption课程号、课程名、学时、学分设置文字内容Command1Caption查询(C)设置文字内容Command2Caption返回设置文字内容代码：Command1的click事件代码：LOCAL CNAMECNAME = ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.Text1.VALUE)SELECT 课程表IF ! EMPTY(CNAME)LOCATE FOR 课程名 = CNAME IF FOUND()THISFORM.PAGEFRAME1.PAGE2.GRID1.RECORDSOURCE=SELECT 课程号,课程名,学时,学分 from 课程表 where 课程名 = alltrim(thisform.pageframe1.page2.text1.value) into cursor a ELSE MESSAGEBOX(课程记录中没有+CNAME+课程,16,提示信息) THISFORM.PAGEFRAME1.PAGE2.Text1.VALUE = THISFORM.PAGEFRAME1.PAGE2.Text1.SETFOCUS ENDIFELSE MESSAGEBOX(没有输入课程名称，无法查询！,16,提示信息) THISFORM.PAGEFRAME1.PAGE2.Text1.SETFOCUSENDIFCommand2的click事件代码：RELEASE THISFORMDO FORM 学生信息管理系统主界面3、成绩信息查询：图13 基本信息查询-成绩信息查询Page3属性设置：对象属性名值作用Page3Caption成绩信息查询设置欢迎界面表单标题内容BackColor128,255,128设置背景颜色Picture页框.jpg为表单插入背景图Label1、2Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption查询方式、查询内容设置文字内容Fontsize12设置字号为12Forecolor128,0,255设置体颜色Grid1ColumnCount5指定列的数目Header1、2、3、4、Alignment2 居中设置文本对齐方式Caption学号、姓名、课程号、课程名、成绩设置文字内容Command1Caption查询(C)设置文字内容Command2Caption返回设置文字内容代码：Optiongroup1的click事件代码：DO CASE CASE THIS.VALUE=1 SELENO=1 CASE THIS.VALUE=2 SELENO=2ENDCASECommand1的click事件代码：CNAME = ALLTRIM(THISFORM.PAGEFRAME1.PAGE3.Text1.VALUE)select 学生信息表DO CASECASE SELENO=0 MESSAGEBOX(没有输入，无法查询！,16,提示信息)CASE SELENO=1 IF ! EMPTY(CNAME) LOCATE FOR 学号 = CNAME IF FOUND() THISFORM.PAGEFRAME1.PAGE3.GRID1.RECORDSOURCE=SELECT 学生信息表.学号,学生信息表.姓名,课程表.课程号,课程表.课程名,成绩表.成绩 from 课程表,成绩表 where 学生信息表.学号=成绩表.学号 and 课程表.课程号=成绩表.课程号 and 学号=CNAME into cursor Q ELSE MESSAGEBOX(成绩记录中没有+CNAME+的成绩,16,提示信息) THISFORM.PAGEFRAME1.PAGE3.Text1.VALUE = THISFORM.PAGEFRAME1.PAGE3.Text1.SETFOCUS ENDIF ELSE MESSAGEBOX(没有输入学号，无法查询！,16,提示信息) THISFORM.PAGEFRAME1.PAGE3.Text1.SETFOCUS ENDIF CASE SELENO=2 IF ! EMPTY(CNAME) LOCATE FOR 姓名 = CNAME IF FOUND() THISFORM.PAGEFRAME1.PAGE3.GRID1.RECORDSOURCE=SELECT 学生信息表.学号,学生信息表.姓名,课程表.课程号,课程表.课程名,成绩表.成绩 from 学生信息表,课程表,成绩表 where 学生信息表.学号=成绩表.学号 and 课程表.课程号=成绩表.课程号 and 姓名=CNAME into cursor Q ELSE MESSAGEBOX(成绩记录中没有+CNAME+的成绩,16,提示信息) THISFORM.PAGEFRAME1.PAGE3.Text1.VALUE = THISFORM.PAGEFRAME1.PAGE3.Text1.SETFOCUS ENDIF ELSE MESSAGEBOX(没有输入姓名，无法查询！,16,提示信息) THISFORM.PAGEFRAME1.PAGE3.Text1.SETFOCUS ENDIFENDCASECommand2的click事件代码：RELEASE THISFORMDO FORM 学生信息管理系统主界面（九）信息打印界面图14 基本信息打印 属性设置：对象属性名值作用Form1Alwayscenter.T. - 真初始化时表单处在主窗口居中位置Caption基本信息打印设置欢迎界面表单标题内容Maxbutton.F.- 假控制表单不具有最大化按钮Picture系统界面.jpg为表单插入背景图ShowWindow2 作为顶层表单指定工具栏位置Label1Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption基本信息打印设置文字内容Fontname隶书设置字体为隶书Fontsize36设置字号为36Forecolor255,255,0设置体颜色为黄色Label2Autosize.T. - 真自动调节控件大小以容纳其内容Backstyle0 透明指定标签对象与背景色一致Caption选择打印内容设置文字内容Fontname隶书设置字体为隶书Fontsize16设置字号为16Forecolor255,255,0设置体颜色为黄色List1Fontsize18设置字号为18RowSource学生基本信息,课程基本信息,成绩表信息设置数据值的源RowSourceType1 值空间中数据值的源的类型Command1Caption打印设置文字内容Fontsize14设置字号为14Command2Caption返回设置文字内容Fontsize14设置字号为14代码：Form1的init事件代码：DO 自定义菜单.MPR WITH THIS, .T.Form1的load事件代码：public nono=0List1的click事件代码：do case case this. selected(1)=.t. no = 1 case this. selected(2)=.t. no = 2 case this. selected(3)=.t. no = 3 endcaseCommand1的click事件代码：do casecase no=1report form 学生基本信息.frx previewcase no=2report form 课程基本信息.frx previewcase no=3report form 成绩表信息.frx previewendcaseCommand2的click事件代码：RELEASE THISFORMDO FORM 学生信息管理系统主界面图15 报表 学生基本情况表图16 报表 课程信息表图17 报表 成绩表信息（八）菜单栏图18 下拉式菜单设置：菜单名称结果学生管理(M)子菜单信息浏览命令：DO FORM 学生基本信息浏览信息查询命令：DO FORM 基本信息查询信息打印命令：DO FORM 基本信息打印编辑(E)子菜单剪切(T)菜单项# （通过插入栏插入）复制(C)菜单项# （通过插入栏插入）-菜单项#粘贴(P)菜单项# （通过插入栏