ht_zfgl.frm

该系统为酒店日常管理提供了很大的方便

Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim key_index As Integer
Dim t_bt As String
Dim t_fields As Variant
Dim pass As String
Dim t_rec3 As Recordset   'ADDNEW,EDIT,DELETE
Dim t_rec4 As Recordset   'LOCK_NO
Dim t_rec As Recordset    'MSFLEXGRID
Dim t_rq As String
Dim T_TJ As String



Private Sub Form_Load()
   Dim sys_uid As String, sys_pwd As String
    JZ_USER = SYS_USER + Space(1) + SYS_NAME
    JZ_JRSJ2 = Time()
    CENTER Me
    
    Set t_rec = 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", 4)
    If Not t_rec.BOF Then
        t_rec.MoveLast
    End If
    KeyPreview = True
    tab_nam.Caption = "租房合同一览表"
    Call first
    t_fields = Array(0, 1, 2, 3, 4, 5, 6)
    t_bt = "^ 合同代码 |^  租用方  |^ 付款房号  |^ 起始日期 |^ 终止日期 |^客房房租|^ 房间用途 "
    Call pub_memo.Flex_full(FLEX1, t_bt, t_rec, t_fields, 6, Array(0, 0, 0, 0, 0, 0, 0))
    rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub

Private Sub Cmd2_Click(Index As Integer)
    Select Case Index
    Case 0  '建立
        FLEX1.Enabled = False
        STY = "0"
        zfht_pop.tf = False
        zfht_pop.Show (1)
        If zfht_pop.tf Then
            'frm_msg.Caption = "租房合同成功建立!"
            Call flex1_ref
            Call first
        Else
            Call first
        End If
    Case 1  '修改
        FLEX1.Enabled = False
        STY = "1"
        zfht_pop.tf = False
        zfht_pop.Show (1)
        If zfht_pop.tf Then
            frm_msg.Caption = "租房合同成功修改!"
            Call flex1_ref
            Call first
        Else
            Call first
        End If
    Case 2  '删除
        FLEX1.Enabled = False
        STY = "2"
        zfht_pop.tf = False
        zfht_pop.Show (1)
        If zfht_pop.tf Then
            frm_msg.Caption = "租房合同成功删除!"
            Call flex1_ref
            Call first
        Else
            Call first
        End If
    Case 3 '打印
            If T_TJ = "" Then
                Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,QSRQ,JZRQ,FJYT,KF_FZ,FK_FH from YX_ZFHT", 4)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                    Call print_tabler(t_rec, "租房合同清单", Array("合同代码", "租用方", "起始日期", "终止日期 ", "房间用途 ", "客房房租", "付款房号"), Array(18, 40, 12, 12, 12, 12, 10), 0, Array(11, 11, 11, 11, 11, 21, 21))
                Else
                    MsgBox "无可打印信息!", 64
                    Call flex1_ref
                    Call first
                    Exit Sub
                End If
            Else
                Set t_rec = YX_data.OpenRecordset("select HTDM,ZYF,QSRQ,JZRQ,FJYT,KF_FZ,FK_FH from YX_ZFHT WHERE " & T_TJ & "", 4)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                    Call print_tabler(t_rec, "租房合同清单", Array("合同代码", "租用方", "起始日期", "终止日期 ", "房间用途 ", "客房房租", "付款房号"), Array(18, 40, 12, 12, 12, 12, 10), 0, Array(11, 11, 11, 11, 11, 21, 21))
                Else
                    MsgBox "无可打印信息!", 64
                    Call flex1_ref
                    Call first
                    Exit Sub
                End If
            End If
    Case 4 '筛选
            FLEX1.Enabled = False
            STY = "4"
            Frame3.Enabled = True
            Cmd2(0).Enabled = False
            Cmd2(1).Enabled = False
            Cmd2(2).Enabled = False
            Cmd2(3).Enabled = False
            Cmd2(4).Enabled = False
            Cmd2(5).Enabled = False
            Cmd2(6).Enabled = False
            m_jfdb.SetFocus
            
    Case 5  '查询
            FLEX1.Enabled = False
            STY = "5"
            zfht_pop.Show (1)
            Call flex1_ref
            Call first
    Case 6  '刷新
            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 vbKeyF10
                key_index = 5   '查询
           Case vbKeyF9
                key_index = 6   '刷新
           Case vbKeyEscape
                key_index = 99 '退出
    End Select
    frm_msg.Caption = ""
        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_jzrq1.SetFocus
    End If
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_htdm1.SetFocus
    End If
End Sub

Private Sub m_jzrq1_GotFocus()
    m_jzrq1.SelStart = 0
    m_jzrq1.SelLength = Len(Trim(m_jzrq1.Text))
End Sub

Private Sub m_jzrq1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_jzrq1_LostFocus
    End If
End Sub

Private Sub m_jzrq1_LostFocus()
     If Not m_jzrq1.Text = "    -  -  " Then
        t_rq = date_cl(Trim(m_jzrq1.Text))
            If t_rq <> "F" Then
                m_jzrq1 = t_rq
            End If
        If IsDate(Trim(m_jzrq1.Text)) Then
            m_qzrq1.SetFocus
        Else
            frm_msg.Caption = "无效日期!"
            m_jzrq1.SetFocus
        End If
    Else
        m_qzrq1.SetFocus
    End If
End Sub

