menu.prg

红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了

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


 SET PROCEDURE TO menu
 SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _MSM_FILE OF _MSYSMENU PROMPT '文件(\<F)' MESSAGE  ;
      '新建，打开，保存或退出通讯录系统' COLOR SCHEME 3 KEY ALT+F , '' NEGOTIATE LEFT
 DEFINE PAD _MSM_EDIT OF _MSYSMENU PROMPT '编辑(\<E)' MESSAGE '编辑文本，选取操作'  ;
      COLOR SCHEME 3 KEY ALT+E , ''
 DEFINE PAD _MSM_DISPLAY OF _MSYSMENU PROMPT '查看(\<V)' MESSAGE '显示一些查看内容'  ;
      COLOR SCHEME 3 KEY ALT+V , ''
 DEFINE PAD _MSM_APPS OF _MSYSMENU PROMPT '应用程序(\<A)' MESSAGE '选择通讯录的功能'  ;
      COLOR SCHEME 3 KEY ALT+A , ''
 DEFINE PAD _MSM_WINDO OF _MSYSMENU PROMPT '窗口(\<W)' MESSAGE '窗口的切换' COLOR SCHEME  ;
      3 KEY ALT+W , '' NEGOTIATE RIGHT
 DEFINE PAD _MSM_SYSTM OF _MSYSMENU PROMPT '帮助(\<H)' MESSAGE '显示帮助' COLOR SCHEME 3  ;
      KEY ALT+H , ''
 ON PAD _MSM_FILE OF _MSYSMENU ACTIVATE POPUP _MFILE
 ON PAD _MSM_EDIT OF _MSYSMENU ACTIVATE POPUP _MEDIT
 ON PAD _MSM_DISPLAY OF _MSYSMENU ACTIVATE POPUP _DISPLAY
 ON PAD _MSM_APPS OF _MSYSMENU ACTIVATE POPUP _MAPPS
 ON PAD _MSM_WINDO OF _MSYSMENU ACTIVATE POPUP _MWINDOW
 ON PAD _MSM_SYSTM OF _MSYSMENU ACTIVATE POPUP _MSYSTEM
 DEFINE POPUP _MFILE COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MFI_CLOSE OF _MFILE PROMPT '关闭(\<C)' MESSAGE '关闭当前的窗口'
 DEFINE BAR 3 OF _MFILE PROMPT '\-' MESSAGE ' '
 DEFINE BAR 4 OF _MFILE PROMPT '打印(\<P)...' MESSAGE '打印通讯录档案' KEY CTRL+P ,  ;
      'Ctrl+P'
 DEFINE BAR 6 OF _MFILE PROMPT '\-' MESSAGE ' '
 DEFINE BAR 7 OF _MFILE PROMPT '退出(\<X)' MESSAGE '退出通讯录系统' KEY ALT+F4 ,  ;
      'Alt+F4'
 ON SELECTION BAR 4 OF _MFILE DO PRINTDA
 ON SELECTION BAR 7 OF _MFILE OMYTOOLBAR.BEXIT.CLICK
 DEFINE POPUP _MEDIT COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MED_UNDO OF _MEDIT PROMPT '撤消(\<U)' MESSAGE '撤消上一次操作' KEY CTRL+Z ,  ;
      'Ctrl+Z'
 DEFINE BAR _MED_REDO OF _MEDIT PROMPT '重做(\<R)' MESSAGE '重复上一次操作' KEY CTRL+R ,  ;
      'Ctrl+R'
 DEFINE BAR _MED_SP100 OF _MEDIT PROMPT '\-' MESSAGE ' '
 DEFINE BAR _MED_CUT OF _MEDIT PROMPT '剪切(\<T)' MESSAGE '把选择区移到剪贴板' KEY  ;
      CTRL+X , 'Ctrl+X'
 DEFINE BAR _MED_COPY OF _MEDIT PROMPT '复制(\<C)' MESSAGE '把选择区复制到剪贴板' KEY  ;
      CTRL+C , 'Ctrl+C'
 DEFINE BAR _MED_PASTE OF _MEDIT PROMPT '粘贴(\<P)' MESSAGE '粘贴剪贴板上的内容' KEY  ;
      CTRL+V , 'Ctrl+V'
 DEFINE BAR _MED_PSTLK OF _MEDIT PROMPT '指定粘贴(\<S)...' MESSAGE  ;
      '将剪贴板上的内容作为链接粘贴'
 DEFINE BAR _MED_CLEAR OF _MEDIT PROMPT '清除(\<D)' MESSAGE  ;
      '清除选择区，并不把它放到剪贴板'
 DEFINE BAR _MED_SP200 OF _MEDIT PROMPT '\-' MESSAGE ' '
 DEFINE BAR _MED_SLCTA OF _MEDIT PROMPT '全选(\<A)' MESSAGE  ;
      '选择当前窗口的全部文本或项目' KEY CTRL+A , 'Ctrl+A'
 DEFINE BAR _MED_SP300 OF _MEDIT PROMPT '\-' MESSAGE ' '
 DEFINE BAR _MED_FIND OF _MEDIT PROMPT '查找(\<F)...' MESSAGE '查找指定文本' KEY CTRL+F ,  ;
      'Ctrl+F'
 DEFINE BAR _MED_FINDA OF _MEDIT PROMPT '查找下一个(\<N)' MESSAGE '重复上一次查找' KEY  ;
      CTRL+G , 'Ctrl+G'
 DEFINE BAR _MED_REPL OF _MEDIT PROMPT '替换(\<R)...' MESSAGE  ;
      '用不同的文本替换指定的文本' KEY CTRL+L , 'Ctrl+L'
 DEFINE BAR _MED_SP400 OF _MEDIT PROMPT '\-' MESSAGE ' '
 DEFINE BAR _MED_INSOB OF _MEDIT PROMPT '插入对象(\<I)...' MESSAGE  ;
      '插入一个通用的字段的对象'
 DEFINE BAR _MED_OBJ OF _MEDIT PROMPT '对象(\<O)...' MESSAGE '编辑选择的对象'
 DEFINE BAR _MED_LINK OF _MEDIT PROMPT '链接(\<K)...' MESSAGE '打开或改变链接'
 DEFINE BAR _MED_SP500 OF _MEDIT PROMPT '\-' MESSAGE ' '
 DEFINE BAR _MED_PREF OF _MEDIT PROMPT '属性(\<A)...' MESSAGE '设置编辑的属性'
 DEFINE POPUP _DISPLAY COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF _DISPLAY PROMPT '工具栏(\<T)' MESSAGE '显示/关闭工具栏'
 DEFINE BAR 2 OF _DISPLAY PROMPT '状态栏(\<S)' MESSAGE '显示/关闭状态栏'
 DEFINE BAR 10 OF _DISPLAY PROMPT '\-' MESSAGE ' '
 DEFINE BAR 3 OF _DISPLAY PROMPT '选项(\<O)...' MESSAGE '更改 通讯录 选项'
 ON SELECTION BAR 1 OF _DISPLAY DO CHANGE_TOOLBAR
 ON SELECTION BAR 2 OF _DISPLAY DO CHANGE_STATUS
 ON SELECTION BAR 3 OF _DISPLAY DO OPTION_FORM
 SET MARK OF BAR 1 OF _DISPLAY TO SHOW_TOOLBAR
 SET MARK OF BAR 2 OF _DISPLAY TO SHOW_STATUS
 DEFINE POPUP _MAPPS COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF _MAPPS PROMPT '新增记录(\<N)...' MESSAGE '对打开的通讯录增加记录' KEY  ;
      F2 , 'F2'
 DEFINE BAR 10 OF _MAPPS PROMPT '\-' MESSAGE ' '
 DEFINE BAR 2 OF _MAPPS PROMPT '查找信息(\<F)...' MESSAGE '查找通讯录，获得想要的信息'  ;
      KEY F3 , 'F3'
 DEFINE BAR 6 OF _MAPPS PROMPT '简捷查询(\<Q)...' MESSAGE  ;
      '简捷查询通讯录，以更快速地访问数据' KEY F4 , 'F4'
 DEFINE BAR 20 OF _MAPPS PROMPT '\-' MESSAGE ' '
 DEFINE BAR 3 OF _MAPPS PROMPT '浏览信息(\<B)...' MESSAGE '浏览通讯录，查看所有记录' KEY  ;
      F8 , 'F8'
 DEFINE BAR 4 OF _MAPPS PROMPT '修改记录(\<E)...' MESSAGE  ;
      '通过过滤来浏览、修改通讯录记录' KEY F6 , 'F6'
 DEFINE BAR 30 OF _MAPPS PROMPT '\-' MESSAGE ' '
 DEFINE BAR 5 OF _MAPPS PROMPT '系统维护(\<W)...' MESSAGE '维护通讯录系统' KEY F9 , 'F9'
 ON SELECTION BAR 1 OF _MAPPS OMYTOOLBAR.BNEW.CLICK
 ON SELECTION BAR 2 OF _MAPPS DO STANDARD_SEARCH
 ON SELECTION BAR 3 OF _MAPPS OMYTOOLBAR.BBROW.CLICK
 ON SELECTION BAR 4 OF _MAPPS OMYTOOLBAR.BEDIT.CLICK
 ON SELECTION BAR 5 OF _MAPPS OMYTOOLBAR.BSYS.CLICK
 ON SELECTION BAR 6 OF _MAPPS DO QUICK_SEARCH
 DEFINE POPUP _MWINDOW COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MWI_ARRAN OF _MWINDOW PROMPT '全部重排(\<A)' MESSAGE  ;
      '全部重新排列所有打开的窗口'
 DEFINE BAR _MWI_SP100 OF _MWINDOW PROMPT '\-' MESSAGE ' '
 DEFINE BAR _MWI_ROTAT OF _MWINDOW PROMPT '循环(\<R)' MESSAGE  ;
      '在所有打开的窗口之间进行切换' KEY ctrl+f1 , 'Ctrl+F1'
 DEFINE POPUP _MSYSTEM COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF _MSYSTEM PROMPT '帮助主题(\<H)' MESSAGE '显示帮助主题内容' KEY F1 ,  ;
      'F1'
 DEFINE BAR 2 OF _MSYSTEM PROMPT '\-' MESSAGE ' '
 DEFINE BAR 3 OF _MSYSTEM PROMPT '写给作者(\<W)' MESSAGE '通过电子邮件方式给作者写信'
 DEFINE BAR 4 OF _MSYSTEM PROMPT '红虎工作室主页' MESSAGE  ;
      '通过 Internet 访问作者红虎工作室主页'
 DEFINE BAR 5 OF _MSYSTEM PROMPT '\-' MESSAGE ' '
 DEFINE BAR 6 OF _MSYSTEM PROMPT '关于通讯录(\<A)' MESSAGE '关于通讯录'
 ON SELECTION BAR 1 OF _MSYSTEM OMYTOOLBAR.BHELP.CLICK
 ON SELECTION BAR 3 OF _MSYSTEM DO SEND_MAIL WITH "[e-mail]"
 ON SELECTION BAR 4 OF _MSYSTEM DO VISIT_WEB WITH "HTTP://RTS.163.NET"
 ON SELECTION BAR 6 OF _MSYSTEM DO SHOW_ABOUT

