main_kfgl_sz.frm

星级酒店客房管理系统一套很不错的系统

         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":26AF0
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":28642
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":2A194
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":2BCE6
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":2D838
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":2F38A
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":30EDC
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":32A2E
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":34580
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":360D2
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":37C24
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":39776
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":3B2C8
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":3CE1A
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":3E96C
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":404BE
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":42010
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":43B62
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":456B4
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":47206
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":48D58
            Key             =   ""
         EndProperty
         BeginProperty ListImage26 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":4A8AA
            Key             =   ""
         EndProperty
         BeginProperty ListImage27 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":4C3FC
            Key             =   ""
         EndProperty
         BeginProperty ListImage28 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":4DF4E
            Key             =   ""
         EndProperty
         BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":4FAA0
            Key             =   ""
         EndProperty
         BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":515F2
            Key             =   ""
         EndProperty
         BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":53144
            Key             =   ""
         EndProperty
         BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":54C96
            Key             =   ""
         EndProperty
         BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":567E8
            Key             =   ""
         EndProperty
         BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":5833A
            Key             =   ""
         EndProperty
         BeginProperty ListImage35 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":59E8C
            Key             =   ""
         EndProperty
         BeginProperty ListImage36 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":5B9DE
            Key             =   ""
         EndProperty
         BeginProperty ListImage37 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":5D530
            Key             =   ""
         EndProperty
         BeginProperty ListImage38 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":5F082
            Key             =   ""
         EndProperty
         BeginProperty ListImage39 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":60BD4
            Key             =   ""
         EndProperty
         BeginProperty ListImage40 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":62726
            Key             =   ""
         EndProperty
         BeginProperty ListImage41 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":64278
            Key             =   ""
         EndProperty
         BeginProperty ListImage42 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":65DCA
            Key             =   ""
         EndProperty
         BeginProperty ListImage43 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":6791C
            Key             =   ""
         EndProperty
         BeginProperty ListImage44 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":6946E
            Key             =   ""
         EndProperty
         BeginProperty ListImage45 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":6AFC0
            Key             =   ""
         EndProperty
         BeginProperty ListImage46 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":6CB12
            Key             =   ""
         EndProperty
         BeginProperty ListImage47 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":6E664
            Key             =   ""
         EndProperty
         BeginProperty ListImage48 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":701B6
            Key             =   ""
         EndProperty
         BeginProperty ListImage49 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":71D08
            Key             =   ""
         EndProperty
         BeginProperty ListImage50 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":7385A
            Key             =   ""
         EndProperty
         BeginProperty ListImage51 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":753AC
            Key             =   ""
         EndProperty
         BeginProperty ListImage52 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_sz.frx":76EFE
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "main_kfgl_sz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim FAccount_id As String
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 Command11_Click()
Picture1.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("平衡金额") - ZZJ