lcdnp1.mpr

一个非常优秀的VFP源码

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: LCDNP1.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _12A0LIE4X OF _MSYSMENU PROMPT '【设置(\<S)】' SKIP FOR  ;
      VA1 + VA2 + VA3 + VA4 + VA5 + VA6 + VA7 + VA8 + VA9 + VA10 + VA11 + VA12 + VA13 +  ;
VA14 + VA15 = 0  ;
      COLOR SCHEME 3 KEY ALT+S , ''
 DEFINE PAD _12A0LIE4Y OF _MSYSMENU PROMPT '【进货(\<I)】' SKIP FOR  ;
      VB1 + VB2 + VB3 + VB4 + VB5 + VB6 = 0 COLOR SCHEME 3 KEY ALT+I , ''
 DEFINE PAD _12A0LIE4Z OF _MSYSMENU PROMPT '【销售(\<O)】' SKIP FOR  ;
      VC1 + VC2 + VC3 + VC4 + VC5 + VC6 + VC7 + VC8 + VC9 + VC10 + VC11 + VC12 + VC13 +  ;
VC14 + VC15 + VC16 + VC17 + VC18 = 0  ;
      COLOR SCHEME 3 KEY ALT+O , ''
 DEFINE PAD _12A0LIE50 OF _MSYSMENU PROMPT '【库存(\<C)】' SKIP FOR VD1 + VD2 + VD3 = 0  ;
      COLOR SCHEME 3 KEY ALT+C , ''
 DEFINE PAD _12A0LIE51 OF _MSYSMENU PROMPT '【帐务(\<W)】' SKIP FOR  ;
      VE1 + VE2 + VE3 + VE4 = 0 COLOR SCHEME 3 KEY ALT+W , ''
 DEFINE PAD _12A0LIE52 OF _MSYSMENU PROMPT '【综合(\<Z)】' SKIP FOR  ;
      VF1 + VF2 + VF3 + VF4 = 0 COLOR SCHEME 3 KEY ALT+Z , ''
 DEFINE PAD _12A0LIE53 OF _MSYSMENU PROMPT '【退出(\<Q)】' COLOR SCHEME 3 KEY ALT+Q , ''
 ON PAD _12A0LIE4X OF _MSYSMENU ACTIVATE POPUP 【设置S】
 ON PAD _12A0LIE4Y OF _MSYSMENU ACTIVATE POPUP 【进货I】
 ON PAD _12A0LIE4Z OF _MSYSMENU ACTIVATE POPUP 【销售O】
 ON PAD _12A0LIE50 OF _MSYSMENU ACTIVATE POPUP 【库存C】
 ON PAD _12A0LIE51 OF _MSYSMENU ACTIVATE POPUP 【帐务W】
 ON PAD _12A0LIE52 OF _MSYSMENU ACTIVATE POPUP 【综合Z】
 ON PAD _12A0LIE53 OF _MSYSMENU ACTIVATE POPUP 【退出Q】
 DEFINE POPUP 【设置S】 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 【设置S】 PROMPT '仓    库' KEY ALT+A , 'ALT+A'
 DEFINE BAR 2 OF 【设置S】 PROMPT '商    品' SKIP FOR VA1 = 0 KEY ALT+B , 'ALT+B'
 DEFINE BAR 3 OF 【设置S】 PROMPT '客    户' SKIP FOR VA2 = 0 KEY ALT+C , 'ALT+C'
 DEFINE BAR 4 OF 【设置S】 PROMPT '业务员' SKIP FOR VA3 = 0
 DEFINE BAR 5 OF 【设置S】 PROMPT '供应商' SKIP FOR VA4 = 0
 DEFINE BAR 6 OF 【设置S】 PROMPT '\-'
 DEFINE BAR 7 OF 【设置S】 PROMPT '选择单据' SKIP FOR VA15 = 0
 DEFINE BAR 8 OF 【设置S】 PROMPT '财务科目' SKIP FOR VA6 = 0 KEY ALT+F , 'ALT+F'
 DEFINE BAR 9 OF 【设置S】 PROMPT '\-'
 DEFINE BAR 10 OF 【设置S】 PROMPT '数据管理' SKIP FOR VA7 + VA8 + VA9 + VA14 = 0
 DEFINE BAR 11 OF 【设置S】 PROMPT '权限设置' SKIP FOR VA10 + VA11 + VA12 = 0
 DEFINE BAR 12 OF 【设置S】 PROMPT '\-'
 DEFINE BAR 13 OF 【设置S】 PROMPT '系统修复' SKIP FOR VA13 = 0
 ON SELECTION BAR 1 OF 【设置S】 do form ckmc2
 ON SELECTION BAR 2 OF 【设置S】 do form spbh.scx
 ON SELECTION BAR 3 OF 【设置S】 do form khde.scx
 ON SELECTION BAR 4 OF 【设置S】 do form ewbd.scx
 ON SELECTION BAR 5 OF 【设置S】 do form jkhde
 ON SELECTION BAR 7 OF 【设置S】 do form djno
 ON SELECTION BAR 8 OF 【设置S】 do form kmde.scx
 ON BAR 10 OF 【设置S】 ACTIVATE POPUP 数据管理
 ON BAR 11 OF 【设置S】 ACTIVATE POPUP 权限设置
 ON SELECTION BAR 13 OF 【设置S】 do rest1
 DEFINE POPUP 数据管理 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 数据管理 PROMPT '数据备份' SKIP FOR VA7 = 0
 DEFINE BAR 2 OF 数据管理 PROMPT '数据恢复' SKIP FOR VA8 = 0
 DEFINE BAR 3 OF 数据管理 PROMPT '\-'
 DEFINE BAR 4 OF 数据管理 PROMPT '接收/发送..数据' SKIP FOR VA9 = 0
 DEFINE BAR 5 OF 数据管理 PROMPT '\-'
 DEFINE BAR 6 OF 数据管理 PROMPT '系统初始化' SKIP FOR VA14 = 0
 ON SELECTION BAR 1 OF 数据管理 do form bak.scx
 ON SELECTION BAR 2 OF 数据管理 do form bakr.scx
 ON SELECTION BAR 4 OF 数据管理 do form hsjs.scx
 ON SELECTION BAR 6 OF 数据管理 do form eba
 DEFINE POPUP 权限设置 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 权限设置 PROMPT '更改密码' SKIP FOR VA10 = 0
 DEFINE BAR 2 OF 权限设置 PROMPT '授权用户' SKIP FOR VA11 = 0
 DEFINE BAR 3 OF 权限设置 PROMPT '\-'
 DEFINE BAR 4 OF 权限设置 PROMPT '删除用户' SKIP FOR VA12 = 0
 ON SELECTION BAR 1 OF 权限设置 do form pass.scx
 ON SELECTION BAR 2 OF 权限设置 do form passgl.scx
 ON SELECTION BAR 4 OF 权限设置 do form pass2.scx
 DEFINE POPUP 【进货I】 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 【进货I】 PROMPT '商品进库' SKIP FOR VB1 = 0 KEY F2 , 'F2'
 DEFINE BAR 2 OF 【进货I】 PROMPT '进货退货' SKIP FOR VB5 = 0
 DEFINE BAR 3 OF 【进货I】 PROMPT '采购付款' SKIP FOR VB6 = 0
 DEFINE BAR 4 OF 【进货I】 PROMPT '\-'
 DEFINE BAR 5 OF 【进货I】 PROMPT '进货查询' SKIP FOR VB2 = 0
 DEFINE BAR 6 OF 【进货I】 PROMPT '查询预售价' SKIP FOR VB3 = 0 KEY ALT+S , 'ALT+S'
 DEFINE BAR 7 OF 【进货I】 PROMPT '\-'
 DEFINE BAR 8 OF 【进货I】 PROMPT '修改预售价' SKIP FOR VB4 = 0
 ON SELECTION BAR 1 OF 【进货I】 DO FORM  jk.SCX
 ON SELECTION BAR 2 OF 【进货I】 do form jkth.scx
 ON SELECTION BAR 3 OF 【进货I】 do form bzllfk.scx
 ON SELECTION BAR 5 OF 【进货I】 do form jk1
 ON SELECTION BAR 6 OF 【进货I】 do form jgcs.scx
 ON SELECTION BAR 8 OF 【进货I】 do form jgcsg.scx
 DEFINE POPUP 【销售O】 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 【销售O】 PROMPT '商品销售' SKIP FOR VC1 = 0 KEY F3 , 'F3'
 DEFINE BAR 2 OF 【销售O】 PROMPT '销售退货' SKIP FOR VC15 = 0
 DEFINE BAR 3 OF 【销售O】 PROMPT '销售收款' SKIP FOR VC16 = 0
 DEFINE BAR 4 OF 【销售O】 PROMPT '\-'
 DEFINE BAR 5 OF 【销售O】 PROMPT '订单录入' SKIP FOR VC17 = 0 KEY ALT+L , 'ALT+L'
 DEFINE BAR 6 OF 【销售O】 PROMPT '订单销售' SKIP FOR VC18 = 0 KEY ALT+M , 'ALT+M'
 DEFINE BAR 7 OF 【销售O】 PROMPT '\-'
 DEFINE BAR 8 OF 【销售O】 PROMPT '单据冻结' SKIP FOR VC2 = 0 KEY ALT+P , 'ALT+P'
 DEFINE BAR 9 OF 【销售O】 PROMPT '单据解冻' SKIP FOR VC3 = 0 KEY ALT+Q , 'ALT+Q'
 DEFINE BAR 10 OF 【销售O】 PROMPT '\-'
 DEFINE BAR 11 OF 【销售O】 PROMPT '销售查询' SKIP FOR VC6 = 0 KEY F5 , 'F5'
 DEFINE BAR 12 OF 【销售O】 PROMPT '销售日记帐' SKIP FOR VC5 = 0 KEY F8 , 'F8'
 DEFINE BAR 13 OF 【销售O】 PROMPT '销售统计' SKIP FOR VC7 + VC8 + VC9 + VC10 + VC11 = 0
 DEFINE BAR 14 OF 【销售O】 PROMPT '\-'
 DEFINE BAR 15 OF 【销售O】 PROMPT '营销员红旗榜' SKIP FOR VC12 = 0
 DEFINE BAR 16 OF 【销售O】 PROMPT '当月销售报表' SKIP FOR VC13 + VC14 = 0
 ON SELECTION BAR 1 OF 【销售O】 do form ck.scx
 ON SELECTION BAR 2 OF 【销售O】 do form th.scx
 ON SELECTION BAR 3 OF 【销售O】 do form bzllsk.scx
 ON SELECTION BAR 5 OF 【销售O】 do form ckd.scx
 ON SELECTION BAR 6 OF 【销售O】 do form ckdlist.scx
 ON SELECTION BAR 8 OF 【销售O】 do form gd.scx
 ON SELECTION BAR 9 OF 【销售O】 do form hd.scx
 ON SELECTION BAR 11 OF 【销售O】 do form cz1
 ON SELECTION BAR 12 OF 【销售O】 do xjjjz1
 ON BAR 13 OF 【销售O】 ACTIVATE POPUP 销售统计
 ON SELECTION BAR 15 OF 【销售O】 do form bb4.scx
 ON BAR 16 OF 【销售O】 ACTIVATE POPUP 当月销售报
 DEFINE POPUP 销售统计 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 销售统计 PROMPT '业务员...营业/监督' SKIP FOR VC7 = 0
 DEFINE BAR 2 OF 销售统计 PROMPT '地区性...营业/监督' SKIP FOR VC8 = 0
 DEFINE BAR 3 OF 销售统计 PROMPT '盈利率...比较/监督' SKIP FOR VC9 = 0
 DEFINE BAR 4 OF 销售统计 PROMPT '\-'
 DEFINE BAR 5 OF 销售统计 PROMPT '退  货...比较/监督' SKIP FOR VC10 = 0
 DEFINE BAR 6 OF 销售统计 PROMPT '退  货...     打印' SKIP FOR VC11 = 0
 ON SELECTION BAR 1 OF 销售统计 do form ew.scx
 ON SELECTION BAR 2 OF 销售统计 do form ew1.scx
 ON SELECTION BAR 3 OF 销售统计 do form ew4.scx
 ON SELECTION BAR 5 OF 销售统计 do form ew3.scx
 ON SELECTION BAR 6 OF 销售统计 do thd
 DEFINE POPUP 当月销售报 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 当月销售报 PROMPT '业务...销售统计(各人)' SKIP FOR VC13 = 0
 DEFINE BAR 2 OF 当月销售报 PROMPT '综合...销售统计(全部)' SKIP FOR VC14 = 0
 ON SELECTION BAR 1 OF 当月销售报 do form bb3.scx
 ON SELECTION BAR 2 OF 当月销售报 do form bb.scx
 DEFINE POPUP 【库存C】 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 【库存C】 PROMPT '商品库存' SKIP FOR VD1 = 0 KEY F4 , 'F4'
 DEFINE BAR 2 OF 【库存C】 PROMPT '商品调拨' SKIP FOR VD3 = 0
 DEFINE BAR 3 OF 【库存C】 PROMPT '\-'
 DEFINE BAR 4 OF 【库存C】 PROMPT '商品短缺' SKIP FOR VD2 = 0 KEY ALT+U , 'ALT+U'
 ON SELECTION BAR 1 OF 【库存C】 do form zkhl
 ON SELECTION BAR 2 OF 【库存C】 do form cktb
 ON SELECTION BAR 4 OF 【库存C】 do tskc
 DEFINE POPUP 【帐务W】 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 【帐务W】 PROMPT '记帐    凭证' SKIP FOR VE1 = 0 KEY ALT+1 , 'ALT+1'
 DEFINE BAR 2 OF 【帐务W】 PROMPT '\-'
 DEFINE BAR 3 OF 【帐务W】 PROMPT '明    细    帐' SKIP FOR VE2 = 0 KEY ALT+2 , 'ALT+2'
 DEFINE BAR 4 OF 【帐务W】 PROMPT '\-'
 DEFINE BAR 5 OF 【帐务W】 PROMPT '余额汇总表' SKIP FOR VE3 = 0
 ON SELECTION BAR 1 OF 【帐务W】 do form jzbz.scx
 ON SELECTION BAR 3 OF 【帐务W】 do form bzll
 ON SELECTION BAR 5 OF 【帐务W】 do form bzer.scx
 DEFINE POPUP 【综合Z】 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 【综合Z】 PROMPT '产品推广分析' SKIP FOR VF1 = 0
 DEFINE BAR 2 OF 【综合Z】 PROMPT '客户交易分析' SKIP FOR VF2 = 0
 DEFINE BAR 3 OF 【综合Z】 PROMPT '\-'
 DEFINE BAR 4 OF 【综合Z】 PROMPT '客户交易排名' SKIP FOR VF3 = 0
 DEFINE BAR 5 OF 【综合Z】 PROMPT '\-'
 DEFINE BAR 6 OF 【综合Z】 PROMPT '单据编号发送' SKIP FOR VF4 = 0
 ON SELECTION BAR 1 OF 【综合Z】 do form cphx.scx
 ON SELECTION BAR 2 OF 【综合Z】 do form sshx.scx
 ON SELECTION BAR 4 OF 【综合Z】 do form bzer1.scx
 ON SELECTION BAR 6 OF 【综合Z】 do hsbh
 DEFINE POPUP 【退出Q】 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 【退出Q】 PROMPT '退出系统' KEY CTRL+Q , 'CTRL+Q'
 DEFINE BAR 2 OF 【退出Q】 PROMPT '\-'
 DEFINE BAR 3 OF 【退出Q】 PROMPT '怎样开始'
 DEFINE BAR 4 OF 【退出Q】 PROMPT '软件注册'
 ON SELECTION BAR 1 OF 【退出Q】 do form bakts
 ON SELECTION BAR 3 OF 【退出Q】 do form help
 ON SELECTION BAR 4 OF 【退出Q】 do form rjzc.scx
*