VFP课程设计实报告学生信息管理系统.docVIP

VFP课程设计实践报告 ------学生信息管理系统 院系：物电学院 专业：电气信息类 学号：111102066 姓名：刘小玉 指导老师:赵月 学生信息管理系统实践报告 班级：电气2班 学号：111102066 姓名：刘小玉 我的学生信息管理系统实践作业制作过程： 一期工作： 制作系统首页表单：建立一表单，属性Caption的值设置为无，AutoCenter设置为真，TitleBar表单为0-关闭，为使系统首页表单更加美观，在设置表单属性时特意给表单属性Picture值设置一张图片。接着在表单上添加了三个标签，并设置了相关的属性，继而添加了一个命令按钮，设置命令按钮的Caption值为：点击进入系统，命令按钮的Click Event代码为： do form 系统登录 Thisform.release 系统登录表单：系统登录表单要求用户通过用户名和口令进入系统主菜单，所以在此之前先新建了一个自由表password.dbf用以存放用户名和口令。设置属性Caption值为系统登录，设置表单的Load Event代码为： public i 变量i用于存放密码输入次数 i=0 变量i初始值为0 use password.dbf 在表单上添加三个标签，并按图示设置他们的Caption值。添加一个组合框，设置组合框属性RowSource值为password.cry，,属性RowSource-Type的值为6-字段。也可通过右击组合框，选择生成器，根据生成器向导完成。添加一个文本框，设置属性PasswordChar的值为*，InputMask的值为999，设置Click Event代码为thisform.textl.setfocus。添加两个命令按钮，分别设置它们的Caption属性值。设置“取消”按钮的Click Event代码为Release Thisform。设置“确定”按钮的Click Event代码为： i=i+1 locate for yhm = alltrim(bo1.value) if found().and.kl=alltrim(thisform.text1.value) do 主菜单.mpr thisform.release else if i3 =messagebox(密码错！+chr(13)+再试一次！,48,警告) thisform.text1.setfocus else =messagebox(已经输入3次了！+chr(13)+非法用户！,48,严重警告) thisform.release endif Endif 学生信息查询表单 在表单中添加两个标签，一个文本框，一个表格和两个按钮。按图示设置表单、标签和按钮的Caption值。其中一个文本框Rowsource的值设置为姓名；RowSourceType的值设置为1值；表格的RecordSource的值设置为Student；RowSourceType的值设置为4-SQL说明；Style的值设置为2-下拉列表框。“查询”按钮的Click Event事件代码为： a=thisform.text1.value thisform.grid1.recordsource=select * from student; where 姓名=a into cursor temp “退出”按钮的Click Event事件代码为：thisform.release。 退出系统的表单。 退出系统.sec的设计步骤如下：建立表单文件，文件名为退出系统.sec，在表单上添加一个标签两个按钮，分别按图示设置表单、标签和按钮的Caption值。“是”按钮的Click Event事件代码为： close all Quit “否”按钮的Click Event事件代码为：release thisform 一期工作完成后，二期工作开始了。 首先思考系统运行时所需的程序及相关的数据，于是我开始建立学生信息管理数据库，并把书本上的student、course、score三张表建立并添加进了数据库中，为查询方便在表中建立了相关索引及数据库表的永久关系。 另外在系统登录时需调用主菜单的程序文件，do 主菜单.mpr，于是开始在文件下拉菜单下新建了主菜单，并且参照着第八章的菜单设计并结合自己所需子菜单设计出了主菜单，随后单击“文件”菜单中的“保存”便生成了主菜单.mnx和主菜单.mnt两文件，随后单击“菜单”菜单中的的“生成”命令生成了所需的菜单程序文件。 二期工作完成后，自已便想试着运行一下这个系统，没想到一运行便指示：“找不到字段