[GP] NewField.lua--新field库

[复制链接]
发表于 5 天前 | 显示全部楼层 |阅读模式
--[[
旧表 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

回复

使用道具 举报

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