📄 main1.mpr
字号:
* *********************************************************
* *
* * 03/06/05 MAIN1.MPR 16:18:58
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0yx0yyyws OF _MSYSMENU PROMPT "工资管理" COLOR SCHEME 3 ;
SKIP FOR user="admin"
DEFINE PAD _0yx0yyywt OF _MSYSMENU PROMPT "入库管理" COLOR SCHEME 3 ;
SKIP FOR user="admin"
DEFINE PAD _0yx0yyywu OF _MSYSMENU PROMPT "销售管理" COLOR SCHEME 3 ;
SKIP FOR user="admin"
DEFINE PAD _0yx0yyywv OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
ON PAD _0yx0yyyws OF _MSYSMENU ACTIVATE POPUP 工资管理
ON PAD _0yx0yyywt OF _MSYSMENU ACTIVATE POPUP 入库管理
ON PAD _0yx0yyywu OF _MSYSMENU ACTIVATE POPUP 销售管理
ON PAD _0yx0yyywv OF _MSYSMENU ACTIVATE POPUP 系统管理
DEFINE POPUP 工资管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工资管理 PROMPT "工资维护"
DEFINE BAR 2 OF 工资管理 PROMPT "工资计算"
DEFINE BAR 3 OF 工资管理 PROMPT "税率表"
ON SELECTION BAR 1 OF 工资管理 do form gzform
ON SELECTION BAR 2 OF 工资管理 do form gzjsform
ON SELECTION BAR 3 OF 工资管理 do form slbglform.scx
DEFINE POPUP 入库管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 入库管理 PROMPT "入库单头输入"
DEFINE BAR 2 OF 入库管理 PROMPT "入库明细输入"
DEFINE BAR 3 OF 入库管理 PROMPT "商品预警查询"
ON SELECTION BAR 1 OF 入库管理 do form rkdtform
ON SELECTION BAR 2 OF 入库管理 do form rkmxform
ON SELECTION BAR 3 OF 入库管理 do form yjrqcxform
DEFINE POPUP 销售管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售管理 PROMPT "现金收款"
DEFINE BAR 2 OF 销售管理 PROMPT "查询日明细"
DEFINE BAR 3 OF 销售管理 PROMPT "日销售结帐"
DEFINE BAR 4 OF 销售管理 PROMPT "查询月明细"
ON SELECTION BAR 1 OF 销售管理 ;
DO _0yx0yyyx3 ;
IN LOCFILE("\超市管理\MAIN1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN1?")
ON BAR 2 OF 销售管理 ACTIVATE POPUP 查询日明细
ON SELECTION BAR 3 OF 销售管理 ;
DO _0yx0yyyx6 ;
IN LOCFILE("\超市管理\MAIN1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN1?")
ON SELECTION BAR 4 OF 销售管理 do form cxymxform
DEFINE POPUP 查询日明细 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询日明细 PROMPT "销售单据查询"
DEFINE BAR 2 OF 查询日明细 PROMPT "销售汇总查询"
ON SELECTION BAR 1 OF 查询日明细 do form cxrmxform1
ON SELECTION BAR 2 OF 查询日明细 do form cxrmxform2
DEFINE POPUP 系统管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理 PROMPT "商品编码" ;
SKIP FOR user#"admin"
DEFINE BAR 2 OF 系统管理 PROMPT "用户管理" ;
SKIP FOR user#"admin"
DEFINE BAR 3 OF 系统管理 PROMPT "修改口令"
DEFINE BAR 4 OF 系统管理 PROMPT "更换操作员"
DEFINE BAR 5 OF 系统管理 PROMPT "退出"
ON SELECTION BAR 1 OF 系统管理 do form spjbbform
ON SELECTION BAR 2 OF 系统管理 do form userform
ON SELECTION BAR 3 OF 系统管理 do form updateform
ON SELECTION BAR 4 OF 系统管理 do form loginform1.scx
ON SELECTION BAR 5 OF 系统管理 ;
DO _0yx0yyyxb ;
IN LOCFILE("\超市管理\MAIN1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN1?")
* *********************************************************
* *
* * _0YX0YYYX3 ON SELECTION BAR 1 OF POPUP 销售管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN1.MPR, Record: 15
* * Called By: ON SELECTION BAR 1 OF POPUP 销售管理
* * Prompt: 现金收款
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0yx0yyyx3
sele 1
use data\rxsdtb
set order to dh
go bott
if eof()
mdh=1
else
mdh=dh+1
endif
insert into rxsdtb value(date(),mdh,m.user)
use
do form spxsform
* *********************************************************
* *
* * _0YX0YYYX6 ON SELECTION BAR 3 OF POPUP 销售管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN1.MPR, Record: 20
* * Called By: ON SELECTION BAR 3 OF POPUP 销售管理
* * Prompt: 日销售结帐
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0yx0yyyx6
*日销售结帐处理
*先判断是否已结帐
*!* sele 1
*!* use yxsmxb
*!* set order to xsrq
*!* seek date()
*!* if found()
*!* messagebox("今天已结帐,再结帐将充掉已有的数据",17,"操作提示")
*!* endif
*可以一天多次结帐,以追加的方式写入yxsmxb
msg="日销售数据结帐后不"+chr(13)+chr(27)+"能恢复,是否结帐?"
yn=messagebox(msg,33,"操作提示")
if yn=2
retu
endif
sele 1
use data\rxsmxb excl
sele 2
use data\rxsdtb excl
sele 3
use data\yxsmxb excl
appe from data\rxsmxb
sele 2
xsrq_=xsrq
sele 3
repl all xsrq with xsrq_
sele rxsmxb
zap
sele rxsdtb
zap
*!* sele rmxcx
*!* go top
*!* do while !eof()
*!* dh_=dh
*!* xsrq_=xsrq
*!* spbh_=spbh
*!* sl_=sl
*!* insert into yxsmxb value(dh_,xsrq_,spbh_,sl_)
*!* sele rmxcx
*!* skip
*!* enddo
use in rxsmxb
use in yxsmxb
use in rxsdtb
* *********************************************************
* *
* * _0YX0YYYXB ON SELECTION BAR 5 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN1.MPR, Record: 28
* * Called By: ON SELECTION BAR 5 OF POPUP 系统管理
* * Prompt: 退出
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0yx0yyyxb
clea events
set sysm to defa
_screen.maxbutton=.t.
_screen.minbutton=.t.
_screen.closable=.t.
clea all
close all
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -