主菜单.prg

本系统采用Visual Foxprow 5.0编写,面向对象可视化编程,使系统的开发工作适应目前的流行趋势。设计时采用了常用的自顶向下的瀑布式结构化设计方法。各子系统具有独立的数据库结构

*       *********************************************************
*       *                                                         
*       * 01/15/02             主菜单.PRG               16:26:11  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2002 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0kt0z899x OF _MSYSMENU PROMPT "记录" COLOR SCHEME 3
DEFINE PAD _0kt0z899y OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _0kt0z899z OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _0kt0z89a0 OF _MSYSMENU PROMPT "更改密码" COLOR SCHEME 3
DEFINE PAD _0kt0z89a1 OF _MSYSMENU PROMPT "其它" COLOR SCHEME 3
ON PAD _0kt0z899x OF _MSYSMENU ACTIVATE POPUP 记录
ON PAD _0kt0z899y OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _0kt0z899z OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _0kt0z89a1 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 _0kt0z89a2 ;
	IN LOCFILE("E:\财务管理系统\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 2 OF 记录 do form 商品进货记录
ON SELECTION BAR 3 OF 记录 do form 报帐凭证

DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印 PROMPT "打印年终报表"
ON SELECTION BAR 1 OF 打印 do form 打印年终报表

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 按名称查询
ON SELECTION BAR 2 OF 查询 do form 按日期查询
ON SELECTION BAR 3 OF 查询 do form 产品销售记录

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 3 OF 其它 ;
	DO _0kt0z89a4 ;
	IN LOCFILE("E:\财务管理系统\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")


*       *********************************************************
*       *                                                         
*       * _0KT0Z89A2  ON SELECTION BAR 1 OF POPUP 记录            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜单.PRG,            Record:    5         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 记录            
*       * Prompt:     打开                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0kt0z89a2
=getfile()


*       *********************************************************
*       *                                                         
*       * _0KT0Z89A4  ON SELECTION BAR 3 OF POPUP 其它            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜单.PRG,            Record:   24         
*       * Called By:  ON SELECTION BAR 3 OF POPUP 其它            
*       * Prompt:     退出                                        
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0kt0z89a4
_screen.activeform.release
clear event
clear all
close all
read events
quit
set sysmenu to default