抽象工厂模式lua实现

--[[
	工厂方法模式：
			一个抽象产品类，可以派生出多个具体产品类。
			一个抽象工厂类，可以派生出多个具体工厂类。
			每个具体工厂类只能创建一个具体产品类的实例。
	抽象工厂模式：
			多个抽象产品类，每个抽象产品类可以派生出多个具体产品类。
			一个抽象工厂类，可以派生出多个具体工厂类。
			每个具体工厂类可以创建多个具体产品类的实例。
]]--

--[[
	我的总结：
	简单工厂：一个工厂生产所有的部件
	工厂方法：一个工厂生产一种部件
	抽象工厂：一个工厂生产几种产品
]]--

IUser = {}

function IUser:new(o)
	o = o or {}
	setmetatable(o,self)
	self.__index = self
	return o;
end

SqlServerUser = IUser:new()

function SqlServerUser:Insert()
	print("在SQL Server中给User表增加一条记录")
end

function SqlServerUser:GetUserRecord()
	print("在SQL Server中User表获取一条记录")
end

AccessUser = IUser:new()

function AccessUser:Insert()
	print("在Access中给User表增加一条记录")
end

function AccessUser:GetUserRecord()
	print("在Access中User表获取一条记录")
end

IDepartment = {}

function IDepartment:new(o)
	o = o or {}
	setmetatable(o,self)
	self.__index = self
	return o;
end

SqlServerDepartment = IDepartment:new()

function SqlServerDepartment:Insert()
	print("在SQL Server中给Department表增加一条记录")
end

function SqlServerDepartment:GetDepartmentRecord()
	print("在SQL Server中的Department表获取一条记录")
end

AccessDepartment = IDepartment:new()

function AccessDepartment:Insert()
	print("在Access中给Department表增加一条记录")
end

function AccessDepartment:GetDepartmentRecord()
	print("在Access中的Department表获取一条记录")
end

IFactory = {}

function IFactory:new(o)
	o = o or {}
	setmetatable(o,self)
	self.__index = self
	return o;
end

SqlServerFactory = IFactory:new()

function SqlServerFactory:GetUser()
	return SqlServerUser:new()
end

function SqlServerFactory:GetDepartment()
	return SqlServerDepartment:new()
end

AccessFactory = IFactory:new()

function AccessFactory:GetUser()
	return AccessUser:new()
end

function AccessFactory:GetDepartment()
	return AccessDepartment:new()
end

choice = io.read()
factory = nil
if choice == "Sqlserver" then
	factory = SqlServerFactory:new()
elseif choice == "Access" then
	factory = AccessFactory:new()
end

if factory ~= nil then
	user = factory:GetUser()
	department = factory:GetDepartment()

	user:Insert()
	user:GetUserRecord()

	department:Insert()
	department:GetDepartmentRecord()
end

输入：

Sqlserver

输出：

在SQL Server中给User表增加一条记录
在SQL Server中User表获取一条记录
在SQL Server中给Department表增加一条记录
在SQL Server中的Department表获取一条记录

简单工厂lua实现

工厂方法lua实现

交流群:315249378

如有不正确，欢迎交流讨论!