进仓.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 进仓.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DEFINE POPUP 快捷菜单 FROM 1.200 , 0.600 RELATIVE SHORT
 DEFINE BAR 1 OF 快捷菜单 PROMPT '放弃' SKIP FOR LCOMMAND(14) KEY CTRL+U , 'CTRL+U'
 DEFINE BAR 2 OF 快捷菜单 PROMPT '保存' SKIP FOR LCOMMAND(15) KEY CTRL+S , 'CTRL+S'
 DEFINE BAR 3 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 4 OF 快捷菜单 PROMPT '新增' SKIP FOR LCOMMAND(3) KEY F5 , 'F5'
 DEFINE BAR 5 OF 快捷菜单 PROMPT '修改' SKIP FOR LCOMMAND(4) KEY CTRL+E , 'CTRL+E'
 DEFINE BAR 6 OF 快捷菜单 PROMPT '删除' SKIP FOR LCOMMAND(5) KEY CTRL+D , 'CTRL+D'
 DEFINE BAR 7 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 8 OF 快捷菜单 PROMPT '插入一行' SKIP FOR LCOMMAND(6) KEY CTRL+I , 'CTRL+I'
 DEFINE BAR 9 OF 快捷菜单 PROMPT '删除一行' SKIP FOR LCOMMAND(7) KEY CTRL+R , 'CTRL+R'
 DEFINE BAR 10 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 11 OF 快捷菜单 PROMPT '打印预览' SKIP FOR LCOMMAND(2) KEY ALT+V , 'ALT+V'
 DEFINE BAR 12 OF 快捷菜单 PROMPT '打印' SKIP FOR LCOMMAND(1) KEY CTRL+P , 'CTRL+P'
 DEFINE BAR 13 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 14 OF 快捷菜单 PROMPT '\'
 DEFINE BAR 15 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 16 OF 快捷菜单 PROMPT '返回' SKIP FOR LCOMMAND(9) KEY ALT+E , 'ALT+E'
 ON SELECTION BAR 1 OF 快捷菜单 jcd.tool1.command14.click
 ON SELECTION BAR 2 OF 快捷菜单 jcd.tool1.command15.click
 ON SELECTION BAR 4 OF 快捷菜单 jcd.tool1.command3.click
 ON SELECTION BAR 5 OF 快捷菜单 jcd.tool1.command4.click
 ON SELECTION BAR 6 OF 快捷菜单 jcd.tool1.command5.click
 ON SELECTION BAR 8 OF 快捷菜单 jcd.tool1.command6.click
 ON SELECTION BAR 9 OF 快捷菜单 jcd.tool1.command7.click
 ON SELECTION BAR 11 OF 快捷菜单 jcd.tool1.command2.click
 ON SELECTION BAR 12 OF 快捷菜单 jcd.tool1.command1.click
 ON SELECTION BAR 16 OF 快捷菜单 jcd.tool1.command9.click
 ACTIVATE POPUP 快捷菜单
*