📄 learndc.mpr
字号:
* * Prompt: 回忆词意
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _19v0ti27c
bzbl=.t.
do form testyzcomsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27D ON SELECTION BAR 2 OF POPUP 新菜单项
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 15
* * Called By: ON SELECTION BAR 2 OF POPUP 新菜单项
* * Prompt: 回忆拼写
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _19v0ti27d
bzbl=.t.
do form testcomsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27E ON SELECTION BAR 1 OF POPUP _1dq18r3vt
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 18
* * Called By: ON SELECTION BAR 1 OF POPUP _1dq18r3vt
* * Prompt: 回忆词意
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _19v0ti27e
bzbl=.t.
do form testyzszsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27F ON SELECTION BAR 2 OF POPUP _1dq18r3vt
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 19
* * Called By: ON SELECTION BAR 2 OF POPUP _1dq18r3vt
* * Prompt: 回忆拼写
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _19v0ti27f
bzbl=.t.
do form testszsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27G ON SELECTION BAR 1 OF POPUP 提取单词本
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 22
* * Called By: ON SELECTION BAR 1 OF POPUP 提取单词本
* * Prompt: 回忆词意
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _19v0ti27g
bzbl=.t.
do form testyztqsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27H ON SELECTION BAR 2 OF POPUP 提取单词本
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 23
* * Called By: ON SELECTION BAR 2 OF POPUP 提取单词本
* * Prompt: 回忆拼写
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _19v0ti27h
bzbl=.t.
do form testtqsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27I ON SELECTION BAR 1 OF POPUP 打印单词p
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 26
* * Called By: ON SELECTION BAR 1 OF POPUP 打印单词p
* * Prompt: 对比记忆单词本
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _19v0ti27i
bzbl=.t.
do form portcomsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27J ON SELECTION BAR 2 OF POPUP 打印单词p
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 27
* * Called By: ON SELECTION BAR 2 OF POPUP 打印单词p
* * Prompt: 生词本
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _19v0ti27j
bzbl=.t.
do form portszsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27K ON SELECTION BAR 3 OF POPUP 打印单词p
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 28
* * Called By: ON SELECTION BAR 3 OF POPUP 打印单词p
* * Prompt: 提取单词本
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _19v0ti27k
bzbl=.t.
do form porttqsele
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27L ON SELECTION BAR 2 OF POPUP 系统管理g
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 37
* * Called By: ON SELECTION BAR 2 OF POPUP 系统管理g
* * Prompt: 修改密码
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _19v0ti27l
bzbl=.t.
do form passedit
bzbl=.f.
* *********************************************************
* *
* * _19V0TI27M ON SELECTION BAR 3 OF POPUP 系统管理g
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 38
* * Called By: ON SELECTION BAR 3 OF POPUP 系统管理g
* * Prompt: 退出系统
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _19v0ti27m
clear events &&结束当前进程
release bzbl,n &&释放系统使用的两个公共变量
*恢复系统环境设置
set talk on
set safe on
set delete off
close all &&关闭所有数据库
clear menus &&清除菜单定义
quit &&退出系统
* *********************************************************
* *
* * _19V0TI27N ON SELECTION BAR 1 OF POPUP 初始化
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 34
* * Called By: ON SELECTION BAR 1 OF POPUP 初始化
* * Prompt: 初始化对比记忆单词本
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _19v0ti27n
x=messagebox("初始化，将会清空对比记忆单词本。"+chr(13)+"是否真的要清空？",68,"信息")
if x=6
use compdc excl
zap
use
else
wait "没有进行初始化!" window at 20,50 timeout 6
endif
* *********************************************************
* *
* * _19V0TI27O ON SELECTION BAR 2 OF POPUP 初始化
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 35
* * Called By: ON SELECTION BAR 2 OF POPUP 初始化
* * Prompt: 初始化生字本
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _19v0ti27o
x=messagebox("初始化，将会清空生字本。"+chr(13)+"是否真的要清空？",68,"信息")
if x=6
use newdc excl
zap
use
else
wait "没有进行初始化!" window at 20,50 timeout 6
endif
* *********************************************************
* *
* * _19V0TI27P ON SELECTION BAR 3 OF POPUP 初始化
* *
* * Procedure Origin:
* *
* * From Menu: LEARNDC.MPR, Record: 36
* * Called By: ON SELECTION BAR 3 OF POPUP 初始化
* * Prompt: 初始化提取单词本
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _19v0ti27p
x=messagebox("初始化，将会清空提取单词本。"+chr(13)+"是否真的要清空？",68,"信息")
if x=6
use tqdc excl
zap
use
else
wait "没有进行初始化!" window at 20,50 timeout 6
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -