《vf课程系统设计》word版

1、学生信息管理系统一“学生信息管理系统”功能分析。 学生管理系统的主要功能是：可以浏览、查询（单、多关键字查询以及单、多表查询），添加，删除，修改、打印学生信息。登录界面系统主菜单查询维护打印修改和添加、删除选课浏览学生档案浏览学生成绩浏览.学生档案信息学生成绩信息查 询多 表 查 询二系统结构1，数据库结构数据库：学生信息.dbc表：学生成绩.dbf 学生档案.dbf 学生选课.dbf ，表单主表单：登录系统.scx 次表单：查询.scx多表查询.scx修改.scx添加.scx删除.scx，主程序 Main.prg4 ，菜单 浏览学生档案表、学生成绩表 查询查询、多表查询 维护修改、添加、维护

2、 打印学生档案表、学生成绩表三部分程序模块化，系统登录 代码：l 定时器控件对象的Timer事件过程代码：If Thisform.label4.left<1 Thisform.label4.left=thisform.Width-8Else Thisform.label4.left=Thisform.label4.left-2Endifl 按钮对象Command1(确认）的Click事件过程代码如下：select学生信息（password）m学生信息=alltrim(thisform.text1.value)locate for alltrim(用户名)=alltrim(Thisform

3、.Combo1.value)If found() and m学生信息=alltrim(密码) Thisform.visible=.f. do xsglmenu.mpr else messagebox Thisform.Text1.setfocus Endifl 按钮对象Command2(取消)的Click事件过程代码：Thisform.Combo1.Value=“”ThisForm.Text1.Value=“”Thisform.Text1.SetFocus 当用户名和密码输入正确时，单击“进入系统”按钮进入主界面，如下图所示。主界面2， 查询代码：l 查询对象command1的click事件过

4、程代码：a=trim(thisform.text1.value)use 学生档案 go top if a="" messagebox("学号不能为空！") else loca for 学号=a if .not.eof() thisform.text2.value=学号 thisform.text3.value=姓名 thisform.text4.value=性别 thisform.text5.value=班级 else messagebox("本表查无此信息！") endif endif usel 退出对象command2的click

5、事件过程代码：Thisform release，修改代码：l 修改对象command1的click事件过程代码：use 学生档案aa=trim(thisform.text1.value)if aa="" messagebox("学号不能为空！")elseloca for 学号=aab=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)repl 姓名 with brepl 性别 with crepl 班级 with dmessagebox(&q

6、uot;修改数据成功！")endifusel 退出对象command2的click事件过程代码：Thisform release，删除代码：l 删除对象command1的click事件过程代码：use 学生档案a=trim(thisform.text1.value)if a="" messagebox("学号不能为空！")elselocate for 学号=a If .not.eof() dele pack messagebox("删除成功！") Else messagebox("该信息不存在！")end

7、ifendifusel 退出对象command2的click事件过程代码：Thisform release，添加代码：l 添加对象command1的click事件过程代码：use 学生档案append blanka=trim(thisform.text1.value)b=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)if a=''.or.b=''.or.c=''.or.d='' messagebox("

8、数据不能为空！")else replace 学号 with a replace 姓名 with b replace 性别 with c replace 班级 with d messagebox("添加数据成功！") endifusel 清空对象command2的click事件过程代码：thisform.text1.value=''thisform.text2.value=''thisform.text3.value=''thisform.text4.value=''l 退出对象command2的click事件过程代码：Thisform release6，主程序set talk offc