vf课程系统设计.doc

此文档收集于网络，如有侵权，请联系网站删除一“学生信息管理系统”功能分析。 学生管理系统的主要功能是：可以浏览、查询（单、多关键字查询以及单、多表查询），添加，删除，修改、打印学生信息。.查 询多 表 查 询二系统结构1，数据库结构数据库：学生信息.dbc表：学生成绩.dbf 学生档案.dbf 学生选课.dbf ，表单主表单：登录系统.scx 次表单：查询.scx多表查询.scx修改.scx添加.scx删除.scx，主程序 Main.prg4 ，菜单 浏览学生档案表、学生成绩表 查询查询、多表查询 维护修改、添加、维护 打印学生档案表、学生成绩表三部分程序模块化，系统登录 代码：l 定时器控件对象的Timer事件过程代码：If Thisform.label4.left1 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.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事件过程代码：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事件过程代码：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(修改数据成功！)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(该信息不存在！)endifendifusel 退出对象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( 数据不能为空！)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 offclear allclose all