vf课程结束大作业学生管理系统

成功是失败之母，一切都是努力的结果“学生信息管理系统”功能分析。学生管理系统的主要功能是：可以，查询，添加，删除，修改，显示学生信息。页脚内容7屋 Pro j e>c< luLageir 学生昔理系给AllDataDocumeirtsClassesGodeOther 冋U 關 Dal-虽。目诞頤郭j BlS©学生数据库3 團 Tables +圍学生志；创 Local Views 魯 Remote Views Connections* Stored Procedures Free Tables 回 tiueries-圍 DocumenlsB-Il Forms查询圈显示(H修改B Reiporlsi 3 Labels| Class Libraries Fl Code-Programsmain回 API LibrariesDescripiicPath:cVdocunnerts arid settingsUttsg®生管理乐斷Vn日im.prg系统结构1, 数据库结构数据库：学生信息统计表.dbc表：学生表.dbf索引：字段名 学号为主索引。2, 表单主表单：欢迎.sex次表单：查询.sex显示.sex修改.sex添加.sex删除.sex3, 主程序Mai n.prg三部分程序模块化1,欢迎代码： do form查询.sex如此类推。2,查询代码:a=trim(thisform.text1.value)use学生表go topif a=""messagebox('学号不能为空！")elseloca for 学号=aif .no t.eof()thisform.text2.value=学号thisform.text3.value=姓名thisform.text4.value=性另 Uthisform.text5.value=班级elsemessagebox("本表查无此信息！")en difen difuse3,修改代码：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('修改数据成功！") en difuse4, 删除代码：use学生表a=trim（thisform.text1.value）if a=""messagebox（"学号不能为空！"） elselocate for 学号=aIf .n ot.eof（）delepackmessagebox（"删除成功！"）Elsemessagebox（"该信息不存在！"） en dif en dif use5,添加代码:use学生表 appe nd bla nk a=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("数据不能为空！") elsereplace学号with areplace姓名with breplace性别with creplace班级with dmessagebox("添加数据成功！") en difuse对于清除控件的代码:thisform.text1.value="thisform.text2.value="thisform.text3.value="thisform.text4.value="6,显示谀岀 |代码：select 学生LPARAMETERS nRow, n Col list7,主程序do sutup.prg do form 欢迎.scx read events set talk off set safety off set default to d:set cen tury on clear win dows clear all主程序.prg