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

VFP 课程设计实践报告 学生信息管理系统 院系：物电学院 专业：电气信息类 学号： 111102066 姓名：刘小玉 指导老师 : 赵月 学生信息管理系统实践报告 班级：电气2班 学号：111102066 姓名：刘小玉 我的学生信息管理系统实践作业制作过程： 一期工作： 1、制作系统首页表单：建立一表单，属性Caption的值设置为无，AutoCenter 设置为真，TitleBar表单为0-关闭，为使系统首页表单更加美观，在设置表单属 性时特意给表单属性Picture值设置一张图片。接着在表单上添加了三个标签， 并设置了相关的属性，继而添加了一个命令按钮，设置命令按钮的Caption值为： 点击进入系统，命令按钮的 Click Eve nt代码为： do form系统登录 Thisform.release 欢迎使用学生信息管理系统-. _年级 2、系统登录表单：系统登录表单要求用户通过用户名和口令进入系统主菜 单，所以在此之前先新建了一个自由表 password.dbf用以存放用户名和口令。设 置属性Caption值为系统登录，设置表单的Load Eve nt代码为： 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 Eve nt代码为Release Thisform。设置“确定”按 钮的Click Eve nt代码为： i=i+1 locate for yhm = alltrim(bo1.value) if foun d().a nd.kl=alltrim(thisform.text1.value) do主菜单.mpr thisform.release else if i<3 =messagebox(密码错！ "+chr(13)+"再试一次！ ",48,"警告") thisform.textl.setfocus else =messagebox(已经输入3次了 ！ "+chr(13)+"非法用户！ ",48,"严重警告") thisform.release en dif Endif *姜畑录 _ l 口丨国i￡gi 予牛■■厂息管土甲系统 3、学生信息查询表单 在表单中添加两个标签，一个文本框，一个表格和两个按钮。按图示设置表单、 标签和按钮的Caption值。其中一个文本框Rowsource的值设置为姓名； RowSourceType的值设置为1值；表格的RecordSource的值设置为Student; RowSourceType的值设置为4-SQL说明；Style的值设置为2-下拉列表框。“查询” 按钮的Click Eve nt事件代码为： a=thisform.text1.value thisform.grid1.recordsource="select * from stude nt; where 姓名=a into cursor temp" “退出”按钮的Click Eve nt事件代码为：thisform.release 4、退出系统的表单。 退出系统.sec的设计步骤如下：建立表单文件，文件名为退出系统 .sec,在表单 上添加一个标签两个按钮，分别按图示设置表单、标签和按钮的Caption值。“是” 按钮的Click Eve nt事件代码为： close all Quit “否”按钮的 Click Event 事件代码为：release thisform 退出奇蜿 口 退出奇蜿 口 E '( E3 I 一期工作完成后，二期工作开始了。 首先思考系统运行时所需的程序及相关的数据，于是我开始建立学生信息管 理数据库，并把书本上的student、course score三张表建立并添加进了数据库 中，为查询方便在表中建立了相关索引及数据库表的永久关系。 用EK ?兴-孑三 用EK ?兴-孑三 另外在系统登录时需调用主菜单的程序文件，do主菜单.mpr，于是开始在 文件下拉菜单下新建了主菜单，并且参照着第八章的菜单设计并结合自己所需子 菜单设计出了主菜单，随后单击“文件”菜单中的“保存”便生成了主菜单 .mnx 和主菜单.mnt两文件，随后单击“