📄 mune.mpr
字号:
DO _0i20ve4z3 ;
IN LOCFILE("VFP98\管理系统\MUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MUNE?")
DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 2 OF (a_menupops[6]) PROMPT "软件帮助" ;
KEY CTRL+H, "CTRL+H"
DEFINE BAR 3 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 4 OF (a_menupops[6]) PROMPT "选择背景色"
DEFINE BAR 5 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 6 OF (a_menupops[6]) PROMPT "信息反馈"
DEFINE BAR 7 OF (a_menupops[6]) PROMPT "我的主页"
DEFINE BAR 8 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 9 OF (a_menupops[6]) PROMPT "软件注册"
DEFINE BAR 10 OF (a_menupops[6]) PROMPT "关于本软件"
ON SELECTION BAR 2 OF (a_menupops[6]) ;
DO _0i20ve4z7 ;
IN LOCFILE("VFP98\管理系统\MUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MUNE?")
ON SELECTION BAR 4 OF (a_menupops[6]) ;
DO _0i20ve4z9 ;
IN LOCFILE("VFP98\管理系统\MUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MUNE?")
ON SELECTION BAR 6 OF (a_menupops[6]) ;
DO _0i20ve4zb ;
IN LOCFILE("VFP98\管理系统\MUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MUNE?")
ON SELECTION BAR 7 OF (a_menupops[6]) ;
DO _0i20ve4ze ;
IN LOCFILE("VFP98\管理系统\MUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MUNE?")
ON SELECTION BAR 9 OF (a_menupops[6]) ;
DO _0i20ve4zg ;
IN LOCFILE("VFP98\管理系统\MUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MUNE?")
ON SELECTION BAR 10 OF (a_menupops[6]) ;
DO _0i20ve4zk ;
IN LOCFILE("VFP98\管理系统\MUNE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MUNE?")
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _0I20VE4WY ON SELECTION BAR 2 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 系统维护x
* * Prompt: 系单位创建&删除
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0i20ve4wy
do form 1_1.scx
* *********************************************************
* *
* * _0I20VE4XH ON SELECTION BAR 3 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统维护x
* * Prompt: 系专业创建&删除
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0i20ve4xh
do form 1_2.scx
* *********************************************************
* *
* * _0I20VE4XI ON SELECTION BAR 4 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 系统维护x
* * Prompt: 系班级创建&删除
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0i20ve4xi
do form 1_3.scx
* *********************************************************
* *
* * _0I20VE4XK ON SELECTION BAR 6 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 10
* * Called By: ON SELECTION BAR 6 OF POPUP 系统维护x
* * Prompt: 档案库创建&删除
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0i20ve4xk
do form 1_4.scx
* *********************************************************
* *
* * _0I20VE4XL ON SELECTION BAR 7 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 11
* * Called By: ON SELECTION BAR 7 OF POPUP 系统维护x
* * Prompt: 成绩库创建&删除
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0i20ve4xl
do form 1_5.scx
* *********************************************************
* *
* * _0I20VE4XN ON SELECTION BAR 9 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 13
* * Called By: ON SELECTION BAR 9 OF POPUP 系统维护x
* * Prompt: 专业号查询&修改
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0i20ve4xn
do form 1_6.scx
* *********************************************************
* *
* * _0I20VE4XO ON SELECTION BAR 10 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 14
* * Called By: ON SELECTION BAR 10 OF POPUP 系统维护x
* * Prompt: 班级人员增删
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0i20ve4xo
do form 1_7.scx
* *********************************************************
* *
* * _0I20VE4XQ ON SELECTION BAR 11 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 15
* * Called By: ON SELECTION BAR 11 OF POPUP 系统维护x
* * Prompt: 课程增删
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0i20ve4xq
do form 1_8.scx
* *********************************************************
* *
* * _0I20VE4XR ON SELECTION BAR 12 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 16
* * Called By: ON SELECTION BAR 12 OF POPUP 系统维护x
* * Prompt: 系统员设置......
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0i20ve4xr
do form 1_9.scx
* *********************************************************
* *
* * _0I20VE4XT ON SELECTION BAR 14 OF POPUP 系统维护x
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 18
* * Called By: ON SELECTION BAR 14 OF POPUP 系统维护x
* * Prompt: 退出系统
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _0i20ve4xt
close all
_screen.activeform.release
* *********************************************************
* *
* * _0I20VE4XX ON SELECTION BAR 2 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 23
* * Called By: ON SELECTION BAR 2 OF POPUP 档案管理d
* * Prompt: 档案库导入
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _0i20ve4xx
Set safety off
tou=" "
wei=" "
panduan1=" "
panduan2=" "
daorubiao=" "
lingshibiao=" "
DD=0
GG=0
=messagebox("注意：你导入的表必须包含表的注释文件“.FPT”！所导入的表名必须是5个字符，表示班级编号，否则将无法在本系统中操作！",0+64,"警告")
Declare duibi2(16),gotchar2(16)
duibi2(1)="班级"
duibi2(2)="学号"
duibi2(3)="姓名"
duibi2(4)="性别"
duibi2(5)="出生年月"
duibi2(6)="贯籍"
duibi2(7)="政治面貌"
duibi2(8)="家庭住址"
duibi2(9)="邮政编码"
duibi2(10)="电话号码"
duibi2(11)="家长姓名"
duibi2(12)="毕业学校"
duibi2(13)="入学时间"
duibi2(14)="录取方式"
duibi2(15)="备注"
duibi2(16)="照片"
Do form 2_1.scx
daoru2=daoruxi+daoruzhuanye
If daoruxi<>" ".and.daoruzhuanye<>" "
ji=1
daorubiao=getfile("dbf","选择表","打开",0)
tou=RIGHT(daorubiao,10)
wei=RIGHT(daorubiao,4)
If alltrim(left(tou,1))=="\"
panduan1="\"+alltrim(left(tou,1))+"jjjjj"
Endif
panduan2=alltrim(left(wei,1))
lingshibiao=alltrim(left(RIGHT(daorubiao,9),5))
sele 1
use 系专业 EXCLUSIVE
locate for 班级=lingshibiao
if (.not.eof())
GG=1
endif
use
If !empty(daorubiao).and.GG==0
If left(alltrim(panduan1),1)=="\".and.panduan2=="."
daorubiao=left(daorubiao,len(daorubiao)-9)
Chdir "&daorubiao"
Sele 1
Use &lingshibiao EXCLUSIVE
If fcount(1)==16
For i6=ji to fcount(1)
gotchar2(i6)=field(i6,1)
Endfor
If duibi2(1)==gotchar2(1).and.duibi2(2)==gotchar2(2).and.duibi2(3)==gotchar2(3);
.and.duibi2(4)==gotchar2(4).and.duibi2(5)==gotchar2(5).and.duibi2(6)==gotchar2(6);
.and.duibi2(7)==gotchar2(7).and.duibi2(8)==gotchar2(8).and.duibi2(9)==gotchar2(9);
.and.duibi2(10)==gotchar2(10).and.duibi2(11)==gotchar2(11).and.duibi2(12)==gotchar2(12);
.and.duibi2(13)==gotchar2(13).and.duibi2(14)==gotchar2(14).and.duibi2(15)==gotchar2(15).and.duibi2(16)==gotchar2(16)
Use
Copy file "&lingshibiao"+".dbf" to "&bzhlj"+"数据库\"+"&lingshibiao"+".dbf"
Copy file "&lingshibiao"+".fpt" to "&bzhlj"+"数据库\"+"&lingshibiao"+".fpt"
Delete file "&lingshibiao"+".dbf"
Delete file "&lingshibiao"+".fpt"
Wait windows "档案库导入成功！......." at 100,40 timeout 1
Chdir "&bzhlj"
Sele 2
Use xi EXCLUSIVE
Locate for 系=daoruxi
If(eof())
Append blank
Replace 系 with daoruxi
Endif
Use
Sele 2
Use zhuanye EXCLUSIVE
Locate for 专业=daoruzhuanye.and.系=daoruxi
If (eof())
Append blank
Replace 系 with daoruxi,专业 with daoruzhuanye,专业号 with "00"
Chdir 数据库
Create database &daoru2
Open database &daoru2
Add table &lingshibiao
Close databases
Chdir ..
Sele 2
Use
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -