由于循环引用,确定F#类型的顺序时出现问题

然后,我为每个CRUD操作的模型类型提供DAO类型。

我现在需要一个函数,它允许我在给定任何模型类型的情况下查找id,因此我为一些其他函数创建了一个新类型。

DAOMisc CityDAO 和 之前 道米斯克 ,这是不可能的。

State City 作为 州 与…有外键关系

这是我的杂项类型,在哪里 BaseType 是我所有模特的常用类型。

type DAOMisc =
    member internal self.FindIdByType item = 
        match(item:BaseType) with
        | :? StateType as i -> 
            let a = (StateDAO()).Retrieve i
            a.Head.Id
        | :? CityType as i -> 
            let a = (CityDAO()).Retrieve i
            a.Head.Id
        | _ -> -1

这是一种刀型。 CommonDAO 实际上有CRUD操作的代码,但这在这里并不重要。

type CityDAO() =
    inherit CommonDAO<CityType>("city", ["name"; "state_id"], 
        (fun(reader) ->
            [
                while reader.Read() do
                    let s = new CityType()
                    s.Id <- reader.GetInt32 0
                    s.Name <- reader.GetString 1
                    s.StateName <- reader.GetString 3
            ]), list.Empty
    )

type CityType() =
    inherit BaseType()
    let mutable name = ""
    let mutable stateName = ""
    member this.Name with get() = name and set restnameval=name <- restnameval
    member this.StateName with get() = stateName and set stateidval=stateName <- stateidval
    override this.ToSqlValuesList = [this.Name;]
    override this.ToFKValuesList = [StateType(Name=this.StateName);]

FindIdByType 函数是我想要找到外键关系的id,这样我就可以在我的模型中设置值,然后让CRUD函数用所有正确的信息进行操作。所以, 需要州名的id,所以我会得到州名,把它放到 state 键入,然后调用此函数以获取该状态的id,因此my city insert还将包含外键的id。

这似乎是最好的方法,以一种非常通用的方式来处理插入,这是我正在尝试解决的当前问题。

最终更新:

在考虑了我的方法之后,我意识到它有致命的缺陷,所以我想出了一个不同的方法。

我将这样做一个插入,我决定把这个想法放到每个实体类中,这可能是一个更好的想法。

member self.Insert(user:CityType) =
    let fk1 = [(StateDAO().Retrieve ((user.ToFKValuesList.Head :?> StateType), list.Empty)).Head.Id]
    self.Insert (user, fk1)

我还没有开始使用 fklist 然而,事实确实如此 int list inner join 例如,对于selects。

这是泛化的基类型插入:

member self.Insert(user:'a, fklist) =
    self.ExecNonQuery (self.BuildUserInsertQuery user)

如果F#能做协方差/反方差就好了,所以我不得不绕过这个限制。