moddbuptable_open.bas

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

Attribute VB_Name = "modDbUPTable_Open"
Option Explicit
'--     产生日期：2000年06月30日
'-----------------------------------------------------------------------
Public Function Update_Open_Arinfo(ByVal UpdateFlag As DbOpType, _
                                          Optional PatientID As String = "", _
                                          Optional Num = -32767, _
                                          Optional DepCode = "", _
                                          Optional dccode As String = "", _
                                          Optional BusDate = "", _
                                          Optional DisDes = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_ArInfo"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "PatientID", PatientID, ""
    gDBFldsObj.Add "num", Num, -32767
    gDBFldsObj.Add "DepCode", DepCode, ""
    gDBFldsObj.Add "BusDate", BusDate, ""
    gDBFldsObj.Add "DcCode", dccode, ""
    gDBFldsObj.Add "DisDes", DisDes, ""
    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_Open_Arinfo = False
    Else
        Update_Open_Arinfo = True
    End If
    Set gDBFldsObj = Nothing
End Function

'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_m_PatientBaseInfo)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           PatientID ---->
'--           Name ---->
'--           Sex ---->
'--           BirthDate ---->
'--           PtID ---->
'--           Brief ---->
'--           Flag ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月07日
'-----------------------------------------------------------------------
Public Function Update_Open_m_PatientBaseInfo(ByVal UpdateFlag As DbOpType, _
                                          Optional PatientID As String = "", _
                                          Optional Name = "", _
                                          Optional Sex = -32767, _
                                          Optional BirthDate = "", _
                                          Optional PtID As String = "", _
                                          Optional Brief = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_m_PatientBaseInfo"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "PatientID", PatientID, ""
    gDBFldsObj.Add "Name", Name, ""
    gDBFldsObj.Add "Sex", Sex, -32767
    gDBFldsObj.Add "BirthDate", BirthDate, ""
    gDBFldsObj.Add "PtID", PtID, ""
    gDBFldsObj.Add "Brief", Brief, ""
    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_Open_m_PatientBaseInfo = False
    Else
        Update_Open_m_PatientBaseInfo = True
    End If
    Set gDBFldsObj = Nothing
End Function


'门诊病人信息附加表
Public Function Update_m_PatientBaseInfoApd(ByVal UpdateFlag As DbOpType, _
                                          Optional PatientID As String = "", _
                                          Optional IcCard = "", _
                                          Optional Nation = "", _
                                          Optional IDCardNO = "", _
                                          Optional Worker = "", _
                                          Optional Tel = "", _
                                          Optional Post = "", _
                                          Optional Address = "", _
                                          Optional RecDate = "", _
                                          Optional PtID As String = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "open_m_PatientBaseInfoApd"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "PatientID", PatientID, ""
    gDBFldsObj.Add "Nation", Nation, ""
    gDBFldsObj.Add "IDCardNO", IDCardNO, ""
    gDBFldsObj.Add "Worker", Worker, ""
    gDBFldsObj.Add "Tel", Tel, ""
    gDBFldsObj.Add "Post", Post, ""
    gDBFldsObj.Add "Address", Address, ""
    gDBFldsObj.Add "RecDate", RecDate, ""
    gDBFldsObj.Add "PtID", PtID, ""
    gDBFldsObj.Add "iccard", IcCard, ""
    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_PatientBaseInfoApd = False
    Else
        Update_m_PatientBaseInfoApd = True
    End If
    Set gDBFldsObj = Nothing
End Function




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

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_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_Open_m_PatientType = False
    Else
        Update_Open_m_PatientType = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_m_RegiType)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RtID ---->
'--           RtName ---->
'--           Flag ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月07日
'-----------------------------------------------------------------------
Public Function Update_Open_m_RegiType(ByVal UpdateFlag As DbOpType, _
                                          Optional RtId As String = "", _
                                          Optional RtDes As String = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_m_RegiType"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RtID", RtId, ""
    gDBFldsObj.Add "RtDes", RtDes, ""
    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_Open_m_RegiType = False
    Else
        Update_Open_m_RegiType = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_m_RegiTypeLinkItem)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RtID ---->
'--           ItemCode ---->
'--           Flag ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月07日
'-----------------------------------------------------------------------
Public Function Update_Open_m_RegiTypeLinkItem(ByVal UpdateFlag As DbOpType, _
                                          Optional RtId As String = "", _
                                          Optional ItemCode As String = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_m_RegiTypeLinkItem"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RtID", RtId, ""
    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_Open_m_RegiTypeLinkItem = False
    Else
        Update_Open_m_RegiTypeLinkItem = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_Regi)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RegiSerial ---->
'--           PatientId ---->
'--           RegiDate ---->
'--           RtID ---->
'--           HdCode ---->
'--           DepCode ---->
'--           DcCode ---->
'--           SheetID ---->
'--           Fair ---->
'--           InFair ---->
'--           Status ---->
'--           FootID ---->
'--           CancelHdCode ---->
'--           CancelDate ---->
'--           CancelFootID ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月07日
'-----------------------------------------------------------------------
Public Function Update_Open_Regi(ByVal UpdateFlag As DbOpType, _
                                          Optional RegiSerial As String = "", _
                                          Optional PatientID As String = "", _
                                          Optional RegiDate As String = "", _
                                          Optional RtId As String = "", _
                                          Optional hdCode As String = "", _
                                          Optional DepCode As String = "", _
                                          Optional dccode = "", _
                                          Optional SheetID = "", _
                                          Optional fair As Currency = -0.001, _
                                          Optional InFair As Currency = -0.001, _
                                          Optional Status As Integer = -32767, _
                                          Optional FootID = "", _
                                          Optional CancelHdCode = "", _
                                          Optional CancelDate = "", _
                                          Optional CancelFootID = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_Regi"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RegiSerial", RegiSerial, ""
    gDBFldsObj.Add "PatientId", PatientID, ""
    gDBFldsObj.Add "RegiDate", RegiDate, ""
    gDBFldsObj.Add "RtID", RtId, ""
    gDBFldsObj.Add "HdCode", hdCode, ""
    gDBFldsObj.Add "DepCode", DepCode, ""
    gDBFldsObj.Add "DcCode", dccode, ""
    gDBFldsObj.Add "SheetID", SheetID, ""
    gDBFldsObj.Add "Fair", fair, -0.001
    gDBFldsObj.Add "InFair", InFair, -0.001
    gDBFldsObj.Add "Status", Status, -32767
    gDBFldsObj.Add "FootID", FootID, ""
    gDBFldsObj.Add "CancelHdCode", CancelHdCode, ""
    gDBFldsObj.Add "CancelDate", CancelDate, ""
    gDBFldsObj.Add "CancelFootID", CancelFootID, ""