moddbuptable_inpati.bas

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

        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_SickRegInfo = False
    Else
        Update_m_SickRegInfo = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_SickRegInfoApd)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkID ---->
'--           Unit ---->
'--           LcID ---->
'--           Profession ---->
'--           Addr ---->
'--           BirthAddr ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_m_SickRegInfoApd(ByVal UpdateFlag As DbOpType, _
                                          Optional SkID As String = "", _
                                          Optional unit = "", _
                                          Optional LcID = "", _
                                          Optional Profession = "", _
                                          Optional Addr = "", _
                                          Optional BirthAddr = "", _
                                          Optional Tel = "", _
                                          Optional Zip = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_SickRegInfoApd"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "SkID", SkID, ""
    gDBFldsObj.Add "Unit", unit, ""
    gDBFldsObj.Add "LcID", LcID, ""
    gDBFldsObj.Add "Profession", Profession, ""
    gDBFldsObj.Add "Addr", Addr, ""
    gDBFldsObj.Add "BirthAddr", BirthAddr, ""
    gDBFldsObj.Add "Tel", Tel, ""
    gDBFldsObj.Add "Zip", Zip, ""

    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_SickRegInfoApd = False
    Else
        Update_m_SickRegInfoApd = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(SickInfo)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkSerial ---->
'--           SkID ---->
'--           Num ---->
'--           DepCode ---->
'--           DcCode ---->
'--           BedID ---->
'--           InDate ---->
'--           OutDate ---->
'--           HdCode ---->
'--           Fair ---->
'--           PrePay ---->
'--           Status ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_SickInfo(ByVal UpdateFlag As DbOpType, _
                                          Optional SkSerial As String = "", _
                                          Optional SkID As String = "", _
                                          Optional Num As Integer = -32767, _
                                          Optional DepCode As String = "", _
                                          Optional DcCode = "", _
                                          Optional BedID = "", _
                                          Optional InDate As String = "", _
                                          Optional OutDate = "", _
                                          Optional HdCode As String = "", _
                                          Optional Fair As Currency = -0.001, _
                                          Optional PrePay As Currency = -0.001, _
                                          Optional Status As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "SickInfo"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "SkSerial", SkSerial, ""
    gDBFldsObj.Add "SkID", SkID, ""
    gDBFldsObj.Add "Num", Num, -32767
    gDBFldsObj.Add "DepCode", DepCode, ""
    gDBFldsObj.Add "DcCode", DcCode, ""
    gDBFldsObj.Add "BedID", BedID, ""
    gDBFldsObj.Add "InDate", InDate, ""
    gDBFldsObj.Add "OutDate", OutDate, ""
    gDBFldsObj.Add "HdCode", HdCode, ""
    gDBFldsObj.Add "Fair", Fair, -0.001
    gDBFldsObj.Add "PrePay", PrePay, -0.001
    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_SickInfo = False
    Else
        Update_SickInfo = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_ExpandInput)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           CatiID ---->
'--           Des ---->
'--           Content ---->
'--           Brief ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_m_ExpandInput(ByVal UpdateFlag As DbOpType, _
                                          Optional CatiID As String = "", _
                                          Optional Des As String = "", _
                                          Optional Content As String = "", _
                                          Optional Brief = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_ExpandInput"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "CatiID", CatiID, ""
    gDBFldsObj.Add "Des", Des, ""
    gDBFldsObj.Add "Content", Content, ""
    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_ExpandInput = False
    Else
        Update_m_ExpandInput = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Cheque)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           ChequeNo ---->
'--           Bank ---->
'--           Account ---->
'--           Unit ---->
'--           Flag ---->
'--           Comment ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月09日
'-----------------------------------------------------------------------
Public Function Update_Cheque(ByVal UpdateFlag As DbOpType, _
                                          Optional ChequeNo As String = "", _
                                          Optional Bank = "", _
                                          Optional Account = "", _
                                          Optional unit = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional Comment = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Cheque"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "ChequeNo", ChequeNo, ""
    gDBFldsObj.Add "Bank", Bank, ""
    gDBFldsObj.Add "Account", Account, ""
    gDBFldsObj.Add "Unit", unit, ""
    gDBFldsObj.Add "Flag", Flag, -32767
    gDBFldsObj.Add "Comment", Comment, ""

    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_Cheque = False
    Else
        Update_Cheque = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(SickPay)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           PaySerial ---->
'--           SkSerial ---->
'--           PayType ---->
'--           ChequeNo ---->
'--           PayFair ---->
'--           PayDate ---->
'--           PayMode ---->
'--           HdCode ---->
'--           FootSerial ---->
'--           FootID ---->
'--           Comment ---->
'--           SheetID ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月09日
'-----------------------------------------------------------------------
Public Function Update_SickPay(ByVal UpdateFlag As DbOpType, _
                                          Optional PaySerial As String = "", _
                                          Optional SkSerial As String = "", _
                                          Optional PayType As Integer = -32767, _
                                          Optional ChequeNo = "", _
                                          Optional PayFair As Currency = -0.001, _
                                          Optional PayDate As String = "", _
                                          Optional HdCode As String = "", _
                                          Optional FootSerial = "", _
                                          Optional FootID = "", _
                                          Optional Comment = "", _
                                          Optional SheetID = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "SickPay"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "PaySerial", PaySerial, ""
    gDBFldsObj.Add "SkSerial", SkSerial, ""
    gDBFldsObj.Add "PayType", PayType, -32767
    gDBFldsObj.Add "ChequeNo", ChequeNo, ""
    gDBFldsObj.Add "PayFair", PayFair, -0.001
    gDBFldsObj.Add "PayDate", PayDate, ""
    gDBFldsObj.Add "HdCode", HdCode, ""
    gDBFldsObj.Add "FootSerial", FootSerial, ""
    gDBFldsObj.Add "FootID", FootID, ""
    gDBFldsObj.Add "Comment", Comment, ""
    gDBFldsObj.Add "SheetID", SheetID, ""

    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_SickPay = False
    Else
        Update_SickPay = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(FairMarkMain)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           MarkSerial ---->
'--           SkSerial ---->
'--           MarkDate ---->
'--           HdCode ---->