📄 vfpdat65b.dat
字号:
说明: (1)<字符表达式1>用于指定在对话框中显示的信息文本。
----
(2)<字条表达式2>用于指定对话框标题栏显示文本.缺省该参数表示在标题栏显示"Microsoft Visual FoxPro".
(3)<数值表达式>用于根据表的内容设定对话框中的按钮,图标和默认按钮,缺省该参数表示取0。
(4)函数返回值是一个数值,用户将根据操作时按下的按钮来获得相应的返回值.编程时应根据返回值来设置动作
例: 试编写一个能将任意表复制到A盘的程序,若驱动器未准备好应允许重试,重试数为3次。
ON ERROR DO cs
i=1
@5,10 SAY "请输入表名:"GET bm DEFAULT SPACE(8)
READ
bm=ALLTRIM(bm)
IF FILE(&bm.dbf")
USE &bm
xz=MESSAGEBOX("请将盘插入A驱动器",1+48+256,"复制文件");
DO CASE
CASE xz=1
WAIT"..."WINDOW AT 20,50 NOWQIT
COPY TO a:&bm
CASE xz=2
WAIT"正在复制"WINDOW AT 20,50
ENDCASE
ELSE
WAIT"不复制退出!"WINDOW AT 20,50
ENDIF
PROCEDRE cs
xz=MESSAGEBOX("驱动器未准备好,请将插入A驱动器",1+48+256,"复制文件")
i=i+1
IF I<=3
RETRY
ENDIF
WAIT CLEAR
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -