rm.专业代码1.OPTION3.ENABLED=.T.
Thisform.专业代码1.OPTION4.ENABLED=.T.
Thisform.专业代码1.ENABLED=.T.
Thisform.收费金额1.ENABLED=.T.
Thisform.班主任名1.ENABLED=.T.
Thisform.入学时间1.ENABLED=.T.
THISFORM.班级编号1.SETFOCUS
THIS.ENABLED=.F.
THISFORM.COMMAND2.ENABLED=.T.
THISFORM.COMMAND3.ENABLED=.T.
THISFORM.COMMAND4.ENABLED=.F.
THISFORM.REFRESH
(撤消按钮)
??CHR(7)
RESULT=MESSAGEBOX("是否确认放弃添加?",4+48+256,"信息窗口")
IFRESULT=6
Thisform.班级编号1.ENABLED=.F.
Thisform.班级名称1.ENABLED=.F.
Thisform.专业代码1.OPTION1.ENABLED=.F.
Thisform.专业代码1.OPTION2.ENABLED=.F.
Thisform.专业代码1.OPTION3.ENABLED=.F.
Thisform.专业代码1.OPTION4.ENABLED=.F.
Thisform.专业代码1.ENABLED=.F.
Thisform.学制1.ENABLED=.F.
Thisform.收费金额1.ENABLED=.F.
Thisform.班主任名1.ENABLED=.F.
Thisform.入学时间1.ENABLED=.F.
THIS.ENABLED=.F.
THISFORM.COMMAND1.ENABLED=.T.
THISFORM.COMMAND3.ENABLED=.F.
THISFORM.COMMAND4.ENABLED=.T.
THISFORM.REFRESH
ENDIF
(确认按钮)
IFEMPTY(THISFORM.班级编号1.VALUE)
=MESSAGEBOX("班级编号不能为空,请重新输入!",48+0+0,"警告")
THISFORM.班级编号1.SETFOCUS
ELSE
IFEMPTY(THISFORM.班级名称1.VALUE)
=MESSAGEBOX("班级名称不能为空,请重新输入!",48+0+0,"警告")
THISFORM.班级名称1.SETFOCUS
ELSE
IFEMPTY(THISFORM.入学时间1.VALUE)
=MESSAGEBOX("入学时间不能为空,请重新输入!",48+0+0,"警告")
THISFORM.入学时间1.SETFOCUS
ELSE
SELEBJ
APPEBLAN
REPLBJ.班级编号WITHTHISFORM.班级编号1.VALUE
REPLBJ.班级名称WITHTHISFORM.班级名称1.VALUE
REPLBJ.专业代码WITHTHISFORM.专业代码1.VALUE
REPLBJ.学制WITHTHISFORM.学制1.VALUE
REPLBJ.收费金额WITHTHISFORM.收费金额1.VALUE
REPLBJ.班主任名WITHTHISFORM.班主任名1.VALUE
REPLBJ.入学时间WITHTHISFORM.入学时间1.VALUE
Thisform.班级编号1.ENABLED=.F.
Thisform.班级名称1.ENABLED=.F.
Thisform.专业代码1.OPTION1.ENABLED=.F.
Thisform.专业代码1.OPTION2.ENABLED=.F.
Thisform.专业代码1.OPTION3.ENABLED=.F.
Thisform.专业代码1.OPTION4.ENABLED=.F.
Thisform.专业代码1.ENABLED=.F.
Thisform.学制1.ENABLED=.F.
Thisform.收费金额1.ENABLED=.F.
Thisform.班主任名1.ENABLED=.F.
Thisform.入学时间1.ENABLED=.F.
THIS.ENABLED=.F.
THISFORM.COMMAND1.ENABLED=.T.
THISFORM.COMMAND2.ENABLED=.F.
THISFORM.COMMAND4.ENABLED=.T.
THISFORM.REFRESH
ENDIF
ENDIF
ENDIF
(退出按钮)
??CHR(7)
RESULT=MESSAGEBOX("是否退出?",4+32+256,"信息")
IFRESULT=6
THISFORM.RELEASE
ENDIF
4.5、修改密码(代码)
(确认按钮)
RESTOFROMPASS1.MEMADDI
LOCALMM1,MM2
MM1=PASS1
MM2=THISFORM.TEXT1.VALUE
SETEXACTON
IFALLT(MM1)<>ALLT(MM2)
THISFORM.NO=THISFORM.NO+1
=MESSAGEBOX("原密码错误!",48+0+0,"错误")
IFTHISFORM.NO=3
=MESSAGEBOX("三次密码错误,将自动退出修改!",4+16+2,"退出")
THISFORM.COMMAND2.CLICK
ENDIF
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT1.SETFOCUS
ELSE
PASS1=THISFORM.TEXT2.VALUE
SAVETOPASS1.MEMALLLIKEPASS1
=MESSAGEBOX("密码修改成功!",48+0+0,"恭喜")
THISFORM.RELEASE
ENDIF
SETEXACTOFF
4.6、学生注册查询
1、界面设计:
2、相关代码:
(开始查询按钮)
THIS.CAPTION="继续查询"
THISFORM.COMBO1.VALUE=""
THISFORM.COMBO2.VALUE=""
THISFORM.TEXT1.VALUE=0
THISFORM.TEXT2.VALUE=0
THISFORM.TEXT3.VALUE=0
THISFORM.TEXT4.VALUE=0
THISFORM.LIST1.ROWSOURCE=""
THISFORM.COMBO1.ENABLED=.T.
THISFORM.COMBO2.ENABLED=.T.
THISFORM.COMBO1.SETFOCUS
THISFORM.REFRESH
4.7、学生补考查询
1、界面设计:
2、相关代码:
(开始查询按钮)
IFEMPTY(THISFORM.COMBO1.VALUE)
=MESSAGEBOX("请输入班级编号!",48+0+0,"信息窗口")
THISFORM.COMMAND2.CLICK
ELSE
IFEMPTY(THISFORM.COMBO2.VALUE)
=MESSAGEBOX("请输入学期!",48+0+0,"信息窗口")
THISFORM.COMMAND2.CLICK
ELSE
SELE补考成绩
SETFILTTOALLT(LEFT(学号,2)+SUBS(学号,4,1))==ALLT(BJBH).AND.ALLT(学期)==ALLT(XQ)
GOTOP
IFEOF()
=MESSAGEBOX("没有参加补考的学生信息!",48+0+0,"信息")
THISFORM.COMMAND2.CLICK
ELSE
THISFORM.GRID1.REFRESH
THISFORM.REFRESH
*IFEMPTY(THISFORM.GRID1.COLUMN4.TEXT1.VALUE)
*=MESSAGEBOX("有未录入的补考成绩!",48+0+0,"信息")
*ENDIF
THIS.ENABLED=.F.
THISFORM.COMMAND2.ENABLED=.T.
ENDIF
ENDIF
ENDIF
4.8、打印输出-学期课程表
1、界面设计:
2、相关代码:
(开始按钮)
THIS.CAPTION="继续"
THISFORM.BJBH.VALUE=""
THISFORM.BJBH.ENABLED=.T.
THISFORM.BJBH.SETFOCUS
(预览按钮)
IFEMPTY(THISFORM.BJBH.VALUE)
=MESSAGEBOX("请输入班级编号!",48+0+0,"信息")
THISFORM.COMMAND6.CLICK
ELSE
SELE班级学期课程表
SETFILTTO班级编号=BJBH
GOTOP
IFEOF()
=MESSAGEBOX("相关信息不存在,请先设置课程信息!",48+0+0,"信息")
ELSE
REPOFORM班级学期课程表PREVIEW
ENDIF
ENDIF
(打印按钮)
??CHR(7)
WAITWIND"请安装好打印纸,然后按任意键打印!"AT20,20
REPOFORM班级学期课程表TOPRIN
(退出按钮)
THISFORM.BJBH.VALUE=""
THISFORM.BJBH.ENABLED=.F.
THISFORM.RELEASE
4.9、打印输出-成绩登记表
1、界面设计:
2、相关代码:
(开始按钮)
THIS.CAPTION="继续"
THISFORM.BJBH.VALUE=""
THISFORM.XQ.VALUE=""
THISFORM.KCMC.VALUE=""
THISFORM.BJBH.ENABLED=.T.
THISFORM.XQ.ENABLED=.T.
THISFORM.KCMC.ENABLED=.T.
THISFORM.BJBH.SETFOCUS
(预览按钮)
IFEMPTY(THISFORM.BJBH.VALUE)
=MESSAGEBOX("请输入班级编号!",48+0+0,"信息")
THISFORM.COMMAND6.CLICK
ELSE
IFEMPTY(THISFORM.XQ.VALUE)
=MESSAGEBOX("请输入学期!",48+0+0,"信息")
THISFORM.COMMAND6.CLICK
ELSE
IFEMPTY(THISFORM.KCMC.VALUE)
=MESSAGEBOX("请输入课程名称!",48+0+0,"信息")
THISFORM.COMMAND6.CLICK
ELSE
SELE成绩QUER
SETFILTTO班级编号=BJBH.AND.学期=XQ.AND.课程名称=KCMC
GOTOP
IFEOF()
=MESSAGEBOX("成绩信息不存在,请先输入成绩!",48+0+0,"信息")
ELSE
REPOFORM成绩登记表PREVIEW
ENDIF
ENDIF
ENDIF
ENDIF
(退出按钮)
THISFORM.BJBH.VALUE=""
THISFORM.XQ.VALUE=""
THISFORM.KCMC.VALUE=""
THISFORM.KCMC.ENABLED=.F.
THISFORM.XQ.ENABLED=.F.
THISFORM.BJBH.ENABLED=.F.
THISFORM.RELEASE
系统评价
系统的优点:本软件结构简单、功能全面、易于日后程序更新、数据库管理容易、操作方便、设计合理、安全性好等,能够较容易完成学籍管理中的一般需
上一篇:
VFP学生综合素质管理系统(论文和程序)
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值