📄 mune.mpr
字号:
Sele 2
Use 系专业 EXCLUSIVE
Append blank
Replace 系 with daoruxi,专业 with daoruzhuanye,专业号 with "00",档案 with .t.,班级 with lingshibiao
Use
Else
DD=1
Use
Chdir 数据库
Open database &daoru2
Add table &lingshibiao
Close databases
Chdir ..
Sele 2
Use 系专业 EXCLUSIVE
Locate for 系=daoruxi.and.专业=daoruzhuanye.and.档案=.f.
If(eof())
Append blank
Replace 系 with daoruxi,专业 with daoruzhuanye,专业号 with "00",档案 with .t.,班级 with lingshibiao
Use
Else
Replace 档案 with .t.
Use
Endif
Endif
If DD==0
=messagebox("为了避免专业号混乱，请马上到“系统维护”－>“专业号查询”里修改新增的专业号“00”！",0+64,"提示")
Endif
Else
=messagebox("导入的表字段格式不符合，无法导入！",0+48,"警告")
Chdir "&bzhlj"
Endif
Else
=messagebox("导入的数据库字段项不符合，无法导入！",0+48,"警告")
Chdir "&bzhlj"
Endif
Else
=messagebox("导入的表名格式不符合本数据库格式，无法导入！",0+48,"警告")
Endif
else
=messagebox("系统数据库中存在此班级，无法导入！",0+48,"警告")
Endif
Else
Wait windows "没有指定导入到确定的系或专业下面，档案库导入失败！......." at 100,40 timeout 2 nowait
Endif
close tables all
* *********************************************************
* *
* * _0I20VE4XZ ON SELECTION BAR 3 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 24
* * Called By: ON SELECTION BAR 3 OF POPUP 档案管理d
* * Prompt: 档案库导出
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _0i20ve4xz
public hh
do form 2_2.scx
if hh<>" "
WAIT windows "档案库导出成功,所导出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
WAIT windows "档案库导出失败！......." at 100,40 timeout 1 nowait
endif
* *********************************************************
* *
* * _0I20VE4Y0 ON SELECTION BAR 5 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 26
* * Called By: ON SELECTION BAR 5 OF POPUP 档案管理d
* * Prompt: 档案录入
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _0i20ve4y0
biaozi=1
do form 2.scx
* *********************************************************
* *
* * _0I20VE4Y2 ON SELECTION BAR 6 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 27
* * Called By: ON SELECTION BAR 6 OF POPUP 档案管理d
* * Prompt: 档案修改
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _0i20ve4y2
biaozi=2
do form 2.scx
* *********************************************************
* *
* * _0I20VE4Y3 ON SELECTION BAR 7 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 28
* * Called By: ON SELECTION BAR 7 OF POPUP 档案管理d
* * Prompt: 档案查询
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _0i20ve4y3
biaozi=3
do form 2.scx
* *********************************************************
* *
* * _0I20VE4Y5 ON SELECTION BAR 9 OF POPUP 档案管理d
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 30
* * Called By: ON SELECTION BAR 9 OF POPUP 档案管理d
* * Prompt: 档案打印输出
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _0i20ve4y5
public kk
do form 2_6.scx
if kk<>" "
WAIT windows "档案库输出成功,所输出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
WAIT windows "档案库输出失败！......." at 100,40 timeout 1 nowait
endif
* *********************************************************
* *
* * _0I20VE4Y9 ON SELECTION BAR 2 OF POPUP 成绩管理c
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 34
* * Called By: ON SELECTION BAR 2 OF POPUP 成绩管理c
* * Prompt: 成绩库导入
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _0i20ve4y9
Set safety off
tou=" "
wei=" "
panduan1=" "
panduan2=" "
daorubiao=" "
lingshibiao=" "
DD=0
LL=0
=messagebox("注意：你导入的表的表名必须是6个字符，且最后的字符必须介于1－>8之间，表示班级的学期数，否则将无法在本系统中操作！",0+64,"警告")
Dimension duibi3(5),gotchar3(5)
duibi3(1)="班级"
duibi3(2)="学号"
duibi3(3)="姓名"
duibi3(4)="平均分"
duibi3(5)="总分"
Do form 3_1.scx
daoru3=daoruxi3+daoruzhuanye3
If daoruxi3<>" ".and.daoruzhuanye3<>" "
ji=1
daorubiao=getfile("dbf","选择表","打开",0)
tou=RIGHT(daorubiao,11)
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,10),6))
Sele 1
Use chengjiku EXCLUSIVE
Locate for 班级=left(lingshibiao,5).and.学期=right(lingshibiao,1)
If (.not.eof())
LL=1
Endif
Use
If !empty(daorubiao).and.LL==0
If left(alltrim(panduan1),1)=="\".and.panduan2=="."
daorubiao=left(daorubiao,len(daorubiao)-10)
Chdir "&daorubiao"
Sele 1
Use &lingshibiao EXCLUSIVE
If fcount(1)>=5
For i6=ji to 5
gotchar3(i6)=field(i6,1)
Endfor
If duibi3(1)==gotchar3(1).and.duibi3(2)==gotchar3(2).and.duibi3(3)==gotchar3(3).and.duibi3(4)==gotchar3(4).and.duibi3(5)==gotchar3(5)
Use
Copy file "&lingshibiao"+".dbf" to "&bzhlj"+"数据库\"+"&lingshibiao"+".dbf"
Delete file "&lingshibiao"+".dbf"
Wait windows "成绩库导入成功！......." at 100,40 timeout 1
Chdir "&bzhlj"
Sele 2
Use xi EXCLUSIVE
Locate for 系=daoruxi3
If(eof())
Append blank
Replace 系 with daoruxi3
Endif
Use
Sele 2
Use zhuanye EXCLUSIVE
Locate for 专业=daoruzhuanye3.and.系=daoruxi3
If (eof())
Append blank
Replace 系 with daoruxi3,专业 with daoruzhuanye3,专业号 with "00"
Chdir 数据库
Create database &daoru3
Open databases &daoru3
Add table &lingshibiao
Close databases
Chdir ..
Sele 2
Use
Sele 2
Use 系专业 EXCLUSIVE
Locate for 系=daoruxi3.and.专业=daoruzhuanye3.and.班级=left(lingshibiao,5)
If (eof())
Append blank
Replace 系 with daoruxi3,专业 with daoruzhuanye3,专业号 with "00",班级 with left(lingshibiao,5),档案 with .f.
Use
Endif
Sele 2
Use chengjiku EXCLUSIVE
Append blank
Replace 系 with daoruxi3,专业 with daoruzhuanye3,班级 with left(lingshibiao,5),学期 with right(lingshibiao,1)
Use
Else
DD=1
Use
Chdir 数据库
Open database &daoru3
Add table &lingshibiao
Close databases
Chdir ..
Sele 2
Use 系专业 EXCLUSIVE
Locate for 系=daoruxi3.and.专业=daoruzhuanye3.and.班级=left(lingshibiao,5)
If(eof())
Append blank
Replace 系 with daoruxi3,专业 with daoruzhuanye3,专业号 with "00",班级 with left(lingshibiao,5),档案 with .f.
Use
Endif
Sele 2
Use chengjiku EXCLUSIVE
Append blank
Replace 系 with daoruxi3,专业 with daoruzhuanye3,班级 with left(lingshibiao,5),学期 with right(lingshibiao,1)
Use
Endif
If DD==0
=messagebox("为了避免专业号混乱，请马上到“系统维护”－>“专业号查询”里修改新增的专业号！",0+64,"提示")
Endif
Else
=messagebox("导入的表字段格式不符合，无法导入！",0+48,"警告")
Chdir "&bzhlj"
Endif
Else
=messagebox("导入的表的字段项不符合，无法导入！",0+48,"警告")
Chdir "&bzhlj"
Endif
Else
=messagebox("导入的表名格式不符合，无法导入！",0+48,"警告")
Endif
Else
=messagebox("系统数据库存在导入的班级，无法导入！",0+48,"警告")
Endif
Else
Wait windows "没有导入到确定的系或专业下面，成绩库导入失败！......." at 100,40 timeout 2 nowait
Endif
Close tables all
* *********************************************************
* *
* * _0I20VE4YB ON SELECTION BAR 3 OF POPUP 成绩管理c
* *
* * Procedure Origin:
* *
* * From Menu: MUNE.MPR, Record: 35
* * Called By: ON SELECTION BAR 3 OF POPUP 成绩管理c
* * Prompt: 成绩库导出
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -