输帐.frm

本站资料仅为大家学习之用

Dim FAccount_line As Long
Dim Fname As String
Dim Room_Rate1 As Currency
Dim Table_Name2 As String
Dim Table_Name3 As String
Dim ZHAccount_id As String
Dim ZH_Type As String
Dim JinEr2 As Currency
Dim FAccount_REC As Long

Private Sub Command1_Click()
Dim DuiYin_KeMu As String
On Error GoTo E200381
    If CCur(Me.Text1.Text) = 0 Then
        MsgBox "金额不能为0，请重新输入！", 48, "提示"
        Me.Text1.SetFocus
        Exit Sub
    End If
    Adodc1.Recordset.Fields("帐务笔数") = Adodc1.Recordset.Fields("帐务笔数") + 1
    Adodc1.Recordset.Update
    FAccount_id = Adodc1.Recordset.Fields("帐号")
    FAccount_line = Adodc1.Recordset.Fields("帐务笔数")
    Fname = Adodc1.Recordset.Fields("姓名")
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields("帐号") = FAccount_id
    Adodc3.Recordset.Fields("行") = FAccount_line
    Adodc3.Recordset.Fields("日期") = System_Date
    Adodc3.Recordset.Fields("时间") = Left(Time, 5)
    Adodc3.Recordset.Fields("房号") = Adodc1.Recordset.Fields("房号")
    Adodc3.Recordset.Fields("姓名") = Adodc1.Recordset.Fields("姓名")
    Adodc3.Recordset.Fields("币种") = Me.Combo5.Text
    Adodc3.Recordset.Fields("支付方式") = Trim(Me.Combo1.Text)
    If Adodc2.Recordset.Fields("借贷方") = "借方" Then
        Adodc3.Recordset.Fields("科目编码") = Adodc2.Recordset.Fields("编码")
        Adodc3.Recordset.Fields("科目名称") = Adodc2.Recordset.Fields("名称")
        Adodc3.Recordset.Fields("借方") = CCur(Me.Text1.Text)
        Adodc3.Recordset.Fields("操作员") = CzyName
        Adodc3.Recordset.Update
        Adodc1.Recordset.Fields("平衡金额") = Adodc1.Recordset.Fields("平衡金额") + CCur(Me.Text1.Text)
    Else
        Adodc3.Recordset.Fields("科目编码") = Adodc2.Recordset.Fields("编码")
        Adodc3.Recordset.Fields("科目名称") = Adodc2.Recordset.Fields("名称")
        Adodc3.Recordset.Fields("贷方") = CCur(Me.Text1.Text)
        Adodc3.Recordset.Fields("操作员") = CzyName
        Adodc3.Recordset.Update
        Adodc1.Recordset.Fields("平衡金额") = Adodc1.Recordset.Fields("平衡金额") - CCur(Me.Text1.Text)
    End If
    Select Case Adodc2.Recordset.Fields("类别")
    Case "预付类"
        Adodc1.Recordset.Fields("预付款") = Adodc1.Recordset.Fields("预付款") + CCur(Me.Text1.Text)
    Case "费用类"
        Adodc1.Recordset.Fields("费用类") = Adodc1.Recordset.Fields("费用类") + CCur(Me.Text1.Text)
        Select Case Adodc2.Recordset.Fields("名称")
        Case "全日房"
            Adodc1.Recordset.Fields("房租") = Adodc1.Recordset.Fields("房租") + CCur(Text1)
            Adodc1.Recordset.Fields("全日房") = Adodc1.Recordset.Fields("全日房") + CCur(Text1)
        Case "半日房"
            Adodc1.Recordset.Fields("房租") = Adodc1.Recordset.Fields("房租") + CCur(Text1)
            Adodc1.Recordset.Fields("半日房") = Adodc1.Recordset.Fields("半日房") + CCur(Text1)
        Case "钟点房"
            Adodc1.Recordset.Fields("房租") = Adodc1.Recordset.Fields("房租") + CCur(Text1)
            Adodc1.Recordset.Fields("钟点房") = Adodc1.Recordset.Fields("钟点房") + CCur(Text1)
        Case "电话费"
        End Select
    End Select
    Adodc1.Recordset.Fields("最后结帐标志") = Trim(Me.Combo1.Text)
    Adodc1.Recordset.Update

    
    DuiYin_KeMu = Adodc2.Recordset.Fields("名称")
    
    If Me.Combo1.Text <> "预付款扣" Then
    If Adodc2.Recordset.Fields("类别") = "费用类" Then
        Adodc1.Recordset.Fields("帐务笔数") = Adodc1.Recordset.Fields("帐务笔数") + 1
        Adodc1.Recordset.Update
        FAccount_id = Adodc1.Recordset.Fields("帐号")
        FAccount_line = Adodc1.Recordset.Fields("帐务笔数")
        Fname = Adodc1.Recordset.Fields("姓名")
        Adodc3.Recordset.AddNew
        Adodc3.Recordset.Fields("帐号") = FAccount_id
        Adodc3.Recordset.Fields("行") = FAccount_line
        Adodc3.Recordset.Fields("日期") = System_Date
        Adodc3.Recordset.Fields("时间") = Left(Time, 5)
        Adodc3.Recordset.Fields("房号") = Adodc1.Recordset.Fields("房号")
        Adodc3.Recordset.Fields("姓名") = Adodc1.Recordset.Fields("姓名")
        Adodc3.Recordset.Fields("币种") = Me.Combo5.Text
        Adodc3.Recordset.Fields("支付方式") = Trim(Me.Combo1.Text)
        Adodc3.Recordset.Fields("科目编码") = ""
        Adodc3.Recordset.Fields("科目名称") = Combo1
        Adodc3.Recordset.Fields("对应科目") = DuiYin_KeMu
        Adodc3.Recordset.Fields("贷方") = CCur(Me.Text1.Text)
        Adodc1.Recordset.Fields("平衡金额") = Adodc1.Recordset.Fields("平衡金额") - CCur(Me.Text1.Text)
        Adodc1.Recordset.Fields("预付款") = Adodc1.Recordset.Fields("预付款") + CCur(Me.Text1.Text)
    
        Adodc3.Recordset.Fields("操作员") = CzyName
        Adodc3.Recordset.Update
    End If
    End If
    Me.Text1.Text = 0
    Exit Sub
E200381:
MsgBox "您可能未选择帐户！", 64, "提示"

End Sub

Private Sub Command10_Click()
    Me.Picture3.Visible = False
End Sub


Private Sub Command2_Click()
    Dim ZZ(20)
    Dim i As Integer
    Dim ZZJiner As Currency
    Dim JDF As String
    Dim ZHAccount_id2 As String
    '从字段中读出
    For i = 0 To Adodc3.Recordset.Fields.Count - 1
        ZZ(i) = Adodc3.Recordset.Fields(i)
    Next
    
    ZHAccount_id2 = Adodc3.Recordset.Fields("帐号")
    
    If Adodc3.Recordset.Fields("借方") = 0 Or IsNull(Adodc3.Recordset.Fields("借方")) Then
        ZZJiner = Adodc3.Recordset.Fields("贷方")
        JDF = "贷方"
    Else
        ZZJiner = Adodc3.Recordset.Fields("借方")
        JDF = "借方"
    End If
    If CCur(Me.Text6.Text) > ZZJiner Then
    '大于
        MsgBox "金额大于所分帐的帐项金额，不能分帐！", 48, "提示"
        Me.Text6.SetFocus
    Else
        '等于
        If CCur(Me.Text6.Text) = ZZJiner Then
            Adodc3.Recordset.Fields("调整") = ZHAccount_id2 & "分入" & Me.Text6.Text & "元"
            Adodc3.Recordset.Fields("帐号") = Me.Text3.Text
            Adodc3.Recordset.Update
            If JDF = "借方" Then
                Adodc1.Recordset.Fields("平衡金额") = Adodc1.Recordset.Fields("平衡金额") - ZZJiner
                Adodc1.Recordset.Fields("费用类") = Adodc1.Recordset.Fields("费用类") - ZZJiner
                Adodc1.Recordset.Fields("帐务笔数") = Adodc1.Recordset.Fields("帐务笔数") - 1
                Adodc1.Recordset.Update
                Adodc1.Recordset.Close
                Set DataGrid1.DataSource = Nothing
                '记对方金额
                Adodc4.ConnectionString = My_PROVIDER
                Adodc4.CommandType = adCmdText
                Adodc4.RecordSource = "select * from 住宿情况  where 帐号 like '" & Me.Text3.Text & "'"
                Adodc4.Refresh
                Adodc4.Recordset.Fields("平衡金额") = Adodc4.Recordset.Fields("平衡金额") + ZZJiner
                Adodc4.Recordset.Fields("费用类") = Adodc4.Recordset.Fields("费用类") + ZZJiner
                Adodc4.Recordset.Fields("帐务笔数") = Adodc4.Recordset.Fields("帐务笔数") + 1
                Adodc4.Recordset.Update
                Adodc4.Recordset.Close
            Else
                Adodc1.Recordset.Fields("平衡金额") = Adodc1.Recordset.Fields("平衡金额") + ZZJiner
                Adodc1.Recordset.Fields("预付款") = Adodc1.Recordset.Fields("预付款") - ZZJiner
                Adodc1.Recordset.Fields("帐务笔数") = Adodc1.Recordset.Fields("帐务笔数") - 1
                Adodc1.Recordset.Update
                Adodc1.Recordset.Close
                Set DataGrid1.DataSource = Nothing
                Adodc4.ConnectionString = My_PROVIDER
                Adodc4.CommandType = adCmdText
                Adodc4.RecordSource = "select * from 住宿情况  where 帐号 like '" & Me.Text3.Text & "'"
                Adodc4.Refresh
                Adodc4.Recordset.Fields("平衡金额") = Adodc4.Recordset.Fields("平衡金额") + ZZJiner
                Adodc4.Recordset.Fields("预付款") = Adodc4.Recordset.Fields("预付款") + ZZJiner
                Adodc4.Recordset.Fields("帐务笔数") = Adodc4.Recordset.Fields("帐务笔数") + 1
                Adodc4.Recordset.Update
                Adodc4.Recordset.Close
            End If
                    MsgBox "分帐操作成功！", 64, "提示"
                    '重新刷屏
                    Adodc1.ConnectionString = My_PROVIDER
                    Adodc1.CommandType = adCmdText
                    Adodc1.RecordSource = "select 帐号,姓名,当前状态,房号,平衡金额,预付款,费用类,房租,全日房,半日房,钟点房,电话费,餐费,其他,帐务笔数,英文姓名,性别,客人类别,到店日期,到店时间,离店日期,离店时间,天数,房价,结帐方式,挂帐金额,日期,证件号码,客人留言,资料性质,帐户名称,最后结帐标志 from 住宿情况 where 当前状态 like '入住' and 帐号<>'999999'"
                    Adodc1.Refresh
                    Adodc1.Recordset.Move FAccount_REC - 1
                    FAccount_id = Adodc1.Recordset.Fields("帐号")
                    Set DataGrid1.DataSource = Adodc1
                    DataGrid1.ReBind
                    DataGrid1.Refresh
                    DataGrid1.Columns(0).Width = 1
                    DataGrid1.Columns(2).Width = 800
                    DataGrid1.Columns(3).Width = 500
                    DataGrid1.Columns(4).Width = 700
                    DataGrid1.Columns(5).Width = 700
                    DataGrid1.Columns(6).Width = 700
                       
                    Adodc3.ConnectionString = My_PROVIDER
                    Adodc3.CommandType = adCmdText
                    Adodc3.RecordSource = "select * from 帐务记录 where 帐号 like '" & FAccount_id & "' order by 行"
                    Adodc3.Refresh
                    Set DataGrid3.DataSource = Adodc3
                    DataGrid3.ReBind
                    DataGrid3.Refresh
                    DataGrid3.Columns(0).Width = 1
                    DataGrid3.Columns(1).Width = 500
                    DataGrid3.Columns(2).Width = 1000
                    DataGrid3.Columns(3).Width = 1200
                    DataGrid3.Columns(4).Width = 1200
                    DataGrid3.Columns(9).Width = 1200
        Else
        '小于
            If JDF = "借方" Then
                Adodc3.Recordset.Fields("借方") = Adodc3.Recordset.Fields("借方") - CCur(Me.Text6.Text)
                Adodc3.Recordset.Fields("调整") = "分" & Me.Text6.Text & "元到" & Me.Text3.Text
                Adodc3.Recordset.AddNew
                For i = 0 To Adodc3.Recordset.Fields.Count - 1
                    Adodc3.Recordset.Fields(i) = ZZ(i)
                Next
                Adodc3.Recordset.Fields("借方") = CCur(Me.Text6.Text)
                Adodc3.Recordset.Fields("调整") = "从" & Adodc3.Recordset.Fields("帐号") & "分入" & Me.Text6.Text & "元"
                Adodc3.Recordset.Fields("帐号") = Me.Text3.Text
                Adodc3.Recordset.Update
                
                Adodc1.Recordset.Fields("平衡金额") = Adodc1.Recordset.Fields("平衡金额") - CCur(Me.Text6.Text)
                Adodc1.Recordset.Fields("费用类") = Adodc1.Recordset.Fields("费用类") - CCur(Me.Text6.Text)
                Adodc1.Recordset.Fields("帐务笔数") = Adodc1.Recordset.Fields("帐务笔数") - 1
                Adodc1.Recordset.Update
                Adodc1.Recordset.Close
                Set DataGrid1.DataSource = Nothing
                '记对方金额
                Adodc4.ConnectionString = My_PROVIDER
                Adodc4.CommandType = adCmdText
                Adodc4.RecordSource = "select * from 住宿情况  where 帐号 like '" & Me.Text3.Text & "'"
                Adodc4.Refresh
                Adodc4.Recordset.Fields("平衡金额") = Adodc4.Recordset.Fields("平衡金额") + CCur(Me.Text6.Text)
                Adodc4.Recordset.Fields("费用类") = Adodc4.Recordset.Fields("费用类") + CCur(Me.Text6.Text)
                Adodc4.Recordset.Fields("帐务笔数") = Adodc4.Recordset.Fields("帐务笔数") + 1
                Adodc4.Recordset.Update
                Adodc4.Recordset.Close
            Else
                Adodc3.Recordset.Fields("贷方") = Adodc3.Recordset.Fields("贷方") - CCur(Me.Text6.Text)
                Adodc3.Recordset.Fields("调整") = "分" & Me.Text6.Text & "元到" & Me.Text3.Text
                Adodc3.Recordset.AddNew
                For i = 0 To Adodc3.Recordset.Fields.Count - 1
                    Adodc3.Recordset.Fields(i) = ZZ(i)
                Next
                Adodc3.Recordset.Fields("贷方") = CCur(Me.Text6.Text)
                Adodc3.Recordset.Fields("调整") = "从" & Adodc3.Recordset.Fields("帐号") & "分入" & Me.Text6.Text & "元"
                Adodc3.Recordset.Fields("帐号") = Me.Text3.Text
                Adodc3.Recordset.Update
                
                Adodc1.Recordset.Fields("平衡金额") = Adodc1.Recordset.Fields("平衡金额") + CCur(Me.Text6.Text)
                Adodc1.Recordset.Fields("预付款") = Adodc1.Recordset.Fields("预付款") - CCur(Me.Text6.Text)
                Adodc1.Recordset.Fields("帐务笔数") = Adodc1.Recordset.Fields("帐务笔数") - 1
                Adodc1.Recordset.Update
                Adodc1.Recordset.Close
                Set DataGrid1.DataSource = Nothing
                Adodc4.ConnectionString = My_PROVIDER
                Adodc4.CommandType = adCmdText
                Adodc4.RecordSource = "select * from 住宿情况  where 帐号 like '" & Me.Text3.Text & "'"
                Adodc4.Refresh
                Adodc4.Recordset.Fields("平衡金额") = Adodc4.Recordset.Fields("平衡金额") + CCur(Me.Text6.Text)
                Adodc4.Recordset.Fields("预付款") = Adodc4.Recordset.Fields("预付款") + CCur(Me.Text6.Text)
                Adodc4.Recordset.Fields("帐务笔数") = Adodc4.Recordset.Fields("帐务笔数") + 1
                Adodc4.Recordset.Update
                Adodc4.Recordset.Close
            End If
                    MsgBox "分帐操作成功！", 64, "提示"
                    '重新刷屏
                    Adodc1.ConnectionString = My_PROVIDER
                    Adodc1.CommandType = adCmdText
                    Adodc1.RecordSource = "select 帐号,姓名,当前状态,房号,平衡金额,预付款,费用类,房租,全日房,半日房,钟点房,电话费,餐费,其他,帐务笔数,英文姓名,性别,客人类别,到店日期,到店时间,离店日期,离店时间,天数,房价,结帐方式,挂帐金额,日期,证件号码,客人留言,资料性质,帐户名称,最后结帐标志 from 住宿情况 where 当前状态 like '入住' and 帐号<>'999999'"
                    Adodc1.Refresh
                    Adodc1.Recordset.Move FAccount_REC - 1
                    FAccount_id = Adodc1.Recordset.Fields("帐号")
                    Set DataGrid1.DataSource = Adodc1
                    DataGrid1.ReBind
                    DataGrid1.Refresh
                    DataGrid1.Columns(0).Width = 1
                    DataGrid1.Columns(2).Width = 800
                    DataGrid1.Columns(3).Width = 500
                    DataGrid1.Columns(4).Width = 700
                    DataGrid1.Columns(5).Width = 700
                    DataGrid1.Columns(6).Width = 700
                       
                    Adodc3.ConnectionString = My_PROVIDER
                    Adodc3.CommandType = adCmdText
                    Adodc3.RecordSource = "select * from 帐务记录 where 帐号 like '" & FAccount_id & "' order by 行"
                    Adodc3.Refresh
                    Set DataGrid3.DataSource = Adodc3
                    DataGrid3.ReBind
                    DataGrid3.Refresh
                    DataGrid3.Columns(0).Width = 1
                    DataGrid3.Columns(1).Width = 500
                    DataGrid3.Columns(2).Width = 1000
                    DataGrid3.Columns(3).Width = 1200
                    DataGrid3.Columns(4).Width = 1200
                    DataGrid3.Columns(9).Width = 1200

        End If
        
    End If
End Sub

Private Sub Command3_Click()
Dim Qaccount_Line As Long
Dim Fee(10) As Currency
Dim i As Integer
On Error GoTo E200342

For i = 0 To 9
    Fee(i) = 0
Next

    If KeyAscii = Asc(Chr(13)) Then
        Fee(0) = Adodc1.Recordset.Fields("平衡金额")
        Fee(1) = Adodc1.Recordset.Fields("费用类")
        Fee(2) = Adodc1.Recordset.Fields("预付款")
        Fee(9) = Adodc1.Recordset.Fields("帐务笔数")
        Account_ID = Adodc1.Recordset.Fields("帐号")
        Adodc9.ConnectionString = My_PROVIDER
        Adodc9.CommandType = adCmdText
        Adodc9.RecordSource = "select * from 客房  where 房号 like '" & Me.Text4.Text & "'"
        Adodc9.Refresh
        If Adodc9.Recordset.RecordCount = 1 Then
            QAccount_ID = Adodc9.Recordset.Fields("帐号")
            Me.Text5.Text = QAccount_ID
            If Not (QAccount_ID = "" Or IsNull(QAccount_ID)) Then
                Adodc4.ConnectionString = My_PROVIDER
                Adodc4.CommandType = adC