📄 mainmenu.mpr
字号:
* * From Menu: MAINMENU.MPR, Record: 19
* * Called By: ON SELECTION PAD
* * Prompt: 退出(E)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1mu18d3tb
Ret=MessageBox("真要退出吗?",4+32+256,"班级管理系统1.0")
If RET=6
Clear Events
Close All
Quit
EndIf
* *********************************************************
* *
* * _1MU18D3TC ON SELECTION BAR 1 OF POPUP 管理m
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 6
* * Called By: ON SELECTION BAR 1 OF POPUP 管理m
* * Prompt: 学生情况管理(X)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1mu18d3tc
If Not File(AllTrim("Xsqk.dbf"))
Create Database Db_bjgl
Create Table Xsqk(学号 C(8) Primary Key Default "200401",姓名 C(6) Not Null Unique,性别 C(2) Default "男" Check (性别="男" Or 性别="女") Error "性别为男或女",团员否 L Default .F.,出生日期 D,入学成绩 N(5,1),简历 M,照片 G)
EndIf
Do Form XsqkForm.scx
* *********************************************************
* *
* * _1MU18D3TD ON SELECTION BAR 2 OF POPUP 管理m
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 7
* * Called By: ON SELECTION BAR 2 OF POPUP 管理m
* * Prompt: 学生成绩管理(C)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1mu18d3td
If Not File(AllTrim("Xsqk.dbf"))
MessageBox("还没创建该班的学生基本情况表呢! "+Chr(13)+"请先创建学生基本情况表",0+32+0,"注意")
Else
If Not File(AllTrim(XscjTableName+".dbf"))
Select 学号 From Xsqk Into Table AllTrim(XscjTableName+".dbf")
Close All
Open Database Db_bjgl
Add Table AllTrim(XscjTableName)
Alter Table AllTrim(XscjTableName) Add Column 语文 N(5,1) Check(语文>=0 and 语文<=100)
Alter Table AllTrim(XscjTableName) Add Column 数学 N(5,1) Check(数学>=0 and 数学<=100)
Alter Table AllTrim(XscjTableName) Add Column 英语 N(5,1) Check(英语>=0 and 英语<=100)
Alter Table AllTrim(XscjTableName) Add Column 总分 N(5,1)
Alter Table AllTrim(XscjTableName) Add Primary Key 学号 Tag Xh
EndIf
Do Form XscjForm.scx
EndIf
* *********************************************************
* *
* * _1MU18D3TE ON SELECTION BAR 3 OF POPUP 管理m
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 8
* * Called By: ON SELECTION BAR 3 OF POPUP 管理m
* * Prompt: 成绩统计管理(T)
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1mu18d3te
Close All
If Not File(AllTrim(XscjTableName+".dbf"))
MessageBox("还没输入"+Nj+Xq+"的成绩!",0+32+0,"注意")
Else
Do Form CjtjForm.scx
EndIf
* *********************************************************
* *
* * _1MU18D3TF ON SELECTION BAR 1 OF POPUP 预览报表r
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 11
* * Called By: ON SELECTION BAR 1 OF POPUP 预览报表r
* * Prompt: 预览学生成绩降序报表(Q)
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1mu18d3tf
Close All
Open Database Db_bjgl
Use Xscj
* 若Xscj表中"总分"字段的索引标识Zf不存在，请建立
Set Order To Zf
Delete All
Pack
* 把某年级某学期的成绩表拷贝成XSCJ.DBF，作为RPT1.FRX的数据源
If File(AllTrim(XscjTableName+".dbf"))
Append From AllTrim(XscjTableName)
Report Form Rpt1.frx Preview
Else
MessageBox("不存在"+Nj+Xq+"的成绩表!",0+32+0,"注意")
EndIf
* *********************************************************
* *
* * _1MU18D3TG ON SELECTION BAR 3 OF POPUP 预览报表r
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 13
* * Called By: ON SELECTION BAR 3 OF POPUP 预览报表r
* * Prompt: 预览性别分组统计报表(F)
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1mu18d3tg
Use Xsqk
Set Order To Tag Xb &&激活以“性别”建立的XB索引标识
Report Form Rpt3.frx Preview
Close All
* *********************************************************
* *
* * _1MU18D3TH ON SELECTION BAR 5 OF POPUP 预览报表r
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 16
* * Called By: ON SELECTION BAR 5 OF POPUP 预览报表r
* * Prompt: 打印学生成绩降序报表(M)
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1mu18d3th
Close All
Open Database Db_bjgl
Use Xscj
* 若Xscj表中"总分"字段的索引标识Zf不存在，请建立
Set Order To Zf
Delete All
Pack
* 把某年级某学期的成绩表拷贝成XSCJ.DBF，作为RPT1.FRX的数据源
If File(AllTrim(XscjTableName+".dbf"))
Append From AllTrim(XscjTableName)
Report Form Rpt1.frx to Printer
else
MessageBox("不存在"+Nj+Xq+"的成绩表!",0+32+0,"注意")
EndIf
* *********************************************************
* *
* * _1MU18D3TI ON SELECTION BAR 7 OF POPUP 预览报表r
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 18
* * Called By: ON SELECTION BAR 7 OF POPUP 预览报表r
* * Prompt: 打印性别分组统计报表(Z)
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1mu18d3ti
Use Xsqk
Delete Tag All
Index On 性别 Tag Xb
Set Order To Tag Xb &&激活以“性别”建立的XB索引标识
Report Form Rpt3.frx To Printer
Close All
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -