|
系统的功能 本部分主要内容为本系统的运行界面以及主要界面的源代码。 内容来自www.paper51.com 系统登陆界面： http://www.paper51.com 本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以为用户名和密码来登陆本系统 内容来自论文无忧网 www.paper51.com clear screen 内容来自论文无忧网 www.paper51.com
clear events 内容来自论文无忧网 www.paper51.com *hide window screen http://www.paper51.com
*activate window 'welcome' 内容来自www.paper51.com open database student.dbc paper51.com *hide window screen paper51.com do form welcome copyright paper51.com _screen.left=-10000 http://www.paper51.com read events paper51.com close database 内容来自论文无忧网 www.paper51.com 系统主界面： paper51.com 本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有6个功能菜单和19个子菜单（功能模块），从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 图， 3--2 内容来自论文无忧网 www.paper51.com sele adminer paper51.com use adminer copyright paper51.com
cx=alltrim(thisform.text1.value) 内容来自www.paper51.com cy=alltrim(thisform.text2.value) copyright paper51.com
setorder to 用户名 http://www.paper51.com seek cx 内容来自www.paper51.com
ifalltrim(adminer.用户名)!=cx http://www.paper51.com cMessageTitle='管理系统' paper51.com cMessageText='用户名错误，请重新输入' copyright paper51.com nDialogType=4+32 copyright paper51.com nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) 内容来自论文无忧网 www.paper51.com do case copyright paper51.com
case nAnswer=6 paper51.com
thisform.text1.value='' copyright paper51.com thisform.text1.setfocus 内容来自论文无忧网 www.paper51.com case nAnswer=7 内容来自www.paper51.com cMessageTitle='管理系统' 内容来自论文无忧网 www.paper51.com cMessageText='不要乱来' paper51.com messagebox(cMessageText,nDialogType,cMessageTitle) http://www.paper51.com thisform.release paper51.com endcase 内容来自www.paper51.com else paper51.com if alltrim(adminer.密码)!=cy 内容来自论文无忧网 www.paper51.com
cMessageTitle='管理系统' 内容来自www.paper51.com cMessageText='密码错误，请重新输入' http://www.paper51.com nDialogType=4+32 内容来自www.paper51.com nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) 内容来自www.paper51.com docase http://www.paper51.com casenAnswer=6 copyright paper51.com thisform.text2.value='' copyright paper51.com thisform.text2.setfocus http://www.paper51.com
case nAnswer=7 paper51.com cMessageTitle='管理系统' http://www.paper51.com cMessageText='不要乱来' 内容来自论文无忧网 www.paper51.com messagebox(cMessageText,nDialogType,cMessageTitle) copyright paper51.com thisform.release http://www.paper51.com endcase 内容来自www.paper51.com else copyright paper51.com
thisform.release paper51.com
do case paper51.com case tablesc=1 内容来自www.paper51.com do form deptstu paper51.com case tablesc=2 内容来自www.paper51.com do form weihu 内容来自www.paper51.com endcase http://www.paper51.com
endif copyright paper51.com endif 内容来自www.paper51.com skip -1 http://www.paper51.com if bof() 内容来自论文无忧网 www.paper51.com
messagebox("已是第一个记录",48,"信息窗口") 内容来自www.paper51.com
this.parent.command1.enabled=.f. paper51.com this.parent.command2.enabled=.f. http://www.paper51.com skip paper51.com else http://www.paper51.com this.parent.command1.enabled=.t. copyright paper51.com this.parent.command2.enabled=.t. paper51.com endif http://www.paper51.com this.parent.command3.enabled=.t. http://www.paper51.com this.parent.command4.enabled=.t. 内容来自论文无忧网 www.paper51.com thisform.refresh 内容来自论文无忧网 www.paper51.com goto top 内容来自www.paper51.com this.parent.command1.enabled=.f. paper51.com
this.parent.command3.enabled=.t. 内容来自www.paper51.com this.parent.command4.enabled=.t. paper51.com
thisform.refresh 内容来自www.paper51.com skip http://www.paper51.com if eof() 内容来自论文无忧网 www.paper51.com messagebox("已是最后一条记录",48,"信息窗口") http://www.paper51.com skip-1 内容来自www.paper51.com
this.parent.command3.enabled=.f. 内容来自www.paper51.com
this.parent.command4.enabled=.f. 内容来自论文无忧网 www.paper51.com else http://www.paper51.com this.parent.command3.enabled=.t. 内容来自www.paper51.com this.parent.command4.enabled=.t. 内容来自www.paper51.com endif http://www.paper51.com this.parent.command1.enabled=.t. 内容来自论文无忧网 www.paper51.com this.parent.command2.enabled=.t. copyright paper51.com thisform.refresh copyright paper51.com
goto bottom copyright paper51.com this.parent.command3.enabled=.f. paper51.com this.parent.command1.enabled=.t. 内容来自论文无忧网 www.paper51.com this.parent.command2.enabled=.t. http://www.paper51.com thisform.refresh 内容来自www.paper51.com 选择界面： 内容来自论文无忧网 www.paper51.com http://www.paper51.com do case http://www.paper51.com caserank='1' 内容来自www.paper51.com
thisform.command3.enabled=.f. 内容来自www.paper51.com
caserank='2' copyright paper51.com thisform.command3.enabled=.t. paper51.com endcase http://www.paper51.com
CLEAR 内容来自www.paper51.com SET DEVICE TOSCREEN 内容来自论文无忧网 www.paper51.com SET TALK OFF paper51.com
H=0 copyright paper51.com @H+1,15 say'职工政治面貌统计表' FONT '隶书',14 paper51.com @H+3,25 SAY'数字截止时间' http://www.paper51.com
NMD=DTOC(DATE()) http://www.paper51.com N=2000+VAL(SUBSTR(NMD,7,2)) copyright paper51.com M=VAL(SUBSTR(NMD,1,2)) copyright paper51.com D=VAL(SUBSTR(NMD,4,2)) 内容来自论文无忧网 www.paper51.com @H+3,45 SAY STR(N,4)+'年'+STR(M,2)+'月'+STR(D,2)+'日' copyright paper51.com @H+4,1SAY'-----------------------------------------------------------------------------' copyright paper51.com @H+5,1 SAY'| | | 中共党员 | 中共 | 中共 |' copyright paper51.com @H+6,1 SAY'| 类别 | 计 |-----------------------------------| | |' paper51.com @H+7,1 SAY'| | | 汉族 |少数民族| 男 | 女 | 党员 | 团员 |' copyright paper51.com @H+8,1SAY'|--------------|-------|-------|------------|-------|-------|--------|--------|' http://www.paper51.com H=H+9 copyright paper51.com I=1 http://www.paper51.com J=1 内容来自论文无忧网 www.paper51.com STORE 0 TO M11,M22,M33,M44,M55,M66,M77 内容来自论文无忧网 www.paper51.com
STORE 0 TO M1,M2,M3,M4,M5,M6,M7 paper51.com USE cards http://www.paper51.com
DO WHILE I<7 内容来自www.paper51.com DW=suBSTR("营销处 公关处 通讯 信号 自动化 后勤 ",j,8) 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com |