Private Sub m_qzrq1_GotFocus()
    m_qzrq1.SelStart = 0
    m_qzrq1.SelLength = Len(Trim(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 m_jfdb.Text = "" Then
                T_TJ = ""
            Else
                T_TJ = "TRIM(JFDB)='" & Trim(m_jfdb.Text) & "'"
            End If
            
            If Not 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_jzrq1.Text = "    -  -  " Then
                
            Else
                If T_TJ = "" Then
                    T_TJ = T_TJ & "CSTR(JZRQ)='" & CDate(Trim(m_jzrq1)) & "'"
                Else
                    T_TJ = T_TJ & " AND CSTR(JZRQ)='" & CDate(Trim(m_jzrq1)) & "'"
                End If
            End If
            
            If m_qzrq1.Text = "    -  -  " Then
                
            Else
                t_rq = date_cl(Trim(m_qzrq1.Text))
                If t_rq <> "F" Then
                    m_qzrq1 = t_rq
                End If
                If IsDate(Trim(m_qzrq1.Text)) Then
                    If T_TJ = "" Then
                        T_TJ = T_TJ & "CSTR(QZRQ)='" & CDate(Trim(m_qzrq1)) & "'"
                    Else
                        T_TJ = T_TJ & " AND CSTR(QZRQ)='" & CDate(Trim(m_qzrq1)) & "'"
                    End If
                Else
                    m_qzrq1.SetFocus
                    m_qzrq1.SelStart = 0
                    m_qzrq1.SelLength = Len(Trim(m_qzrq1.Text))
                End If
            End If
            
            If Not T_TJ = "" Then
                Set t_rec = 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 " & T_TJ, 4)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                End If
                Frame3.Enabled = False
                FLEX1.Enabled = True
                Cmd2(0).Enabled = True
                Cmd2(1).Enabled = True
                Cmd2(2).Enabled = True
                Cmd2(3).Enabled = True
                Cmd2(4).Enabled = True
                Cmd2(5).Enabled = True
                Cmd2(6).Enabled = True
                Call flex1_ref
            Else
                Set t_rec = 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 ", 4)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                End If
                Frame3.Enabled = False
                FLEX1.Enabled = True
                Cmd2(0).Enabled = True
                Cmd2(1).Enabled = True
                Cmd2(2).Enabled = True
                Cmd2(3).Enabled = True
                Cmd2(4).Enabled = True
                Cmd2(5).Enabled = True
                Cmd2(6).Enabled = True
                Call flex1_ref
            End If
                     '"'""""""""""""""""""""""""""""""""""""""
End Sub


Private Sub FLEX1_GotFocus()
    On Error GoTo error1
    m_htdm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7))
    m_zyf.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 1))
    m_kf_fh.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 2))
    m_qsrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 3)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 3), "yyyy-mm-dd"))
    m_jzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 4)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 4), "yyyy-mm-dd"))
    m_kf_fz.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 5))
    m_fjyt.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 6))
   Exit Sub
error1:
       If Err() = 383 Then
            Resume Next
       End If
       
End Sub
Private Sub FLEX1_RowColChange()
    On Error GoTo error1
    m_htdm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7))
    m_zyf.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 1))
    m_kf_fh.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 2))
    m_qsrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 3)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 3), "yyyy-mm-dd"))
    m_jzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 7 + 4)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 7 + 4), "yyyy-mm-dd"))
    m_kf_fz.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 5))
    m_fjyt.Text = Trim(FLEX1.TextArray(FLEX1.Row * 7 + 6))
    
    Exit Sub
error1:
       If Err() = 383 Then
            Resume Next
       End If
       
End Sub


Private Sub first()
        Frame2.Enabled = False
        Frame3.Enabled = False
        If Not STY = "4" Then
            m_jfdb.Text = ""
            m_htdm1.Text = ""
            m_jzrq1.Text = "    -  -  "
            m_qzrq1.Text = "    -  -  "
        End If
        If cmd1(0).Enabled = True Then
            cmd1(0).Enabled = False
        End If
        
        If cmd1(1).Enabled = True Then
            cmd1(1).Enabled = False
        End If
        
        If Cmd2(0).Enabled = False Then
          Cmd2(0).Enabled = True
        End If
        
        If Cmd2(1).Enabled = False Then
            Cmd2(1).Enabled = True
        End If
        
        If Cmd2(2).Enabled = False Then
            Cmd2(2).Enabled = True
        End If
        
        If Cmd2(3).Enabled = False Then
            Cmd2(3).Enabled = True
        End If
        
        If Cmd2(4).Enabled = False Then
            Cmd2(4).Enabled = True
        End If
        
        If Cmd2(5).Enabled = False Then
            Cmd2(5).Enabled = True
        End If
        
        If Cmd2(6).Enabled = False Then
            Cmd2(6).Enabled = True
        End If
        
        If Cmd3.Enabled = False Then
            Cmd3.Enabled = True
        End If
        If FLEX1.Enabled = False Then
            FLEX1.Enabled = True
            FLEX1.SetFocus
        End If
        STY = ""
       
End Sub

Private Sub Timer1_Timer()
    JZ_DQSJ2 = Time()
End Sub

Private Sub flex1_ref()
    If Not T_TJ = "" Then
        Set t_rec = 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 " & T_TJ, 4)
        If Not t_rec.BOF Then
            t_rec.MoveLast
        End If
    Else
        Set t_rec = 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 ", 4)
        If Not t_rec.BOF Then
            t_rec.MoveLast
        End If
    End If
    Call pub_memo.Flex_full(FLEX1, t_bt, t_rec, t_fields, 6, Array(0, 0, 0, 0, 0, 0, 0))
    rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub