server.lua

importCache = nil
importTimer = nil

function import()
	if not importCache then
		local classFile = fileOpen("classlib.lua",true)
		local classStr = fileRead(classFile,fileGetSize(classFile))
		fileClose(classFile)
		importCache = classStr
		importTimer = setTimer(function() importCache = nil end,1000,1) --Clear cache
	end
	return importCache
end


fnc,err = loadstring(import())
if err then print(err) return end
fnc()

--------------------Custom Class
class "account" {
	uid = "uint32",
	username = "char[32]",
	password = "char[256]",
	email = "varchar[256]",
	created_at = "datetime",
	constructor = function(self,data)
		if type(data) ~= "table" then return end
		for k,v in pairs(data) do
			self[k] = v
		end
	end;
}

class "vehicle" {
	id = "uint32;primary",
	model = "uint32;foreign account(`model`)",
	x = "float",
	y = "float",
	z = "float",
	Create = function(self)
		self.element = createVehicle(self.model,self.x,self.y,self.z)
	end;
	Save = function(self)
		self.x,self.y,self.z = getElementPosition(self.element)
	end;
}

-- 创建数据库连接
db = morm:Open("sqlite","test.db")

-- 使用AutoMigrate自动创建或更新表结构
db:AutoMigrate("account", account)
db:AutoMigrate("vehicle", vehicle)

-- 创建新账户
local newAccount = account{
	uid = 1,
	username = "testuser",
	password = "testpass",
	email = "test@example.com",
	created_at = "2023-01-01 00:00:00"
}
db:Create(newAccount):Query()

-- 查询账户
local acc = account{
	uid = 1
}
db:Find(acc):Query(-1, function(self, successCount)
	if successCount > 0 then
		print("找到账户: " .. acc.username)
	else
		print("未找到账户")
	end
end)

-- 更新账户
acc.username = "updateduser"
db:Update(acc):Query()

-- 使用OrderBy和Limit查询
db:Select("*"):From("account"):OrderBy("uid", "DESC"):Limit(10):Query()

-- 事务处理示例
db:BeginTransaction()
local account1 = account{
	uid = 2,
	username = "user2",
	password = "pass2",
	email = "user2@example.com",
	created_at = "2023-01-02 00:00:00"
}
local account2 = account{
	uid = 3,
	username = "user3",
	password = "pass3",
	email = "user3@example.com",
	created_at = "2023-01-03 00:00:00"
}
db:Create(account1):Query()
db:Create(account2):Query()
db:Commit()

-- 添加新列
db:Add("account", "last_login", "datetime"):Query()

-- 修改列定义
db:Modify("account", "email", "varchar[512]"):Query()

-- 删除列
-- db:Drop("account", "last_login"):Query()

veh = vehicle{
	id = 1;
}

db:Create(vehicle):Query()
db:Find(veh):Query(-1,function()
	veh:Create()
end)

setTimer(function()
	veh:Save()
	db:Update(veh):Query(-1)
end,5000,1)
iprint(veh)
--查询
--db:Select("*"):From("account"):Where("uid",123):Query()