?? moddbuptable_inpatiins.bas
字號:
Attribute VB_Name = "modDbUPTable_Inpati"
Option Explicit
Public Function Update_Ins_SickSpecill(ByVal UpdateFlag As DbOpType, _
Optional SkID As String = "", _
Optional num As Integer = -32767, _
Optional Specill As String = "", _
Optional StopDate As String = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "ins_sickspecill"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "Skid", SkID, ""
gDBFldsObj.Add "num", num, -32767
gDBFldsObj.Add "Specill", Specill, ""
gDBFldsObj.Add "stopdate", StopDate, ""
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_Ins_SickSpecill = False
Else
Update_Ins_SickSpecill = True
End If
Set gDBFldsObj = Nothing
End Function
Public Function Update_Ins_SickInfo(ByVal UpdateFlag As DbOpType, _
Optional SkSerial As String = "", _
Optional IcCard As String = "", _
Optional num As Integer = -32767, _
Optional ChargeYear As String = "", _
Optional YOpenInTotalMoney As Currency = -0.001, _
Optional YOpenOutTotalMoney As Currency = -0.001, _
Optional YPreSum As Currency = -0.001, _
Optional YInMOSum As Currency = -0.001, _
Optional HospTimes As Integer = -32767, _
Optional CycleSpecBDate As String = "", _
Optional CycleSpecTreadSerial As String = "", _
Optional CycleSpecInTotal As Currency = -0.001, _
Optional CycleSpecPreTotal As Currency = -0.001, _
Optional CycleSpecMOSelfTotal As Currency = -0.001, _
Optional InSumYear As String = "", _
Optional InSign As String = "", _
Optional InTreadSerial As String = "", _
Optional InBeginDate As String = "", _
Optional In2Total As Currency = -0.001, _
Optional InPreTotal As Currency = -0.001, _
Optional InMOSelf As Currency = -0.001, _
Optional Flag As Integer = -32767, _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "ins_sickinfo"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "SkSerial", SkSerial, ""
gDBFldsObj.Add "iccard", IcCard, ""
gDBFldsObj.Add "num", num, -32767
gDBFldsObj.Add "chargeyear", ChargeYear, ""
gDBFldsObj.Add "yopenintotalmoney", YOpenInTotalMoney, -0.001
gDBFldsObj.Add "yopenouttotalmoney", YOpenOutTotalMoney, -0.001
gDBFldsObj.Add "ypresum", YPreSum, -0.001
gDBFldsObj.Add "yinmosum", YInMOSum, -0.001
gDBFldsObj.Add "hosptimes", HospTimes, -0.001
gDBFldsObj.Add "cyclespecbdate", CycleSpecBDate, ""
gDBFldsObj.Add "cyclespectreadserial", CycleSpecTreadSerial, ""
gDBFldsObj.Add "cyclespecintotal", CycleSpecInTotal, -0.001
gDBFldsObj.Add "cyclespecpretotal", CycleSpecPreTotal, -0.001
gDBFldsObj.Add "cyclespecmoselftotal", CycleSpecMOSelfTotal, -0.001
gDBFldsObj.Add "insumyear", InSumYear, ""
gDBFldsObj.Add "insign", InSign, ""
gDBFldsObj.Add "intreadserial", InTreadSerial, ""
gDBFldsObj.Add "inbegindate", InBeginDate, ""
gDBFldsObj.Add "in2total", In2Total, -0.001
gDBFldsObj.Add "inpretotal", InPreTotal, -0.001
gDBFldsObj.Add "inmoself", InMOSelf, -0.001
gDBFldsObj.Add "flag", Flag, -32767
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_Ins_SickInfo = False
Else
Update_Ins_SickInfo = True
End If
Set gDBFldsObj = Nothing
End Function
Public Function Update_Ins_SickFoot(ByVal UpdateFlag As DbOpType, _
Optional FootSerial As String = "", _
Optional FootedOutFair As Currency = -0.001, _
Optional FootedInFair As Currency = -0.001, _
Optional FootedAccountFair As Currency = -0.001, _
Optional FootedMuchFair As Currency = -0.001, _
Optional FootedOffFair As Currency = -0.001, _
Optional FootedPlanFair As Currency = -0.001, _
Optional FootedSelfTotalFair As Currency = -0.001, _
Optional PrePay As Currency = -0.001, _
Optional EndDate As String = "", _
Optional DepCode As String = "", _
Optional SheetID As String = "", _
Optional CancelDate As String = "", _
Optional CancelHd As String = "", _
Optional PaccFair As Currency = -0.001, _
Optional CommOpenInFair As Currency = -0.001, _
Optional OpenOutFair As Currency = -0.001, _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "ins_sickfoot"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "footserial", FootSerial, ""
gDBFldsObj.Add "footedoutfair", FootedOutFair, -0.001
gDBFldsObj.Add "footedinfair", FootedInFair, -0.001
gDBFldsObj.Add "footedaccountfair", FootedAccountFair, -0.001
gDBFldsObj.Add "footedmuchfair", FootedMuchFair, -0.001
gDBFldsObj.Add "footedofffair", FootedOffFair, -0.001
gDBFldsObj.Add "footedSelfTotalFair", FootedSelfTotalFair, -0.001
gDBFldsObj.Add "footedplanfair", FootedPlanFair, -0.001
gDBFldsObj.Add "prepay", PrePay, -0.001
gDBFldsObj.Add "enddate", EndDate, ""
gDBFldsObj.Add "depcode", DepCode, ""
gDBFldsObj.Add "sheetid", SheetID, ""
gDBFldsObj.Add "canceldate", CancelDate, ""
gDBFldsObj.Add "cancelhd", CancelHd, ""
gDBFldsObj.Add "PaccFair", PaccFair, -0.001
gDBFldsObj.Add "commopeninfair", CommOpenInFair, -0.001
gDBFldsObj.Add "openoutfair", OpenOutFair, -0.001
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_Ins_SickFoot = False
Else
Update_Ins_SickFoot = True
End If
Set gDBFldsObj = Nothing
End Function
Public Function Update_Ins_Inpati_Fairsubitem(ByVal UpdateFlag As DbOpType, _
Optional Serial As String = "", _
Optional MarkSerial As String = "", _
Optional num As Integer = -32767, _
Optional itemserial As String = "", _
Optional ADVSerial As String = "", _
Optional ItemCode As String = "", _
Optional ItemName As String = "", _
Optional itemkind As String = "", _
Optional price As Currency = -0.001, _
Optional Amount As Integer = -32767, _
Optional TotalMoney As Currency = -0.001, _
Optional InMoney As Currency = -0.001, _
Optional OutMoney As Currency = -0.001, _
Optional dividestatus As String = "", _
Optional FootSerial As String = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "Ins_Inpati_fairsubitem"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "skSerial", Serial, ""
gDBFldsObj.Add "markserial", MarkSerial, ""
gDBFldsObj.Add "num", num, -32767
gDBFldsObj.Add "Itemserial", itemserial, ""
gDBFldsObj.Add "advserial", ADVSerial, ""
gDBFldsObj.Add "itemcode", ItemCode, ""
gDBFldsObj.Add "itemname", ItemName, ""
gDBFldsObj.Add "itemkind", itemkind, ""
gDBFldsObj.Add "price", price, -0.001
gDBFldsObj.Add "InMoney", InMoney, -0.001
gDBFldsObj.Add "outmoney", OutMoney, -0.001
gDBFldsObj.Add "Totalmoney", TotalMoney, -0.001
gDBFldsObj.Add "amount", Amount, -32767
gDBFldsObj.Add "dividestatus", dividestatus, ""
gDBFldsObj.Add "footserial", FootSerial, ""
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_Ins_Inpati_Fairsubitem = False
Else
Update_Ins_Inpati_Fairsubitem = True
End If
Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'-- 功能：插入、刪除、更新表(SickMedInfo)
'-- 參數：
'-- UpdateFlag ----> 更新標志
'-- SkSerial ---->
'-- name ---->
'-- sex ---->
'-- iccard ---->
'-- idcard ---->
'-- bloodtype ---->
'-- medtype ---->
'-- sociaserial ---->
'-- areadcode ---->
'-- perfair ---->
'-- offsign ---->
'-- offdeal ---->
'-- fixhosp ---->
'-- inhosptype ---->
'-- specill---->
'-- specfixhosp ---->
'-- UpdateCondition ----> 更新時指定的條件
'-- 返回制：TRUE 成功
'-- FALSE 失敗
'-- 產生日期：2000年09月07日
'-----------------------------------------------------------------------
Public Function Update_Ins_SickRegInfoApd(ByVal UpdateFlag As DbOpType, _
Optional SkID As String = "", _
Optional num As Integer = -32767, _
Optional medtype As String = "", _
Optional AreaCode As String = "", _
Optional AccountMoney As Currency = -0.001, _
Optional FixHosp As String = "", _
Optional inhosptype As String = "", _
Optional inHospStyle As String = "", _
Optional SpecIllFixHosp As String = "", _
Optional SpecFixHospSign As String = "", _
Optional SpecIllType As String = "", _
Optional jztype As String = "", _
Optional SpecStopDate As String = "", _
Optional Flag As Integer = -32767, _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "ins_SickregInfoApd"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "num", num, ""
gDBFldsObj.Add "medtype", medtype, ""
gDBFldsObj.Add "chargeareacode", AreaCode, ""
gDBFldsObj.Add "peraccountmoney", AccountMoney, ""
gDBFldsObj.Add "fixhosp", FixHosp, ""
gDBFldsObj.Add "inhosptype", inhosptype, ""
gDBFldsObj.Add "inhospstyle", inHospStyle, ""
gDBFldsObj.Add "specillfixhosp", SpecIllFixHosp, ""
gDBFldsObj.Add "specilltype", SpecIllType, ""
gDBFldsObj.Add "specstopdate", SpecStopDate, ""
gDBFldsObj.Add "specfixhospsign", SpecFixHospSign, ""
gDBFldsObj.Add "jztype", jztype, ""
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_Ins_SickRegInfoApd = False
Else
Update_Ins_SickRegInfoApd = True
End If
Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'-- 功能：插入、刪除、更新表(SickMedInfo)
'-- 參數：
'-- UpdateFlag ----> 更新標志
'-- iccard ---->
'-- medtype ---->
'-- inhospdate ---->
'-- outhospdate ---->
'-- inhosptype ---->
'-- outhosptype ---->
'-- totalfair ---->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -