求解决，谢谢

我不是胃挨劈

吾愛じ啃飯團ジ

哈哈 我的沙发了

素顏じ亦傾城ジ

是不是模块没有加载进去?

吾愛じ啃飯團ジ

先用 打开  的命令 打开数据库啊  

C。

缺少数据库

我不是胃挨劈

[e].版本 2
.支持库 spec
.支持库 iext3

.程序集 窗口程序集1
.程序集变量 界面库_窗口, 界面库_窗口, , , 将子类实例化
.程序集变量 柔化标签, 界面库_柔化标签
.程序集变量 信息框, 界面库_信息框

.子程序 __启动窗口_创建完毕
.局部变量 cdname, 文本型
.局部变量 xmname, 文本型
.局部变量 未知菜单引索, 整数型





打开 (取运行目录 () ＋ “\CdName.edb”, , , , , , )
.如果真 (取记录数 () ＝ 0)
    加空记录 ()
    调试输出 (写 (“cdname”, 到字节集 (“Name”)))
.如果真结束
关闭 ()

打开 (取运行目录 () ＋ “\CdName.edb”, , , , , , )

.计次循环首 (取记录数 (), )

    cdname ＝ 到文本 (读 (“cdname”))
    卷帘式菜单1.加入菜单 (cdname, , )
    跳过 ()
.计次循环尾 ()
关闭 ()

界面库_去除调试字样 (“111eyuyan1632126”)  ' 使其编译后不显示警告提示
界面库_窗口.创建 (取窗口句柄 (), { 0 }, 真, 真, 真, 真)


.子程序 _添加菜单_被选择
.局部变量 菜单Name, 文本型


