天龙简易GM工具源码

天龙工具源码 2023-03-01 0 448

天龙简易GM工具源码部分源码

.' 如果 (编辑框1.内容 ＝ “”)
    ' 信息框 (“请输入帐号或角色名再查找”, 64, “”)
    ' 编辑框1.获取焦点 ()
.否则
    .' 如果 (编辑框1.内容 ≠ “”)
        .' 如果 (读配置项 (取运行目录 () ＋ “\duaitl.ini”, “MySQL”, “ACCDATA”, “account”) ＝ “account”)
            ' 查找帐号句柄 ＝ 查找记录 (MySQL句柄1, “account”, “id”, “name='” ＋ 编辑框1.内容 ＋ “'”, “id ASC”)
        .否则
            ' 查找帐号句柄 ＝ 查找记录 (MySQL句柄2, “account”, “id”, “name='” ＋ 编辑框1.内容 ＋ “'”, “id ASC”)
        .如果结束

        .' 如果 (查找帐号句柄 ＝ 0)
            ' 信息框 (“查找失败！”, 48, “”)
        .否则
            ' 读字段值 (查找帐号句柄, “id”, id)
            ' 查找帐号信息 (“account_id='” ＋ id ＋ “'”)
        .如果结束

    .否则
        记录集1.置连接 (数据库连接1)
        记录集1.打开 (“select * from RustyHearts.dbo.CharacterTable where Name = '” ＋ 编辑框1.内容 ＋ “'”, #SQL语句, )
        记录集1.读整数 (“Level”, 角色等级)
        ' 记录集1.读整数 (“gold”, 金币数)
        ' 记录集1.读整数 (“Experience”, 角色经验)
        ' 记录集1.读文本 (“bcust_id”, 角色ID)
        ' 记录集1.读整数 (“1”, 角色职业)
        ' 记录集1.读整数 (“1”, 职业精通)
        ' 记录集1.读整数 (“SP”, 技能点)
        ' 记录集1.读整数 (“storage_count”, 商城点绑)
        编辑框4.内容 ＝ 到文本 (角色等级)
        ' 编辑框_金币数.内容 ＝ 到文本 (金币数)
        ' 编辑框_经验.内容 ＝ 到文本 (角色经验)
        ' 编辑框_ID.内容 ＝ 到文本 (角色ID)
        ' 组合框_职业精通.内容 ＝ 到文本 (职业精通)
        ' 编辑框_技能点.内容 ＝ 到文本 (技能点)
        ' 编辑框_商城点绑.内容 ＝ 到文本 (商城点绑)
        ' 组合框_角色职业.内容 ＝ 到文本 (角色职业)

        ' ' =================================================
        ' 记录集1.打开 (“select * from RustyHearts_Auth.dbo.CashTable where userid = '” ＋ 编辑框_ID.内容 ＋ “'”, #SQL语句, )
        ' 记录集1.读整数 (“cash”, 商城点)
        ' 编辑框_商城点.内容 ＝ 到文本 (商城点)