📄 ht_hyxy.frm

📁 该系统为酒店日常管理提供了很大的方便
💻 FRM
📖 第 1 页 / 共 5 页
字号:
                                Exit Sub
                        End Select
                    Loop
                    t_rec3.Edit '修改 '
                        If Not m_jfdb.Text = "" Then
                            t_rec3!JFDB = Trim(UCase(m_jfdb.Text))
                        Else
                            t_rec3!JFDB = "*"
                        End If
                        
                        t_rec3!YFDW = Trim(UCase(m_yfdw.Text))
                        
                        If m_lxdh.Text = "" Then
                            t_rec3!LXDH = "*"
                        Else
                            t_rec3!LXDH = Trim(UCase(m_lxdh.Text))
                        End If
                        
                        t_rec3!ZGYH = CDec(Trim(m_zgyh.Text))
                        t_rec3!QJHY = CDec(Trim(m_qjhy.Text))
                        t_rec3!FJYH1 = CDec(Trim(m_yh1.Text))
                        t_rec3!FJYH1HY = CDec(Trim(m_yh1_hy.Text))
                        t_rec3!FJYH2 = CDec(Trim(m_yh2.Text))
                        t_rec3!FJYH2HY = CDec(Trim(m_yh2_hy.Text))
                        t_rec3!YXQ = CDate(Trim(m_yxq.Text))
                        t_rec3!QZRQ = CDate(Trim(m_qzrq.Text))
                    t_rec3.Update
                    '解锁
                    Call Pub_UNlock("YX_HYXY", t_rec3)
                    frm_msg.Caption = "回佣协议成功修改!"
                    t_rec3.Close
                    Call flex1_ref
                 Call first
            End If
                Case "2"    '删除
                Set rec = YX_data.OpenRecordset("SELECT HTDM ,LOCK_NO FROM YX_HYXY Where Trim(HTDM)='" & UCase(Trim(m_hyxyh.Text)) & "'", 2, 0, 2)
                If Not rec.BOF Then
                    rec.MoveLast
                    '加锁
                    Do
                        Select Case Pub_lock("YX", "YX_HYXY", rec)  '判断加锁结果
                            Case "1" '锁定
                                Exit Do
                            Case "2"  '
                                Call Pub_UNlock("YX_HYXY", rec)
                                Exit Sub
                        End Select
                    Loop
                    Dim hyxy_t As String
                    hyxy_t = "HYXY" & year(Format(Date, "yyyy-mm-dd"))
                    YX_data.Execute "INSERT INTO " & hyxy_t & " SELECT * FROM YX_HYXY WHERE HTDM='" & UCase(Trim(m_hyxyh.Text)) & "'"
                    YX_data.Execute "DELETE FROM YX_HYXY WHERE HTDM='" & UCase(Trim(m_hyxyh.Text)) & "'"
                    Call Pub_UNlock("YX_HYXY", t_rec)
                End If
                    Call flex1_ref
                    Call first
            End Select
    Case 1
        Call first
    End Select
End Sub

Private Sub Cmd2_Click(Index As Integer)
    Select Case Index
    Case 0
        FLEX1.Enabled = False
        STY = "0"
        nam.Caption = "当前状态:回佣协议建立"
        Call jl
    Case 1
        FLEX1.Enabled = False
        STY = "1"
        nam.Caption = "当前状态:回佣协议修改"
        Call xg
        If m_hyxyh.Enabled = False Then
            m_hyxyh.Enabled = True
            m_hyxyh.SetFocus
        Else
            m_hyxyh.SetFocus
        End If
    Case 2
        FLEX1.Enabled = False
        STY = "2"
        nam.Caption = "当前状态:回佣协议解除"
        Call sc
        If m_hyxyh.Enabled = False Then
            m_hyxyh.Enabled = True
            m_hyxyh.SetFocus
        Else
            m_hyxyh.SetFocus
        End If
    Case 3  '打印
        If T_TJ = "" Then
            Set t_rec = YX_data.OpenRecordset("select HTDM,YFDW,LXDH,ZGYH,QJHY,FJYH1,FJYH1HY,FJYH2,FJYH2HY from YX_HYXY", 4)
            If Not t_rec.BOF Then
                t_rec.MoveLast
                Call print_tabler(t_rec, "回佣协议清单", Array("合同代码", "租用单位", "联系电话", "最高优惠 ", "全价回佣", "房价优惠1 ", "房价优惠1回佣", "房价优惠2", "房价优惠2回佣"), Array(15, 18, 15, 10, 12, 10, 12, 10, 12), 0, Array(11, 11, 11, 21, 21, 21, 21, 21, 21))
            Else
                MsgBox "无可打印信息!", 64
                Call flex1_ref
                Call first
                Exit Sub
            End If                                                                                                                                                                                      'HTDM,JFDB,YFDW,LXDH,ZGYH,QJHY,FJYH1,FJYH1HY,FJYH2,FJYH2HY
        Else
            Set t_rec = YX_data.OpenRecordset("select HTDM,YFDW,LXDH,ZGYH,QJHY,FJYH1,FJYH1HY,FJYH2,FJYH2HY from YX_HYXY WHERE " & T_TJ & "", 4)
            If Not t_rec.BOF Then
                t_rec.MoveLast
                Call print_tabler(t_rec, "回佣协议清单", Array("合同代码", "租用单位", "联系电话", "最高优惠 ", "全价回佣", "房价优惠1 ", "房价优惠1回佣", "房价优惠2", "房价优惠2回佣"), Array(15, 18, 15, 10, 12, 10, 12, 10, 12), 0, Array(11, 11, 11, 21, 21, 21, 21, 21, 21))
            Else
                MsgBox "无可打印信息!", 64
                Call flex1_ref
                Call first
                Exit Sub
            End If
        End If
    Case 4  '筛选
        FLEX1.Enabled = False
        STY = "4"
        Call sx
        m_jfdb1.SetFocus
    Case 5 '刷新
        frm_msg.Caption = ""
        Call flex1_ref
    End Select
End Sub

Private Sub Cmd3_Click()
    Unload Me
    yx_main.Show (1)
End Sub

Private Sub flex1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Cmd2(0).SetFocus
    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 vbKeyF6
                key_index = 4   '筛选
           Case vbKeyF9
                key_index = 5   '刷新
           Case vbKeyEscape
                key_index = 99 '退出
    End Select
        If key_index = 99 Then
            If Frame2.Enabled = False And Frame3.Enabled = False Then
                Call Cmd3_Click
            Else
                Call first
            End If
        Else
            If Frame2.Enabled = False And Frame3.Enabled = False Then
                Call Cmd2_Click(key_index)
            End If
        End If
End Sub
Sub MAIN(t_gnmc As String)
   Label1.Caption = t_gnmc
   JZ_USER = SYS_USER + Space(1) + SYS_NAME
   JZ_JRSJ2 = Time()
   JZ_DQSJ2 = Time()
End Sub

Private Sub m_htdm1_GotFocus()
    m_htdm1.SelStart = 0
    m_htdm1.SelLength = Len(Trim(m_htdm1.Text))
End Sub

Private Sub m_htdm1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_yxq1.SetFocus
    End If
End Sub
Private Sub m_hyxyh_Change()
   If FLEX1.Enabled = False Then
    frm_msg.Caption = ""
   End If
End Sub

Private Sub m_hyxyh_GotFocus()
    m_hyxyh.SelStart = 0
    m_hyxyh.SelLength = Len(Trim(m_hyxyh.Text))
End Sub

Private Sub m_hyxyh_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_hyxyh_LostFocus
    End If
End Sub

Private Sub m_hyxyh_LostFocus()
    If Not m_hyxyh.Text = "" Then
        Select Case STY
        Case "1"    '修改
            Set rec = YX_data.OpenRecordset("SELECT HTDM ,JFDB,YFDW,LXDH,ZGYH,QJHY,FJYH1,FJYH1HY,FJYH2,FJYH2HY,YXQ,QZRQ,LOCK_NO FROM YX_HYXY Where Trim(HTDM)='" & UCase(Trim(m_hyxyh.Text)) & "'", 4)
            If rec.BOF Then
                frm_msg.Caption = "此回佣协议号不存在!"
                m_hyxyh.SetFocus
                m_hyxyh.SelStart = 0
                m_hyxyh.SelLength = Len(Trim(m_hyxyh.Text))
            Else
                rec.MoveLast
                m_jfdb.Enabled = True
                m_yfdw.Enabled = True
                m_lxdh.Enabled = True
                m_zgyh.Enabled = True
                m_qjhy.Enabled = True
                m_yh1.Enabled = True
                m_yh1_hy.Enabled = True
                m_yh2.Enabled = True
                m_yh2_hy.Enabled = True
                m_qzrq.Enabled = True
                m_yxq.Enabled = True
                
                m_jfdb.Text = Trim(rec!JFDB)
                m_yfdw.Text = Trim(rec!YFDW)
                m_lxdh.Text = Trim(rec!LXDH)
                m_zgyh.Text = CStr(Trim(rec!ZGYH))
                m_qjhy.Text = CStr(Trim(rec!QJHY))
                m_yh1.Text = CStr(Trim(rec!FJYH1))
                m_yh1_hy.Text = CStr(Trim(rec!FJYH1HY))
                m_yh2.Text = CStr(Trim(rec!FJYH2))
                m_yh2_hy.Text = CStr(Trim(rec!FJYH2HY))
                m_qzrq.Text = CStr(Trim(Format(rec!QZRQ, "yyyy-mm-mm")))
                m_yxq.Text = CStr(Trim(Format(rec!YXQ, "yyyy-mm-mm")))
                m_jfdb.SetFocus
                m_jfdb.SelStart = 0
                m_jfdb.SelLength = Len(Trim(m_jfdb.Text))
            End If
        Case "2"    '删除
                Set rec = YX_data.OpenRecordset("SELECT HTDM ,JFDB,YFDW,LXDH,ZGYH,QJHY,FJYH1,FJYH1HY,FJYH2,FJYH2HY,YXQ,QZRQ,LOCK_NO FROM YX_HYXY Where Trim(HTDM)='" & UCase(Trim(m_hyxyh.Text)) & "'", 2, 0, 2)
                If rec.BOF Then
                    frm_msg.Caption = "此回佣协议号不存在!"
                    m_hyxyh.SetFocus
                    m_hyxyh.SelStart = 0
                    m_hyxyh.SelLength = Len(Trim(m_hyxyh.Text))
                Else
                    rec.MoveLast
                    m_jfdb.Text = Trim(rec!JFDB)
                    m_yfdw.Text = Trim(rec!YFDW)
                    m_lxdh.Text = Trim(rec!LXDH)
                    m_zgyh.Text = CStr(Trim(rec!ZGYH))
                    m_qjhy.Text = CStr(Trim(rec!QJHY))
                    m_yh1.Text = CStr(Trim(rec!FJYH1))
                    m_yh1_hy.Text = CStr(Trim(rec!FJYH1HY))
                    m_yh2.Text = CStr(Trim(rec!FJYH2))
                    m_yh2_hy.Text = CStr(Trim(rec!FJYH2HY))
                    m_qzrq.Text = CStr(Trim(Format(rec!QZRQ, "yyyy-mm-mm")))
                    m_yxq.Text = CStr(Trim(Format(rec!YXQ, "yyyy-mm-mm")))
                    cmd1(0).SetFocus
                End If
            End Select
        Else
            frm_msg.Caption = "请输入回佣协议号..."
            m_hyxyh.SetFocus
            m_hyxyh.SelStart = 0
            m_hyxyh.SelLength = Len(Trim(m_hyxyh.Text))
    End If
End Sub



Private Sub m_jfdb_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
            m_yfdw.SetFocus
            m_yfdw.SelStart = 0
            m_yfdw.SelLength = Len(Trim(m_yfdw.Text))
        End If
End Sub

Private Sub m_jfdb1_GotFocus()
    m_jfdb1.SelStart = 0
    m_jfdb1.SelLength = Len(Trim(m_jfdb1.Text))
End Sub

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

Private Sub m_qzrq_GotFocus()
    m_qzrq.Text = Format(Date, "yyyy-mm-dd")
End Sub

Private Sub m_yxq1_GotFocus()
    m_yxq1.SelStart = 0
    m_yxq1.SelLength = Len(m_yxq1.Text)
End Sub

Private Sub m_yxq1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_yxq1_LostFocus
    End If
End Sub

Private Sub m_yxq1_LostFocus()
If Frame3.Enabled = True Then
     If Not m_yxq1.Text = "    -  -  " Then
        t_rq = date_cl(m_yxq1.Text)
            If t_rq <> "F" Then
                m_yxq1 = t_rq
            End If
        If IsDate(Trim(m_yxq1.Text)) Then
            If CDate(m_yxq1.Text) >= Date Then
                m_qzrq1.SetFocus
                m_qzrq1.SelStart = 0
                m_qzrq1.SelLength = Len(m_qzrq1.Text)
            Else
                frm_msg.Caption = "无效日期!"
                m_yxq1.SetFocus
                m_yxq1.SelStart = 0
                m_yxq1.SelLength = Len(m_yxq1.Text)
                Exit Sub
            End If
        Else
            frm_msg.Caption = "无效日期!"
            m_yxq1.SetFocus
            m_yxq1.SelStart = 0
            m_yxq1.SelLength = Len(m_yxq1.Text)
            Exit Sub
        End If
    Else
        m_qzrq1.SetFocus
    End If
End If
End Sub

Private Sub m_qzrq1_GotFocus()
    m_qzrq1.SelStart = 0
    m_qzrq1.SelLength = Len(m_qzrq1.Text)
End Sub

Private Sub m_qzrq1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_qzrq1_LostFocus
    End If
End Sub

Private Sub m_qzrq1_LostFocus()
    If Frame3.Enabled = True Then
            If m_jfdb1.Text = "" Then
                T_TJ = ""
            Else
                T_TJ = "TRIM(JFDB)='" & Trim(m_jfdb1.Text) & "'"
            End If
            
            If Trim(m_htdm1.Text) <> "" Then
                If T_TJ = "" Then
                   T_TJ = T_TJ & "TRIM(HTDM)='" & Trim(m_htdm1) & "'"
                Else
                   T_TJ = T_TJ & " AND TRIM(HTDM)='" & Trim(m_htdm1) & "'"
                End If
            End If
            
            If m_yxq1.Text <> "    -  -  " Then
                If T_TJ = "" Then
💿 文件大小 2647 K
👤 上传用户 managerliu123
📂 所属分类酒店行业
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -