wellkeji.prg

一套难绝对能编译的人事系统,界面漂亮,构思新颖,

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


 LPARAMETER WINNAME
 DEFINE MENU WELLKEJI_MENU BAR IN (WINNAME)
 DEFINE PAD PAD1 OF WELLKEJI_MENU PROMPT '文件(\<F)' COLOR SCHEME 3 KEY ALT+D , ''
 DEFINE PAD PAD2 OF WELLKEJI_MENU PROMPT '数据(\<D)' COLOR SCHEME 3 KEY ALT+D , ''
 DEFINE PAD PAD3 OF WELLKEJI_MENU PROMPT '计算对象(\<O)' COLOR SCHEME 3 KEY ALT+J , ''
 DEFINE PAD PAD4 OF WELLKEJI_MENU PROMPT '帮助(\<H)' COLOR SCHEME 3 KEY ALT+H , ''
 ON PAD PAD1 OF WELLKEJI_MENU ACTIVATE POPUP 文件
 ON PAD PAD2 OF WELLKEJI_MENU ACTIVATE POPUP 数据
 ON PAD PAD3 OF WELLKEJI_MENU ACTIVATE POPUP 计算
 ON PAD PAD4 OF WELLKEJI_MENU ACTIVATE POPUP 帮助
 DEFINE POPUP 文件 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 文件 PROMPT '导入数据' KEY CTRL+L , 'Ctrl+L'
 DEFINE BAR 2 OF 文件 PROMPT '导出数据' KEY CTRL+S , 'Ctrl+S'
 DEFINE BAR 3 OF 文件 PROMPT '\-'
 DEFINE BAR 4 OF 文件 PROMPT '退出(E\<xit)'
 ON SELECTION BAR 1 OF 文件 well.importdate
 ON SELECTION BAR 2 OF 文件 well.exportdate
 ON SELECTION BAR 4 OF 文件 well.Release
 DEFINE POPUP 数据 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 数据 PROMPT '添加数据' KEY CTRL+I , 'Ctrl+I'
 DEFINE BAR 2 OF 数据 PROMPT '删除单个数据' KEY CTRL+D , 'Ctrl+D'
 DEFINE BAR 3 OF 数据 PROMPT '删除所有数据' KEY CTRL+E , 'Ctrl+E'
 ON SELECTION BAR 1 OF 数据 well.appenddate
 ON SELECTION BAR 2 OF 数据 well.deldate
 ON SELECTION BAR 3 OF 数据 well.zapdate
 DEFINE POPUP 计算 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 计算 PROMPT '热量损失、表面温度、单位面积损失'
 DEFINE BAR 2 OF 计算 PROMPT '保温层厚度'
 DEFINE BAR 3 OF 计算 PROMPT '所需保温材料（导热系数）'
 DEFINE BAR 4 OF 计算 PROMPT '保温材料相关数据'
 ON SELECTION POPUP 计算 well.calcobject(BAR())
 DEFINE POPUP 帮助 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 帮助 PROMPT '数据计量单位一览'
 ON SELECTION BAR 1 OF 帮助 Do Form well_help
 ACTIVATE MENU WELLKEJI_MENU NOWAIT
*