.如果真 (输入框 (“I'm admin,请输入菜单的名称！”, “添加菜单”, “Name”, 菜单Name, 0))
    卷帘式菜单1.加入菜单 (菜单Name, , )
    打开 (取运行目录 () ＋ “\CdName.edb”, , , , , , )
    加空记录 ()
    调试输出 (写 (“cdname”, 到字节集 (菜单Name)))
    关闭 ()

.如果真结束


.子程序 _卷帘式菜单1_菜单被右击
.参数 菜单索引, 整数型

弹出菜单 (添加或删除, , )
删除菜单索引 ＝ 菜单索引
添加项目索引 ＝ 菜单索引


.子程序 _删除菜单_被选择
.局部变量 删除菜单name, 文本型

删除菜单name ＝ 卷帘式菜单1.取菜单名称 (删除菜单索引)
卷帘式菜单1.删除菜单 (删除菜单索引)
打开 (取运行目录 () ＋ “\CdName.edb”, , , , , , )
.计次循环首 (取记录数 (), )



    .如果真 (删除菜单name ＝ 到文本 (读 (“cdname”)))
        删除 ()
        彻底删除 ()
        关闭 ()

    .如果真结束
    跳过 ()
.计次循环尾 ()





.子程序 _添加项目_被选择
.局部变量 项目Name, 文本型

.如果真 (输入框 (“I'm admin,请输入项目的名称！”, “添加项目”, “Name”, 项目Name, 0))

    .如果真 (通用对话框1.打开 ())
        卷帘式菜单1.加入项目 (项目Name, 添加项目索引, , , )
        打开 (取运行目录 () ＋ “\XmName.edb”, , , , , , )
        加空记录 ()
        调试输出 (写 (“xmname”, 到字节集 (删首尾空 (通用对话框1.文件名 ＋ “|” ＋ 卷帘式菜单1.取菜单名称 (添加项目索引) ＋ “-” ＋ 项目Name))))
        关闭 ()

    .如果真结束



.如果真结束





.子程序 _卷帘式菜单1_项目被双击
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
.局部变量 xmname1, 文本型


打开 (取运行目录 () ＋ “\XmName.edb”, , , , , , )
.计次循环首 (取记录数 (), )
    xmname1 ＝ 到文本 (读 (“xmname”))

    .如果真 (文本_取右边 (xmname1, “-”, , ) ＝ 卷帘式菜单1.取项目名称 (项目索引, 菜单索引))
        运行 (文本_取左边 (xmname1, “|”, , ), 假, )

    .如果真结束

    跳过 ()
.计次循环尾 ()

关闭 ()


.子程序 _卷帘式菜单1_项目被右击
.参数 菜单索引, 整数型
.参数 项目索引, 整数型

弹出菜单 (修改项目, , )
修改项目的项目引索 ＝ 项目索引
修改项目的菜单引索 ＝ 菜单索引


.子程序 _修改位置_被选择
.局部变量 xmname2, 文本型



打开 (取运行目录 () ＋ “\XmName.edb”, , , , , , )
.计次循环首 (取记录数 (), )
    xmname2 ＝ 到文本 (读 (“xmname”))
    .如果真 (文本_取右边 (xmname2, “-”, , ) ＝ 卷帘式菜单1.取项目名称 (修改项目的项目引索, 修改项目的菜单引索))

        .如果真 (通用对话框1.打开 ())

            调试输出 (修改 (到字节集 (删首尾空 (通用对话框1.文件名 ＋ “|” ＋ 文本_取右边 (xmname2, “|”, , )))))

        .如果真结束

    .如果真结束

    跳过 ()
.计次循环尾 ()

关闭 ()



.子程序 _删除项目_被选择
.局部变量 删除项目name, 文本型

删除项目name ＝ 卷帘式菜单1.取项目名称 (修改项目的项目引索, 修改项目的菜单引索)
卷帘式菜单1.删除项目 (修改项目的项目引索, 修改项目的菜单引索)
打开 (取运行目录 () ＋ “\XmName.edb”, , , , , , )
.计次循环首 (取记录数 (), )


    .如果真 (删除项目name ＝ 文本_取右边 (到文本 (读 (“xmname”)), “-”, , ))
        删除 ()
        彻底删除 ()
        关闭 ()

    .如果真结束
    跳过 ()
.计次循环尾 ()




.子程序 _修改菜单名称_被选择
.局部变量 cdname2, 文本型
.局部变量 Newcdname, 文本型
.局部变量 xmname2, 文本型








打开 (取运行目录 () ＋ “\CdName.edb”, , , , , , )
.计次循环首 (取记录数 (), )
    cdname2 ＝ 到文本 (读 (“cdname”))
    调试输出 (cdname2)


    .如果真 (cdname2 ＝ 卷帘式菜单1.取菜单名称 (删除菜单索引))

        .如果真 (输入框 (“请输入新名称！”, “修改名称”, “Name”, Newcdname, ))
            调试输出 (修改 (到字节集 (删首尾空 (Newcdname))))
            卷帘式菜单1.置菜单名称 (删除菜单索引, Newcdname)
        .如果真结束

    .如果真结束

    跳过 ()
.计次循环尾 ()

关闭 ()

打开 (取运行目录 () ＋ “\XmName.edb”, , , , , , )
.计次循环首 (取记录数 (), )
    xmname2 ＝ 到文本 (读 (“xmname”))
    调试输出 (xmname2)
    调试输出 (文本_取出中间文本 (xmname2, “|”, “-”))
    调试输出 (卷帘式菜单1.取菜单名称 (删除菜单索引))
    .如果真 (文本_取出中间文本 (xmname2, “|”, “-”) ≠ 卷帘式菜单1.取菜单名称 (删除菜单索引))

        修改 (到字节集 (文本_取左边 (xmname2, “|”, , ) ＋ “|” ＋ Newcdname ＋ “-” ＋ 文本_取右边 (xmname2, “-”, , )))
    .如果真结束

    跳过 ()
.计次循环尾 ()

关闭 ()



.子程序 _修改名称_被选择
.局部变量 xmname3, 文本型
.局部变量 xmNewName, 文本型

.如果真 (输入框 (“请输入新名称！”, “项目名称修改”, “Name”, xmNewName, ))
    打开 (取运行目录 () ＋ “\XmName.edb”, , , , , , )
    .计次循环首 (取记录数 (), )
        xmname3 ＝ 到文本 (读 (“xmname”))
        调试输出 (xmname3)
        调试输出 (文本_取右边 (xmname3, “-”, , ))

        .如果真 (文本_取右边 (xmname3, “-”, , ) ＝ 卷帘式菜单1.取项目名称 (修改项目的项目引索, 修改项目的菜单引索))

            修改 (到字节集 (文本_取左边 (xmname3, “-”, , ) ＋ “-” ＋ xmNewName))
        .如果真结束

        跳过 ()
    .计次循环尾 ()

    关闭 ()


    卷帘式菜单1.置项目名称 (修改项目的项目引索, xmNewName, 修改项目的菜单引索)










.如果真结束



.子程序 _卷帘式菜单1_菜单被改变
.参数 菜单索引, 整数型
.局部变量 xmname, 文本型

打开 (取运行目录 () ＋ “\XmName.edb”, , , , , , )
.计次循环首 (取记录数 (), )
    xmname ＝ 到文本 (读 (“xmname”))

    .如果 (文本_取出中间文本 (xmname, “|”, “-”) ＝ 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单))
        卷帘式菜单1.加入项目 (文本_取右边 (xmname, “-”, , ), , , , )
    .否则

    .如果结束
    跳过 ()
.计次循环尾 ()
关闭 ()
[/e]

我不是胃挨劈

{:3_227:}看看代码吧！

我不是胃挨劈

{:3_229:}