复件 sysmenu.mpr

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

 DEFINE BAR 1 OF 综合管理Z PROMPT '购销存统计图表' SKIP FOR  .NOT. QX(6) HALFHEIGHT  ;
      'BMP\销售统计.bmp'
 DEFINE BAR 2 OF 综合管理Z PROMPT '\-'
 DEFINE BAR 3 OF 综合管理Z PROMPT '购销进总表...' SKIP FOR  .NOT. QX(6) HALFHEIGHT  ;
      'BMP\dbtable.bmp'
 DEFINE BAR 4 OF 综合管理Z PROMPT '\-'
 DEFINE BAR 5 OF 综合管理Z PROMPT '商品报价单...' SKIP FOR  .NOT. QX(6) HALFHEIGHT  ;
      'BMP\报价.bmp'
 DEFINE BAR 6 OF 综合管理Z PROMPT '\-'
 DEFINE BAR 7 OF 综合管理Z PROMPT '库存报警...' SKIP FOR  .NOT. QX(6) HALFHEIGHT  ;
      '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 更换操作员
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\更换操作员 WITH .F.
 ENDIF 
ENDPROC
*------
PROCEDURE 口令设置
 DO FORM FRM\口令设置
ENDPROC
*------
PROCEDURE 注销
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\重新注册
 ENDIF 
ENDPROC
*------
PROCEDURE 操作人员录入
 DO FORM FRM\操作员录入
ENDPROC
*------
PROCEDURE 业务人员录入
 DO FORM FRM\业务人员录入
ENDPROC
*------
PROCEDURE 仓库设置
 DO FORM FRM\仓库设置
ENDPROC
*------
PROCEDURE 地区设置
 DO FORM FRM\地区设置
ENDPROC
*------
PROCEDURE 商品类别设置
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    DO FORM FRM\材料类别
 ENDIF 
ENDPROC
*------
PROCEDURE 商品代码设置
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    DO FORM FRM\加载程序
    DO FORM FRM\材料代码
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE 供货单位录入
 DO FORM FRM\供货单位录入
ENDPROC
*------
PROCEDURE 客户单位录入
 DO FORM FRM\客户单位录入
ENDPROC
*------
PROCEDURE 修改系统设置
 DO FORM FRM\系统设置
ENDPROC
*------
PROCEDURE 报表格式设计
 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 自动修复错误
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\自动修复错误
 ENDIF 
ENDPROC
*------
PROCEDURE 数据整理
 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 FRM\数据整理
 ENDIF 
ENDPROC
*------
PROCEDURE 数据备份与恢复
 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 FRM\数据备份恢复
 ENDIF 
ENDPROC
*------
PROCEDURE 进仓单数据检查
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\合法性检查.scx
 ENDIF 
ENDPROC
*------
PROCEDURE 清空系统数据
 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 FRM\数据清空
    ENDIF 
 ENDIF 
ENDPROC
*------
PROCEDURE 查看系统用户
 DO FORM FRM\用户
ENDPROC
*------
PROCEDURE 系统二次开发
 DO FRM\菜单1.mpr
ENDPROC
*------
PROCEDURE 计算器
 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 SYSPATH+'data\regid.dbf'
       SELECT REGID
       GO TOP
       REPLACE CALCPATH WITH ''
       USE 
    ENDIF 
 ENDIF 
ENDPROC
*------
PROCEDURE 增值税计算器
 DO FORM FRM\计算器
ENDPROC
*------
PROCEDURE _0up0qxdvx
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\进仓单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdvy
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\染厂转库
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdvz
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\染厂库存核销
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw0
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\染厂库存核销统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw1
 DO FORM FRM\染厂设置
ENDPROC