zfht_pop.frm

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

Private Sub m_dj_fkmc_GotFocus()
    m_dj_fkmc.SelStart = 0
    m_dj_fkmc.SelLength = Len(Trim(m_dj_fkmc.Text))
End Sub

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

Private Sub m_dz_GotFocus()
    m_dz.SelStart = 0
    m_dz.SelLength = Len(Trim(m_dz.Text))
End Sub

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

Private Sub m_fjyt_GotFocus()
    m_fjyt.SelStart = 0
    m_fjyt.SelLength = Len(Trim(m_fjyt.Text))
End Sub

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

Private Sub m_fk_fh_GotFocus()
    m_fk_fh.SelStart = 0
    m_fk_fh.SelLength = Len(Trim(m_fk_fh.Text))
End Sub

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



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

Private Sub m_fk_zh_GotFocus()
    m_fk_zh.SelStart = 0
    m_fk_zh.SelLength = Len(Trim(m_fk_zh.Text))
End Sub

Private Sub m_fk_zh_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_fk_zh_LostFocus
    End If
End Sub

Private Sub m_fk_zh_LostFocus()
    If Not m_fk_zh.Text = "" Then
        If IsNumeric(Trim(m_fk_zh.Text)) Then
            m_czdb.SetFocus
            m_czdb.SelStart = 0
            m_czdb.SelLength = Len(Trim(m_czdb.Text))
        Else
            frm_msg.Caption = "无效付款帐号!"
            m_fk_zh.SetFocus
            m_fk_zh.SelStart = 0
            m_fk_zh.SelLength = Len(Trim(m_fk_zh.Text))
        End If
    Else
        m_czdb.SetFocus
        m_czdb.SelStart = 0
        m_czdb.SelLength = Len(Trim(m_czdb.Text))
    End If
End Sub

Private Sub m_htdm_Change()
     If m_htdm.Text = "" Then
        CMD1.Enabled = False
        
     Else
        CMD1.Enabled = True
     End If
    frm_msg.Caption = ""
End Sub

Private Sub m_htdm_GotFocus()
    m_htdm.SelStart = 0
    m_htdm.SelLength = Len(Trim(m_htdm.Text))
End Sub

Private Sub Cmd2_Click()
    Unload Me
    ht_zfgl.Enabled = True
End Sub


Private Sub m_htdm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_htdm_LostFocus
    End If
End Sub

Private Sub m_htdm_LostFocus()
        If Not m_htdm.Text = "" Then
            Select Case STY
            Case "1"   '修改
                    Set t_rec2 = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT Where Trim(HTDM)='" & Trim(UCase(m_htdm.Text)) & "'", 2, 0, 2)
                    If Not t_rec2.BOF Then
                        t_rec2.MoveLast
                        m_jfdb.Enabled = True
                        m_jfdb_zw.Enabled = True
                        m_zyf.Enabled = True
                        m_yfdb.Enabled = True
                        m_yfdb_zw.Enabled = True
                        m_kf_lxn.Enabled = True
                        m_kf_fs.Enabled = True
                        m_fk_fh.Enabled = True
                        m_fk_zh.Enabled = True
                        m_czdb.Enabled = True
                        m_bz.Enabled = True
                        m_kf_lxc.Enabled = True
                        m_kf_fz.Enabled = True
                        m_lxdh.Enabled = True
                        m_lxcz.Enabled = True
                        m_kr_dj.Enabled = True
                        m_dz.Enabled = True
                        m_dj_fkmc.Enabled = True
                        m_fjyt.Enabled = True
                        
                        m_jfdb.Text = IIf(Trim(t_rec2!JFDB) = "*", "", Trim(t_rec2!JFDB))
                        m_jfdb_zw.Text = IIf(Trim(t_rec2!JFDB_ZW) = "*", "", Trim(t_rec2!JFDB_ZW))
                        m_zyf.Text = IIf(Trim(t_rec2!ZYF) = "*", "", Trim(t_rec2!ZYF))
                        m_yfdb.Text = IIf(Trim(t_rec2!YFDB) = "*", "", Trim(t_rec2!YFDB))
                        m_yfdb_zw.Text = IIf(Trim(t_rec2!YFDB_ZW) = "*", "", Trim(t_rec2!YFDB_ZW))
                        m_kf_lxn.Text = Trim(t_rec2!KF_LXN)
                        m_kf_fs.Text = Trim(t_rec2!KF_FS)
                        m_fk_fh.Text = IIf(Trim(t_rec2!FK_FH) = "*", "", Trim(t_rec2!FK_FH))
                        m_fk_zh.Text = IIf(Trim(t_rec2!FKZH) = "*", "", Trim(t_rec2!FKZH))
                        m_czdb.Text = IIf(Trim(t_rec2!CZDB) = "*", "", Trim(t_rec2!CZDB))
                        m_bz.Text = IIf(Trim(t_rec2!BZ) = "*", "", Trim(t_rec2!BZ))
                        m_kf_lxc.Text = IIf(Trim(t_rec2!KF_LXC) = "*", "", Trim(t_rec2!KF_LXC))
                        m_kf_fz.Text = Trim(t_rec2!kf_fz)
                        m_lxdh.Text = IIf(Trim(t_rec2!LXDH) = "*", "", Trim(t_rec2!LXDH))
                        m_lxcz.Text = IIf(Trim(t_rec2!LXCZ) = "*", "", Trim(t_rec2!LXCZ))
                        m_kr_dj.Text = Trim(t_rec2!kr_dj)
                        m_dz.Text = IIf(Trim(t_rec2!dz) = "*", "", Trim(t_rec2!dz))
                        m_dj_fkmc.Text = IIf(Trim(t_rec2!dj_fkmc) = "*", "", Trim(t_rec2!dj_fkmc))
                        m_fjyt.Text = IIf(Trim(t_rec2!FJYT) = "*", "", Trim(t_rec2!FJYT))
                        m_qsrq.Text = Format(t_rec2!QSRQ, "yyyy-mm-dd")
                        m_jzrq.Text = Format(t_rec2!JZRQ, "yyyy-mm-dd")
                        m_qzrq.Text = Format(t_rec2!QZRQ, "yyyy-mm-dd")
                        m_jfdb.SetFocus
                        Exit Sub
                     Else
                        frm_msg.Caption = "此合同代码不存在!"
                        m_htdm.SetFocus
                        Exit Sub
                     End If
            Case "2"     '删除
                  Set t_rec2 = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT Where Trim(HTDM)='" & Trim(UCase(m_htdm.Text)) & "'", 2, 0, 2)
                  If Not t_rec2.BOF Then
                     t_rec2.MoveLast
                        m_htdm.Text = Trim(t_rec2!HTDM)
                        m_jfdb.Text = Trim(t_rec2!JFDB)
                        m_jfdb_zw.Text = Trim(t_rec2!JFDB_ZW)
                        m_zyf.Text = Trim(t_rec2!ZYF)
                        m_yfdb.Text = Trim(t_rec2!YFDB)
                        m_yfdb_zw.Text = Trim(t_rec2!YFDB_ZW)
                        m_kf_lxn.Text = Trim(t_rec2!KF_LXN)
                        m_kf_fs.Text = Trim(t_rec2!KF_FS)
                        m_fk_fh.Text = Trim(t_rec2!FK_FH)
                        m_fk_zh.Text = Trim(t_rec2!FKZH)
                        m_czdb.Text = Trim(t_rec2!CZDB)
                        m_bz.Text = Trim(t_rec2!BZ)
                        m_lxdh.Text = Trim(t_rec2!LXDH)
                        m_lxcz.Text = Trim(t_rec2!LXCZ)
                        m_kf_lxc.Text = Trim(t_rec2!KF_LXC)
                        m_dz.Text = Trim(t_rec2!dz)
                        m_dj_fkmc.Text = Trim(t_rec2!dj_fkmc)
                        m_fjyt.Text = Trim(t_rec2!FJYT)
                        m_kr_dj.Text = Trim(t_rec2!kr_dj)
                        m_kf_fz.Text = Trim(t_rec2!kf_fz)
                        m_qsrq.Text = Format(t_rec2!QSRQ, "yyyy-mm-dd")
                        m_jzrq.Text = Format(t_rec2!JZRQ, "yyyy-mm-dd")
                        m_qzrq.Text = Format(t_rec2!QZRQ, "yyyy-mm-dd")
                        CMD1.SetFocus
                        Exit Sub
                 Else
                     frm_msg.Caption = "此合同代码不存在!"
                     m_htdm.SetFocus
                     Exit Sub
                 End If
            Case "5"    '查询
                Set t_rec2 = YX_data.OpenRecordset("select HTDM,ZYF,FK_FH,QSRQ,JZRQ,KF_FZ,FJYT,JFDB,JFDB_ZW,YFDB,YFDB_ZW,KF_LXN,KF_FS,FKZH,CZDB,BZ,KF_LXC,LXDH,LXCZ,QZRQ,KR_DJ,DZ,DJ_FKMC,LOCK_NO from YX_ZFHT Where Trim(HTDM)='" & Trim(UCase(m_htdm.Text)) & "'", 2, 0, 2)
                If Not t_rec2.BOF Then
                        t_rec2.MoveLast
                        m_htdm.Text = Trim(t_rec2!HTDM)
                        m_jfdb.Text = Trim(t_rec2!JFDB)
                        m_jfdb_zw.Text = Trim(t_rec2!JFDB_ZW)
                        m_zyf.Text = Trim(t_rec2!ZYF)
                        m_yfdb.Text = Trim(t_rec2!YFDB)
                        m_yfdb_zw.Text = Trim(t_rec2!YFDB_ZW)
                        m_kf_lxn.Text = Trim(t_rec2!KF_LXN)
                        m_kf_fs.Text = Trim(t_rec2!KF_FS)
                        m_fk_fh.Text = Trim(t_rec2!FK_FH)
                        m_fk_zh.Text = Trim(t_rec2!FKZH)
                        m_czdb.Text = Trim(t_rec2!CZDB)
                        m_bz.Text = Trim(t_rec2!BZ)
                        m_lxdh.Text = Trim(t_rec2!LXDH)
                        m_lxcz.Text = Trim(t_rec2!LXCZ)
                        m_kf_lxc.Text = Trim(t_rec2!KF_LXC)
                        m_dz.Text = Trim(t_rec2!dz)
                        m_dj_fkmc.Text = Trim(t_rec2!dj_fkmc)
                        m_fjyt.Text = Trim(t_rec2!FJYT)
                        m_kr_dj.Text = Trim(t_rec2!kr_dj)
                        m_kf_fz.Text = Trim(t_rec2!kf_fz)
                        m_qsrq.Text = Format(t_rec2!QSRQ, "yyyy-mm-dd")
                        m_jzrq.Text = Format(t_rec2!JZRQ, "yyyy-mm-dd")
                        m_qzrq.Text = Format(t_rec2!QZRQ, "yyyy-mm-dd")
                        If CMD1.Enabled = True Then
                            CMD1.Enabled = False
                            Cmd2.SetFocus
                        Else
                            Cmd2.SetFocus
                        End If
                 Else
                    frm_msg.Caption = "此合同代码不存在!"
                    m_htdm.SetFocus
                    Exit Sub
                 End If
        End Select
     Else
        frm_msg.Caption = "合同代码不能为空!"
        m_htdm.SetFocus
     End If
End Sub



Private Sub jl()

    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 = ""
    
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_jfdb_zw.SetFocus
    End If
End Sub

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

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



Private Sub m_jzrq_GotFocus()
    m_jzrq.SelStart = 0
    m_jzrq.SelLength = Len(m_jzrq.Text)
End Sub

Private Sub m_jzrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_jzrq_LostFocus
    End If
End Sub

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

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

Private Sub m_kf_fs_GotFocus()
    m_kf_fs.SelStart = 0
    m_kf_fs.SelLength = Len(Trim(m_kf_fs.Text))
End Sub

Private Sub m_kf_fs_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
       Call m_kf_fs_LostFocus
    End If
End Sub
Private Sub m_kf_fs_LostFocus()
    If Not m_kf_fs.Text = "" Then
        If IsNumeric(Trim(m_kf_fs.Text)) Then
            m_fk_fh.SetFocus
        Else
            frm_msg.Caption = "无效客房房数!"
            m_kf_fs.SetFocus
            m_kf_fs.SelStart = 0
            m_kf_fs.SelLength = Len(Trim(m_kf_fs.Text))
        End If
    Else
        m_kf_fs.Text = "1"
        m_fk_fh.SetFocus
    End If
    
End Sub