.版本 2 .子程序 数据库验证, 逻辑型, 公开, 此功能用来验证操作人员是否打开了数据库 .如果真 (是否已打开 (取运行目录 () ＋ “\MainSystem.edb”) ＝ 假) 信息框 (“数据库未打开无法进行下一步操作!”, #警告图标, “未打开数据库”) 返回 (假) .如果真结束 .如果真 (文件是否存在 (取运行目录 () ＋ “\MainSystem.edb”) ＝ 假) 信息框 (“主要存储数据库已经丢失！无法操作【或检查是否已经被更名】”, #错误图标, “丢失数据库”) 全部关闭 () 销毁 () .如果真结束 返回 (真)