操作数据库扩展界面支持库

.如果 (服务端.启动 (8088, &服务, ))
_启动窗口.标题 ＝ “服务器启动成功”
.如果 (数据库.连接Access (取运行目录 () ＋ “\db1.mdb”, “”))
记录集.置连接 (数据库)
_启动窗口.标题 ＝ _启动窗口.标题 ＋ “-数据库连接成功”
.否则
_启动窗口.标题 ＝ _启动窗口.标题 ＋ “-数据库连接失败”
.如果结束

.否则
_启动窗口.标题 ＝ “服务器启动失败”