ht_htjb.frm

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

                    !FSRQ = Date
                    !FSSJ = Time()
                    !CZY = SYS_USER
                    !lock_no = 0
                .Update
                End With
            End If
            If Dir(path_file) = "" Then
               Open path_file For Binary Access Write As #1
               Close #1
            End If
            RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE " & path_file, 1)
            Call atfirst
            Call flex1_ref
        Case "1"    '修改脚本
            Set rec = YX_data.OpenRecordset("SELECT FSRQ,FSSJ,CZY,JB_DOC FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(m_jb_mc.Text)) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                path_file = Trim(rec!JB_DOC)
                RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE " & path_file, 1)
                With rec
                .Edit
                    !FSRQ = Date
                    !FSSJ = Time()
                    !CZY = SYS_USER
                .Update
                End With
                Call atfirst
                Call flex1_ref
            Else
                response = MsgBox("脚本名称不存在,是否重输?", 1, "")
                If response = 1 Then
                    If m_jb_mc.Enabled = False Then
                        m_jb_mc.Enabled = True
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    Else
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    End If
                Else
                    Call atfirst
                    Call flex1_ref
                End If
            End If
        Case "2"    '删除脚本
            Set rec = YX_data.OpenRecordset("SELECT JB_DOC,LOCK_NO FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(m_jb_mc.Text)) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                '加锁
                Do
                    Select Case Pub_lock("YX", "YX_HTJB", rec)
                        Case "1"
                            Exit Do
                        Case "2"
                            Call Pub_UNlock("YX_HTJB", rec)
                            Exit Sub
                    End Select
                Loop
                rec.Delete
                Call Pub_UNlock("YX_HTJB", rec)
                Call atfirst
                Call flex1_ref
            Else
            response = MsgBox("脚本名称不存在,是否重输?", 1, "")
                If response = 1 Then
                    If m_jb_mc.Enabled = False Then
                        m_jb_mc.Enabled = True
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    Else
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    End If
                Else
                    Call atfirst
                    Call flex1_ref
                End If
            End If
        Case "3"    '脚本引用
            Set rec = YX_data.OpenRecordset("SELECT FSRQ,FSSJ,CZY,JB_DOC FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(m_jb_mc.Text)) & "'", 2, 0, 2)
            If Not rec.BOF Then '已有脚本
                rec.MoveLast
Abc:            file_nam = InputBox("请输入要引用脚本名称...")
                If Not file_nam = "" Then
                    Set rec3 = YX_data.OpenRecordset("SELECT JB_DOC FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(file_nam)) & "'", 4)
                    If Not rec3.BOF Then
                        rec3.MoveLast
                        With rec
                        .Edit
                        !JB_DOC = "C:\HOTEL\Jb\" & UCase(Trim(m_jb_mc.Text)) & ".TXT"
                        FileCopy rec3!JB_DOC, rec!JB_DOC
                        path_file = Trim(rec!JB_DOC)
                        .Update
                        End With
                        If Dir(path_file) <> "" Then
                           Open path_file For Binary Access Write As #1
                           Close #1
                        End If
                        RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE " & path_file, 1)
                    Else
                        response = MsgBox("脚本名称不存在,是否重输?", 1, "")
                        If response = 1 Then
                            GoTo Abc
                        Else
                            Call atfirst
                            Call flex1_ref
                            Exit Sub
                        End If
                    End If
                Else
                   Call atfirst
                   Call flex1_ref
                End If
            Else        '新建脚本
A:              file_nam = InputBox("请输入要引用脚本名称...")
                If Not file_nam = "" Then
                    Set rec3 = YX_data.OpenRecordset("SELECT JB_DOC FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(file_nam)) & "'", 4)
                    If Not rec3.BOF Then
                        rec3.MoveLast
                        Set rec1 = YX_data.OpenRecordset("SELECT JB_MC,FSRQ,FSSJ,CZY,JB_DOC FROM YX_HTJB ", 2, 0, 2)
                        If Not rec1.BOF Then
                            rec1.MoveLast
                        End If
                        With rec1
                        .AddNew
                        !JB_MC = UCase(Trim(m_jb_mc.Text))
                        !FSRQ = Date
                        !FSSJ = Time
                        !CZY = SYS_USER
                        !JB_DOC = !JB_DOC = "C:\HOTEL\Jb\" & UCase(Trim(m_jb_mc.Text)) & ".TXT"
                        FileCopy rec3!JB_DOC, rec1!JB_DOC
                        path_file = Trim(rec1!JB_DOC)
                        .Update
                        End With
                        If Dir(path_file) <> "" Then
                           Open path_file For Binary Access Write As #1
                           Close #1
                        End If
                        RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE " & path_file, 1)
                        Call atfirst
                        Call flex1_ref
                        Exit Sub
                    Else
                        response = MsgBox("脚本名称不存在,是否重输?", 1, "")
                        If response = 1 Then
                            GoTo A
                        Else
                            Call atfirst
                            Call flex1_ref
                            Exit Sub
                        End If
                    End If
                Else
                    Call atfirst
                    Call flex1_ref
                    Exit Sub
                End If
            End If
        End Select
    Case 1          '返回
        Call atfirst
        Call flex1_ref
    End Select
End Sub

Private Sub atfirst()
    Cmd2(0).Enabled = True
    Cmd2(1).Enabled = True
    Cmd2(2).Enabled = True
    Cmd2(3).Enabled = True
    Cmd2(4).Enabled = True
    Cmd3.Enabled = True
    
    Cmd2_S(0).BackColor = &H80000016
    Cmd2_S(1).BackColor = &H80000016
    nam.Caption = ""
    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
    Frame2.Enabled = False
    Frame3.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_GotFocus()
    On Error GoTo error1:
        m_jb_mc.Text = flex1.TextArray(flex1.Row * 4)
        m_fsrq.Text = IIf(Trim(flex1.TextArray(flex1.Row * 4 + 1)) = "", "", Format(flex1.TextArray(flex1.Row * 4 + 1), "yyyy-mm-dd"))
        m_fssj.Text = flex1.TextArray(flex1.Row * 4 + 2)
        m_czy.Text = flex1.TextArray(flex1.Row * 4 + 3)
        Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
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 FLEX1_RowColChange()
    On Error GoTo error1:
        m_jb_mc.Text = flex1.TextArray(flex1.Row * 4)
        m_fsrq.Text = IIf(Trim(flex1.TextArray(flex1.Row * 4 + 1)) = "", "", Format(flex1.TextArray(flex1.Row * 4 + 1), "yyyy-mm-dd"))
        m_fssj.Text = flex1.TextArray(flex1.Row * 4 + 2)
        m_czy.Text = flex1.TextArray(flex1.Row * 4 + 3)
        Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub
Private Sub flex1_ref()
    Set t_rec = YX_data.OpenRecordset("select  JB_MC,FSRQ,FSSJ,CZY,LOCK_NO from YX_HTJB", 4)
        If Not t_rec.BOF Then
            t_rec.MoveLast
        End If
    Call pub_memo.Flex_full(flex1, t_bt, t_rec, t_fields, 3, Array(0, 0, 0, 0))
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 Or KeyCode = vbKeyDown Then
        If Not Trim(m_jb_mc.Text) = "" Then
        Select Case bj
        Case "0"
            Set rec = YX_data.OpenRecordset("SELECT JB_MC FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(m_jb_mc.Text)) & "'", 4)
            If Not rec.BOF Then
                rec.MoveLast
                response = MsgBox("脚本名称已存在,是否重输?", 1, "")
                If response = 1 Then
                    If m_jb_mc.Enabled = False Then
                        m_jb_mc.Enabled = True
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    Else
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    End If
                Else
                    Call atfirst
                    Exit Sub
                End If
            Else
                If Cmd2_S(0).Enabled = False Then
                    Cmd2_S(0).Enabled = True
                    Cmd2_S(1).Enabled = True
                    Cmd2_S(0).SetFocus
                Else
                    Cmd2_S(0).SetFocus
                End If
            End If
        Case "3"
            If Cmd2_S(0).Enabled = False Then
                Cmd2_S(0).Enabled = True
                Cmd2_S(1).Enabled = True
                Cmd2_S(0).SetFocus
            Else
                Cmd2_S(0).SetFocus
            End If
        Case Else
            Set rec = YX_data.OpenRecordset("SELECT JB_MC FROM YX_HTJB WHERE JB_MC='" & UCase(Trim(m_jb_mc.Text)) & "'", 4)
            If Not rec.BOF Then
                rec.MoveLast
                If Cmd2_S(0).Enabled = False Then
                    Cmd2_S(0).Enabled = True
                    Cmd2_S(1).Enabled = True
                    Cmd2_S(0).SetFocus
                Else
                    Cmd2_S(0).SetFocus
                End If
            Else
                response = MsgBox("脚本名称不存在,是否重输?", 1, "")
                If response = 1 Then
                    If m_jb_mc.Enabled = False Then
                        m_jb_mc.Enabled = True
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    Else
                        m_jb_mc.SetFocus
                        m_jb_mc.SelStart = 0
                        m_jb_mc.SelLength = Len(Trim(m_jb_mc.Text))
                    End If
                Else
                    Call atfirst
                End If
            End If
        End Select
    Else
        frm_msg.Caption = "脚本名称不能为空!"
        m_jb_mc.SetFocus
    End If
    End If
End Sub
Private Sub Cmd3_Click()
    Unload Me
    yx_main.Show (1)
End Sub

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