moddbuptable_inpati.bas

医院门诊医生工作站,vb6 SqlServer

        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_Bed = False
    Else
        Update_m_Bed = True
    End If
    Set gDBFldsObj = Nothing
End Function

'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_BedClass)
'-----------------------------------------------------------------------
Public Function Update_m_BedClass(ByVal UpdateFlag As DbOpType, _
                                          Optional BedID As String = "", _
                                          Optional NorClass As String = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_BedClass"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "BedID", BedID, ""
    gDBFldsObj.Add "NClass", NorClass, ""
    gDBFldsObj.Add "Flag", Flag, -32767

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_BedClass = False
    Else
        Update_m_BedClass = True
    End If
    Set gDBFldsObj = Nothing
End Function

'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_Bed)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           BedID ---->
'--           DepCode ---->
'--           BedNum ---->
'--           ItemCode ---->
'--           Flag ---->
'--           Comment ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_m_BedItem(ByVal UpdateFlag As DbOpType, _
                                          Optional BedID As String = "", _
                                          Optional ItemCode = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_BedItem"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "BedID", BedID, ""
    gDBFldsObj.Add "ItemCode", ItemCode, ""
    gDBFldsObj.Add "Flag", Flag, -32767

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_BedItem = False
    Else
        Update_m_BedItem = True
    End If
    Set gDBFldsObj = Nothing
End Function

'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(ChangePos)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkSerial ---->
'--           ChangeNum ---->
'--           ChangeDate ---->
'--           SourceDepCode ---->
'--           SourceBedID ---->
'--           TargetDepCode ---->
'--           TargetBedID ---->
'--           HdCode ---->
'--           Comment ---->
'--           Status ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_ChangePos(ByVal UpdateFlag As DbOpType, _
                                          Optional SkSerial As String = "", _
                                          Optional ChangeNum As Integer = -32767, _
                                          Optional ChangeDate As String = "", _
                                          Optional SourceDepCode = "", _
                                          Optional SourceBedID = "", _
                                          Optional TargetDepCode = "", _
                                          Optional TargetBedID = "", _
                                          Optional HdCode As String = "", _
                                          Optional Comment = "", _
                                          Optional Status As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "ChangePos"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "SkSerial", SkSerial, ""
    gDBFldsObj.Add "ChangeNum", ChangeNum, -32767
    gDBFldsObj.Add "ChangeDate", ChangeDate, ""
    gDBFldsObj.Add "SourceDepCode", SourceDepCode, ""
    gDBFldsObj.Add "SourceBedID", SourceBedID, ""
    gDBFldsObj.Add "TargetDepCode", TargetDepCode, ""
    gDBFldsObj.Add "TargetBedID", TargetBedID, ""
    gDBFldsObj.Add "HdCode", HdCode, ""
    gDBFldsObj.Add "Comment", Comment, ""
    gDBFldsObj.Add "Status", Status, -32767

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_ChangePos = False
    Else
        Update_ChangePos = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_Local)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           LcID ---->
'--           Des ---->
'--           Flag ---->
'--           Comment ---->
'--           Brief ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_m_Local(ByVal UpdateFlag As DbOpType, _
                                          Optional LcID As String = "", _
                                          Optional Des As String = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional Comment = "", _
                                          Optional Brief As String = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_Local"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "LcID", LcID, ""
    gDBFldsObj.Add "Des", Des, ""
    gDBFldsObj.Add "Flag", Flag, -32767
    gDBFldsObj.Add "Comment", Comment, ""
    gDBFldsObj.Add "Brief", Brief, ""

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_Local = False
    Else
        Update_m_Local = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_PatientType)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           PtID ---->
'--           PtDes ---->
'--           Flag ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_m_PatientType(ByVal UpdateFlag As DbOpType, _
                                          Optional PtID As String = "", _
                                          Optional PtDes = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_PatientType"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "PtID", PtID, ""
    gDBFldsObj.Add "PtDes", PtDes, ""
    gDBFldsObj.Add "Flag", Flag, -32767

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_PatientType = False
    Else
        Update_m_PatientType = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_SickRegInfo)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkID ---->
'--           Name ---->
'--           Brief ---->
'--           Sex ---->
'--           BirthDate ---->
'--           IDCard ---->
'--           Marry ---->
'--           Country ---->
'--           Native ---->
'--           Contactor ---->
'--           Relation ---->
'--           ContactorAddr ---->
'--           PtID ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_m_SickRegInfo(ByVal UpdateFlag As DbOpType, _
                                          Optional SkID As String = "", _
                                          Optional Name As String = "", _
                                          Optional Brief As String = "", _
                                          Optional Sex = "", _
                                          Optional BirthDate = "", _
                                          Optional IDCard = "", _
                                          Optional Marry = "", _
                                          Optional Country As String = "", _
                                          Optional Native As String = "", _
                                          Optional Contactor = "", _
                                          Optional relation = "", _
                                          Optional ContactorAddr = "", _
                                          Optional PtID As String = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_SickRegInfo"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "SkID", SkID, ""
    gDBFldsObj.Add "Name", Name, ""
    gDBFldsObj.Add "Brief", Brief, ""
    gDBFldsObj.Add "Sex", Sex, ""
    gDBFldsObj.Add "BirthDate", BirthDate, ""
    gDBFldsObj.Add "IDCard", IDCard, ""
    gDBFldsObj.Add "Marry", Marry, ""
    gDBFldsObj.Add "Country", Country, ""
    gDBFldsObj.Add "Native", Native, ""
    gDBFldsObj.Add "Contactor", Contactor, ""
    gDBFldsObj.Add "Relation", relation, ""
    gDBFldsObj.Add "ContactorAddr", ContactorAddr, ""
    gDBFldsObj.Add "PtID", PtID, ""

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL