zw_zpcx.frm

vb不酒店管理系统

                    Call tPkjEnabledFT(True)
                    
                    Call tPkjTextSet(zpxyk_rec, 1)
                    '界面BUTTON初始化
                    Call button_refresh(False)
                    gd1.Enabled = False
                
                    m_xyk_hm.SetFocus
                Else
                    frm_msg.Visible = True
                    frm_msg.Caption = "没有满足条件的记录"
                End If
                zpxyk_rec.Close
            Else
                frm_msg.Visible = True
                frm_msg.Caption = "没有满足条件的记录"
            End If '

    Case 3  '打印

    Case 5  '刷新
            Call flex_refresh
            gd1.SetFocus
    End Select

End Sub

'**************************************************************************************************
Private Sub Form_Activate()
    op_zpxyk(1).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 vbKeyF3
            key_index = 1   '修改
    Case vbKeyF5
            key_index = 3   '打印
    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)
    If KeyCode = vbKeyReturn Then
        m_lb.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_fkdw_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        m_lxdh.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_kr_zjhm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        m_qfrq.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_lb_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cm_lb_mc.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_lxdh_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        m_lxr.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_lxr_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        m_kr_zjhm.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_qfrq_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        m_bz.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_sqhm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cmd_ok(1).SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_sx_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cm_sx_mc.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_xyk_hm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        m_yh_hh.SetFocus
    End If
End Sub

'**************************************************************************************************
Private Sub m_yh_hh_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cm_yh_hm.SetFocus
    End If
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_yh_hh_LostFocus()
    m_yh_hh.Text = UCase(Trim(m_yh_hh.Text))
    Call PUB_DMLostFocus(m_yh_hh, cm_yh_hm, frm_msg, "不适当的银行代码")

End Sub

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

    Call PUB_MCLostFocus(m_yh_hh, cm_yh_hm, frm_msg, "不适当的银行名")

End Sub

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


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_lb_LostFocus()
    m_lb.Text = UCase(Trim(m_lb.Text))
    Call PUB_DMLostFocus(m_lb, cm_lb_mc, frm_msg, "不适当的信用卡类别代码")

End Sub

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

    Call PUB_MCLostFocus(m_lb, cm_lb_mc, frm_msg, "不适当的信用卡类别")

End Sub

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

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_sx_LostFocus()
    m_sx.Text = UCase(Trim(m_sx.Text))
    Call PUB_DMLostFocus(m_sx, cm_sx_mc, frm_msg, "不适当的信用卡属性代码")

End Sub

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

    Call PUB_MCLostFocus(m_sx, cm_sx_mc, frm_msg, "不适当的信用卡属性")

End Sub

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

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

    frm_msg.Visible = False
    frm_msg.Caption = ""

    zw_zpcx.KeyPreview = True
     
    Call PUB_GetCMDB(PUB_data, cm_yh_hm, "ZW_YHM", "YH_HH", "YH_HM")
    Call PUB_GetCMDB(PUB_data, cm_lb_mc, "ZW_XYKSX", "XYK_DM", "XYK_MC")
    Call PUB_GetCMDB(PUB_data, cm_sx_mc, "ZW_XYKSX", "XYK_DM", "XYK_MC")
     
    Call tPxs_ZPXYK
    
    Call tPkjTextSet(flex_rec, 0)    '把当前字段清空
    
    Call tPkjEnabledFT(False)

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_GotFocus()
    Dim zpxyk_rec As Recordset
    
    If gd1.Rows - 1 <> 0 Then
        Set zpxyk_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK WHERE FSRQ=#" & gd1.TextArray(gd1.Row * t_fdcounts) & "# AND TRIM(ZDH)='" & Trim(gd1.TextArray(gd1.Row * t_fdcounts + 1)) & "' AND TRIM(JZY)='" & SYS_USER & "'", 4, 0, 2)
        If Not zpxyk_rec.BOF Then
            zpxyk_rec.MoveLast
            tPkjTextSet zpxyk_rec, 1     '按记录集给字段赋值
        Else
            tPkjTextSet zpxyk_rec, 0    '把字段清空
        End If
        zpxyk_rec.Close
    Else
        tPkjTextSet zpxyk_rec, 0   '把字段清空
    End If
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cmd_func(0).SetFocus
    End If
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_RowColChange()
    gd1.Refresh
    Call gd1_GotFocus
End Sub

Private Sub op_zpxyk_Click(Index As Integer)
    Call tPxs_ZPXYK
    gd1.SetFocus
End Sub

Private Sub op_zpxyk_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        gd1.SetFocus
    End If
End Sub

Private Sub XT_Timer_Timer()
    JZ_DQSJ2.Caption = Time()
End Sub