dfqk_1.frm

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

            
    End If
End Sub

Private Sub m_kr_fls_2_Change()
    MSG.Caption = ""
End Sub

Private Sub m_kr_fls_2_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
     If KeyCode = 13 Then
        Call m_kr_fls_2_LostFocus
     End If
End Sub


Private Sub m_kr_fls_2_LostFocus()
    If Not m_kr_fls_2.Text = "" Then
        If Not IsNumeric(Trim(m_kr_fls_2.Text)) Then
            MSG.Caption = "无效房间数!"
            m_kr_fls_2.SetFocus
            m_kr_fls_2.SelStart = 0
            m_kr_fls_2.SelLength = Len(Trim(m_kr_fls_2.Text))
        Else
            m_kr_fls_3.SetFocus
            m_kr_fls_3.SelStart = 0
            m_kr_fls_3.SelLength = Len(Trim(m_kr_fls_3.Text))
            
        End If
    Else
        m_kr_fls_2.Text = "0"
        m_kr_fls_3.SetFocus
        m_kr_fls_3.SelStart = 0
        m_kr_fls_3.SelLength = Len(Trim(m_kr_fls_3.Text))
            
    End If
End Sub

Private Sub m_kr_fls_3_Change()
    MSG.Caption = ""
End Sub

Private Sub m_kr_fls_3_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    If KeyCode = 13 Then
        Call m_kr_fls_3_LostFocus
    End If
End Sub


Private Sub m_kr_fls_3_LostFocus()
    If Not m_kr_fls_3.Text = "" Then
        If Not IsNumeric(Trim(m_kr_fls_3.Text)) Then
            MSG.Caption = "无效房间数!"
            m_kr_fls_3.SetFocus
            m_kr_fls_3.SelStart = 0
            m_kr_fls_3.SelLength = Len(Trim(m_kr_fls_3.Text))
        Else
            m_kr_fls_4.SetFocus
            m_kr_fls_4.SelStart = 0
            m_kr_fls_4.SelLength = Len(Trim(m_kr_fls_4.Text))
            
        End If
    Else
        m_kr_fls_3.Text = "0"
        m_kr_fls_4.SetFocus
        m_kr_fls_4.SelStart = 0
        m_kr_fls_4.SelLength = Len(Trim(m_kr_fls_4.Text))
            
    End If
End Sub


Private Sub m_kr_fls_4_Change()
    MSG.Caption = ""
End Sub

Private Sub m_kr_fls_4_LostFocus()
    If Not m_kr_fls_4.Text = "" Then
        If Not IsNumeric(Trim(m_kr_fls_4.Text)) Then
            MSG.Caption = "无效房间数!"
            m_kr_fls_4.SetFocus
            m_kr_fls_4.SelStart = 0
            m_kr_fls_4.SelLength = Len(Trim(m_kr_fls_4.Text))
        Else
            m_qp_fls_1.SelStart = 0
            m_qp_fls_1.SelLength = Len(Trim(m_qp_fls_1.Text))
            Exit Sub
        End If
    Else
        m_kr_fls_4.Text = "0"
    End If
End Sub

Private Sub m_ldrq_Change()
    MSG.Caption = ""
End Sub

Private Sub m_ldrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_ldrq_LostFocus
    End If
End Sub

Private Sub m_ldrq_LostFocus()
     If Not m_ldrq.Text = "    -  -  " Then
        t_rq = date_cl(Trim(m_ldrq.Text))
            If t_rq <> "F" Then
                m_ldrq = t_rq
            End If
        If IsDate(Trim(m_ldrq.Text)) Then
            If CDate(m_ldrq.Text) > CDate(m_rzrq.Text) Then
                m_kr_fls_1.SetFocus
                m_kr_fls_1.SelStart = 0
                m_kr_fls_1.SelLength = Len(Trim(m_kr_fls_1.Text))
            Else
                MSG.Caption = "无效日期!"
                m_ldrq.SetFocus
                m_ldrq.SelStart = 0
                m_ldrq.SelLength = Len(m_ldrq.Text)
                Exit Sub
            End If
        Else
            MSG.Caption = "无效日期!"
            m_ldrq.SetFocus
            m_ldrq.SelStart = 0
            m_ldrq.SelLength = Len(m_ldrq.Text)
            Exit Sub
        End If
     Else
        MSG.Caption = "无效日期!"
        m_ldrq.SetFocus
        m_ldrq.SelStart = 0
        m_ldrq.SelLength = Len(m_ldrq.Text)
     End If
End Sub

Private Sub m_qp_fls_1_Change()
    MSG.Caption = ""
End Sub

Private Sub m_QP_fls_1_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    If KeyCode = 13 Then
        Call m_QP_fls_1_LostFocus
    End If
End Sub

Private Sub m_QP_fls_1_LostFocus()
    If Not m_qp_fls_1.Text = "" Then
        If Not IsNumeric(Trim(m_qp_fls_1.Text)) Then
            MSG.Caption = "无效房间数!"
            m_qp_fls_1.SetFocus
            m_qp_fls_1.SelStart = 0
            m_qp_fls_1.SelLength = Len(Trim(m_qp_fls_1.Text))
        Else
            m_qp_fls_2.SetFocus
            m_qp_fls_2.SelStart = 0
            m_qp_fls_2.SelLength = Len(Trim(m_qp_fls_2.Text))
            
        End If
    Else
        m_qp_fls_1.Text = "0"
        m_qp_fls_2.SetFocus
        m_qp_fls_2.SelStart = 0
        m_qp_fls_2.SelLength = Len(Trim(m_qp_fls_2.Text))
            
    End If
End Sub

Private Sub m_qp_fls_2_Change()
    MSG.Caption = ""
End Sub

Private Sub m_QP_fls_2_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    If KeyCode = 13 Then
        Call m_QP_fls_2_LostFocus
    End If
End Sub

Private Sub m_QP_fls_2_LostFocus()
    If Not m_qp_fls_2.Text = "" Then
        If Not IsNumeric(Trim(m_qp_fls_2.Text)) Then
            MSG.Caption = "无效房间数!"
            m_qp_fls_2.SetFocus
            m_qp_fls_2.SelStart = 0
            m_qp_fls_2.SelLength = Len(Trim(m_qp_fls_2.Text))
        Else
            m_qp_fls_3.SetFocus
            m_qp_fls_3.SelStart = 0
            m_qp_fls_3.SelLength = Len(Trim(m_qp_fls_3.Text))
            
        End If
    Else
        m_qp_fls_2.Text = "0"
        m_qp_fls_3.SetFocus
        m_qp_fls_3.SelStart = 0
        m_qp_fls_3.SelLength = Len(Trim(m_qp_fls_3.Text))
            
    End If
End Sub

Private Sub m_qp_fls_3_Change()
    MSG.Caption = ""
End Sub

Private Sub m_QP_fls_3_LostFocus()
     If Not m_qp_fls_3.Text = "" Then
        If Not IsNumeric(Trim(m_qp_fls_3.Text)) Then
            MSG.Caption = "无效房间数!"
            m_qp_fls_3.SetFocus
            m_qp_fls_3.SelStart = 0
            m_qp_fls_3.SelLength = Len(Trim(m_qp_fls_3.Text))
        Else
            m_qp_fls_4.SetFocus
            m_qp_fls_4.SelStart = 0
            m_qp_fls_4.SelLength = Len(Trim(m_qp_fls_4.Text))
            
        End If
    Else
        m_qp_fls_3.Text = "0"
        m_qp_fls_4.SetFocus
        m_qp_fls_4.SelStart = 0
        m_qp_fls_4.SelLength = Len(Trim(m_qp_fls_4.Text))
            
    End If
End Sub

Private Sub m_qp_fls_4_Change()
    MSG.Caption = ""
End Sub

Private Sub m_qp_fls_4_LostFocus()
     If Not m_qp_fls_4.Text = "" Then
        If Not IsNumeric(Trim(m_qp_fls_4.Text)) Then
            MSG.Caption = "无效房间数!"
            m_qp_fls_4.SetFocus
            m_qp_fls_4.SelStart = 0
            m_qp_fls_4.SelLength = Len(Trim(m_qp_fls_4.Text))
        Else
            m_dp_fls_1.SelStart = 0
            m_dp_fls_1.SelLength = Len(Trim(m_dp_fls_1.Text))
            Exit Sub
        End If
    Else
        m_qp_fls_4.Text = "0"
    End If
End Sub

Private Sub m_rzrq_Change()
    MSG.Caption = ""
End Sub

Private Sub m_rzrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_rzrq_LostFocus
    End If
End Sub

Private Sub m_rzrq_LostFocus()
     If Not m_rzrq.Text = "    -  -  " Then
        t_rq = date_cl(Trim(m_rzrq.Text))
            If t_rq <> "F" Then
                m_rzrq = t_rq
            End If
        If IsDate(Trim(m_rzrq.Text)) Then
            If CDate(m_rzrq.Text) >= Date Then
                m_ldrq.SetFocus
                m_ldrq.Text = Format(CStr(CDate(Trim(m_rzrq.Text)) + 2), "yyyy-mm-dd")
                m_ldrq.SelStart = 0
                m_ldrq.SelLength = Len(m_ldrq.Text)
            Else
                MSG.Caption = "无效日期!"
                m_rzrq.SetFocus
                m_rzrq.SelStart = 0
                m_rzrq.SelLength = Len(m_rzrq.Text)
                Exit Sub
            End If
        Else
            MSG.Caption = "无效日期!"
            m_rzrq.SetFocus
            m_rzrq.SelStart = 0
            m_rzrq.SelLength = Len(m_rzrq.Text)
            Exit Sub
        End If
     Else
        MSG.Caption = "无效日期!"
        m_rzrq.SetFocus
        m_rzrq.SelStart = 0
        m_rzrq.SelLength = Len(m_rzrq.Text)
     End If
End Sub

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

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



Public Property Get RQ1() As Date
    RQ1 = date_s
End Property

Public Property Let RQ1(rq As Date)
    rq = RQ1
End Property

Public Property Get RQ2() As Date
    RQ2 = date_e
End Property

Public Property Let RQ2(RR As Date)
    RR = RQ2
End Property

Public Property Get fjs() As Integer
    fjs = df_js1
End Property

Public Property Let fjs(fj_s As Integer)
    fj_s = fjs
End Property



Public Property Get yd_h() As String
    yd_h = DH_YD
End Property

Public Property Let yd_h(H As String)
    H = yd_h
End Property