魔力宝贝

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz

[GP] NewField.lua--新field库

[复制链接]
发表于 前天 03:01 | 显示全部楼层 |阅读模式
--[[
旧表 tbl)globalregvalue
account_id str value type data_place reg_num

新表 NewField
Cdkey RegNum FieldKey FieldValue
]]

function Field.NewGet(player,field)
        local cdkey = Char.GetData(player,%对象_帐号%)
        local regnum = Char.GetData(player,%对象_RegistNumber%)
        local sqlstr = "SELECT FieldValue FROM NewField WHERE CdKey = '"..cdkey.."' AND RegNum = "..regnum.." AND FieldKey = '"..field.."'"
        local findsql = SQL.Run(sqlstr)
        if type(findsql) == "table" then
                return findsql["0_0"]
        else
                return ""
        end
end

function Field.NewSet(player,field,value)
        local cdkey = Char.GetData(player,%对象_帐号%)
        local regnum = Char.GetData(player,%对象_RegistNumber%)
        local sqlstr = "SELECT FieldValue FROM NewField WHERE CdKey = '"..cdkey.."' AND RegNum = "..regnum.." AND FieldKey = '"..field.."'"
        local findsql = SQL.Run(sqlstr)
        if type(findsql) == "table" then
                sqlstr = "UPDATE NewField SET FieldValue = '"..value.."' WHERE CdKey = '"..cdkey.."' AND RegNum = "..regnum.." AND FieldKey = '"..field.."'"
                findsql = SQL.Run(sqlstr)
                return 0
        else
                sqlstr = "INSERT INTO NewField (CdKey,RegNum,FieldKey,FieldValue) VALUES ('"..cdkey.."',"..regnum..",'"..field.."','"..value.."')"
                findsql = SQL.Run(sqlstr)
                return 0
        end
end

function FieldSqlTransplant()

end

回复

使用道具 举报

Archiver|魔力研究社

GMT+8, 2025-5-12 19:18 , Processed in 0.199187 second(s), 23 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表