Me.ProgressBar1.Max = Adodc3.Recordset.RecordCount
    While Not Adodc3.Recordset.EOF
        Me.ProgressBar1.Value = Adodc3.Recordset.AbsolutePosition
        KM_Number = Adodc3.Recordset.Fields("科目編碼")
        KM_Name = Adodc3.Recordset.Fields("科目名稱")
        JF_jiner = Adodc3.Recordset.Fields("借方")
        BiZhong = Adodc3.Recordset.Fields("幣種")
        Pay_Type = Adodc3.Recordset.Fields("支付方式")
        JieZhang_Type = IIf(IsNull(Adodc3.Recordset.Fields("結(jié)帳狀態(tài)")), "", Adodc3.Recordset.Fields("結(jié)帳狀態(tài)"))
        
        KM_NumberLen = Len(Trim(KM_Number))
        Select Case KM_NumberLen
        Case 2
            Call JAccount2
        Case 4
            Call JAccount4
        Case 6
            Call JAccount6
        Case Else
        
        End Select

        Adodc3.Recordset.MoveNext
    Wend
    Adodc3.Recordset.Close
    End If

'餐廳營業(yè)匯總,食品類
    Adodc3.ConnectionString = My_PROVIDER
    Adodc3.CommandType = adCmdText
    Adodc3.RecordSource = "select * from 餐廳營業(yè)表 where 日期 like '" & System_Date & "' and 借方<>0"
    Adodc3.Refresh
    If Adodc3.Recordset.RecordCount > 0 Then
    Adodc3.Recordset.MoveFirst
    Me.ProgressBar1.Max = Adodc3.Recordset.RecordCount
    While Not Adodc3.Recordset.EOF
        Me.ProgressBar1.Value = Adodc3.Recordset.AbsolutePosition
        JF_jiner = Adodc3.Recordset.Fields("借方")
        JieZhang_Type = Adodc3.Recordset.Fields("支付方式")
        KM_Number = Adodc3.Recordset.Fields("科目編號")
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "'"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            Select Case JieZhang_Type
            Case "付現(xiàn)金"
                Adodc1.Recordset.Fields("現(xiàn)金") = Adodc1.Recordset.Fields("現(xiàn)金") + JF_jiner
            Case "掛帳"
                Adodc1.Recordset.Fields("掛帳") = Adodc1.Recordset.Fields("掛帳") + JF_jiner
            Case "轉(zhuǎn)帳"
                Adodc1.Recordset.Fields("掛帳") = Adodc1.Recordset.Fields("掛帳") + JF_jiner
            End Select
            Adodc1.Recordset.Update
        End If
            Adodc1.Recordset.Close
        Adodc3.Recordset.MoveNext
    Wend
    Adodc3.Recordset.Close
    End If






'營業(yè)手工輸入?yún)R總
    Call ys

    
    System_Date = CStr(CDate(System_Date) + 1)
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 參數(shù)"
    Adodc1.Refresh
    Adodc1.Recordset.Fields("系統(tǒng)狀態(tài)") = "正常"
    Adodc1.Recordset.Fields("系統(tǒng)日期") = System_Date
    Adodc1.Recordset.Update
    Adodc1.Recordset.Close

    MsgBox "夜審結(jié)束，請重新登錄系統(tǒng)！", 64, "提示"
    
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub ys()
'營業(yè)點(diǎn)收款處理
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 日營業(yè)點(diǎn)收入表 where 日期 like '" & System_Date & "'"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveFirst
        Me.ProgressBar1.Max = Adodc1.Recordset.RecordCount
        While Not Adodc1.Recordset.EOF
            Me.ProgressBar1.Value = Adodc1.Recordset.AbsolutePosition
            KM_Number = Trim(Adodc1.Recordset.Fields("編碼"))
            KM_Name = Adodc1.Recordset.Fields("名稱")
            JF_jiner = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額")
            JF_jiner2 = Adodc1.Recordset.Fields("現(xiàn)金")
            JF_jiner3 = Adodc1.Recordset.Fields("信用卡")
            JF_jiner4 = Adodc1.Recordset.Fields("掛帳")
            Adodc3.ConnectionString = My_PROVIDER
            Adodc3.CommandType = adCmdText
            Adodc3.RecordSource = "select * from 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "'"
            Adodc3.Refresh
            MsgBox Adodc3.Recordset.RecordCount
            If Adodc3.Recordset.RecordCount > 0 Then
                Adodc3.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc3.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
                Adodc3.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc3.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
                Adodc3.Recordset.Fields("現(xiàn)金") = Adodc3.Recordset.Fields("現(xiàn)金") + JF_jiner2
                Adodc3.Recordset.Fields("信用卡") = Adodc3.Recordset.Fields("信用卡") + JF_jiner3
                Adodc3.Recordset.Fields("掛帳") = Adodc3.Recordset.Fields("掛帳") + JF_jiner4
                Adodc3.Recordset.Update
            Else
                Adodc3.Recordset.AddNew
                Adodc3.Recordset.Fields("日期") = System_Date
                Adodc3.Recordset.Fields("編碼") = KM_Number
                Adodc3.Recordset.Fields("名稱") = KM_Name
                Adodc3.Recordset.Fields("當(dāng)日發(fā)生額") = JF_jiner
                Adodc3.Recordset.Fields("現(xiàn)金") = JF_jiner2
                Adodc3.Recordset.Fields("信用卡") = F_jiner3
                Adodc3.Recordset.Fields("掛帳") = JF_jiner4
                
                Adodc3.Recordset.Update
                Adodc3.Recordset.Close
            End If
            Adodc1.Recordset.MoveNext
        Wend
    
    End If
    Adodc1.Recordset.Close

End Sub
Private Sub Account2()
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "9999' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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("當(dāng)日發(fā)生額") = JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If
End Sub
Private Sub Account4()
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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("當(dāng)日發(fā)生額") = JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + JF_jiner
            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 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "9999' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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("當(dāng)日發(fā)生額") = JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + JF_jiner
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If

End Sub

Private Sub Account6()
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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("當(dāng)日發(fā)生額") = JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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("當(dāng)日發(fā)生額") = JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + JF_jiner
            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 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "9999' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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("當(dāng)日發(fā)生額") = JF_jiner
            If Pay_Type = "預(yù)付款扣" Then Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + 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 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "9999' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner
            Select Case Pay_Type
            Case "付現(xiàn)金"
                Adodc1.Recordset.Fields("現(xiàn)金") = Adodc1.Recordset.Fields("現(xiàn)金") + JF_jiner
            Case "預(yù)付款扣"
                Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + JF_jiner
            Case "掛帳"
                Adodc1.Recordset.Fields("掛帳") = Adodc1.Recordset.Fields("掛帳") + JF_jiner
            Case "轉(zhuǎn)帳"
                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("當(dāng)日發(fā)生額") = JF_jiner
            Select Case Pay_Type
            Case "付現(xiàn)金"
                Adodc1.Recordset.Fields("現(xiàn)金") = Adodc1.Recordset.Fields("現(xiàn)金") + JF_jiner
            Case "預(yù)付款扣"
                Adodc1.Recordset.Fields("未結(jié)帳") = Adodc1.Recordset.Fields("未結(jié)帳") + JF_jiner
            Case "掛帳"
                Adodc1.Recordset.Fields("掛帳") = Adodc1.Recordset.Fields("掛帳") + JF_jiner
            Case "轉(zhuǎn)帳"
                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 日營業(yè)收入報(bào)表 where 編碼 like '" & KM_Number & "' order by 編碼"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") + JF_jiner
            Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計(jì)") + JF_jiner