📄 zhumenu.mpr
字号:
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 54
* * Called By: ON SELECTION PAD
* * Prompt: 退出系统(Q)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _2ba1057a8
set procedure to zhumenu.mpr &&指明该过程的位置
close databases &&关闭数据库
close all &&关闭所有的表和数据
clear events &&清除事件循环
quit &&退出系统
* *********************************************************
* *
* * _2BA1057A9 ON SELECTION BAR 2 OF POPUP 数据录入d
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 25
* * Called By: ON SELECTION BAR 2 OF POPUP 数据录入d
* * Prompt: 打印客户信息
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _2ba1057a9
SET FILTER TO
if used('.\源文件\客户表.dbf')
use .\源文件\客户表.dbf
endif &&指定访问当前表中记录时满足的条件
REPORT FORM 客户信息.frx to print
close all
* *********************************************************
* *
* * _2BA1057AA ON SELECTION BAR 4 OF POPUP 数据录入d
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 27
* * Called By: ON SELECTION BAR 4 OF POPUP 数据录入d
* * Prompt: 打印联系人信息
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _2ba1057aa
SET FILTER TO &&指定访问当前表中记录时满足的条件
if used('.\源文件\联系人.dbf')
use .\源文件\联系人.dbf
endif
REPORT FORM 联系人信息.frx to print &&从联系人信息报表中输出
close all
* *********************************************************
* *
* * _2BA1057AB ON SELECTION BAR 6 OF POPUP 数据录入d
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 29
* * Called By: ON SELECTION BAR 6 OF POPUP 数据录入d
* * Prompt: 打印服务信息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _2ba1057ab
SET FILTER TO &&指定访问当前表中记录时满足的条件
if used('.\源文件\服务表.dbf')
use .\源文件\服务表.dbf
endif
REPORT FORM 服务信息.frx to print
close all
* *********************************************************
* *
* * _2BA1057AC ON SELECTION BAR 1 OF POPUP 报表输出b
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 46
* * Called By: ON SELECTION BAR 1 OF POPUP 报表输出b
* * Prompt: 客户信息
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _2ba1057ac
SET FILTER TO &&指定访问当前表中记录时满足的条件
if used('.\源文件\客户表.dbf')
use .\源文件\客户表.dbf
endif
REPORT FORM 客户信息.frx to print
&&从客户信息报表中输出
close all
* *********************************************************
* *
* * _2BA1057AD ON SELECTION BAR 2 OF POPUP 报表输出b
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 47
* * Called By: ON SELECTION BAR 2 OF POPUP 报表输出b
* * Prompt: 服务信息
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _2ba1057ad
SET FILTER TO &&指定访问当前表中记录时满足的条件
if used('.\源文件\服务表.dbf')
use .\源文件\服务表.dbf
endif
REPORT FORM 服务信息.frx to print &&从服务信息报表中输出
close all
* *********************************************************
* *
* * _2BA1057AE ON SELECTION BAR 3 OF POPUP 报表输出b
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 48
* * Called By: ON SELECTION BAR 3 OF POPUP 报表输出b
* * Prompt: 联系人信息
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _2ba1057ae
SET FILTER TO &&指定访问当前表中记录时满足的条件
if used('.\源文件\联系人.dbf')
use .\源文件\联系人.dbf
endif
REPORT FORM 联系人信息.frx to print &&从联系人信息报表中输出
close all
* *********************************************************
* *
* * _2BA1057AF ON SELECTION BAR 4 OF POPUP 报表输出b
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 49
* * Called By: ON SELECTION BAR 4 OF POPUP 报表输出b
* * Prompt: 区号邮编
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _2ba1057af
SET FILTER TO &&指定访问当前表中记录时满足的条件
if used('.\源文件\区号邮编.dbf')
use .\源文件\区号邮编.dbf
endif
REPORT FORM 区号邮编.frx to print &&从区号邮编报表中输出
close all
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -