dt_ckgl.frm

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

    End Select

End Sub



Private Sub Form_Activate()
    gd1.SetFocus
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    key_index = 100
    frm_msg.Caption = ""
    frm_msg.Visible = False
    
    Select Case KeyCode
    Case vbKeyF2
            key_index = 0   '增加
    Case vbKeyF3
            key_index = 1   '修改
    Case vbKeyF4
            key_index = 2   '删除
    Case vbKeyF5
            key_index = 3   '打印
    Case vbKeyF6
            key_index = 4   '筛选
    Case vbKeyF9
            key_index = 5   '筛选
    Case vbKeyEscape
            key_index = 101 '退出
    End Select
    
    If key_index <> 100 Then
        If key_index = 101 Then
            Call CMD_EXIT_Click
        Else
            If cmd_func(key_index).Enabled Then
                Call cmd_func_Click(key_index)
            End If
        End If
    End If
End Sub

Private Sub m_bz_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        cm_tsfw.SetFocus
    Case vbKeyDown, vbKeyReturn
        cmd_ok(0).SetFocus
    End Select

End Sub

Private Sub m_dfy_dm_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_kr_sr.SetFocus
    Case vbKeyDown, vbKeyReturn
        m_gjdm.SetFocus
    End Select

End Sub

Private Sub m_dz_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_ldcs.SetFocus
    Case vbKeyDown, vbKeyReturn
        m_kf_fz.SetFocus
    End Select

End Sub

Private Sub m_gjdm_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_dfy_dm.SetFocus
    Case vbKeyDown, vbKeyReturn
        cm_gjmc.SetFocus
    End Select

End Sub

Private Sub m_kf_fz_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_dz.SetFocus
    Case vbKeyReturn
        m_kf_zkl.SetFocus
    End Select

End Sub

Private Sub m_kf_zkl_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
'        m_kf_fz.SetFocus
    Case vbKeyReturn
        cm_tsfw.SetFocus
    End Select

End Sub

Private Sub m_kr_m_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_kr_x.SetFocus
    Case vbKeyDown, vbKeyReturn
        m_yw_x.SetFocus
    End Select

End Sub

Private Sub m_kr_qz_yxq_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        cm_qzmc.SetFocus
    Case vbKeyDown, vbKeyReturn
        m_ldcs.SetFocus
    End Select

End Sub

Private Sub m_kr_sr_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        If op_xb(0).Value Then
            op_xb(0).SetFocus
        ElseIf op_xb(1).Value Then
            op_xb(2).SetFocus
        Else
            op_xb(2).SetFocus
        End If
    Case vbKeyDown, vbKeyReturn
        m_dfy_dm.SetFocus
    End Select

End Sub

Private Sub m_kr_x_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_xh.SetFocus
    Case vbKeyDown, vbKeyReturn
        m_kr_m.SetFocus
    End Select

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_kr_x_LostFocus()
'    m_kr_x.Text = UCase(m_kr_x.Text)
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_kr_m_LostFocus()
'    m_kr_m.Text = UCase(m_kr_m.Text)
End Sub




Private Sub m_kr_zjhm_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        cm_zjmc.SetFocus
    Case vbKeyDown, vbKeyReturn
        m_qzdm.SetFocus
    End Select

End Sub


Private Sub m_ldcs_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
'        m_kr_qz_yxq.SetFocus
    Case vbKeyReturn
        m_dz.SetFocus
    End Select

End Sub

Private Sub m_qzdm_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_kr_zjhm.SetFocus
    Case vbKeyDown, vbKeyReturn
        cm_qzmc.SetFocus
    End Select

End Sub

Private Sub m_xh_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_xh.SetFocus
        'cmd_ok(1).SetFocus
    Case vbKeyReturn  ', vbKeyDown
        m_kr_x.SetFocus
    End Select
End Sub

'**************************************************************************************************
'*  功    能 : 修改和删除时, 失去焦点时查找DT_CKQD表中XH=M_XH.TEXT的记录并显示
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_xh_LostFocus()
    Dim ckqd_rec As Recordset

    If Trim(m_xh.Text) = "" Then
        m_xh.Text = 0
    End If
    
    Set ckqd_rec = PUB_data.OpenRecordset("SELECT * FROM DT_CKQD WHERE XH=" & m_xh.Text, 4, 0, 2)
    If Not ckqd_rec.BOF Then
        ckqd_rec.MoveLast
        tPkjTextSet ckqd_rec, 1
    Else
        frm_msg.Visible = True
        frm_msg.Caption = "没有满足条件的记录"
        m_xh.SetFocus
    End If
    ckqd_rec.Close
    
    Select Case t_funcNo
    Case "1"    '修改
'        m_kr_x.SetFocus
    Case "2"    '删除
        cmd_ok(0).SetFocus
    End Select
End Sub

Private Sub m_yw_m_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_yw_x.SetFocus
    Case vbKeyDown, vbKeyReturn
        If op_xb(0).Value Then
            op_xb(0).SetFocus
        ElseIf op_xb(1).Value Then
            op_xb(1).SetFocus
        Else
            op_xb(2).SetFocus
        End If
    End Select

End Sub

Private Sub m_yw_x_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        m_kr_m.SetFocus
    Case vbKeyDown, vbKeyReturn
        m_yw_m.SetFocus
    End Select

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_yw_x_LostFocus()
'    m_yw_x.Text = UCase(m_yw_x.Text)
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_yw_m_LostFocus()
'    m_yw_m.Text = UCase(m_yw_m.Text)
End Sub




'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_gjdm_LostFocus()
    m_gjdm.Text = UCase(Trim(m_gjdm.Text))
    Call PUB_DMLostFocus(m_gjdm, cm_gjmc, frm_msg, "不适当的国籍代码")

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_gjmc_LostFocus()

    Call PUB_MCLostFocus(m_gjdm, cm_gjmc, frm_msg, "不适当的国籍信息")

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_gjmc_Click()
    m_gjdm.Text = cm_gjmc.List(cm_gjmc.ListIndex, 0)
    cm_gjmc.Text = cm_gjmc.List(cm_gjmc.ListIndex, 1)
End Sub

Private Sub m_zjdm_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyUp
        cm_gjmc.SetFocus
    Case vbKeyDown, vbKeyReturn
        cm_zjmc.SetFocus
    End Select

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_zjdm_LostFocus()

    Call PUB_DMLostFocus(m_zjdm, cm_zjmc, frm_msg, "不适当的证件代码")

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_zjmc_LostFocus()

    Call PUB_MCLostFocus(m_zjdm, cm_zjmc, frm_msg, "不适当的证件信息")

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_zjmc_Click()
    m_zjdm.Text = cm_zjmc.List(cm_zjmc.ListIndex, 0)
    cm_zjmc.Text = cm_zjmc.List(cm_zjmc.ListIndex, 1)
End Sub



'*****************************************************