yx_hyyd.frm

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

    m_lxr.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 9)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 9)))
    m_lxdh.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 10)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 10)))
    m_jbr.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 11)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 11)))
        Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If

End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    key_index = 100
    Select Case KeyCode
           Case vbKeyF2
                key_index = 0   '建立
           Case vbKeyF3
                key_index = 1   '修改
           Case vbKeyF4
                key_index = 2   '解除
           Case vbKeyF5
                key_index = 3   '打印
           Case vbKeyF7
                key_index = 4   '租用明细
           Case vbKeyF9
                key_index = 6   '筛选
           Case vbKeyF6
                key_index = 5   '刷新
           Case vbKeyEscape
                key_index = 99 '退出
    End Select
    
        If key_index = 99 Then
            If Frame2.Enabled = False And Frame4.Enabled = False Then
                Call Cmd3_Click
            Else
                Call atfirst
            End If
        Else
            If Frame2.Enabled = False And Frame4.Enabled = False Then
                Call Cmd2_Click(key_index)
            End If
        End If
End Sub

Private Sub m_df_js_Change()
    If Not frm_msg.Caption = "" Then
        frm_msg.Caption = ""
    End If
End Sub

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



Private Sub m_hy_ddh_Change()
    If Trim(m_hy_ddh.Text) = "" Or CMD1(1).Enabled = False Then
        CMD1(0).Enabled = False
    Else
        CMD1(0).Enabled = True
    End If
    frm_msg.Caption = ""
End Sub

Private Sub m_hy_ddh_GotFocus()
        m_hy_ddh.SelStart = 0
        m_hy_ddh.SelLength = Len(Trim(m_hy_ddh.Text))
        If m_hy_ddh.Text = "" Then
            CMD1(0).Enabled = False
        End If
End Sub

Private Sub m_hy_ddh_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        If Not Trim(m_hy_ddh.Text) = "" Then
            Call m_hy_ddh_LostFocus
        Else
            m_hy_ddh.SetFocus
            m_hy_ddh.SelStart = 0
            m_hy_ddh.SelLength = Len(Trim(m_hy_ddh.Text))
        End If
    End If
End Sub
'会议订单号
Private Sub m_hy_ddh_LostFocus()
    If Frame2.Enabled = True Then
        Dim LS_REC1 As Recordset
        If Not Trim(m_hy_ddh.Text) = "" Then
            ''建立
'            If pass = "0" Then
'                Set rec = YX_data.OpenRecordset("SELECT HY_DDH FROM HY_YDDK WHERE HY_DDH='" & UCase(Trim(m_hy_ddh.Text)) & "'", 4)
'                If Not rec.BOF Then
'                    rec.MoveLast
'                    frm_msg.Caption = "此会议单号已存在!"
'                    m_hy_ddh.SetFocus
'                    m_hy_ddh.SelStart = 0
'                    m_hy_ddh.SelLength = Len(Trim(m_hy_ddh.Text))
'                Else
'                    If m_zb_dw.Enabled = False Then
'                        m_zb_dw.Enabled = True
'                        m_zb_dw.SetFocus
'                        m_zb_dw.SelStart = 0
'                        m_zb_dw.SelLength = Len(Trim(m_zb_dw.Text))
'                    Else
'                        m_zb_dw.SetFocus
'                        m_zb_dw.SelStart = 0
'                        m_zb_dw.SelLength = Len(Trim(m_zb_dw.Text))
'                    End If
'                End If
'                rec.Close
            '非建立
