|
系统主界面： 本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有6个功能菜单和19个子菜单（功能模块），从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
图， 3--2 copyright paper51.com sele adminer 内容来自论文无忧网 www.paper51.com use adminer copyright paper51.com cx=alltrim(thisform.text1.value) paper51.com cy=alltrim(thisform.text2.value) paper51.com setorder to 用户名 内容来自www.paper51.com seek cx paper51.com ifalltrim(adminer.用户名)!=cx 内容来自论文无忧网 www.paper51.com
cMessageTitle='管理系统' copyright paper51.com cMessageText='用户名错误，请重新输入' 内容来自www.paper51.com nDialogType=4+32 内容来自论文无忧网 www.paper51.com nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) 内容来自www.paper51.com do case 内容来自论文无忧网 www.paper51.com case nAnswer=6 内容来自论文无忧网 www.paper51.com thisform.text1.value='' paper51.com thisform.text1.setfocus paper51.com case nAnswer=7 paper51.com cMessageTitle='管理系统' 内容来自www.paper51.com cMessageText='不要乱来' 内容来自论文无忧网 www.paper51.com messagebox(cMessageText,nDialogType,cMessageTitle) http://www.paper51.com thisform.release http://www.paper51.com endcase copyright paper51.com
else copyright paper51.com
if alltrim(adminer.密码)!=cy http://www.paper51.com
cMessageTitle='管理系统' copyright paper51.com
cMessageText='密码错误，请重新输入' paper51.com nDialogType=4+32 paper51.com
nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) copyright paper51.com docase 内容来自www.paper51.com
casenAnswer=6 内容来自论文无忧网 www.paper51.com
thisform.text2.value='' http://www.paper51.com
thisform.text2.setfocus copyright paper51.com
case nAnswer=7 内容来自论文无忧网 www.paper51.com
cMessageTitle='管理系统' http://www.paper51.com cMessageText='不要乱来' copyright paper51.com
messagebox(cMessageText,nDialogType,cMessageTitle) paper51.com
thisform.release paper51.com endcase 内容来自www.paper51.com
else http://www.paper51.com thisform.release 内容来自www.paper51.com
do case http://www.paper51.com case tablesc=1 内容来自www.paper51.com do form deptstu 内容来自论文无忧网 www.paper51.com
case tablesc=2 paper51.com do form weihu http://www.paper51.com endcase 内容来自论文无忧网 www.paper51.com
endif http://www.paper51.com endif 内容来自论文无忧网 www.paper51.com
skip -1 http://www.paper51.com if bof() 内容来自论文无忧网 www.paper51.com messagebox("已是第一个记录",48,"信息窗口") http://www.paper51.com this.parent.command1.enabled=.f. http://www.paper51.com this.parent.command2.enabled=.f. http://www.paper51.com skip 内容来自www.paper51.com else 内容来自论文无忧网 www.paper51.com
this.parent.command1.enabled=.t. paper51.com this.parent.command2.enabled=.t. 内容来自www.paper51.com endif http://www.paper51.com
this.parent.command3.enabled=.t. 内容来自www.paper51.com this.parent.command4.enabled=.t. 内容来自论文无忧网 www.paper51.com thisform.refresh paper51.com goto top copyright paper51.com this.parent.command1.enabled=.f. copyright paper51.com this.parent.command3.enabled=.t. paper51.com this.parent.command4.enabled=.t. paper51.com thisform.refresh copyright paper51.com
skip 内容来自论文无忧网 www.paper51.com if eof() 内容来自www.paper51.com messagebox("已是最后一条记录",48,"信息窗口") copyright paper51.com skip-1 paper51.com this.parent.command3.enabled=.f. 内容来自论文无忧网 www.paper51.com this.parent.command4.enabled=.f. 内容来自论文无忧网 www.paper51.com else 内容来自www.paper51.com this.parent.command3.enabled=.t. paper51.com this.parent.command4.enabled=.t. 内容来自www.paper51.com
endif paper51.com this.parent.command1.enabled=.t. 内容来自www.paper51.com this.parent.command2.enabled=.t. paper51.com thisform.refresh 内容来自论文无忧网 www.paper51.com goto bottom paper51.com this.parent.command3.enabled=.f. 内容来自论文无忧网 www.paper51.com this.parent.command1.enabled=.t. paper51.com this.parent.command2.enabled=.t. copyright paper51.com
thisform.refresh http://www.paper51.com 选择界面： paper51.com
copyright paper51.com
do case http://www.paper51.com caserank='1' http://www.paper51.com thisform.command3.enabled=.f. http://www.paper51.com caserank='2' copyright paper51.com thisform.command3.enabled=.t. copyright paper51.com endcase 内容来自www.paper51.com
CLEAR http://www.paper51.com SET DEVICE TOSCREEN 内容来自论文无忧网 www.paper51.com SET TALK OFF paper51.com
H=0 内容来自论文无忧网 www.paper51.com
@H+1,15 say'职工政治面貌统计表' FONT '隶书',14 内容来自www.paper51.com @H+3,25 SAY'数字截止时间' copyright paper51.com NMD=DTOC(DATE()) 内容来自www.paper51.com N=2000+VAL(SUBSTR(NMD,7,2)) http://www.paper51.com M=VAL(SUBSTR(NMD,1,2)) http://www.paper51.com D=VAL(SUBSTR(NMD,4,2)) http://www.paper51.com
@H+3,45 SAY STR(N,4)+'年'+STR(M,2)+'月'+STR(D,2)+'日' http://www.paper51.com @H+4,1SAY'-----------------------------------------------------------------------------' 内容来自论文无忧网 www.paper51.com
@H+5,1 SAY'| | | 中共党员 | 中共 | 中共 |' 内容来自www.paper51.com @H+6,1 SAY'| 类别 | 计 |-----------------------------------| | |' copyright paper51.com @H+7,1 SAY'| | | 汉族 |少数民族| 男 | 女 | 党员 | 团员 |' copyright paper51.com @H+8,1SAY'|--------------|-------|-------|------------|-------|-------|--------|--------|' http://www.paper51.com
|