mainmenu.mpr

delphi 的小型超市管理信息系统,真的好用,下载就可以解的

*       *********************************************************
*       *                                                         
*       * 11/12/03            MAINMENU.MPR              10:56:13  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2003 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _13d0nfwoq OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3 ;
	KEY ALT+Q, "ALT+Q" ;
	MESSAGE "查询员工信息，库存信息，商品信息和厂商信息"
DEFINE PAD _13d0nfwor OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3 ;
	KEY ALT+M, "ALT+M"
DEFINE PAD _13d0nfwos OF _MSYSMENU PROMPT "进货" COLOR SCHEME 3
DEFINE PAD _13d0nfwot OF _MSYSMENU PROMPT "售货" COLOR SCHEME 3
DEFINE PAD _13d0nfwou OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _13d0nfwov OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3 ;
	KEY F1, "F1"
DEFINE PAD _13d0nfwow OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
	KEY ALT+E, "ALT+E"
ON PAD _13d0nfwoq OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _13d0nfwor OF _MSYSMENU ACTIVATE POPUP 修改
ON SELECTION PAD _13d0nfwos OF _MSYSMENU ;
	DO _13d0nfwox ;
	IN LOCFILE("小型超市管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION PAD _13d0nfwot OF _MSYSMENU ;
	DO _13d0nfwoy ;
	IN LOCFILE("小型超市管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON PAD _13d0nfwou OF _MSYSMENU ACTIVATE POPUP 统计
ON SELECTION PAD _13d0nfwov OF _MSYSMENU ;
	DO _13d0nfwoz ;
	IN LOCFILE("小型超市管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION PAD _13d0nfwow OF _MSYSMENU ;
	DO _13d0nfwp0 ;
	IN LOCFILE("小型超市管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")

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 "E:\project\小型超市管理系统\form\查询员工信息.scx"
ON SELECTION BAR 2 OF 查询 do form "E:\projct\小型超市管理系统\form\查询商品信息.scx"
ON SELECTION BAR 3 OF 查询 do form "E:\project\小型超市管理系统\form\查询厂商信息.scx"
ON SELECTION BAR 4 OF 查询 do form "E:\project\小型超市管理系统\form\查询库存信息.scx"

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 "E:\project\小型超市管理系统\form\员工信息维护.scx"
ON SELECTION BAR 2 OF 修改 do form "E:\project\小型超市管理系统\form\商品信息维护.scx"
ON SELECTION BAR 3 OF 修改 do form "E:\project\小型超市管理系统\form\厂商信息维护.scx"
ON SELECTION BAR 4 OF 修改 do form "E:\project\小型超市管理系统\form\库存信息维护.scx"

DEFINE POPUP 统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计 PROMPT "统计商品销售情况"
DEFINE BAR 2 OF 统计 PROMPT "统计员工销售业绩"
ON SELECTION BAR 1 OF 统计 do form "E:\project\小型超市管理系统\form\统计商品销售情况"
ON SELECTION BAR 2 OF 统计 do form "E:\project\小型超市管理系统\form\统计员工销售业绩"

ON SELECTION MENU _MSYSMENU ;
	DO _13d0nfwp1 ;
	IN LOCFILE("小型超市管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")

*       *********************************************************
*       *                                                         
*       * _13D0NFWOX  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:   15       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     进货                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _13d0nfwox
do form "E:\project\小型超市管理系统\form\进货表单.scx"


*       *********************************************************
*       *                                                         
*       * _13D0NFWOY  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:   16       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     售货                                        
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _13d0nfwoy
do form "E:\project\小型超市管理系统\form\售货表单.scx"


*       *********************************************************
*       *                                                         
*       * _13D0NFWOZ  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:   21       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     帮助                                        
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _13d0nfwoz
tempstr = "超市管理系统"+CHR(13)+"版本号2.0"
MESSAGEBOX(tempstr,0+64,"超市管理系统")


*       *********************************************************
*       *                                                         
*       * _13D0NFWP0  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:   22       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _13d0nfwp0
tempstr = MESSAGEBOX("确定要退出吗？",1+32+256,"超市管理系统")
IF tempstr=6
  RELEASE ALL
  CLEAR EVENTS
ENDIF




*       *********************************************************
*       *                                                         
*       * _13D0NFWP1  ON SELECTION MENU _MSYSMENU                 
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:    1       
*       * Called By:  ON SELECTION MENU _MSYSMENU                 
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _13d0nfwp1
SET TALK OFF
SET DEBUG OFF
IF !FILE("E:\project\小型超市管理系统\data\data.dbc")
  MESSAGEBOX("打开数据库失败！！")
ELSE
  OPEN DATABASE "E:\project\小型超市管理系统\data\data.dbc"
ENDIF