📄 main_kfgl_ys.frm

📁 星级酒店客房管理系统一套很不错的系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            If Pay_Type = "预付款扣" Then Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If
End Sub


Private Sub JAccount2()
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业收入报表 where 编码 like '" & KM_Number & "9999' order by 编码"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("当日发生额") = Adodc1.Recordset.Fields("当日发生额") + JF_jiner
            Adodc1.Recordset.Fields("当月发生额累计") = Adodc1.Recordset.Fields("当月发生额累计") + JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select

            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select

            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If
End Sub
Private Sub JAccount4()
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业收入报表 where 编码 like '" & KM_Number & "' order by 编码"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("当日发生额") = Adodc1.Recordset.Fields("当日发生额") + JF_jiner
            Adodc1.Recordset.Fields("当月发生额累计") = Adodc1.Recordset.Fields("当月发生额累计") + JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select

            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select

            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If
        KM_Number = Left(KM_Number, 2)
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业收入报表 where 编码 like '" & KM_Number & "9999' order by 编码"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("当日发生额") = Adodc1.Recordset.Fields("当日发生额") + JF_jiner
            Adodc1.Recordset.Fields("当月发生额累计") = Adodc1.Recordset.Fields("当月发生额累计") + JF_jiner
            If Pay_Type = "预付款扣" Then Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            If Pay_Type = "预付款扣" Then Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If

End Sub

Private Sub JAccount6()
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业收入报表 where 编码 like '" & KM_Number & "' order by 编码"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("当日发生额") = Adodc1.Recordset.Fields("当日发生额") + JF_jiner
            Adodc1.Recordset.Fields("当月发生额累计") = Adodc1.Recordset.Fields("当月发生额累计") + JF_jiner
            If Pay_Type = "预付款扣" Then Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            If Pay_Type = "预付款扣" Then Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If
        KM_Number = Left(KM_Number, 4)
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业收入报表 where 编码 like '" & KM_Number & "' order by 编码"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("当日发生额") = Adodc1.Recordset.Fields("当日发生额") + JF_jiner
            Adodc1.Recordset.Fields("当月发生额累计") = Adodc1.Recordset.Fields("当月发生额累计") + JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select

            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select

            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If
        
        KM_Number = Left(KM_Number, 2)
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业收入报表 where 编码 like '" & KM_Number & "9999' order by 编码"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("当日发生额") = Adodc1.Recordset.Fields("当日发生额") + JF_jiner
            Adodc1.Recordset.Fields("当月发生额累计") = Adodc1.Recordset.Fields("当月发生额累计") + JF_jiner
            If Pay_Type = "预付款扣" Then Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            If Pay_Type = "预付款扣" Then Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If
End Sub

Private Sub ppd()
'结帐汇总
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业收入报表 where 名称 like '" & KM_Name & "' order by 编码"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("当日发生额") = Adodc1.Recordset.Fields("当日发生额") + JF_jiner
            Adodc1.Recordset.Fields("当月发生额累计") = Adodc1.Recordset.Fields("当月发生额累计") + JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select

            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        Else
            Adodc1.Recordset.AddNew
            Adodc1.Recordset.Fields("日期") = System_Date
            Adodc1.Recordset.Fields("编码") = KM_Number
            Adodc1.Recordset.Fields("名称") = KM_Name
            Adodc1.Recordset.Fields("当日发生额") = JF_jiner
            Select Case Pay_Type
            Case "付现金"
                Adodc1.Recordset.Fields("现金") = Adodc1.Recordset.Fields("现金") + JF_jiner
            Case "预付款扣"
                Adodc1.Recordset.Fields("未结帐") = Adodc1.Recordset.Fields("未结帐") + JF_jiner
            Case "挂帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case "转帐"
                Adodc1.Recordset.Fields("挂帐") = Adodc1.Recordset.Fields("挂帐") + JF_jiner
            Case Else
                Adodc1.Recordset.Fields("信用卡") = Adodc1.Recordset.Fields("信用卡") + JF_jiner
            End Select
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If

End Sub
上一页 1 23
💿 文件大小 2761 K
👤 上传用户 cy_jing
📂 所属分类酒店行业
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -