第1页共8页学生管理系统学生表查询表单修改表单删除表单添加表单显示表单编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第1页共8页一．“学生信息管理系统”功能分析。学生管理系统的主要功能是：可以，查询，添加，删除，修改，显示学生信息。第2页共8页第1页共8页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第2页共8页二．系统结构1，数据库结构数据库：学生信息统计表.dbc表：学生表.dbf索引：字段名学号为主索引。２，表单主表单：欢迎.scx次表单：查询.scx显示.scx修改.scx添加.scx删除.scx３，主程序Main.prg三．部分程序模块化１，欢迎代码：doform查询.scx如此类推。第3页共8页第2页共8页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第3页共8页２，查询代码：a=trim(thisform.text1.value)use学生表gotopifa==""messagebox("学号不能为空！")elselocafor学号=aif.not.eof()thisform.text2.value=学号thisform.text3.value=姓名thisform.text4.value=性别thisform.text5.value=班级elsemessagebox("本表查无此信息！")endifendifuse第4页共8页第3页共8页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第4页共8页３，修改代码：use学生表aa=trim(thisform.text1.value)ifaa==""messagebox("学号不能为空！")elselocafor学号=aab=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)repl姓名withbrepl性别withcrepl班级withdmessagebox("修改数据成功！")endifuse第5页共8页第4页共8页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第5页共8页４，删除代码：use学生表a=trim(thisform.text1.value)ifa==""messagebox("学号不能为空！")elselocatefor学号=aIf.not.eof()delepackmessagebox("删除成功！")Elsemessagebox("该信息不存在！")endifendifuse第6页共8页第5页共8页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第6页共8页５，添加代码：use学生表appendblanka=trim(thisform.text1.value)b=trim(thisform.text2.value)c=trim(thisform.text3.value)d=trim(thisform.text4.value)ifa==''.or.b==''.or.c==''.or.d==''messagebox("数据不能为空！")elsereplace学号withareplace姓名withbreplace性别withcreplace班级withdmessagebox("添加数据成功！")endifuse对于清除控件的代码：第7页共8页第6页共8页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第7页共8页thisform.text1.value=''thisform.text2.value=''thisform.text3.value=''thisform.text4.value=''６，显示代码：select学生LPARAMETERSnRow,nCollist７，主程序dosutup.prgdoform欢迎.scxreadeventssettalkoffsetsafetyoffsetdefaulttod:setcenturyonclearwindowsclearalldoi:\vfp\主程序.prg第8页共8页第7页共8页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第8页共8页
