?? moddbuptable_inpatiins.bas
字號:
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)
'-- 參數(shù)：
'-- UpdateFlag ----> 更新標(biāo)志
'-- CatiID ---->
'-- Des ---->
'-- Content ---->
'-- Brief ---->
'-- UpdateCondition ----> 更新時指定的條件
'-- 返回制：TRUE 成功
'-- FALSE 失敗
'-- 產(chǎn)生日期：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)
'-- 參數(shù)：
'-- UpdateFlag ----> 更新標(biāo)志
'-- ChequeNo ---->
'-- Bank ---->
'-- Account ---->
'-- Unit ---->
'-- Flag ---->
'-- Comment ---->
'-- UpdateCondition ----> 更新時指定的條件
'-- 返回制：TRUE 成功
'-- FALSE 失敗
'-- 產(chǎn)生日期：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)
'-- 參數(shù)：
'-- UpdateFlag ----> 更新標(biāo)志
'-- PaySerial ---->
'-- SkSerial ---->
'-- PayType ---->
'-- ChequeNo ---->
'-- PayFair ---->
'-- PayDate ---->
'-- PayMode ---->
'-- HdCode ---->
'-- FootSerial ---->
'-- FootID ---->
'-- Comment ---->
'-- SheetID ---->
'-- UpdateCondition ----> 更新時指定的條件
'-- 返回制：TRUE 成功
'-- FALSE 失敗
'-- 產(chǎn)生日期：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)
'-- 參數(shù)：
'-- UpdateFlag ----> 更新標(biāo)志
'-- MarkSerial ---->
'-- SkSerial ---->
'-- MarkDate ---->
'-- HdCode ---->
'-- DepCode ---->
'-- DcCode ---->
'-- FootSerial ---->
'-- FootID ---->
'-- Flag ---->
'-- UpdateCondition ----> 更新時指定的條件
'-- 返回制：TRUE 成功
'-- FALSE 失敗
'-- 產(chǎn)生日期：2000年03月10日
'-----------------------------------------------------------------------
Public Function Update_FairMarkMain(ByVal UpdateFlag As DbOpType, _
Optional MarkSerial As String = "", _
Optional SkSerial As String = "", _
Optional MarkDate As String = "", _
Optional hdCode = "", _
Optional DepCode As String = "", _
Optional dccode = "", _
Optional FootSerial = "", _
Optional FootID = "", _
Optional Flag As Integer = -32767, _
Optional FetchDate As String = "", _
Optional FetchHdCode As String = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "FairMarkMain"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "MarkSerial", MarkSerial, ""
gDBFldsObj.Add "SkSerial", SkSerial, ""
gDBFldsObj.Add "MarkDate", MarkDate, ""
gDBFldsObj.Add "HdCode", hdCode, ""
gDBFldsObj.Add "DepCode", DepCode, ""
gDBFldsObj.Add "DcCode", dccode, ""
gDBFldsObj.Add "FootSerial", FootSerial, ""
gDBFldsObj.Add "FootID", FootID, ""
gDBFldsObj.Add "Flag", Flag, -32767
gDBFldsObj.Add "FetchDate", FetchDate, ""
gDBFldsObj.Add "FetchHdCode", FetchHdCode, ""
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_FairMarkMain = False
Else
Update_FairMarkMain = True
End If
Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'-- 功能：插入、刪除、更新表(FairMarkSub)
'-- 參數(shù)：
'-- UpdateFlag ----> 更新標(biāo)志
'-- MarkSerial ---->
'-- Num ---->
'-- ItemCode ---->
'-- DepCode ---->
'-- Amount ---->
'-- CPrice ---->
'-- Factor ---->
'-- Unit ---->
'-- Fair ---->
'-- InFair ---->
'-- DsCode ---->
'-- ADVSerial ---->
'-- ADVNum ---->
'-- UpdateCondition ----> 更新時指定的條件
'-- 返回制：TRUE 成功
'-- FALSE 失敗
'-- 產(chǎn)生日期：2000年03月10日
'-----------------------------------------------------------------------
Public Function Update_FairMarkSub(ByVal UpdateFlag As DbOpType, _
Optional MarkSerial As String = "", _
Optional num As Integer = -32767, _
Optional ItemCode As String = "", _
Optional DepCode As String = "", _
Optional Amount As Double = -0.001, _
Optional Cprice As Currency = -0.001, _
Optional Factor As Integer = -32767, _
Optional unit As String = "", _
Optional Fair As Currency = -0.001, _
Optional InFair As Currency = -0.001, _
Optional DsCode = "", _
Optional ADVSerial = "", _
Optional ADVNum = -32767, _
Optional gprice = -0.001, _
Optional GMoney = -0.001, _
Optional BatchID = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "FairMarkSub"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "MarkSerial", MarkSerial, ""
gDBFldsObj.Add "Num", num, -32767
gDBFldsObj.Add "ItemCode", ItemCode, ""
gDBFldsObj.Add "DepCode", DepCode, ""
gDBFldsObj.Add "Amount", Amount, -0.001
gDBFldsObj.Add "CPrice", Cprice, -0.001
gDBFldsObj.Add "Factor", Factor, -32767
gDBFldsObj.Add "Unit", unit, ""
gDBFldsObj.Add "Fair", Fair, -0.001
gDBFldsObj.Add "InFair", InFair, -0.001
gDBFldsObj.Add "DsCode", DsCode, ""
gDBFldsObj.Add "ADVSerial", ADVSerial, ""
gDBFldsObj.Add "ADVNum", ADVNum, -32767
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -