moddbuptable_open.bas

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

    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_Regi = False
    Else
        Update_Open_Regi = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_RegiSub)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RegiSerial ---->
'--           ItemCode ---->
'--           CPrice ---->
'--           Amount ---->
'--           Fair ---->
'--           InFair ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月07日
'-----------------------------------------------------------------------
Public Function Update_Open_RegiSub(ByVal UpdateFlag As DbOpType, _
                                          Optional RegiSerial As String = "", _
                                          Optional ItemCode As String = "", _
                                          Optional fair As Currency = -0.001, _
                                          Optional InFair As Currency = -0.001, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_RegiSub"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RegiSerial", RegiSerial, ""
    gDBFldsObj.Add "ItemCode", ItemCode, ""
    gDBFldsObj.Add "Fair", fair, -0.001
    gDBFldsObj.Add "InFair", InFair, -0.001

    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_RegiSub = False
    Else
        Update_Open_RegiSub = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_RecipeMain)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RecipeSerial ---->
'--           PatientID ---->
'--           DepCode ---->
'--           DcCode ---->
'--           DsCode ---->
'--           HdCode ---->
'--           RecipeDate ---->
'--           Fair ---->
'--           FetchDate ---->
'--           FetchHdCode ---->
'--           ActRevSerial ---->
'--           RecipeNum ---->
'--           Status ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月22日
'-----------------------------------------------------------------------
Public Function Update_Open_RecipeMain(ByVal UpdateFlag As DbOpType, _
                                          Optional recipeSerial As String = "", _
                                          Optional PatientID As String = "", _
                                          Optional DepCode As String = "", _
                                          Optional dccode = "", _
                                          Optional DsCode = "", _
                                          Optional hdCode As String = "", _
                                          Optional RecipeDate As String = "", _
                                          Optional fair As Currency = -0.001, _
                                          Optional FetchDate = "", _
                                          Optional FetchHdCode = "", _
                                          Optional ActRevSerial = "", _
                                          Optional RecipeNum = -32767, _
                                          Optional Status As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_RecipeMain"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RecipeSerial", recipeSerial, ""
    gDBFldsObj.Add "PatientID", PatientID, ""
    gDBFldsObj.Add "DepCode", DepCode, ""
    gDBFldsObj.Add "DcCode", dccode, ""
    gDBFldsObj.Add "DsCode", DsCode, ""
    gDBFldsObj.Add "HdCode", hdCode, ""
    gDBFldsObj.Add "RecipeDate", RecipeDate, ""
    gDBFldsObj.Add "Fair", fair, -0.001
    gDBFldsObj.Add "FetchDate", FetchDate, ""
    gDBFldsObj.Add "FetchHdCode", FetchHdCode, ""
    gDBFldsObj.Add "ActRevSerial", ActRevSerial, ""
    gDBFldsObj.Add "RecipeNum", RecipeNum, -32767
    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_Open_RecipeMain = False
    Else
        Update_Open_RecipeMain = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_RecipeSub)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RecipeSerial ---->
'--           Num ---->
'--           ItemCode ---->
'--           CPrice ---->
'--           Amount ---->
'--           Fair ---->
'--           Unit ---->
'--           Factor ---->
'--           RevDepCode ---->
'--           Flag ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月22日
'-----------------------------------------------------------------------
Public Function Update_Open_RecipeSub(ByVal UpdateFlag As DbOpType, _
                                          Optional recipeSerial As String = "", _
                                          Optional Num As Integer = -32767, _
                                          Optional ItemCode As String = "", _
                                          Optional cprice As Currency = -0.001, _
                                          Optional amount As Integer = -32767, _
                                          Optional fair As Currency = -0.001, _
                                          Optional unit = "", _
                                          Optional Factor As Double = -0.001, _
                                          Optional RevDepCode = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional Gprice = -0.001, _
                                          Optional gmoney = -0.001, _
                                          Optional batchid As String = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_RecipeSub"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RecipeSerial", recipeSerial, ""
    gDBFldsObj.Add "Num", Num, -32767
    gDBFldsObj.Add "ItemCode", ItemCode, ""
    gDBFldsObj.Add "CPrice", cprice, -0.001
    gDBFldsObj.Add "Amount", amount, -32767
    gDBFldsObj.Add "Fair", fair, -0.001
    gDBFldsObj.Add "Unit", unit, ""
    gDBFldsObj.Add "Factor", Factor, -0.001
    gDBFldsObj.Add "RevDepCode", RevDepCode, ""
    gDBFldsObj.Add "Flag", Flag, -32767
    gDBFldsObj.Add "GPrice", Gprice, -0.001
    gDBFldsObj.Add "GMoney", gmoney, -0.001
    gDBFldsObj.Add "Batchid", batchid, ""

    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_RecipeSub = False
    Else
        Update_Open_RecipeSub = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_ReceiveMain)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RevSerial ---->
'--           RevDate ---->
'--           HdCode ---->
'--           PatientID ---->
'--           SheetFair ---->
'--           SheetInFair ---->
'--           FootSerial ---->
'--           ActRevSerial ---->
'--           SheetID ---->
'--           CancelHdCode ---->
'--           CancelDate ---->
'--           CancelFootSerial ---->
'--           ChequeNo ---->
'--           Status ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月23日
'-----------------------------------------------------------------------
Public Function Update_Open_ReceiveMain(ByVal UpdateFlag As DbOpType, _
                                          Optional RevSerial As String = "", _
                                          Optional RevDate As String = "", _
                                          Optional hdCode As String = "", _
                                          Optional PatientID As String = "", _
                                          Optional SheetFair As Currency = -0.001, _
                                          Optional SheetInFair As Currency = -0.001, _
                                          Optional FootSerial = "", _
                                          Optional ActRevSerial As String = "", _
                                          Optional SheetID = "", _
                                          Optional CancelHdCode = "", _
                                          Optional CancelDate = "", _
                                          Optional CancelFootSerial = "", _
                                          Optional ChequeNo = "", _
                                          Optional Status As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_ReceiveMain"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RevSerial", RevSerial, ""
    gDBFldsObj.Add "RevDate", RevDate, ""
    gDBFldsObj.Add "HdCode", hdCode, ""
    gDBFldsObj.Add "PatientID", PatientID, ""
    gDBFldsObj.Add "SheetFair", SheetFair, -0.001
    gDBFldsObj.Add "SheetInFair", SheetInFair, -0.001
    gDBFldsObj.Add "FootSerial", FootSerial, ""
    gDBFldsObj.Add "ActRevSerial", ActRevSerial, ""
    gDBFldsObj.Add "SheetID", SheetID, ""
    gDBFldsObj.Add "CancelHdCode", CancelHdCode, ""
    gDBFldsObj.Add "CancelDate", CancelDate, ""
    gDBFldsObj.Add "CancelFootSerial", CancelFootSerial, ""
    gDBFldsObj.Add "ChequeNo", ChequeNo, ""
    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_Open_ReceiveMain = False
    Else
        Update_Open_ReceiveMain = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_ReceiveSub)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RevSerial ---->
'--           RecipeSerial ---->
'--           Fair ---->
'--           Rate ---->
'--           Coef ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年02月23日
'-----------------------------------------------------------------------
Public Function Update_Open_ReceiveSub(ByVal UpdateFlag As DbOpType, _
                                          Optional RevSerial As String = "", _
                                          Optional recipeSerial As String = "", _
                                          Optional fair As Currency = -0.001, _
                                          Optional rate As Double = -0.001, _
                                          Optional Coef As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Open_ReceiveSub"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "RevSerial", RevSerial, ""
    gDBFldsObj.Add "RecipeSerial", recipeSerial, ""
    gDBFldsObj.Add "Fair", fair, -0.001
    gDBFldsObj.Add "Rate", rate, -0.001
    gDBFldsObj.Add "Coef", Coef, -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_ReceiveSub = False
    Else
        Update_Open_ReceiveSub = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(Open_ReceiveSub)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           RevSerial ---->
'--           RecipeSerial ---->