zcd.mpr

处方管理毕业设计,适应于专科类毕业班设计实习使用

*       *********************************************************
*       *                                                         
*       * 04/05/05               ZCD.MPR                14:56:43  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 刘丰华                                                  
*       *                                                         
*       * 版权所有 (C) 2005 西南证券南川证券服务部               
*       * 重庆南川市南大街84号                                    
*       * 重庆南川, 重庆  408400                                    
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1hm0w1764 OF _MSYSMENU PROMPT "开处方" COLOR SCHEME 3
DEFINE PAD _1hm0w1765 OF _MSYSMENU PROMPT "数据维护" COLOR SCHEME 3
DEFINE PAD _1hm0w1766 OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _1hm0w1764 OF _MSYSMENU ACTIVATE POPUP 开处方
ON PAD _1hm0w1765 OF _MSYSMENU ACTIVATE POPUP 数据维护
ON PAD _1hm0w1766 OF _MSYSMENU ACTIVATE POPUP 帮助

DEFINE POPUP 开处方 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 开处方 PROMPT "病人挂号" ;
	KEY F5, "F5"
DEFINE BAR 2 OF 开处方 PROMPT "病人基本信息修改" ;
	KEY F7, "F7"
DEFINE BAR 3 OF 开处方 PROMPT "开处方" ;
	KEY F4, "F4"
DEFINE BAR 4 OF 开处方 PROMPT "处方查询" ;
	KEY F8, "F8"
ON SELECTION BAR 1 OF 开处方 do form brxx
ON SELECTION BAR 2 OF 开处方 do form brkxg
ON SELECTION BAR 3 OF 开处方 ;
	DO _1hm0w1767 ;
	IN LOCFILE("\处方管理系统\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 4 OF 开处方 do form cfcx

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 form ypwh
ON SELECTION BAR 2 OF 数据维护 do form bf
ON SELECTION BAR 3 OF 数据维护 do form zjyh
ON SELECTION BAR 4 OF 数据维护 do form xgmm

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 "退出" ;
	KEY ALT+X, "ALT+X"
ON SELECTION BAR 1 OF 帮助 ;
	DO _1hm0w1769 ;
	IN LOCFILE("\处方管理系统\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 2 OF 帮助 activate window calculator
ON SELECTION BAR 3 OF 帮助 do form gy
ON SELECTION BAR 4 OF 帮助 ;
	DO _1hm0w176a ;
	IN LOCFILE("\处方管理系统\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")


*       *********************************************************
*       *                                                         
*       * _1HM0W1767  ON SELECTION BAR 3 OF POPUP 开处方          
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZCD.MPR,            Record:    7            
*       * Called By:  ON SELECTION BAR 3 OF POPUP 开处方          
*       * Prompt:     开处方                                      
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1hm0w1767
if .not.used('temp.dbf')
use temp.dbf
endif
sele temp
dele all
pack
do form kscf


*       *********************************************************
*       *                                                         
*       * _1HM0W1769  ON SELECTION BAR 1 OF POPUP 帮助            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZCD.MPR,            Record:   17            
*       * Called By:  ON SELECTION BAR 1 OF POPUP 帮助            
*       * Prompt:     教你怎样使用                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1hm0w1769
=messagebox("正在建设中，请以后在使用！",64,"系统信息")
*set help to bz


*       *********************************************************
*       *                                                         
*       * _1HM0W176A  ON SELECTION BAR 4 OF POPUP 帮助            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZCD.MPR,            Record:   20            
*       * Called By:  ON SELECTION BAR 4 OF POPUP 帮助            
*       * Prompt:     退出                                        
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1hm0w176a
close databases
quit