zfht_pop.frm

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

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

Private Sub m_kf_fz_GotFocus()
    m_kf_fz.SelStart = 0
    m_kf_fz.SelLength = Len(Trim(m_kf_fz.Text))
End Sub

Private Sub m_kf_fz_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_kf_fz_LostFocus
    End If
End Sub

Private Sub m_kf_fz_LostFocus()
    If Not m_kf_fz.Text = "" Then
        If IsNumeric(Trim(m_kf_fz.Text)) Then
            m_lxdh.SetFocus
        Else
            frm_msg.Caption = "无效客房房租!"
            m_kf_fz.SetFocus
            m_kf_fz.SelStart = 0
            m_kf_fz.SelLength = Len(Trim(m_kf_fz.Text))
        End If
    Else
        m_kf_fz.Text = "0"
        m_lxdh.SetFocus
    End If
    
End Sub

Private Sub m_kf_lxc_GotFocus()
    m_kf_lxc.SelStart = 0
    m_kf_lxc.SelLength = Len(Trim(m_kf_lxc.Text))
End Sub

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

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

Private Sub m_kf_lxn_GotFocus()
    m_kf_lxn.SelStart = 0
    m_kf_lxn.SelLength = Len(Trim(m_kf_lxn.Text))
End Sub

Private Sub m_kf_lxn_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
       Call m_kf_lxn_LostFocus
    End If
End Sub


Private Sub m_kf_lxn_LostFocus()
     If Not m_kf_lxn.Text = "" Then
        If IsNumeric(Trim(m_kf_lxn.Text)) Then
            m_kf_lxc.SetFocus
        Else
            frm_msg.Caption = "无效客房类型!"
            m_kf_lxn.SetFocus
            m_kf_lxn.SelStart = 0
            m_kf_lxn.SelLength = Len(Trim(m_kf_lxn.Text))
        End If
     Else
        m_kf_lxn = "1"
        m_kf_lxc.SetFocus
     End If
End Sub

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

Private Sub m_kr_dj_GotFocus()
    m_kr_dj.SelStart = 0
    m_kr_dj.SelLength = Len(Trim(m_kr_dj.Text))
End Sub

Private Sub m_kr_dj_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_kr_dj_LostFocus
    End If
End Sub

Private Sub m_kr_dj_LostFocus()
      If Not m_kr_dj.Text = "" Then
        If IsNumeric(Trim(m_kr_dj.Text)) Then
            m_fjyt.SetFocus
        Else
            frm_msg.Caption = "无效定金!"
            m_kr_dj.SetFocus
            m_kr_dj.SelStart = 0
            m_kr_dj.SelLength = Len(Trim(m_kr_dj.Text))
        End If
      Else
        m_kr_dj.Text = "0"
        m_fjyt.SetFocus
     End If
End Sub

Private Sub m_lxcz_GotFocus()
    m_lxcz.SelStart = 0
    m_lxcz.SelLength = Len(Trim(m_lxcz.Text))
End Sub

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

Private Sub m_lxdh_GotFocus()
    m_lxdh.SelStart = 0
    m_lxdh.SelLength = Len(Trim(m_lxdh.Text))
End Sub

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

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

Private Sub m_qsrq_GotFocus()
    m_qsrq.SelStart = 0
    m_qsrq.SelLength = Len(m_qsrq.Text)
End Sub

Private Sub m_qsrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_qsrq_LostFocus
    End If
End Sub

Private Sub m_qsrq_LostFocus()
    If Not m_qsrq.Text = "    -  -  " Then
        t_rq = date_cl(Trim(m_qsrq.Text))
            If t_rq <> "F" Then
                m_qsrq = t_rq
            End If
              If IsDate(Trim(m_qsrq.Text)) Then
                    If Not CDate(m_qsrq.Text) < Date Then
                        m_jzrq.SetFocus
                        m_jzrq.SelStart = 0
                        m_jzrq.SelLength = Len(m_jzrq.Text)
                    Else
                        frm_msg.Caption = "无效日期!"
                        m_qsrq.SetFocus
                        m_qsrq.SelStart = 0
                        m_qsrq.SelLength = Len(m_qsrq.Text)
                    End If
              Else
                frm_msg.Caption = "无效日期!"
                m_qsrq.SetFocus
                m_qsrq.SelStart = 0
                m_qsrq.SelLength = Len(m_qsrq.Text)
              End If
                
            
    Else
        
        m_qsrq.Text = Format(Date, "yyyy-mm-dd")
        m_jzrq.SetFocus
        m_jzrq.Text = Format(Date + 1, "yyyy-mm-dd")
        m_jzrq.SelStart = 0
        m_jzrq.SelLength = Len(m_jzrq.Text)
    End If
End Sub

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

Private Sub m_qzrq_GotFocus()
    m_qzrq.SelStart = 0
    m_qzrq.SelLength = Len(m_qzrq.Text)
End Sub

Private Sub m_qzrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_qzrq_LostFocus
    End If
End Sub

Private Sub m_qzrq_LostFocus()
    If Not m_qzrq.Text = "    -  -  " Then
        t_rq = date_cl(Trim(m_qzrq.Text))
            If t_rq <> "F" Then
                m_qzrq = t_rq
            End If
            If IsDate(Trim(m_qzrq.Text)) Then
                            
                If CDate(m_qzrq.Text) <= CDate(m_qsrq.Text) Then
                      m_kr_dj.SetFocus
                      m_kr_dj.SelStart = 0
                      m_kr_dj.SelLength = Len(Trim(m_kr_dj.Text))
                Else
                    frm_msg.Caption = "无效日期!"
                    m_qzrq.SetFocus
                    m_qzrq.SelStart = 0
                    m_qzrq.SelLength = Len(m_qzrq.Text)
                    Exit Sub
                End If
            Else
                frm_msg.Caption = "无效日期!"
                m_qzrq.SetFocus
                m_qzrq.SelStart = 0
                m_qzrq.SelLength = Len(m_qzrq.Text)
                Exit Sub
                
            End If
    Else
       m_qzrq.Text = Format(Date, "yyyy-mm-dd")
       m_kr_dj.SetFocus
       m_kr_dj.SelStart = 0
       m_kr_dj.SelLength = Len(Trim(m_kr_dj.Text))
       
    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_yfdb_zw.SetFocus
    End If
End Sub



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

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

Private Sub m_zyf_GotFocus()
    m_zyf.SelStart = 0
    m_zyf.SelLength = Len(Trim(m_zyf.Text))
    
End Sub

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

Private Sub xg()
    m_htdm.Text = Trim(ht_zfgl.m_htdm.Text)
    
    m_jfdb.Text = ""
    m_jfdb_zw.Text = ""
    m_zyf.Text = ""
    m_yfdb.Text = ""
    m_yfdb_zw.Text = ""
    m_kf_lxn.Text = ""
    m_kf_fs.Text = ""
    m_fk_fh.Text = ""
    m_fk_zh.Text = ""
    m_czdb.Text = ""
    m_bz.Text = ""
    m_kf_lxc.Text = ""
    m_kf_fz.Text = ""
    m_lxdh.Text = ""
    m_lxcz.Text = ""
    m_kr_dj.Text = ""
    m_dz.Text = ""
    m_dj_fkmc.Text = ""
    m_fjyt.Text = ""
    m_jfdb.Enabled = False
    m_jfdb_zw.Enabled = False
    m_zyf.Enabled = False
    m_yfdb.Enabled = False
    m_yfdb_zw.Enabled = False
    m_kf_lxn.Enabled = False
    m_kf_fs.Enabled = False
    m_fk_fh.Enabled = False
    m_fk_zh.Enabled = False
    m_czdb.Enabled = False
    m_bz.Enabled = False
    m_kf_lxc.Enabled = False
    m_kf_fz.Enabled = False
    m_lxdh.Enabled = False
    m_lxcz.Enabled = False
    m_kr_dj.Enabled = False
    m_dz.Enabled = False
    m_dj_fkmc.Enabled = False
    m_fjyt.Enabled = False
    If m_htdm.Enabled = False Then
        m_htdm.Enabled = True
    Else
        m_htdm.SetFocus
    End If
    
End Sub

Private Sub sc()
    m_htdm.Text = Trim(ht_zfgl.m_htdm.Text)
    m_jfdb.Text = ""
    m_jfdb_zw.Text = ""
    m_zyf.Text = ""
    m_yfdb.Text = ""
    m_yfdb_zw.Text = ""
    m_kf_lxn.Text = ""
    m_kf_fs.Text = ""
    m_fk_fh.Text = ""
    m_fk_zh.Text = ""
    m_czdb.Text = ""
    m_bz.Text = ""
    m_kf_lxc.Text = ""
    m_kf_fz.Text = ""
    m_lxdh.Text = ""
    m_lxcz.Text = ""
    m_kr_dj.Text = ""
    m_dz.Text = ""
    m_dj_fkmc.Text = ""
    m_fjyt.Text = ""
    m_jfdb.Enabled = False
    m_jfdb_zw.Enabled = False
    m_zyf.Enabled = False
    m_yfdb.Enabled = False
    m_yfdb_zw.Enabled = False
    m_kf_lxn.Enabled = False
    m_kf_fs.Enabled = False
    m_fk_fh.Enabled = False
    m_fk_zh.Enabled = False
    m_czdb.Enabled = False
    m_bz.Enabled = False
    m_kf_lxc.Enabled = False
    m_kf_fz.Enabled = False
    m_lxdh.Enabled = False
    m_lxcz.Enabled = False
    m_kr_dj.Enabled = False
    m_dz.Enabled = False
    m_dj_fkmc.Enabled = False
    m_fjyt.Enabled = False
    
    m_qsrq.Enabled = False
    m_jzrq.Enabled = False
    m_qzrq.Enabled = False
    If m_htdm.Enabled = False Then
        m_htdm.Enabled = True
    Else
        m_htdm.SetFocus
    End If
End Sub


Private Sub cx()
    m_htdm.Text