?? 夜審操作.frm

?? 很不錯的酒店管理系統(tǒng),用的是本地數(shù)據(jù)庫.初始話文件用了讀取DAT文件的方式.很有參考價值.
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
            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
        KM_Number = Left(KM_Number, 2)
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報表 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ā)生額累計") = 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
        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 JAccount6()
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報表 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ā)生額累計") = 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
        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è)收入報表 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ā)生額累計") = 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
        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
        
        KM_Number = Left(KM_Number, 2)
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報表 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ā)生額累計") = 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
        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 ppd()
'結(jié)帳匯總
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報表 where 名稱 like '" & KM_Name & "' 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ā)生額累計") = 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
        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 p20030101()
'餐廳營業(yè)匯總,非食品類
    Adodc3.ConnectionString = My_PROVIDER
    Adodc3.CommandType = adCmdText
    Adodc3.RecordSource = "select * from 營業(yè)清單 where 日期 like '" & System_Date & "' and 編號<>'4001'"
    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
        KM_Number = Trim(Adodc3.Recordset.Fields("編號"))
        KM_Name = "餐飲部"
        JF_jiner = Adodc3.Recordset.Fields("實收金額")
        KM_NumberLen = Len(Trim(KM_Number))
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報表 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ā)生額累計") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計") + 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
            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è)收入報表 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ā)生額累計") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計") + 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
            Adodc1.Recordset.Update
            Adodc1.Recordset.Close
        End If

        Adodc3.Recordset.MoveNext
    Wend
    Adodc3.Recordset.Close
    End If
        
        
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 日營業(yè)收入報表 where 編碼 like '409999'"
    Adodc1.Refresh
    JF_jiner2 = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額")
    JF_jiner3 = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計")
    Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = 0
    Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計") = 0
    Adodc1.Recordset.Update
    Adodc1.Recordset.Close

'餐廳營業(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("支付方式")
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日營業(yè)收入報表 where 編碼 like '409999'"
        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ā)生額累計") = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計") + 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

    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 日營業(yè)收入報表 where 編碼 like '409999'"
    Adodc1.Refresh
    JF_jiner4 = Adodc1.Recordset.Fields("當(dāng)日發(fā)生額")
    JF_jiner5 = Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計")
    Adodc1.Recordset.Close

    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 日營業(yè)收入報表 where 編碼 like '4001'"
    Adodc1.Refresh
    Adodc1.Recordset.Fields("當(dāng)日發(fā)生額") = JF_jiner4 - JF_jiner2
    Adodc1.Recordset.Fields("當(dāng)月發(fā)生額累計") = JF_jiner5 - JF_jiner3
    Adodc1.Recordset.Update
    Adodc1.Recordset.Close


End Sub
上一頁 1 23
?? 文件大小 546 K
?? 上傳用戶 zwaheron
?? 所屬分類酒店行業(yè)
??? 相關(guān)標(biāo)簽

#DAT #管理系統(tǒng) #本地數(shù)據(jù)庫 #方式
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 夜審操作.frm

?? 快捷鍵說明
