📄 111111.mpr
字号:
* *********************************************************
* *
* * _24219YLSG ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 54
* * Called By: ON SELECTION PAD
* * Prompt: 帮助(H)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _24219ylsg
DO FORM bangzhu
* *********************************************************
* *
* * _24219YLSW ON SELECTION BAR 4 OF POPUP 文件f
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 21
* * Called By: ON SELECTION BAR 4 OF POPUP 文件f
* * Prompt: 退出(X)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _24219ylsw
clear all
close all
clear events
* *********************************************************
* *
* * _24219YLSX ON SELECTION BAR 1 OF POPUP 库存分析
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 7
* * Called By: ON SELECTION BAR 1 OF POPUP 库存分析
* * Prompt: 浏览库存表
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _24219ylsx
select kucun
set order to bianhao
browse fields 编号,名称,产地,规格,数量,单价,包装,单位,入价
* *********************************************************
* *
* * _24219YLSY ON SELECTION BAR 2 OF POPUP 库存分析
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 8
* * Called By: ON SELECTION BAR 2 OF POPUP 库存分析
* * Prompt: 库存统计图
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _24219ylsy
oleapp=createobject('excel.application')
oleapp.Visible=.T.
oleapp.workbooks.Add
con=1
With oleapp.activeworkbook.sheets(1)
.cells(con,1).Value='编号'
.cells(con,2).Value='名称'
.cells(con,3).Value='数量'
.cells(con,4).Value='单价'
.cells(con,5).Value='入价'
Endwith
con=con+1
Select kucun
Go Top
If Not Eof()
Scan
Scatter Memv
With oleapp.activeworkbook.sheets(1)
.cells(con,1).Value=编号
.cells(con,2).Value=名称
.cells(con,3).Value=数量
.cells(con,4).Value=单价
.cells(con,5).Value=入价
Endwith
con=con+1
Endscan
ENDIF
WITH oleapp.application
.activecell.specialcells(11).select
.range(.selection,.cells(1,1)).select
endwith
oleapp.charts.add
* *********************************************************
* *
* * _24219YLSZ ON SELECTION BAR 3 OF POPUP 库存分析
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 9
* * Called By: ON SELECTION BAR 3 OF POPUP 库存分析
* * Prompt: 买入统计图
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _24219ylsz
oleapp=createobject('excel.application')
oleapp.Visible=.T.
oleapp.workbooks.Add
con=1
With oleapp.activeworkbook.sheets(1)
.cells(con,1).Value='编号'
.cells(con,2).Value='名称'
.cells(con,3).Value='数量'
.cells(con,4).Value='单价'
.cells(con,5).Value='入价'
.cells(con,5).Value='总金额'
Endwith
con=con+1
Select mairu
Go Top
If Not Eof()
Scan
Scatter Memv
With oleapp.activeworkbook.sheets(1)
.cells(con,1).Value=编号
.cells(con,2).Value=名称
.cells(con,3).Value=数量
.cells(con,4).Value=单价
.cells(con,5).Value=入价
.cells(con,5).Value=总金额
Endwith
con=con+1
Endscan
ENDIF
WITH oleapp.application
.activecell.specialcells(11).select
.range(.selection,.cells(1,1)).select
endwith
oleapp.charts.add
* *********************************************************
* *
* * _24219YLT0 ON SELECTION BAR 4 OF POPUP 库存分析
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 10
* * Called By: ON SELECTION BAR 4 OF POPUP 库存分析
* * Prompt: 卖出统计图
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _24219ylt0
oleapp=createobject('excel.application')
oleapp.Visible=.T.
oleapp.workbooks.Add
con=1
With oleapp.activeworkbook.sheets(1)
.cells(con,1).Value='编号'
.cells(con,2).Value='名称'
.cells(con,3).Value='数量'
.cells(con,4).Value='单价'
.cells(con,5).Value='折扣'
.cells(con,6).Value='总金额'
Endwith
con=con+1
Select maichu
Go Top
If Not Eof()
Scan
Scatter Memv
With oleapp.activeworkbook.sheets(1)
.cells(con,1).Value=编号
.cells(con,2).Value=名称
.cells(con,3).Value=数量
.cells(con,4).Value=单价
.cells(con,5).Value=折扣
.cells(con,6).Value=总金额
Endwith
con=con+1
Endscan
ENDIF
WITH oleapp.application
.activecell.specialcells(11).select
.range(.selection,.cells(1,1)).select
endwith
oleapp.charts.add
* *********************************************************
* *
* * _24219YLT1 ON SELECTION BAR 1 OF POPUP 特殊浏览
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 13
* * Called By: ON SELECTION BAR 1 OF POPUP 特殊浏览
* * Prompt: 浏览库存表
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _24219ylt1
DO FORM view1check
* *********************************************************
* *
* * _24219YLTC ON SELECTION BAR 2 OF POPUP 特殊浏览
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 14
* * Called By: ON SELECTION BAR 2 OF POPUP 特殊浏览
* * Prompt: 浏览买入记录
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _24219yltc
DO FORM view1check2
* *********************************************************
* *
* * _24219YLTD ON SELECTION BAR 3 OF POPUP 特殊浏览
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 15
* * Called By: ON SELECTION BAR 3 OF POPUP 特殊浏览
* * Prompt: 浏览卖出记录
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _24219yltd
DO FORM view1check3
* *********************************************************
* *
* * _24219YLTE ON SELECTION BAR 1 OF POPUP 管理员功能
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 18
* * Called By: ON SELECTION BAR 1 OF POPUP 管理员功能
* * Prompt: 修改密码
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _24219ylte
DO FORM 密码管理
* *********************************************************
* *
* * _24219YLTF ON SELECTION BAR 2 OF POPUP 管理员功能
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 19
* * Called By: ON SELECTION BAR 2 OF POPUP 管理员功能
* * Prompt: 新增用户
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _24219yltf
DO FORM view1check4
* *********************************************************
* *
* * _24219YLTG ON SELECTION BAR 3 OF POPUP 管理员功能
* *
* * Procedure Origin:
* *
* * From Menu: 111111.MPR, Record: 20
* * Called By: ON SELECTION BAR 3 OF POPUP 管理员功能
* * Prompt: 删除用户
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _24219yltg
DO FORM view1check5
* *********************************************************
* *
* * _24219YLTH ON SELECTION BAR 1 OF POPUP 打印p
* *
* * Procedure Origin:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -