EDB数据库字段编辑器

CommonDialog.标题 ＝ “Input database file name”
CommonDialog.文件名 ＝ 取文本注册项 (#现行用户, “Software\” ＋ #DBMan ＋ “\” ＋ #UserHabit ＋ “\” ＋ “LastDB”, )
.如果真 (CommonDialog.打开 () ＝ 假)
返回 ()
.如果真结束
写注册项 (#现行用户, “Software\” ＋ #DBMan ＋ “\” ＋ #UserHabit ＋ “\” ＋ “LastDB”, CommonDialog.文件名)
.如果真 (SaveQuery () ＝ 假)
返回 ()
.如果真结束
.如果真 (打开 (CommonDialog.文件名, , 真, #禁止读写, , “?”, ) ＝ 假)
信息框 (“Failed to open database '” ＋ CommonDialog.文件名 ＋ “'”, #错误图标, “Error”)