ht_htgl.frm

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

                m_ht_mc.Enabled = True
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            Else
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            End If
       Case 2
            bj = "2"
            flex1.Enabled = False
            Cmd2(0).Enabled = False
            Cmd2(1).Enabled = False
            Cmd2(2).Enabled = False
            Cmd2(3).Enabled = False
            Cmd2(4).Enabled = False
            Frame2.Enabled = True
            m_jb_mc.Enabled = False
            If m_ht_mc.Enabled = False Then
                m_ht_mc.Enabled = True
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            Else
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            End If
       Case 3
            bj = "3"
            flex1.Enabled = False
            Cmd2(0).Enabled = False
            Cmd2(1).Enabled = False
            Cmd2(2).Enabled = False
            Cmd2(3).Enabled = False
            Cmd2(4).Enabled = False
            Frame2.Enabled = True
            m_jb_mc.Enabled = False
            If m_ht_mc.Enabled = False Then
                m_ht_mc.Enabled = True
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            Else
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            End If
       Case 4
        Call flex1_ref
        Call first
   End Select
End Sub
Private Sub Cmd2_S_Click(Index As Integer)
    Select Case Index
    Case 0
        Select Case bj
        Case "0"    'ADD
            Set rec = YX_data.OpenRecordset("SELECT HT_MC FROM YX_HTNR WHERE HT_MC='" & UCase(Trim(m_ht_mc.Text)) & "'", 4)
            If Not rec.BOF Then
                rec.MoveLast
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
                Exit Sub
            End If
            
            Set rec = YX_data.OpenRecordset("SELECT * FROM YX_HTNR ", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
            End If
            With rec
            .AddNew
                !HT_MC = Mid(UCase(Trim(m_ht_mc.Text)), 1, 20)
                !JB_MC = UCase(Trim(m_jb_mc.Text))
                !FSRQ = Format(Date, "yyyy-mm-dd")
                !FSSJ = Time
                !CZY = SYS_USER
                '&&&&
                !HT_DOC = "C:\HOTEL\HT\" & UCase(Trim(m_ht_mc.Text)) & ".TXT"
                Set rec1 = YX_data.OpenRecordset("SELECT JB_MC,JB_DOC FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(m_jb_mc.Text)) & "'", 4)
                If Not rec1.BOF Then
                    rec1.MoveLast
                End If
                FileCopy rec1!JB_DOC, rec!HT_DOC
                path_file = Trim(rec!HT_DOC)
            .Update
            End With
            If Dir(path_file) <> "" Then
               Open path_file For Binary Access Write As #1
               Close #1
            End If
            Call flex1_ref
            Call first
        Case "1"    'EDI
            Set rec = YX_data.OpenRecordset("SELECT * FROM YX_HTNR WHERE HT_MC='" & UCase(Trim(m_ht_mc.Text)) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                '加锁
                Do
                Select Case Pub_lock("YX", "YX_HTNR", rec)
                Case "1"
                    Exit Do
                Case "2"
                    Exit Sub
                    Call Pub_UNlock("YX_HTNR", rec)
                End Select
                Loop
            Else
                frm_msg.Caption = "合同名称无效!"
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
                Exit Sub
            End If
            path_file = Trim(rec!HT_DOC)
            With rec
            .Edit
                !FSRQ = Format(Date, "yyyy-mm-dd")
                !FSSJ = Time
                !CZY = SYS_USER
            .Update
            End With
            Call Pub_UNlock("YX_HTNR", rec)
            Call flex1_ref
            Call first
            RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE " & path_file, 3)
            Exit Sub
        Case "2"    'DEL
            Set rec = YX_data.OpenRecordset("SELECT * FROM YX_HTNR WHERE HT_MC='" & UCase(Trim(m_ht_mc.Text)) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                '加锁
                Do
                Select Case Pub_lock("YX", "YX_HTNR", rec)
                Case "1"
                    Exit Do
                Case "2"
                    Exit Sub
                    Call Pub_UNlock("YX_HTNR", rec)
                End Select
                Loop
            Else
                frm_msg.Caption = "合同名称无效!"
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
                Exit Sub
            End If
            With rec
            .Delete
            End With
            Call Pub_UNlock("YX_HTNR", rec)
            Call flex1_ref
            Call first
        Case "3"
            Set rec = YX_data.OpenRecordset("SELECT * FROM YX_HTNR WHERE HT_MC='" & UCase(Trim(m_ht_mc.Text)) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                '加锁
                Do
                Select Case Pub_lock("YX", "YX_HTNR", rec)
                Case "1"
                    Exit Do
                Case "2"
                    Exit Sub
                    Call Pub_UNlock("YX_HTNR", rec)
                End Select
                Loop
            Else
                frm_msg.Caption = "合同名称无效!"
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
                Exit Sub
            End If
            path_file = Trim(rec!HT_DOC)
            With rec
            .Edit
                !FSRQ = Format(Date, "yyyy-mm-dd")
                !FSSJ = Time
                !CZY = SYS_USER
            .Update
            End With
            Call Pub_UNlock("YX_HTNR", rec)
            Call flex1_ref
            Call first
            RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE " & path_file, 3)
        End Select
    Case 1
        Call flex1_ref
        Call first
    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 = vbKeyReturn Then
        Cmd2(0).SetFocus
    End If
End Sub
Private Sub FLEX1_GotFocus()
    On Error GoTo error1
    m_ht_mc.Text = Trim(flex1.TextArray(flex1.Row * 5))
    m_jb_mc.Text = Trim(flex1.TextArray(flex1.Row * 5 + 1))
    m_fsrq.Text = IIf(Trim(flex1.TextArray(flex1.Row * 5 + 2)) = "", "    -  -  ", Format(flex1.TextArray(flex1.Row * 5 + 2), "yyyy-mm-dd"))
    m_fssj.Text = IIf(Trim(flex1.TextArray(flex1.Row * 5 + 3)) = "*", "", Trim(flex1.TextArray(flex1.Row * 5 + 3)))
    m_czy.Text = Trim(flex1.TextArray(flex1.Row * 5 + 4))
    Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub
Private Sub FLEX1_RowColChange()
    On Error GoTo error1
    m_ht_mc.Text = Trim(flex1.TextArray(flex1.Row * 5))
    m_jb_mc.Text = Trim(flex1.TextArray(flex1.Row * 5 + 1))
    m_fsrq.Text = IIf(Trim(flex1.TextArray(flex1.Row * 5 + 2)) = "", "    -  -  ", Format(flex1.TextArray(flex1.Row * 5 + 2), "yyyy-mm-dd"))
    m_fssj.Text = IIf(Trim(flex1.TextArray(flex1.Row * 5 + 3)) = "*", "", Trim(flex1.TextArray(flex1.Row * 5 + 3)))
    m_czy.Text = Trim(flex1.TextArray(flex1.Row * 5 + 4))
    Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub

Private Sub m_ht_mc_Change()
    frm_msg.Caption = ""
End Sub

Private Sub m_ht_mc_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Cmd2_S(0).SetFocus
    End If
End Sub

Private Sub m_ht_mc_LostFocus()
If Frame2.Enabled = True Then
    If Not Trim(m_ht_mc.Text) = "" Then
        Select Case bj
        Case "0"
            Set rec = YX_data.OpenRecordset("SELECT HT_MC FROM YX_HTNR WHERE HT_MC='" & UCase(Trim(m_ht_mc.Text)) & "'", 4)
            If Not rec.BOF Then
                rec.MoveLast
                frm_msg.Caption = "此合同名称已存在!"
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            Else
                Exit Sub
            End If
        Case Else
            Set rec = YX_data.OpenRecordset("SELECT HT_MC FROM YX_HTNR WHERE HT_MC='" & UCase(Trim(m_ht_mc.Text)) & "'", 4)
            If Not rec.BOF Then
                rec.MoveLast
                Exit Sub
            Else
                frm_msg.Caption = "此合同名称不存在!"
                m_ht_mc.SetFocus
                m_ht_mc.SelStart = 0
                m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
            End If
        End Select
    End If
End If
End Sub

Private Sub m_jb_mc_Change()
    frm_msg.Caption = ""
End Sub

Private Sub m_jb_mc_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If Trim(m_jb_mc.Text) = "" Then
            m_jb_mc.SetFocus
        Else
            m_ht_mc.SetFocus
            m_ht_mc.SelStart = 0
            m_ht_mc.SelLength = Len(Trim(m_ht_mc.Text))
        End If
    End If
End Sub

Private Sub m_jb_mc_LostFocus()
    If Trim(m_jb_mc.Text) = "" Then
        m_jb_mc.SetFocus
    End If
End Sub

Private Sub Timer1_Timer()
    JZ_DQSJ2 = Time()
End Sub
Private Sub first()
    Cmd2(0).Enabled = True
    Cmd2(1).Enabled = True
    Cmd2(2).Enabled = True
    Cmd2(3).Enabled = True
    Cmd2(4).Enabled = True
    Cmd3.Enabled = True
    If Frame2.Enabled = True Then
        Frame2.Enabled = False
    End If
    Frame3.Enabled = False
    m_ht_mc.Enabled = True
    m_jb_mc.Enabled = True
    If Cmd2_S(0).Enabled = True Then
        Cmd2_S(0).Enabled = False
    End If
    If Cmd2_S(1).Enabled = True Then
        Cmd2_S(1).Enabled = False
    End If
    bj = ""
    nam.Caption = ""
    Frame2.Enabled = False
    frm_msg.Caption = ""
    If flex1.Enabled = False Then
        flex1.Enabled = True
        flex1.SetFocus
    End If
    If Me.KeyPreview = False Then
        Me.KeyPreview = True
    End If
End Sub
Private Sub flex1_ref()
    Set t_rec = YX_data.OpenRecordset("select  HT_MC,JB_MC,FSRQ,FSSJ,CZY,LOCK_NO from YX_HTNR", 4)
    If Not t_rec.BOF Then
        t_rec.MoveLast
    End If
    Call pub_memo.Flex_full(flex1, t_bt, t_rec, t_fields, 4, Array(0, 0, 0, 0, 0))
    rec_no.Caption = "当前记录数:" + CStr(flex1.Rows - 1)
End Sub