yx_hyyd.frm

一个简单的酒店管理系统 用VB.net+SQL2000实现

                        t_rec!ZB_DW = "*"
                    Else
                        t_rec!ZB_DW = Trim(UCase(m_zb_dw.Text))
                    End If
                    
                    If Not m_qsrq.Text = "    -  -  " Then
                        t_rec!QSRQ = CDate(Trim(m_qsrq.Text))
                    End If
                    
                    If Not m_jzrq.Text = "    -  -  " Then
                        t_rec!JZRQ = CDate(Trim(m_jzrq.Text))
                    End If
                    
                    If Trim(m_rs.Text) = "" Then
                        t_rec!RS = 0
                    Else
                        t_rec!RS = CDec(Trim(m_rs.Text))
                    End If
                    
                    If Trim(m_zjhj.Text) = "" Then
                        t_rec!ZJHJ = 0
                    Else
                        t_rec!ZJHJ = CDec(Trim(m_zjhj.Text))
                    End If
             
                    If opt1(1).Value = True Then
                        t_rec!DF_FT = "F"
                    Else
                        t_rec!DF_FT = "T"
                    End If
                    
                    If opt1(0).Value = True Then
                        If Not m_ydd_h.Text = "" Then
                            t_rec!YDD_H = Trim(UCase(m_ydd_h.Text))
                            t_rec!DF_JS = CDec(Trim(m_df_js.Text))
                        Else
                            frm_msg.Caption = "订房单号为空!"
                            t_rec!YDD_H = "*"
                            t_rec!DF_JS = "0"
                            error = 2
                        End If
                    End If
                    If Trim(m_lxr.Text) = "" Then
                        t_rec!LXR = "*"
                    Else
                        t_rec!LXR = Trim(UCase(m_lxr.Text))
                    End If
                    If Trim(m_lxdh.Text) = "" Then
                        t_rec!LXDH = "*"
                    Else
                    t_rec!LXDH = Trim(UCase(m_lxdh.Text))
                    End If
                    If Trim(m_jbr.Text) = "" Then
                        t_rec!JBR = "*"
                    Else
                        t_rec!JBR = Trim(UCase(m_jbr.Text))
                    End If
                    t_rec!lock_no = 0
                    
                    If error <> 0 Then
                        m_ydd_h.SetFocus
                        Exit Sub
                    End If
                    t_rec.Update
                    Call Pub_UNlock("NO", rec)
                    m_hy_ddh.Text = t_dh
                    MsgBox "会议订单成功建立!" & "会议订单号" & t_dh, vbOKOnly
                    Call flex1_ref
                    Call atfirst
        Case "1"      '修改
                Set t_rec3 = YX_data.OpenRecordset("select * from HY_YDDK where HY_DDH='" & Trim(UCase(m_hy_ddh.Text)) & " '", 2, 0, 2)
                    If Not t_rec3.BOF Then
                        t_rec3.MoveLast
                        '加锁
                        Do
                            Select Case Pub_lock("YX", "HY_YDDK", t_rec3)  '判断加锁结果
                                Case "1" '锁定
                                    Exit Do
                                Case "2"  '
                                    Call Pub_UNlock("HY_YDDK", t_rec3)
                                    Exit Sub
                            End Select
                        Loop
                        t_rec3.Edit '修改 '
                            If Trim(m_zb_dw.Text) = "" Then
                               t_rec3!ZB_DW = "*"
                            Else
                               t_rec3!ZB_DW = Trim(UCase(m_zb_dw.Text))
                            End If
                            
                            If Not m_qsrq.Text = "    -  -  " Then
                                t_rec3!QSRQ = CDate(Trim(m_qsrq.Text))
                            End If
                           
                            If Not m_jzrq.Text = "    -  -  " Then
                                t_rec3!JZRQ = CDate(Trim(m_jzrq.Text))
                            End If
                           
                            If Trim(m_rs.Text) = "" Then
                                t_rec3!RS = 0
                            Else
                                t_rec3!RS = CDec(Trim(m_rs.Text))
                            End If
                           
                            If Trim(m_zjhj.Text) = "" Then
                                t_rec3!ZJHJ = 0
                            Else
                               t_rec3!ZJHJ = CDec(Trim(m_zjhj.Text))
                            End If
                    
                            If opt1(1).Value = True Then
                                t_rec3!DF_FT = "F"
                            Else
                                t_rec3!DF_FT = "T"
                            End If
                           
                            If opt1(0).Value = True Then
                                If Not m_ydd_h.Text = "" Then
                                    t_rec3!YDD_H = Trim(UCase(m_ydd_h.Text))
                                    t_rec3!DF_JS = CDec(Trim(m_df_js.Text))
                                Else
                                    frm_msg.Caption = "订房单号为空!"
                                    t_rec3!YDD_H = "*"
                                    t_rec3!DF_JS = "0"
                                    error = 2
                                End If
                            End If
                            If Trim(m_lxr.Text) = "" Then
                                t_rec3!LXR = "*"
                            Else
                                t_rec3!LXR = Trim(UCase(m_lxr.Text))
                            End If
                            If Trim(m_lxdh.Text) = "" Then
                                t_rec3!LXDH = "*"
                            Else
                                t_rec3!LXDH = Trim(UCase(m_lxdh.Text))
                            End If
                            If Trim(m_jbr.Text) = "" Then
                                t_rec3!JBR = "*"
                            Else
                                t_rec3!JBR = Trim(UCase(m_jbr.Text))
                            End If
                        t_rec3.Update
                        '解锁
                        Call Pub_UNlock("HY_YDDK", t_rec3)
                    Else
                        MsgBox "该预订单已被解除!", 16
                        Call flex1_ref
                        Call atfirst
                        Exit Sub
                    End If
                    t_rec3.Close
                    Call flex1_ref
                    Call atfirst
            Case "2"
            Set t_rec = YX_data.OpenRecordset("select HY_DDH,ZB_DW,QSRQ,JZRQ,RS,ZJHJ,DF_FT,LXR, DF_JS,JBR,LXDH,YDD_H,LOCK_NO from HY_YDDK where CStr(HY_DDH)='" & Trim(UCase(m_hy_ddh.Text)) & " '", 2, 0, 2)
               If Not t_rec.BOF Then
                   t_rec.MoveLast
                   '加锁
                   Do
                       Select Case Pub_lock("YX", "HY_YDDK", t_rec)  '判断加锁结果
                           Case "1" '锁定
                               Exit Do
                           Case "2"  '
                               Call Pub_UNlock("HY_YDDK", t_rec)
                               Exit Sub
                       End Select
                   Loop
                      
                      Dim hyyd As String '会议预订单库
                      Dim hymx As String '会议预订明细
                      hyyd = "HYYD" & year(Format(Date, "yyyy-mm-dd"))
                      hymx = "HYMX" & year(Format(Date, "yyyy-mm-dd"))
                      
                      YX_data.Execute "INSERT INTO " & hyyd & " SELECT * FROM HY_YDDK WHERE TRIM(HY_DDH)='" & UCase(Trim(m_hy_ddh.Text)) & "'"
                      YX_data.Execute "DELETE FROM HY_YDDK WHERE TRIM(HY_DDH)='" & UCase(Trim(m_hy_ddh.Text)) & "'"
                      
                      YX_data.Execute "INSERT INTO " & hymx & " SELECT * FROM HY_YDMX WHERE TRIM(HY_DDH)='" & UCase(Trim(m_hy_ddh.Text)) & "'"
                      YX_data.Execute "DELETE FROM HY_YDMX WHERE TRIM(HY_DDH)='" & UCase(Trim(m_hy_ddh.Text)) & "'"
                   '解锁
                   Call Pub_UNlock("HY_YDDK", t_rec)
                   MsgBox "记录成功删除!", vbOKOnly
               Else
                  MsgBox "该预订单已被解除!", 16
                  Call flex1_ref
                  Call atfirst
                  Exit Sub
               End If
                Call flex1_ref
                Call atfirst
            End Select
    Case 1
        Call atfirst
    End Select
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 Cmd2_Click(Index As Integer)
   Dim response1 As String
   Dim response2 As String
   'pass = "999"
   Select Case Index
    Case 0 '预订建立
          Call hy_jl
          FLEX1.Enabled = False
          pass = "0"
          nam.Caption = "当前状态: 预订建立."
    Case 1 '预订修改
           Call hy_xg
           FLEX1.Enabled = False
           pass = "1"
           nam.Caption = "当前状态: 预订修改."
            If m_hy_ddh.Enabled = False Then
                m_hy_ddh.Enabled = True
                m_hy_ddh.SetFocus
            Else
                m_hy_ddh.SetFocus
            End If
    Case 2 '预订解除
            nam.Caption = "当前状态: 预订解除."
            pass = "2"
            Call hy_sc
            If m_hy_ddh.Enabled = False Then
                m_hy_ddh.Enabled = True
                m_hy_ddh.SetFocus
            Else
                m_hy_ddh.SetFocus
            End If
    Case 3 '打印
            If T_TJ = "" Then
                Set t_rec = YX_data.OpenRecordset("select HY_DDH,ZB_DW,QSRQ,JZRQ,DF_FT,LXR,LXDH,JBR,RS,ZJHJ from HY_YDDK", 4)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                    Call print_tabler(t_rec, "会议预订清单", Array("会议订单号", "主办单位名称", "开会日期", "闭会日期", "是否订房", "联系人", "联系电话", "经办人", "与会人数", "租金合计"), Array(14, 18, 12, 12, 9, 10, 15, 10, 10, 10), 0, Array(11, 11, 11, 11, 11, 11, 11, 11, 21, 21))
                Else
                    MsgBox "无可打印信息!", 64
                    Call flex1_ref
                    Call atfirst
                    Exit Sub
                End If
            Else
                Set t_rec = YX_data.OpenRecordset("select HY_DDH,ZB_DW,QSRQ,JZRQ,DF_FT,LXR,LXDH,JBR,RS,ZJHJ from HY_YDDK WHERE " & T_TJ & "", 4)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                    Call print_tabler(t_rec, "会议预订清单", Array("会议订单号", "主办单位名称", "开会日期", "闭会日期", "是否订房", "联系人", "联系电话", "经办人", "与会人数", "租金合计"), Array(14, 18, 12, 12, 9, 10, 15, 10, 10, 10), 0, Array(11, 11, 11, 11, 11, 11, 11, 11, 21, 21))
                Else
                    MsgBox "无可打印信息!", 64
                    Call flex1_ref
                    Call atfirst
                    Exit Sub
                End If
            End If
    Case 4 '租用明细
            pub_code = Left(Pub_getcode(PUB_data, "JF_HYZY"), 5)
            nam.Caption = "当前状态: 查询租用明细."
            Dim Message, Title, DEFAULT
           
            Message = "请输入预订单号..."
            Title = "输入查询信息" ' 设置标题。
            DEFAULT = Trim(m_hy_ddh.Text)

            hyd_h = UCase(Trim(InputBox(Message, Title, DEFAULT)))

            If Not hyd_h = "" Then
                Set t_rec = YX_data.OpenRecordset("select HY_DDH from HY_YDDK where HY_DDH='" & hyd_h & " '", 4)
                If Not t_rec.BOF Then
                        t_rec.MoveLast
                        Me.Hide
                        hy_zymx.Show (1)
                Else
                    MsgBox "此预订单号不存在", 16
                    Call atfirst
                    Exit Sub
                End If
            End If
    Case 5 ''筛选
            Frame4.Enabled = True
            m_jfdb1.SetFocus
            m_jfdb1.SelStart = 0
            m_jfdb1.SelLength = Len(Trim(m_jfdb1.Text))
    Case 6 '刷新
            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 = vbKeyReturn Then
        Cmd2(0).SetFocus
    End If

End Sub

Private Sub FLEX1_GotFocus()
    
    On Error GoTo error1
    frm_msg.Caption = ""
    m_hy_ddh.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12))
    m_zb_dw.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 1)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 1)))
    m_qsrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 2)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 12 + 2), "yyyy-mm-dd"))
    m_jzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 3)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 12 + 3), "yyyy-mm-dd"))
    m_rs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 4))
    m_zjhj.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 5))
    If Trim(FLEX1.TextArray(FLEX1.Row * 12 + 6)) = "T" Then
        opt1(0).Value = True
        m_ydd_h.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 7))
        m_df_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 8))
    Else
        opt1(1).Value = True
        m_ydd_h.Enabled = False
        m_df_js.Enabled = False
    End If
    m_lxr.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 9)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 9)))
    m_lxdh.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 10)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 10)))
    m_jbr.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 11)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 11)))
    Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub
Private Sub FLEX1_RowColChange()
    On Error GoTo error1
    frm_msg.Caption = ""
    m_hy_ddh.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12))
    m_zb_dw.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 1)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 12 + 1)))
    m_qsrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 2)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 12 + 2), "yyyy-mm-dd"))
    m_jzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 12 + 3)) = "", "    -  -  ", Format(FLEX1.TextArray(FLEX1.Row * 12 + 3), "yyyy-mm-dd"))
    m_rs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 4))
    m_zjhj.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 5))
    If Trim(FLEX1.TextArray(FLEX1.Row * 12 + 6)) = "T" Then
        opt1(0).Value = True
        m_ydd_h.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 7))
        m_df_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 12 + 8))
    Else
        opt1(1).Value = True
    End If