dfht_pop.frm

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

                Exit Sub
            End If
        Else
            frm_msg.Caption = "无效日期!"
            m_htqsrq.SetFocus
            m_htqsrq.SelStart = 0
            m_htqsrq.SelLength = Len(m_htqsrq.Text)
            Exit Sub
        End If
    Else
        
        frm_msg.Caption = "无效日期!"
        m_htqsrq.SetFocus
        m_htqsrq.SelStart = 0
        m_htqsrq.SelLength = Len(m_htqsrq.Text)
    End If
End Sub

Private Sub m_htyxq_Change()
     frm_msg.Caption = ""
End Sub

Private Sub m_htyxq_GotFocus()
    m_htyxq.SelStart = 0
    m_htyxq.SelLength = Len(m_htyxq.Text)
    
End Sub

Private Sub m_htyxq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_htyxq_LostFocus
    End If
End Sub

Private Sub m_htyxq_LostFocus()
    If Not m_htyxq.Text = "" Then
        t_rq = date_cl(m_htyxq.Text)
            If t_rq <> "F" Then
                m_htyxq = t_rq
            End If
            If IsDate(Trim(m_htyxq.Text)) Then
                If Not CDate(Trim(m_htyxq.Text)) < CDate(Trim(m_htqsrq.Text)) Then
                    m_yf_lxr.SetFocus
                    m_yf_lxr.SelStart = 0
                    m_yf_lxr.SelLength = Len(Trim(m_yf_lxr.Text))
                Else
                    frm_msg.Caption = "无效日期!"
                    m_htyxq.SetFocus
                    m_htyxq.SelStart = 0
                    m_htyxq.SelLength = Len(m_htyxq.Text)
                    Exit Sub
                End If
            Else
                frm_msg.Caption = "无效日期!"
                m_htyxq.SetFocus
                m_htyxq.SelStart = 0
                m_htyxq.SelLength = Len(m_htyxq.Text)
                Exit Sub
            End If
    Else
        
        frm_msg.Caption = "无效日期!"
        m_htyxq.SetFocus
        m_htyxq.SelStart = 0
        m_htyxq.SelLength = Len(m_htyxq.Text)
    End If
End Sub

Private Sub m_jfdb_GotFocus()
    m_jfdb.SelStart = 0
    m_jfdb.SelLength = Len(Trim(m_jfdb.Text))
End Sub



Private Sub m_jfdb_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_js_fs.SetFocus
    End If
End Sub


Private Sub m_wj_sk_fz_Change()
    frm_msg.Caption = ""
End Sub

Private Sub m_YF_lxdh_GotFocus()
    m_yf_lxdh.SelStart = 0
    m_yf_lxdh.SelLength = Len(Trim(m_yf_lxdh.Text))
End Sub
Private Sub m_js_fs_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_yhsm.SetFocus
    End If
End Sub

Private Sub m_wc_GotFocus()
    m_wc.SelStart = 0
    m_wc.SelLength = Len(Trim(m_wc.Text))
End Sub

Private Sub m_wc_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_yc.SetFocus
    End If
End Sub

Private Sub m_wj_sk_fz_GotFocus()
    m_wj_sk_fz.SelStart = 0
    m_wj_sk_fz.SelLength = Len(Trim(m_wj_sk_fz.Text))
    
End Sub

Private Sub m_wj_sk_fz_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_wj_sk_fz_LostFocus
    End If
End Sub

Private Sub m_wj_sk_fz_LostFocus()
    If Not m_wj_sk_fz.Text = "" Then
        If Not IsNumeric(Trim(m_wj_sk_fz.Text)) Then
            frm_msg.Caption = "无效房租!"
            m_wj_sk_fz.SetFocus
            m_wj_sk_fz.SelStart = 0
            m_wj_sk_fz.SelLength = Len(Trim(m_wj_sk_fz.Text))
        Else
            m_dj_td_fz.SetFocus
        End If
    Else
        m_wj_sk_fz.Text = "0"
        m_dj_td_fz.SetFocus
    End If
End Sub

Private Sub m_wj_td_fz_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_wj_td_fz_LostFocus
    End If
End Sub

Private Sub m_wj_td_fz_LostFocus()
     If Not m_wj_td_fz.Text = "" Then
        If Not IsNumeric(Trim(m_wj_td_fz.Text)) Then
            frm_msg.Caption = "无效房租!"
            m_wj_td_fz.SetFocus
            m_wj_td_fz.SelStart = 0
            m_wj_td_fz.SelLength = Len(Trim(m_wj_td_fz.Text))
        Else
            m_wj_sk_fz.SetFocus
            
        End If
    Else
        m_wj_td_fz.Text = "0"
        m_wj_sk_fz.SetFocus
    End If
End Sub

Private Sub m_yc_GotFocus()
    m_yc.SelStart = 0
    m_yc.SelLength = Len(Trim(m_yc.Text))
End Sub


Private Sub m_yc_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_bz.SetFocus
    End If
End Sub

Private Sub m_yf_lxdh_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_wj_td_fz.SetFocus
    End If
End Sub

Private Sub m_yf_lxr_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_yf_lxdh.SetFocus
    End If
End Sub

Private Sub m_yfdb_GotFocus()
    m_yfdb.SelStart = 0
    m_yfdb.SelLength = Len(Trim(m_yfdb.Text))
    
End Sub

Private Sub m_yfdb_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_htqsrq.SetFocus
    End If
End Sub



Private Sub m_yfdw_GotFocus()
    m_yfdw.SelStart = 0
    m_yfdw.SelLength = Len(Trim(m_yfdw.Text))
End Sub

Private Sub m_yfdw_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_yfdb.SetFocus
    End If
                            
End Sub


Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_htyxq.SetFocus
    End If
End Sub



Private Sub m_wj_td_fz_GotFocus()
    m_wj_td_fz.SelStart = 0
    m_wj_td_fz.SelLength = Len(Trim(m_wj_td_fz.Text))
End Sub



Private Sub m_yhsm_GotFocus()
    m_yhsm.SelStart = 0
    m_yhsm.SelLength = Len(Trim(m_yhsm.Text))
End Sub

Private Sub m_yhsm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        CMD1.SetFocus
    End If
End Sub

Private Sub m_zc_GotFocus()
    m_zc.SelStart = 0
    m_zc.SelLength = Len(Trim(m_zc.Text))
End Sub

Private Sub jl()
    m_htdm.Text = ""
    m_yfdw.Text = ""
    m_yfdb.Text = ""
    m_yf_lxr.Text = ""
    m_yf_lxdh.Text = ""
    m_wj_td_fz.Text = ""
    m_wj_sk_fz.Text = ""
    m_dj_td_fz.Text = ""
    m_dj_sk_fz.Text = ""
    m_zc.Text = ""
    m_wc.Text = ""
    m_yc.Text = ""
    m_bz.Text = ""
    m_jfdb.Text = ""
    m_yhsm.Text = ""
    
End Sub

Private Sub m_zc_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_wc.SetFocus
    End If
End Sub

Private Sub xg()
    m_htdm.Text = Trim(ht_dfgl.m_htdm.Text)
    m_yfdw.Text = ""
    m_yfdb.Text = ""
    m_yf_lxr.Text = ""
    m_yf_lxdh.Text = ""
    m_wj_td_fz.Text = ""
    m_wj_sk_fz.Text = ""
    m_dj_td_fz.Text = ""
    m_dj_sk_fz.Text = ""
    m_zc.Text = ""
    m_wc.Text = ""
    m_yc.Text = ""
    m_bz.Text = ""
    m_jfdb.Text = ""
    m_yhsm.Text = ""
    m_yfdw.Text = ""
    
    m_yfdb.Enabled = False
    m_yf_lxr.Enabled = False
    m_yf_lxdh.Enabled = False
    m_wj_td_fz.Enabled = False
    m_wj_sk_fz.Enabled = False
    m_dj_td_fz.Enabled = False
    m_dj_sk_fz.Enabled = False
    m_zc.Enabled = False
    m_wc.Enabled = False
    m_yc.Enabled = False
    m_bz.Enabled = False
    m_jfdb.Enabled = False
    m_yhsm.Enabled = False
    m_htyxq.Enabled = False
    m_htqsrq.Enabled = False
    If m_htdm.Enabled = False Then
        m_htdm.Enabled = True
        'm_htdm.SetFocus
    End If
End Sub

Private Sub sc()
    m_htdm.Text = Trim(ht_dfgl.m_htdm.Text)
    m_yfdw.Text = ""
    m_yfdb.Text = ""
    m_yf_lxr.Text = ""
    m_yf_lxdh.Text = ""
    m_wj_td_fz.Text = ""
    m_wj_sk_fz.Text = ""
    m_dj_td_fz.Text = ""
    m_dj_sk_fz.Text = ""
    m_zc.Text = ""
    m_wc.Text = ""
    m_yc.Text = ""
    m_bz.Text = ""
    m_jfdb.Text = ""
    m_yhsm.Text = ""
    
    m_yfdw.Enabled = False
    m_yfdb.Enabled = False
    m_yf_lxr.Enabled = False
    m_yf_lxdh.Enabled = False
    m_wj_td_fz.Enabled = False
    m_wj_sk_fz.Enabled = False
    m_dj_td_fz.Enabled = False
    m_dj_sk_fz.Enabled = False
    m_zc.Enabled = False
    m_wc.Enabled = False
    m_yc.Enabled = False
    m_bz.Enabled = False
    m_jfdb.Enabled = False
    m_yhsm.Enabled = False
    m_htyxq.Enabled = False
    m_htqsrq.Enabled = False
End Sub
Private Sub cx()
    m_htdm.Text = Trim(ht_dfgl.m_htdm.Text)
    m_yfdw.Text = ""
    m_yfdb.Text = ""
    m_yf_lxr.Text = ""
    m_yf_lxdh.Text = ""
    m_wj_td_fz.Text = ""
    m_wj_sk_fz.Text = ""
    m_dj_td_fz.Text = ""
    m_dj_sk_fz.Text = ""
    m_zc.Text = ""
    m_wc.Text = ""
    m_yc.Text = ""
    m_bz.Text = ""
    m_jfdb.Text = ""
    m_yhsm.Text = ""
    
    m_yfdw.Enabled = False
    m_yfdb.Enabled = False
    m_yf_lxr.Enabled = False
    m_yf_lxdh.Enabled = False
    m_wj_td_fz.Enabled = False
    m_wj_sk_fz.Enabled = False
    m_dj_td_fz.Enabled = False
    m_dj_sk_fz.Enabled = False
    m_zc.Enabled = False
    m_wc.Enabled = False
    m_yc.Enabled = False
    m_bz.Enabled = False
    m_jfdb.Enabled = False
    m_yhsm.Enabled = False
    m_htyxq.Enabled = False
    m_htqsrq.Enabled = False
    If m_htdm.Enabled = False Then
        m_htdm.Enabled = True
        'm_htdm.SetFocus
    End If
End Sub

Public Property Get tf() As Boolean
    tf = t_f
End Property

Public Property Let tf(t_a As Boolean)
    t_a = tf
End Property