'            Else
                m_hy_ddh.BackColor = &H80000016
                m_hy_ddh.Enabled = False
                Set LS_REC1 = YX_data.OpenRecordset("select * from HY_YDDK  where HY_DDH='" & UCase(Trim(m_hy_ddh.Text)) & " '", 2, 0, 2)
                If Not LS_REC1.BOF Then '单号存在
                      LS_REC1.MoveLast
                      m_zb_dw.Enabled = True
                      m_qsrq.Enabled = True
                      m_jzrq.Enabled = True
                      m_rs.Enabled = True
                      m_ydd_h.Enabled = True
                      m_zjhj.Enabled = True
                      m_ydd_h.Enabled = True
                    
                      m_lxr.Enabled = True
                      m_lxdh.Enabled = True
                      m_jbr.Enabled = True
                      opt1(0).Enabled = True
                      opt1(1).Enabled = True
                      
                      If Not IsNull(LS_REC1!ZB_DW) And Trim(LS_REC1!ZB_DW) <> "*" Then
                        m_zb_dw.Text = Trim(LS_REC1!ZB_DW)
                      End If
                      If Not IsNull(LS_REC1!QSRQ) Then
                        m_qsrq.Text = Format(Trim(LS_REC1!QSRQ), "yyyy-mm-dd")
                      End If
                      If Not IsNull(LS_REC1!JZRQ) Then
                        m_jzrq.Text = Format(Trim(LS_REC1!JZRQ), "yyyy-mm-dd")
                      End If
                      m_rs.Text = LS_REC1!RS
                      m_zjhj.Text = LS_REC1!ZJHJ
                      If LS_REC1!DF_FT = "T" Then
                          opt1(0).Value = True
                          m_ydd_h.Text = LS_REC1!YDD_H
                          m_df_js.Text = LS_REC1!DF_JS
                      Else
                          opt1(1).Value = True
                          m_ydd_h.Text = ""
                          m_df_js.Text = "0"
                      End If
                      If Not IsNull(LS_REC1!LXR) And Trim(LS_REC1!LXR) <> "*" Then
                        m_lxr.Text = LS_REC1!LXR
                      End If
                      
                      If Not IsNull(LS_REC1!LXDH) And Trim(LS_REC1!LXDH) <> "*" Then
                        m_lxdh.Text = LS_REC1!LXDH
                      End If
                      If Not IsNull(LS_REC1!JBR) And Trim(LS_REC1!JBR) <> "*" Then
                        m_jbr.Text = LS_REC1!JBR
                      End If
                      
                      If pass = "1" Then   '修改
                          m_zb_dw.SetFocus
                          m_zb_dw.SelStart = 0
                          m_zb_dw.SelLength = Len(Trim(m_zb_dw.Text))
                      Else
                          If pass = "2" Then '删除
                              m_zb_dw.Enabled = False
                              m_qsrq.Enabled = False
                              m_jzrq.Enabled = False
                              m_rs.Enabled = False
                              m_ydd_h.Enabled = False
                              m_zjhj.Enabled = False
                              m_ydd_h.Enabled = False
                              m_df_js.Enabled = False
                              m_lxr.Enabled = False
                              m_lxdh.Enabled = False
                              m_jbr.Enabled = False
                              opt1(0).Enabled = False
                              opt1(1).Enabled = False
                              CMD1(0).SetFocus
                          End If
                      End If
                Else  '
                      response = MsgBox("此预订单号不存在,是否重输?", 1, "")
                          If response = 1 Then
                              If m_hy_ddh.Enabled = False Then
                                  m_hy_ddh.Enabled = True
                                  m_hy_ddh.BackColor = &H80000005
                                  m_hy_ddh.SetFocus
                              Else
                                  m_hy_ddh.SetFocus
                                  m_hy_ddh.BackColor = &H80000005
                              End If
                          Else
                              Call atfirst
                              Exit Sub
                          End If
                End If
        End If
    End If
End Sub

Private Sub m_jbr_Change()
    If Not frm_msg.Caption = "" Then
        frm_msg.Caption = ""
    End If
End Sub

Private Sub m_jbr_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        If CMD1(0).Enabled = False Then
            CMD1(1).SetFocus
        Else
            CMD1(0).SetFocus
        End If
    End If
End Sub





Private Sub m_jfdb1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_qsrq1.SetFocus
        m_qsrq1.SelStart = 0
        m_qsrq.SelLength = Len(m_qsrq1.Text)
    End If
End Sub

Private Sub m_jzrq_Change()
    If Not frm_msg.Caption = "" Then
        frm_msg.Caption = ""
    End If
End Sub


Private Sub m_jzrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        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
            Call m_jzrq_LostFocus
        Else
            m_rs.SetFocus
            m_rs.SelStart = 0
            m_rs.SelLength = Len(Trim(m_rs.Text))
        End If
    End If
End Sub

Private Sub m_jzrq_LostFocus()
If Frame2.Enabled = True Then
    If Not m_jzrq.Text = "    -  -  " Then
        If IsDate(m_jzrq.Text) Then
                If CDate(Trim(m_jzrq.Text)) >= CDate(Trim(m_qsrq.Text)) Then
                    m_rs.SetFocus
                    m_rs.SelStart = 0
                    m_rs.SelLength = Len(Trim(m_rs.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)
        End If
    End If
End If
End Sub

Private Sub m_lxdh_Change()
    If Not frm_msg.Caption = "" Then
        frm_msg.Caption = ""
    End If
End Sub

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



Private Sub m_lxr_Change()
    If Not frm_msg.Caption = "" Then
        frm_msg.Caption = ""
    End If
End Sub

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



Private Sub m_qsrq_Change()
    If Not frm_msg.Caption = "" Then
        frm_msg.Caption = ""
    End If
End Sub


Private Sub m_qsrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        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
            Call m_qsrq_LostFocus
        Else
            m_jzrq.SetFocus
        End If
    End If
End Sub

Private Sub m_qsrq_LostFocus()
If Frame2.Enabled = True Then
    If Not m_qsrq.Text = "    -  -  " Then
        If IsDate(m_qsrq.Text) Then
            If CDate(Trim(m_qsrq.Text)) >= Date Then
                m_jzrq.SetFocus
            Else
                frm_msg.Caption = "无效开会日期!!"
                m_qsrq.SetFocus
                m_qsrq.SelStart = 0
                m_qsrq.SelLength = Len(m_qsrq.Text)
            End If
        Else