📄 sys_menu.mpr
字号:
ON SELECTION BAR 1 OF 客户单位往 ;
DO _0up0qxdx2 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 3 OF 客户单位往 ;
DO _0up0qxdx3 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 客户单位往 ;
DO _0up0qxdx4 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 客户单位往 ;
DO _0up0qxdx5 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 9 OF 客户单位往 ;
DO _0up0qxdx6 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 费用利润管 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 费用利润管 PROMPT '财务支出日记帐' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 2 OF 费用利润管 PROMPT '财务收入日记帐' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 3 OF 费用利润管 PROMPT '\-'
DEFINE BAR 4 OF 费用利润管 PROMPT '收支科目定义' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
ON SELECTION BAR 1 OF 费用利润管 ;
DO _0up0qxdx7 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 2 OF 费用利润管 ;
DO _0up0qxdx8 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 4 OF 费用利润管 ;
DO _0up0qxdx9 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 货币资金管 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 货币资金管 PROMPT '现金缴款单' SKIP FOR .NOT. QX(5) .OR. SN ;
HALFHEIGHT 'c:\windows\zpgl70\bmp\币种.bmp'
DEFINE BAR 2 OF 货币资金管 PROMPT '银行转帐...' HALFHEIGHT ;
'c:\windows\zpgl70\bmp\币种.bmp'
DEFINE BAR 3 OF 货币资金管 PROMPT '\-'
DEFINE BAR 4 OF 货币资金管 PROMPT '资金日报表....' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 5 OF 货币资金管 PROMPT '\-'
DEFINE BAR 6 OF 货币资金管 PROMPT '生成现金日记帐...' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 7 OF 货币资金管 PROMPT '生成银行日记总帐...' SKIP FOR .NOT. QX(5) ;
HALFHEIGHT 'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 8 OF 货币资金管 PROMPT '\-'
DEFINE BAR 9 OF 货币资金管 PROMPT '银行分户日记帐...' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 10 OF 货币资金管 PROMPT '银行分户余额表...' SKIP FOR .NOT. QX(5) ;
HALFHEIGHT 'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 11 OF 货币资金管 PROMPT '\-'
DEFINE BAR 12 OF 货币资金管 PROMPT '现金银行分户期初录入...' SKIP FOR ;
.NOT. QX(5) .OR. SN HALFHEIGHT 'c:\windows\jxc通用7\bmp\dbtable.bmp'
ON SELECTION BAR 1 OF 货币资金管 ;
DO _0up0qxdxc IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 2 OF 货币资金管 ;
DO _0up0qxdxd IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 4 OF 货币资金管 ;
DO _0up0qxdxe IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 6 OF 货币资金管 ;
DO _0up0qxdxf IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 货币资金管 ;
DO _0up0qxdxg IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 9 OF 货币资金管 ;
DO _0up0qxdxh IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 10 OF 货币资金管 ;
DO _0up0qxdxi IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 12 OF 货币资金管 ;
DO _0up0qxdxj IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 费用支出统 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 费用支出统 PROMPT '财务收支汇总统计...' SKIP FOR .NOT. QX(5) ;
HALFHEIGHT 'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 2 OF 费用支出统 PROMPT '费用支出明细统计...' SKIP FOR .NOT. QX(5) ;
HALFHEIGHT 'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 3 OF 费用支出统 PROMPT '\-'
DEFINE BAR 4 OF 费用支出统 PROMPT '染厂费用统计...' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
ON SELECTION BAR 1 OF 费用支出统 ;
DO _0up0qxdxk IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 2 OF 费用支出统 ;
DO _0up0qxdxl IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 4 OF 费用支出统 ;
DO _0up0qxdxm IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 综合管理Z COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 综合管理Z PROMPT '购销存统计图表' SKIP FOR .NOT. QX(6) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\销售统计.bmp'
DEFINE BAR 2 OF 综合管理Z PROMPT '\-'
DEFINE BAR 3 OF 综合管理Z PROMPT '购销进总表...' SKIP FOR .NOT. QX(6) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\dbtable.bmp'
DEFINE BAR 4 OF 综合管理Z PROMPT '\-'
DEFINE BAR 5 OF 综合管理Z PROMPT '商品报价单...' SKIP FOR .NOT. QX(6) HALFHEIGHT ;
'c:\windows\jxc通用7\bmp\报价.bmp'
DEFINE BAR 6 OF 综合管理Z PROMPT '\-'
DEFINE BAR 7 OF 综合管理Z PROMPT '库存报警...' SKIP FOR .NOT. QX(6) HALFHEIGHT ;
'c:\windows\desktop\bmp\bell.bmp'
DEFINE BAR 8 OF 综合管理Z PROMPT '\-'
DEFINE BAR 9 OF 综合管理Z PROMPT '(\<N)年终转帐...' SKIP FOR ;
MONTH(DATE()) <> 12 .OR. .NOT. QX(6) .OR. SN O肙F;1虳ELETE;1腞ECYCLE; _MTL_DEBUGGER
ON SELECTION BAR 1 OF 综合管理Z ;
DO _0up0qxdxp IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 3 OF 综合管理Z ;
DO _0up0qxdxq IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 综合管理Z ;
DO _0up0qxdxr IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 综合管理Z ;
DO _0up0qxdxs IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 9 OF 综合管理Z ;
DO _0up0qxdxt IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 帮助H COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 帮助H PROMPT '帮助主题' KEY F1 , 'F1' O肙F;1虳ELETE;1腞ECYCLE; ;
_MST_HPSCH
DEFINE BAR 2 OF 帮助H PROMPT '\-'
DEFINE BAR 3 OF 帮助H PROMPT '(\<A)关于....' O肙F;1虳ELETE;1腞ECYCLE; _MST_TECHS
ON SELECTION BAR 1 OF 帮助H ;
DO _0up0qxdxu IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 3 OF 帮助H ;
DO _0up0qxdxv IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
PROCEDURE _0up0qxdua
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM d:\jxc\更换操作员 WITH .F.
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdub
DO FORM d:\jxc\口令设置
ENDPROC
*------
PROCEDURE _0up0qxduc
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM d:\jxc\重新注册
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxduf
DO FORM d:\jxc\操作员录入
ENDPROC
*------
PROCEDURE _0up0qxdug
DO FORM d:\jxc\业务人员录入
ENDPROC
*------
PROCEDURE _0up0qxduh
DO FORM d:\jxc\仓库设置
ENDPROC
*------
PROCEDURE _0up0qxdui
DO FORM d:\jxc\地区设置
ENDPROC
*------
PROCEDURE _0up0qxduj
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
DO FORM d:\jxc\材料类别
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdup
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
DO FORM d:\jxc\加载程序
DO FORM d:\jxc\材料代码
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxduq
DO FORM d:\jxc\供货单位录入
ENDPROC
*------
PROCEDURE _0up0qxdur
DO FORM d:\jxc\客户单位录入
ENDPROC
*------
PROCEDURE _0up0qxdv0
DO FORM d:\jxc\系统设置
ENDPROC
*------
PROCEDURE _0up0qxdv4
SET DEFAULT TO (DXPATH + 'repo')
CWIN = .T.
C_FILE = GETFILE('frx')
IF .NOT. EMPTY(C_FILE)
MODIFY REPORT (C_FILE)
ENDIF
CWIN = .F.
SET DEFAULT TO (MLPATH + 'DATA\' + MYEAR + '\')
ENDPROC
*------
PROCEDURE _0up0qxdv8
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM d:\jxc\自动修复错误
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdv9
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
SELECT 0
USE SHARED (MLPATH + 'data\sysuser.dbf')
LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
IF FOUND()
= MESSAGEBOX(ALLTRIM(用户) + '已经登录，请退出后再整理！',16,'警告')
USE
RETURN
ENDIF
USE
DO FORM d:\jxc\数据整理
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdva
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
SELECT 0
USE SHARED (MLPATH + 'data\sysuser.dbf')
LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
IF FOUND()
= MESSAGEBOX(ALLTRIM(用户) + '已经登录，请退出后再备份！',16,'警告')
USE
RETURN
ENDIF
USE
DO FORM d:\jxc\数据备份恢复
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdve
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM d:\jxc\合法性检查.scx
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdvf
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
SELECT 0
USE SHARED (MLPATH + 'data\sysuser.dbf')
LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
IF FOUND()
= MESSAGEBOX(ALLTRIM(用户) + '已经登录，请退出后再清空！',16,'警告')
USE
RETURN
ENDIF
USE
AAA = ;
MESSAGEBOX('执行系统数据清空处理后，原录入的有关数据将全部清除，无法恢复。' + CHR(13) + ;
CHR(13) + ;
'是否继续？',20,'警告')
IF AAA = 6
CLOSE TABLE ALL
DO FORM d:\jxc\数据清空
ENDIF
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdvg
DO FORM d:\jxc\用户
ENDPROC
*------
PROCEDURE _0up0qxdvh
DO d:\jxc\菜单1.mpr
ENDPROC
*------
PROCEDURE _0up0qxdvt
DOC = WINDIR + '\calc.exe'
DOC1 = ''
DOC2 = ''
IF FILE(DOC)
run /n1 &doc
RETURN
ENDIF
IF USED('redid')
SELECT REDID
ELSE
USE DXPATH + 'data\regid.dbf'
DOC2 = ALLTRIM(CALCPATH)
SELECT REGID
USE
ENDIF
IF EMPTY(DOC2)
C = MESSAGEBOX(WINDIR + '目录中找不到calc.exe文件，您是否亲自查找？',36,'')
IF C = 6
DOC1 = GETFILE('exe')
IF .NOT. EMPTY(DOC1)
IF UPPER('calc.exe') $ UPPER(DOC1)
SELECT 0
USE DXPATH + 'regid.dbf'
SELECT REGID
GO TOP
REPLACE CALCPATH WITH DOC1
USE
run /n1 &doc1
RETURN
ELSE
= MESSAGEBOX('这不是一个计算器程序！',16,'')
ENDIF
ENDIF
ENDIF
ELSE
IF FILE(DOC2)
run /n1 &doc2
RETURN
ELSE
MESSAGEBOX('您指定的目录中找不到calc.exe文件，请再次启动？',16,'计算器找不到')
SELECT 0
USE DXPATH + 'data\regid.dbf'
SELECT REGID
GO TOP
REPLACE CALCPATH WITH ''
USE
ENDIF
ENDIF
ENDPROC
*------
PROCEDURE _0up0qxdvu
DO FORM d:\jxc\计算器
ENDPROC
*------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -