dt_krdj.frm

该系统为酒店日常管理提供了很大的方便

    
    m_kf_fz.Enabled = temp_ft
    m_kf_fwf.Enabled = temp_ft
    m_vip_dj.Enabled = temp_ft
    cm_dj_fkmc.Enabled = temp_ft
    m_czy.Enabled = False
    cm_tsfw.Enabled = temp_ft
    
    m_kr_dj.Enabled = False
    m_zxfe.Enabled = False
    
    m_jd_bz1.Enabled = temp_ft
    
    op_qd_ft(0).Enabled = temp_ft
    op_qd_ft(1).Enabled = temp_ft
    m_hy_kh.Enabled = temp_ft
    
    If CS_gnmc <> "修改" Then
        op_mfzc_ft(0).Enabled = True
        op_mfzc_ft(1).Enabled = True
        m_zck_bz.Enabled = False
    Else
        op_mfzc_ft(0).Enabled = False
        op_mfzc_ft(1).Enabled = False
        m_zck_bz.Enabled = False
    End If
    
    op_sh_ft(0).Enabled = temp_ft
    op_sh_ft(1).Enabled = temp_ft
    
    op_jywp_ft(0).Enabled = temp_ft
    op_jywp_ft(1).Enabled = temp_ft
    
    op_bxx_ft(0).Enabled = temp_ft
    op_bxx_ft(1).Enabled = temp_ft
    
    m_tsfz.Enabled = temp_ft
    m_tszh.Enabled = temp_ft
    
    m_zk_sqr.Enabled = temp_ft
    m_zk_spr.Enabled = temp_ft
    
    If CS_gnmc = "修改" Then
        m_fzxg_rq.Enabled = True
        m_fzxg_spr.Enabled = True
    Else
        m_fzxg_rq.Enabled = False
        m_fzxg_spr.Enabled = False
    End If
    
    m_dfy_dm.Enabled = temp_ft
    m_khdm.Enabled = temp_ft
    cm_ywdw_mc.Enabled = temp_ft
    
End Sub

'**************************************************************************************************
'*  功    能 : 用来设置各种控件赋值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.05
'*  修改日期 : 1999.03.05
'*  参数说明 : temp_rec  --  显示的记录集名称
'*             trmp_bszt --  表示字段按何方式显示  0 - 把字段清空  1 - 按记录集显示字段  2 - 字段初始化
'**************************************************************************************************
Private Sub tPkjTextSet(temp_rec As Recordset, temp_bszt As String)
    Select Case temp_bszt
    Case 0            '把字段清空
        m_zh.Text = ""
        m_kf_lxn.Text = ""
        tx_kf_lxc.Text = ""
        m_kr_x.Text = ""
        m_kr_m.Text = ""
        m_yw_x.Text = ""
        m_yw_m.Text = ""
        op_xb(0).Value = False
        op_xb(1).Value = False
        op_xb(2).Value = False
        m_kr_sr.Text = "____-__-__"
        m_gjdm.Text = ""
        cm_gjmc.Text = ""
        m_zjdm.Text = ""
        cm_zjmc.Text = ""
        m_kr_zjhm.Text = ""
        m_sydm.Text = ""
        cm_symc.Text = ""
        m_qzdm.Text = ""
        cm_qzmc.Text = ""
        m_kr_qz_yxq.Text = "____-__-__"
        m_dz.Text = ""
        m_td_zh.Text = ""
        cm_tdmc.Text = ""
        m_jdy.Text = ""
        m_bdjddw_mc.Text = ""
        m_rzrq.Text = "____-__-__"
        m_rzsj.Text = "__:__:__"
        m_ldrq.Text = "____-__-__"
        m_ldsj.Text = "__:__:__"
        m_zklx.Text = ""
        cm_zklx_mc.Text = ""
        m_kf_zkl.Text = ""
        m_kf_fz.Text = ""
        m_kf_fwf.Text = ""
        m_vip_dj.Text = ""
        cm_dj_fkmc.Text = ""
        m_czy.Text = ""
        cm_tsfw.Text = ""
        m_kr_dj.Text = ""
        m_zxfe.Text = ""
        m_jd_bz1.Text = ""
        
        op_qd_ft(0).Value = True
        m_hy_kh.Text = ""
        op_mfzc_ft(0).Value = True
        m_zck_bz.Text = ""
        op_sh_ft(1).Value = True
        op_jywp_ft(0).Value = True
        op_bxx_ft(0).Value = True

        m_tsfz.Text = ""
        m_tszh.Text = ""
        m_zk_sqr.Text = ""
        m_zk_spr.Text = ""
        m_fzxg_rq.Text = "____-__-__"
        m_fzxg_spr.Text = ""
        m_dfy_dm.Text = ""
        m_khdm.Text = ""
        cm_ywdw_mc.Text = ""

    Case 2            '把字段初始化
        m_zh.Text = ""
        m_kf_lxn.Text = ""
        tx_kf_lxc = ""
        m_kr_x.Text = ""
        m_kr_m.Text = ""
        m_yw_x.Text = ""
        m_yw_m.Text = ""
        m_kr_sr.Text = "____-__-__"
        
        op_xb(1).Value = True
        
        m_gjdm.Text = "CN"
        If PUB_GetCMName(m_gjdm, cm_gjmc) Then
        Else
            cm_gjmc.Text = "*"
        End If
        
        m_zjdm.Text = "01"
        If PUB_GetCMName(m_zjdm, cm_zjmc) Then
        Else
            cm_zjmc.Text = "*"
        End If
        
        m_kr_zjhm.Text = ""
        
        m_sydm.Text = ""
        cm_symc.Text = ""
        
        m_qzdm.Text = ""
        cm_qzmc.Text = ""
        
        m_kr_qz_yxq.Text = "____-__-__"
        
        m_dz.Text = ""
        m_td_zh.Text = CS_tdzh
        cm_tdmc.Text = CS_tdmc
        m_jdy.Text = ""
        m_bdjddw_mc.Text = ""
        m_rzrq.Text = Format(CS_rzrq, "yyyy-mm-dd")
        m_rzsj.Text = Format(Time(), "hh:mm:ss")
        m_ldrq.Text = Format(CS_ldrq, "yyyy-mm-dd")
        m_ldsj.Text = "__:__:__"
        
        m_zklx.Text = CS_zklx
        If PUB_GetCMName(m_zklx, cm_zklx_mc) Then
        Else
            cm_zklx_mc.Text = "*"
        End If
        
        m_kf_zkl.Text = 100
        m_kf_fz.Text = 0
        m_kf_fwf.Text = 0
        m_vip_dj.Text = 0
        cm_dj_fkmc.Text = cm_dj_fkmc.List(0)
        m_czy.Text = SYS_USER
        cm_tsfw.Text = ""
        m_kr_dj.Text = 0
        m_zxfe.Text = 0
        m_jd_bz1.Text = ""
        
        op_qd_ft(0).Value = True
        m_hy_kh.Text = ""
        op_mfzc_ft(0).Value = True
        m_zck_bz.Text = ""
        op_sh_ft(1).Value = True
        op_jywp_ft(0).Value = True
        op_bxx_ft(0).Value = True

        m_tsfz.Text = ""
        m_tszh.Text = ""
        m_zk_sqr.Text = ""
        m_zk_spr.Text = ""
        m_fzxg_rq.Text = "____-__-__"
        m_fzxg_spr.Text = ""
        m_dfy_dm.Text = CS_dfydm
        m_khdm.Text = CS_khdm
        cm_ywdw_mc.Text = CS_YWDW_MC
    
    
    Case 1                '按记录集给字段赋值
        With temp_rec
            m_zh.Text = Trim(.Fields("ZH"))
            m_kf_lxn.Text = .Fields("KF_LXN")
            tx_kf_lxc = SYS_LXC(m_kf_lxn.Text)
            m_kr_x.Text = Trim(.Fields("KR_X"))
            m_kr_m.Text = Trim(.Fields("KR_M"))
            m_yw_x.Text = Trim(.Fields("YW_X"))
            m_yw_m.Text = Trim(.Fields("YW_M"))
            
            op_xb(Trim(.Fields("KR_XBDM"))).Value = True
           
            m_kr_sr.Text = IIf(IsNull(.Fields("KR_SR")), "____-__-__", Format(.Fields("KR_SR"), "yyyy-mm-dd"))
            
            m_gjdm.Text = Trim(.Fields("GJDM"))
            If PUB_GetCMName(m_gjdm, cm_gjmc) Then
            Else
                cm_gjmc.Text = "*"
            End If
            
            m_zjdm.Text = Trim(.Fields("ZJDM"))
            If PUB_GetCMName(m_zjdm, cm_zjmc) Then
            Else
                cm_zjmc.Text = "*"
            End If
            
            m_kr_zjhm.Text = Trim(.Fields("KR_ZJHM"))
            
            m_sydm.Text = Trim(.Fields("SYDM"))
            If PUB_GetCMName(m_sydm, cm_symc) Then
            Else
                cm_symc.Text = "*"
            End If
            
            m_qzdm.Text = Trim(.Fields("QZDM"))
            If PUB_GetCMName(m_qzdm, cm_qzmc) Then
            Else
                cm_qzmc.Text = "*"
            End If
            
            m_kr_qz_yxq.Text = IIf(IsNull(.Fields("KR_QZ_YXQ")), "____-__-__", Format(.Fields("KR_QZ_YXQ"), "yyyy-mm-dd"))
            m_dz.Text = Trim(.Fields("DZ"))
            m_td_zh.Text = Trim(.Fields("TD_ZH"))
            cm_tdmc.Text = Trim(.Fields("TDMC"))
            m_jdy.Text = .Fields("JDY")
            m_bdjddw_mc.Text = Trim(.Fields("BDJDDW_MC"))
            m_rzrq.Text = Format(.Fields("RZRQ"), "yyyy-mm-dd")
            m_rzsj.Text = Format(.Fields("RZSJ"), "hh:mm:ss")
            m_ldrq.Text = Format(.Fields("LDRQ"), "yyyy-mm-dd")
            m_ldsj.Text = Format(.Fields("LDSJ"), "hh:mm:ss")
            
            m_zklx.Text = Trim(.Fields("ZKLX"))
            If PUB_GetCMName(m_zklx, cm_zklx_mc) Then
            Else
                cm_zklx_mc.Text = "*"
            End If
            
            m_kf_zkl.Text = .Fields("KF_ZKL") * 100
            m_kf_fz.Text = .Fields("KF_FZ")
            m_kf_fwf.Text = .Fields("KF_FWF")
            m_vip_dj.Text = .Fields("VIP_DJ")
            cm_dj_fkmc.Text = Trim(.Fields("DJ_FKMC"))
            m_czy.Text = Trim(.Fields("CZY"))
            cm_tsfw.Text = Trim(.Fields("TSFW"))
            m_kr_dj.Text = Format(IIf(IsNull(.Fields("KR_DJ")), 0, .Fields("KR_DJ")), "#,##0.00")
            m_zxfe.Text = Format(IIf(IsNull(.Fields("ZXFE")), 0, .Fields("ZXFE")), "#,##0.00")
            m_jd_bz1.Text = Trim(.Fields("JD_BZ1"))
            
            If .Fields("QD_FT") Then
                op_qd_ft(1).Value = True
                m_hy_kh.Enabled = True
            Else
                op_qd_ft(0).Value = True
                m_hy_kh.Enabled = False
            End If
            
            m_hy_kh.Text = Trim(.Fields("HY_KH"))
            
            If .Fields("MFZC_FT") Then
                op_mfzc_ft(1).Value = True
                m_zck_bz.Enabled = False
            Else
                op_mfzc_ft(0).Value = True
                m_zck_bz.Enabled = False
            End If
            
            m_zck_bz.Text = Trim(.Fields("ZCK_BZ"))
            
            If .Fields("SH_FT") Then
                op_sh_ft(1).Value = True
            Else
                op_sh_ft(0).Value = True
            End If
            
            If .Fields("JYWP_FT") Then
                op_jywp_ft(1).Value = True
            Else
                op_jywp_ft(0).Value = True
            End If
            
            If .Fields("BXX_FT") Then
               op_bxx_ft(1).Value = True
            Else
                op_bxx_ft(0).Value = True
            End If
            
            m_tsfz.Text = .Fields("TSFZ")
            m_tszh.Text = Trim(.Fields("TSZH"))
            m_zk_sqr.Text = Trim(.Fields("ZK_SQR"))
            m_zk_spr.Text = Trim(.Fields("ZK_SPR"))
            m_fzxg_rq.Text = IIf(IsNull(.Fields("FZXG_RQ")), "____-__-__", Format(.Fields("FZXG_RQ"), "yyyy-mm-dd"))
            m_fzxg_spr.Text = Trim(.Fields("FZXG_SPR"))
            m_dfy_dm.Text = Trim(.Fields("DFY_DM"))
            m_khdm.Text = Trim(.Fields("KHDM"))
            cm_ywdw_mc.Text = Trim(.Fields("YWDW_MC"))
        End With
    End Select
End Sub




'**************************************************************************************************
'*  功    能 : 由预订单登记时, 设置各种控件赋值
'*  作    者 : 梁卫
'*  作成日期 : 1999.04.05
'*  修改日期 : 1999.04.05
'*  参数说明 : temp_rec  --  显示的记录集名称
'**************************************************************************************************
Private Sub tPkjTextYDSet(temp_rec As Recordset)

    With temp_rec
        m_zh.Text = Trim(.Fields("GZ_FH"))
        m_kf_lxn.Text = .Fields("KF_LXN")
        tx_kf_lxc = SYS_LXC(m_kf_lxn.Text)
        m_kr_x.Text = Trim(.Fields("KR_X"))
        m_kr_m.Text = Trim(.Fields("KR_M"))
        m_yw_x.Text = Trim(.Fields("YW_X"))
        m_yw_m.Text = Trim(.Fields("YW_M"))
        
        op_xb(Trim(.Fields("KR_XBDM"))).Value = True
       
        m_kr_sr.Text = IIf(IsNull(.Fields("KR_SR")), "____-__-__", Format(.Fields("KR_SR"), "yyyy-mm-dd"))
        
        m_gjdm.Text = Trim(.Fields("GJDM"))
        If PUB_GetCMName(m_gjdm, cm_gjmc) Then
        Else
            cm_gjmc.Text = "*"
        End If
        
        m_zjdm.Text = Trim(.Fields("ZJDM"))
        If PUB_GetCMName(m_zjdm, cm_zjmc) Then
        Else
            cm_zjmc.Text = "*"
        End If
                
        m_kr_zjhm.Text = Trim(.Fields("KR_ZJHM"))
        
        m_sydm.Text = Trim(.Fields("SYDM"))
        If PUB_GetCMName(m_sydm, cm_symc) Then
        Else
            cm_symc.Text = "*"
        End If
        
        m_qzdm.Text = Trim(.Fields("QZDM"))
        If PUB_GetCMName(m_qzdm, cm_qzmc) Then
        Else
            cm_qzmc.Text = "*"
        End If
        
        m_kr_qz_yxq.Text = IIf(IsNull(.Fields("KR_QZ_YXQ")), "____-__-__", Format(.Fields("KR_QZ_YXQ"), "yyyy-mm-dd"))
        m_dz.Text = Trim(.Fields("DZ"))
        m_td_zh.Text = CS_tdzh
        cm_tdmc.Text = CS_tdmc
        m_jdy.Text = .Fields("JDY")
        m_bdjddw_mc.Text = Trim(.Fields("JDDW_MC"))
        m_rzrq.Text = Format(CS_rzrq, "yyyy-mm-dd")
        m_ldrq.Text = Format(CS_ldrq, "yyyy-mm-dd")
        m_ldsj.Text = IIf