PROCEDURE change_status
 IF  .NOT. SHOW_STATUS
    SHOW_STATUS = .T.
    SET STATUS BAR ON
 ELSE 
    SHOW_STATUS = .F.
    SET STATUS BAR OFF
 ENDIF 
 SET MESSAGE TO '就绪'
 SET MARK OF BAR 2 OF _DISPLAY TO SHOW_STATUS
ENDPROC
*------
PROCEDURE change_toolbar
 OMYTOOLBAR.VISIBLE =  .NOT. OMYTOOLBAR.VISIBLE
 SET MARK OF BAR 1 OF _DISPLAY TO OMYTOOLBAR.VISIBLE
 SHOW_TOOLBAR = OMYTOOLBAR.VISIBLE
ENDPROC
*------
PROCEDURE show_about
 OABOUT = CREATEOBJECT('About_Form')
  OABOUT.SHOW
ENDPROC
*------
PROCEDURE option_form
 IF ISNULL(OOPTION) = .T. .OR. TYPE('oOption') <> 'O'
    OOPTION = CREATEOBJECT('Option_form')
 ENDIF 
  OOPTION.SHOW
ENDPROC
*------
PROCEDURE standard_search
 SELECT 1
 IF RECCOUNT() > 0
    IF ISNULL(OSEARCH) = .T. .OR. TYPE('oSearch') <> 'O'
       OSEARCH = CREATEOBJECT('search_form')
    ENDIF 
     OSEARCH.SHOW
    OSEARCH.WINDOWSTATE = 0
 ELSE 
     MESSAGEBOX('对不起！没有可供查询的信息，' + CHR(13) + CHR(13) + '请使用新增来输入信息。',16,'通讯录提示：')
 ENDIF 
ENDPROC
*------
PROCEDURE quick_search
 SELECT 1
 IF RECCOUNT() > 0
    IF ISNULL(OQSEARCH) = .T. .OR. TYPE('oQSearch') <> 'O'
       OQSEARCH = CREATEOBJECT('quick_search')
    ENDIF 
     OQSEARCH.SHOW
    OQSEARCH.WINDOWSTATE = 0
 ELSE 
     MESSAGEBOX('对不起！没有可供查询的信息，' + CHR(13) + CHR(13) + '请使用新增来输入信息。',16,'通讯录提示：')
 ENDIF 
ENDPROC
*------*