dt_kfhf.frm

一个简单的酒店管理系统 用VB.net+SQL2000实现

                        tx_xzh.SetFocus
                        temp_ft = False
                    Else
                        If MsgBox("是否换入同住", vbOKCancel, "换房") = vbOK Then
                            fm_xfz.Enabled = True
                            Set krqd_recXFZR = PUB_data.OpenRecordset("SELECT KF_FZ,KF_FWF FROM DT_KRQD WHERE TRIM(ZH)='" & Left(Trim(tx_xzh.Text), 4) & "'", 4, 0, 2)
                            If Not krqd_recXFZR.BOF Then
                                krqd_recXFZR.MoveLast
                                tx_kf_fz_x.Text = krqd_recXFZR.Fields("KF_FZ")
                                tx_kf_fwf_x.Text = krqd_recXFZR.Fields("KF_FWF")
                            Else
                                tx_kf_fz_x.Text = 0
                                tx_kf_fwf_x.Text = 0
                            End If
                            krqd_recXFZR.Close
                        
                            '生成换房人的非付帐人房号
                            Set krqd_recFFZ = PUB_data.OpenRecordset("SELECT ZH FROM DT_KRQD WHERE LEFT(TRIM(ZH),4)='" & Left(Trim(tx_xzh.Text), 4) & "' ORDER BY ZH", 4, 0, 2)
                            If Not krqd_recFFZ.BOF Then
                                krqd_recFFZ.MoveLast
                                krqd_recFFZ.MoveFirst
                                
                                i = 65
                                Do While True
                                    krqd_recFFZ.FindFirst "TRIM(ZH)='" & Left(Trim(tx_xzh.Text), 4) + Chr(i) & "'"
                                    If krqd_recFFZ.NoMatch Then  '找到
                                        i = i + 1
                                    Else    '未找到
                                        Exit Do
                                    End If
                                Loop
                            End If
                            krqd_recFFZ.Close
                            
                            tx_xzh.Text = Left(Trim(tx_xzh.Text), 4) & Chr(i)
                        
                        Else
                            frm_msg.Visible = True
                            frm_msg.Caption = "不换入同住"
                            tx_xzh.SetFocus
                            temp_ft = False
                        End If
                    End If
                End If
                fjk_rec.Close
            Else    '住客类型不相同
                frm_msg.Visible = True
                frm_msg.Caption = "新旧房间的客人住客类型不一致, 不能换入同住"
                tx_xzh.SetFocus
                temp_ft = False
            End If
        Else    '团队号不相同
            frm_msg.Visible = True
            frm_msg.Caption = "团队号不一致, 不能换入同住"
            tx_xzh.SetFocus
            temp_ft = False
        End If
    
    Else    '新房未住人
        kfhf_kfrs_x = 0
        Set ftk_rec = PUB_data.OpenRecordset("SELECT * FROM KF_FTK WHERE TRIM(KF_FH)='" & Left(Trim(tx_xzh.Text), 4) & "'", 4, 0, 2)
        If Not ftk_rec.BOF Then
            ftk_rec.MoveLast
            If ftk_rec.Fields("KF_ZR") = "0" And ftk_rec.Fields("KF_ZF") = "0" And ftk_rec.Fields("KF_GZ") = "0" And ftk_rec.Fields("KF_NB") = "0" And ftk_rec.Fields("KF_WX") = "0" Then
                lb_xkf_lxc = SYS_LXC(ftk_rec.Fields("KF_LXN"))
                lb_xfmsg.Caption = "这是一间空房"
                
                tx_xzh.Text = Left(Trim(tx_xzh.Text), 4)
                
                kfhf_kf_lxn_x = ftk_rec.Fields("KF_LXN")
                kfhf_fls_x(kfhf_kf_lxn_x) = 1
                kfhf_ldrq_x = kfhf_ldrq_y
                kfhf_zklx_x = kfhf_zklx_y
        
                
                If kfhf_kf_lxn_y <> kfhf_kf_lxn_x Then
                    If Pub_free(Date, kfhf_ldrq_x, kfhf_fls_x, kfhf_zklx_y, pub_code) Then
                        '判断客房定员
                        Set fjk_rec = PUB_data.OpenRecordset("SELECT * FROM KF_FJK WHERE KF_LXN=" & kfhf_kf_lxn_x, 4, 0, 2)
                        If Not fjk_rec.BOF Then
                            fjk_rec.MoveLast
                            If kfhf_kfrs_y > fjk_rec.Fields("KF_DY") Then
                                frm_msg.Visible = True
                                frm_msg.Caption = "该房间已超员, 不能再换入客人"
                                tx_xzh.SetFocus
                                temp_ft = False
                            Else
                                If Len(Trim(tx_yzh.Text)) = 4 Then    '换房人为付帐人时
                                    tx_kf_fz_x.Text = tx_kf_fz_y.Text
                                    tx_kf_fwf_x.Text = tx_kf_fwf_y.Text
                                Else
                                    tx_kf_fz_x.Text = fjk_rec.Fields("KF_BZJ")
                                    tx_kf_fwf_x.Text = Format(fjk_rec.Fields("KF_BZJ") * SYS_FWF_KF, "0.00")
                                End If
                            End If
                        End If
                        fjk_rec.Close
                    Else
                        If MsgBox("该类型客房已被预订, 是否继续?", vbOKCancel, "换房") = vbOK Then
                            '判断客房定员
                            Set fjk_rec = PUB_data.OpenRecordset("SELECT * FROM DT_FJK WHERE KF_LXN=" & kfhf_kf_lxn_x, 4, 0, 2)
                            If Not fjk_rec.BOF Then
                                fjk_rec.MoveLast
                                If kfhf_kfrs_y > fjk_rec.Fields("KF_DY") Then
                                    frm_msg.Visible = True
                                    frm_msg.Caption = "该房间已超员, 不能再换入客人"
                                    tx_xzh.SetFocus
                                    temp_ft = False
                                Else
                                    If Len(Trim(tx_yzh.Text)) = 4 Then    '换房人为付帐人时
                                        tx_kf_fz_x.Text = tx_kf_fz_y.Text
                                        tx_kf_fwf_x.Text = tx_kf_fwf_y.Text
                                    Else
                                        tx_kf_fz_x.Text = fjk_rec.Fields("KF_BZJ")
                                        tx_kf_fwf_x.Text = Format(fjk_rec.Fields("KF_BZJ") * SYS_FWF_KF, "0.00")
                                    End If
                                End If
                            End If
                            fjk_rec.Close
                        Else
                            frm_msg.Visible = True
                            frm_msg.Caption = "放弃换房"
                            tx_xzh.SetFocus
                            temp_ft = False
                        End If
                    End If
                End If
            Else
                frm_msg.Visible = True
                frm_msg.Caption = "该客房不是可卖房"
                tx_xzh.SetFocus
                temp_ft = False
            End If
        Else
            frm_msg.Visible = True
            frm_msg.Caption = "房号输入有误"
            tx_xzh.SetFocus
            temp_ft = False
        End If
        ftk_rec.Close
    
    End If
    krqd_rec.Close
        
    If Not temp_ft Then
        lb_xfmsg.Caption = ""
        lb_xkr_x.Caption = ""
        lb_xkr_m.Caption = ""
        lb_xyw_x.Caption = ""
        lb_xyw_m.Caption = ""
        lb_xgjmc.Caption = ""
        lb_xkr_xbmc.Caption = ""
        tx_kf_fz_x.Text = 0
        tx_kf_fwf_x = 0
        
        Call tPkjEnabled(False)
        CMD_HF.Enabled = False
    Else
        fm_xfz.Enabled = True
        Call Flex_full(gd_yzh, kfhf_bt_y, zy_recYF, kfhf_fields_y, kfhf_fdcounts_y - 1, kfhf_fdxs_y)
        Call Flex_full(gd_xzh, kfhf_bt_x, zy_recXF, kfhf_fields_x, kfhf_fdcounts_x - 1, kfhf_fdxs_x)
        If op_qb(0).Value Then
            Call tPkjEnabled(True)
        Else
            Call tPkjEnabled(False)
        End If
        CMD_HF.Enabled = True
    End If
    
End Sub

Private Sub tx_yzh_GotFocus()
    fm_yfz.Enabled = False
    tx_kf_fz_y.Text = 0
    tx_kf_fz_y.Text = 0
    CMD_HF.Enabled = False
End Sub

Private Sub tx_yzh_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
    Case vbKeyDown, vbKeyReturn
        If op_qb(0).Value Then
            op_qb(0).SetFocus
        Else
            op_qb(1).SetFocus
        End If
    End Select
End Sub

'**************************************************************************************************
'*  功    能 : 输入原房号并校验其房号的正确性
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.28
'*  修改日期 : 1999.03.28
'**************************************************************************************************
Private Sub tx_yzh_LostFocus()
    Dim krqd_rec As Recordset
    Dim krqd_recFZR As Recordset
    Dim krqd_recRS As Recordset
    
    frm_msg.Visible = False
    frm_msg.Caption = ""
    
    kfhf_yzhft = False
    
    If Len(Trim(tx_yzh.Text)) >= 4 Then
        Set krqd_rec = PUB_data.OpenRecordset("SELECT * FROM DT_KRQD WHERE TRIM(ZH)='" & Trim(tx_yzh.Text) & "'", 4, 0, 2)
        If Not krqd_rec.BOF Then
            krqd_rec.MoveLast
            lb_ykr_x.Caption = Trim(krqd_rec.Fields("KR_X"))
            lb_ykr_m.Caption = Trim(krqd_rec.Fields("KR_M"))
            lb_yyw_x.Caption = Trim(krqd_rec.Fields("YW_X"))
            lb_yyw_m.Caption = Trim(krqd_rec.Fields("YW_M"))
            lb_ykr_xbmc.Caption = Trim(krqd_rec.Fields("KR_XBMC"))
            lb_ygjmc.Caption = Trim(krqd_rec.Fields("GJMC"))
            
            '保存换房人的信息
            kfhf_zklx_y = krqd_rec.Fields("ZKLX")
            kfhf_kf_lxn_y = krqd_rec.Fields("KF_LXN")
            lb_ykf_lxc = SYS_LXC(kfhf_kf_lxn_y)
            kfhf_ldrq_y = krqd_rec.Fields("LDRQ")
            kfhf_td_zh_y = Trim(krqd_rec.Fields("TD_ZH"))
            kfhf_kr_dj_y = krqd_rec.Fields("KR_DJ")
            kfhf_zxfe_y = krqd_rec.Fields("ZXFE")
            
            '统计原房人数
            Set krqd_recRS = PUB_data.OpenRecordset("SELECT COUNT(*) AS KFHF_YFRS FROM DT_KRQD WHERE LEFT(TRIM(ZH),4)='" & Left(Trim(tx_yzh.Text), 4) & "'", 4, 0, 2)
            If Not krqd_recRS.BOF Then
                krqd_recRS.MoveLast
                kfhf_kfrs_y = krqd_recRS.Fields("KFHF_YFRS")
            End If
            krqd_recRS.Close
            
            '读取换房房间付帐人的房租和服务费
            Set krqd_recFZR = PUB_data.OpenRecordset("SELECT KF_FZ,KF_FWF FROM DT_KRQD WHERE TRIM(ZH)='" & Left(Trim(tx_yzh.Text), 4) & "'", 4, 0, 2)
            If Not krqd_recFZR.BOF Then
                tx_kf_fz_y.Text = krqd_recFZR.Fields("KF_FZ")
                tx_kf_fwf_y.Text = krqd_recFZR.Fields("KF_FWF")
            Else
                tx_kf_fz_y.Text = 0
                tx_kf_fwf_y.Text = 0
            End If
            krqd_recFZR.Close
            
            fm_yfz.Enabled = True
            
            kfhf_yzhft = True
            
            Set zy_recYF = PUB_data.OpenRecordset("SELECT * FROM W" & Left(Trim(tx_yzh.Text), 4) & " WHERE CZBJ='0' AND JS_FT='0' AND CLYDM='***'", 4, 0, 2)
            If Not zy_recYF.BOF Then
                zy_recYF.MoveLast
            End If
            kfhf_opYF = True
            
            Set zy_recXF = PUB_data.OpenRecordset("SELECT * FROM W" & Left(Trim(tx_yzh.Text), 4) & " WHERE CZBJ='0' AND JS_FT='1' AND CLYDM='" & SYS_USER & "'", 4, 0, 2)
            If Not zy_recXF.BOF Then
                zy_recXF.MoveLast
            End If
            kfhf_opXF = True
            
            '处理选择本人还是全部换房
            If op_qb(0).Value Then
                Call op_qb_Click(0)
            Else
                Call op_qb_Click(1)
            End If
        Else
            frm_msg.Visible = True
            frm_msg.Caption = "没有该房号客人"
            tx_yzh.SetFocus
        End If
        krqd_rec.Close
    Else
        frm_msg.Visible = True
        frm_msg.Caption = "请输入正确的房号"
        tx_yzh.SetFocus
    End If
    
End Sub



'**************************************************************************************************
'*  功    能 : 客人换房时, 修改保险箱表及借用物品表
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.29
'*  修改日期 : 1999.03.29
'*  参数说明 : t_yzh    -- 原帐号
'*             t_Xzh    -- 新帐号
'*             pub_code -- 功能代码
'**************************************************************************************************
Private Sub tPjywpbxx(t_yzh As String, t_xzh As String, pub_code As String)
    Dim LOCK_REC As Recordset
        
    Dim krqd_rec As Recordset
    
    Dim t_tools As New HOTEL_TOOL.HOTEL_TOOLS
    Dim t_czlsh As String
    
    Set LOCK_REC = PUB_data.OpenRecordset("select * from SYS_LOCK", 2, 0, 2)
    LOCK_REC.FindFirst "TRIM(TABLENAME)='ZW_BXXK'"
    Do While LOCK_REC!CZY <> SYS_USER
        If LOCK_REC!CZY = "***" Then
            LOCK_REC.Edit
            LOCK_REC!CZY = SYS_USER
            LOCK_REC.Update
        Else
            Call t_tools.pub_msg("保险箱表正被其他人使用，请稍后")
            LOCK_REC.Requery
            LOCK_REC.FindFirst "TRIM(TABLENAME)='ZW_BXXK'"
        End If
    Loop
    t_czlsh = Pub_czls(PUB_data, "DT_KFHF", Time(), pub_code)
    ZW_data.Execute "UPDATE ZW_BXXK SET ZH='" & Trim(t_xzh) & "' WHERE TRIM(ZH)='" & Trim(t_yzh) & "'"
    Call Pub_czle(PUB_data, t_czlsh, "保险箱表中 帐号由" & Trim(t_yzh) & "变更为" & Trim(t_xzh) & "成功", Time(), pub_code)
    LOCK_REC.Edit
    LOCK_REC!CZY = "***"
    LOCK_REC.Update
        
    LOCK_REC.FindFirst "TRIM(TABLENAME)='ZW_BXXLS'"
    Do While LOCK_REC!CZY <> SYS_USER
        If LOCK_REC!CZY = "***" Then
            LOCK_REC.Edit
            LOCK_REC!CZY = SYS_USER
            LOCK_REC.Update
        Else
            Call t_tools.pub_msg("保险箱流水表正被其他人使用，请稍后")
            LOCK_REC.Requery
            LOCK_REC.FindFirst "TRIM(TABLENAME)='ZW_BXXLS'"
        End If
    Loop
    t_czlsh = Pub_czls(PUB_data, "DT_KFHF", Time(), pub_code)
    ZW_data.Execute "UPDATE ZW_BXXLS SET ZH='" & Trim(t_xzh) & "' WHERE TRIM(ZH)='" & T