dfqk_1.frm

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

            Else
                If yd_lx.LX = "TD" Then
                    Call Pub_kftj(CDate(Trim(m_rzrq.Text)), CDate(Trim(m_ldrq.Text)), kftj, CDate(Trim(m_rzrq.Text)), CDate(Trim(m_ldrq.Text)), kftj, LoadResString(SYS_TDLX), pub_code)
                Else '***长包
                    Call Pub_kftj(CDate(Trim(m_rzrq.Text)), CDate(Trim(m_ldrq.Text)), kftj, CDate(Trim(m_rzrq.Text)), CDate(Trim(m_ldrq.Text)), kftj, LoadResString(SYS_CBLX), pub_code)
                End If
            End If
                    
                    tff = True
                    date_s = CDate(m_rzrq.Text)
                    date_e = CDate(m_ldrq.Text)
                    

'                    '生成预订单号
                        Set rec = YX_data.OpenRecordset("SELECT RQ,SK_NO,TD_NO,CB_NO ,LOCK_NO FROM NO WHERE CSTR(RQ)='" & Date & "'", 2, 0, 2)
                        If Not rec.BOF Then
                            rec.MoveLast
                            '加锁
                            Do
                                Select Case Pub_lock("YX", "NO", rec)  '判断加锁结果
                                    Case "1" '锁定
                                        Exit Do
                                    Case "2"  '
                                        Call Pub_UNlock("NO", rec)
                                        Exit Sub
                                End Select
                            Loop
                            rec.Edit
                                If yd_lx.LX = "SK" Then
                                    rec!SK_NO = rec!SK_NO + 1
                                Else
                                    If yd_lx.LX = "TD" Then
                                        rec!TD_NO = rec!TD_NO + 1
                                    Else
                                        If yd_lx.LX = "CB" Then
                                            rec!CB_NO = rec!CB_NO + 1
                                        End If
                                    End If
                                End If
                            rec.Update
                            
                        End If
                        
                    '********建立预订单********
                    Set t_rec = PUB_data.OpenRecordset("SELECT YDD_H,RZRQ,LDRQ,YDRQ,DF_LX1,DF_LX2,DF_LX3,DF_LX4,DF_JS,CZY,ZKLX,KR_FL_S,QP_FL_S,DP_FL_S,GZ_JS,KR_FL_J,QP_FL_J,DP_FL_J,RS,LOCK_NO FROM YD_YDDK", 2, 0, 2)
                        If Not t_rec.BOF Then
                            t_rec.MoveLast
                        End If
                     t_rec.AddNew
                        '判断预订单号
                        If yd_lx.LX = "SK" Then
                            t_rec!YDD_H = "SK" & CStr(Format(Date, "yyyymmdd")) & Right("0" & CStr(rec!SK_NO), 2)
                        Else
                            If yd_lx.LX = "TD" Then
                                t_rec!YDD_H = "TD" & CStr(Format(Date, "yyyymmdd")) & Right("0" & CStr(rec!TD_NO), 2)
                            Else
                                If yd_lx.LX = "CB" Then
                                    t_rec!YDD_H = "CB" & CStr(Format(Date, "yyyymmdd")) & Right("0" & CStr(rec!CB_NO), 2)
                                End If
                            End If
                        End If
                        t_rec!rzrq = CDate(Trim(m_rzrq.Text))
                        t_rec!ldrq = CDate(Trim(m_ldrq.Text))
                        t_rec!YDRQ = Date
                        t_rec!DF_LX1 = LX1
                        t_rec!DF_LX2 = LX2
                        t_rec!DF_LX3 = LX3
                        t_rec!DF_LX4 = LX4
                        t_rec!DF_JS = t_rec!DF_LX1 + t_rec!DF_LX2 + t_rec!DF_LX3 + t_rec!DF_LX4
                        t_rec!CZY = SYS_USER
                        t_rec!lock_no = 0
                        t_rec!KR_FL_S = PUB_JOIN(Array(0, CDec(Trim(m_kr_fls_1.Text)), CDec(Trim(m_kr_fls_2.Text)), CDec(Trim(m_kr_fls_3.Text)), CDec(Trim(m_kr_fls_4.Text))), 3, pub_code)
                        t_rec!QP_FL_S = PUB_JOIN(Array(0, CDec(Trim(m_qp_fls_1.Text)), CDec(Trim(m_qp_fls_2.Text)), CDec(Trim(m_qp_fls_3.Text)), CDec(Trim(m_qp_fls_4.Text))), 3, pub_code)
                        t_rec!DP_FL_S = PUB_JOIN(Array(0, CDec(Trim(m_dp_fls_1.Text)), CDec(Trim(m_dp_fls_2.Text)), CDec(Trim(m_dp_fls_3.Text)), CDec(Trim(m_dp_fls_4.Text))), 3, pub_code)
                        t_rec!KR_FL_J = String(60, "0")
                        t_rec!QP_FL_J = String(60, "0")
                        t_rec!DP_FL_J = String(60, "0")
                        t_rec!GZ_JS = 0
                        t_rec!RS = 0
                        '***判断住客类型
                        DH_YD = t_rec!YDD_H
                        If Mid(DH_YD, 1, 2) = "SK" Then
                            t_rec!ZKLX = LoadResString(SYS_SKLX)
                        Else
                            If Mid(DH_YD, 1, 2) = "TD" Then
                                t_rec!ZKLX = LoadResString(SYS_TDLX)
                            Else
                                If Mid(DH_YD, 1, 2) = "CB" Then
                                    t_rec!ZKLX = LoadResString(SYS_CBLX)
                                End If
                            End If
                        End If
                    t_rec.Update
                    'NO表解锁
                    Call Pub_UNlock("NO", rec)
                    t_rec.Close
                    df_js1 = LX1 + LX2 + LX3 + LX4
                    'kf_ydd_h.yd_h = UCase(DH_YD)
                    MsgBox "预订成功建立!预订单号: " & DH_YD & "", vbOKOnly
                    Unload Me
'^&^&^&^&^如果条件不满足,转预订等待
        Else
            Dim TT As New HOTEL_TOOL.HOTEL_TOOLS
            Call TT.PUB_SYKF(PUB_data, Date - day(Date), Date, t_fields, sys_lxn, SYS_LXC, SYS_Yl, pub_code)
            
            '生成预订单号
                Set rec = YX_data.OpenRecordset("SELECT RQ,SK_NO,TD_NO,CB_NO ,LOCK_NO FROM NO WHERE CSTR(RQ)='" & Date & "'", 2, 0, 2)
                If Not rec.BOF Then
                    rec.MoveLast
                    '加锁
                    Do
                        Select Case Pub_lock("YX", "NO", rec)  '判断加锁结果
                            Case "1" '锁定
                                Exit Do
                            Case "2"  '
                                Call Pub_UNlock("NO", rec)
                                Exit Sub
                        End Select
                    Loop
                    rec.Edit
                        If yd_lx.LX = "SK" Then
                            rec!SK_NO = rec!SK_NO + 1
                        Else
                            If yd_lx.LX = "TD" Then
                                rec!TD_NO = rec!TD_NO + 1
                            Else
                                If yd_lx.LX = "CB" Then
                                    rec!CB_NO = rec!CB_NO + 1
                                End If
                            End If
                        End If
                    rec.Update
                    
                End If
            '将记录加入等待库
            Set t_rec = PUB_data.OpenRecordset("SELECT YDD_H,RZRQ,LDRQ,YDRQ,DF_LX1,DF_LX2,DF_LX3,DF_LX4,DF_JS,CZY,ZKLX,KR_FL_S,QP_FL_S,DP_FL_S,KR_FL_J,QP_FL_J,DP_FL_J,GZ_JS,RS,LOCK_NO FROM YD_WAIT", 2, 0, 2)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                    t_rec.MoveFirst
                End If
            '等待库加入新记录
            t_rec.AddNew
                If yd_lx.LX = "SK" Then
                    t_rec!YDD_H = "SK" & CStr(Format(Date, "yyyymmdd")) & Right("0" & CStr(rec!SK_NO), 2)
                Else
                    If yd_lx.LX = "TD" Then
                        t_rec!YDD_H = "TD" & CStr(Format(Date, "yyyymmdd")) & Right("0" & CStr(rec!TD_NO), 2)
                    Else
                        If yd_lx.LX = "CB" Then
                            t_rec!YDD_H = "CB" & CStr(Format(Date, "yyyymmdd")) & Right("0" & CStr(rec!CB_NO), 2)
                        End If
                    End If
                End If
                t_rec!rzrq = CDate(Trim(m_rzrq.Text))
                t_rec!ldrq = CDate(Trim(m_ldrq.Text))
                t_rec!YDRQ = Date
                t_rec!DF_LX1 = LX1
                t_rec!DF_LX2 = LX2
                t_rec!DF_LX3 = LX3
                t_rec!DF_LX4 = LX4
                t_rec!DF_JS = t_rec!DF_LX1 + t_rec!DF_LX2 + t_rec!DF_LX3 + t_rec!DF_LX4
                t_rec!CZY = SYS_USER
                t_rec!lock_no = 0
                t_rec!KR_FL_S = PUB_JOIN(Array(0, CDec(Trim(m_kr_fls_1.Text)), CDec(Trim(m_kr_fls_2.Text)), CDec(Trim(m_kr_fls_3.Text)), CDec(Trim(m_kr_fls_4.Text))), 3, pub_code)
                t_rec!QP_FL_S = PUB_JOIN(Array(0, CDec(Trim(m_qp_fls_1.Text)), CDec(Trim(m_qp_fls_2.Text)), CDec(Trim(m_qp_fls_3.Text)), CDec(Trim(m_qp_fls_4.Text))), 3, pub_code)
                t_rec!DP_FL_S = PUB_JOIN(Array(0, CDec(Trim(m_dp_fls_1.Text)), CDec(Trim(m_dp_fls_2.Text)), CDec(Trim(m_dp_fls_3.Text)), CDec(Trim(m_dp_fls_4.Text))), 3, pub_code)
                t_rec!KR_FL_J = String(60, "0")
                t_rec!QP_FL_J = String(60, "0")
                t_rec!DP_FL_J = String(60, "0")
                t_rec!GZ_JS = 0
                t_rec!RS = 0
                '***判断住客类型
                DH_YD = t_rec!YDD_H
                If Mid(DH_YD, 1, 2) = "SK" Then
                    t_rec!ZKLX = LoadResString(SYS_SKLX)
                Else
                    If Mid(DH_YD, 1, 2) = "TD" Then
                        t_rec!ZKLX = LoadResString(SYS_TDLX)
                    Else
                        If Mid(DH_YD, 1, 2) = "CB" Then
                            t_rec!ZKLX = LoadResString(SYS_CBLX)
                        End If
                    End If
                End If
            t_rec.Update
            Call Pub_UNlock("NO", rec)
            t_rec.Close
            MsgBox "该订单已转预订等待!", vbOKOnly
            
            '**提示是否转预订等待,修改................
            tff = False
            Unload Me
        End If
   Case 1
        tff = False
        Unload Me
   End Select
End Sub

Private Sub Form_Load()
    KeyPreview = True
    js1 = ""
    js2 = ""
    js3 = ""
    js4 = ""
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        Unload Me
    End If
End Sub

Private Sub m_dp_fls_1_Change()
    MSG.Caption = ""
End Sub

Private Sub m_dp_fls_1_LostFocus()
    If Not m_dp_fls_1.Text = "" Then
        If Not IsNumeric(Trim(m_dp_fls_1.Text)) Then
            MSG.Caption = "无效房间数!"
            m_dp_fls_1.SetFocus
            m_dp_fls_1.SelStart = 0
            m_dp_fls_1.SelLength = Len(Trim(m_dp_fls_1.Text))
        Else
            m_dp_fls_2.SetFocus
            m_dp_fls_2.SelStart = 0
            m_dp_fls_2.SelLength = Len(Trim(m_dp_fls_2.Text))
            
        End If
    Else
        m_dp_fls_1.Text = "0"
        m_dp_fls_2.SetFocus
        m_dp_fls_2.SelStart = 0
        m_dp_fls_2.SelLength = Len(Trim(m_dp_fls_2.Text))
            
    End If
End Sub

Private Sub m_dp_fls_2_Change()
    MSG.Caption = ""
End Sub

Private Sub m_dp_fls_2_LostFocus()
    If Not m_dp_fls_2.Text = "" Then
        If Not IsNumeric(Trim(m_dp_fls_2.Text)) Then
            MSG.Caption = "无效房间数!"
            m_dp_fls_2.SetFocus
            m_dp_fls_2.SelStart = 0
            m_dp_fls_2.SelLength = Len(Trim(m_dp_fls_2.Text))
        Else
            m_dp_fls_3.SetFocus
            m_dp_fls_3.SelStart = 0
            m_dp_fls_3.SelLength = Len(Trim(m_dp_fls_3.Text))
            
        End If
    Else
        m_dp_fls_2.Text = "0"
        m_dp_fls_3.SetFocus
        m_dp_fls_3.SelStart = 0
        m_dp_fls_3.SelLength = Len(Trim(m_dp_fls_3.Text))
            
    End If
End Sub

Private Sub m_dp_fls_3_Change()
    MSG.Caption = ""
End Sub

Private Sub m_dp_fls_3_LostFocus()
    If Not m_dp_fls_3.Text = "" Then
        If Not IsNumeric(Trim(m_dp_fls_3.Text)) Then
            MSG.Caption = "无效房间数!"
            m_dp_fls_3.SetFocus
            m_dp_fls_3.SelStart = 0
            m_dp_fls_3.SelLength = Len(Trim(m_dp_fls_3.Text))
        Else
            m_dp_fls_4.SetFocus
            m_dp_fls_4.SelStart = 0
            m_dp_fls_4.SelLength = Len(Trim(m_dp_fls_4.Text))
            
        End If
    Else
        m_dp_fls_3.Text = "0"
        m_dp_fls_4.SetFocus
        m_dp_fls_4.SelStart = 0
        m_dp_fls_4.SelLength = Len(Trim(m_dp_fls_4.Text))
            
    End If
End Sub

Private Sub m_dp_fls_4_Change()
    MSG.Caption = ""
End Sub

Private Sub m_dp_fls_4_LostFocus()
    If Not m_dp_fls_4.Text = "" Then
        If Not IsNumeric(Trim(m_dp_fls_4.Text)) Then
            MSG.Caption = "无效房间数!"
            m_dp_fls_4.SetFocus
            m_dp_fls_4.SelStart = 0
            m_dp_fls_4.SelLength = Len(Trim(m_dp_fls_4.Text))
        Else
            Exit Sub
        End If
    Else
        m_dp_fls_4.Text = "0"
    End If
End Sub

Private Sub m_kr_fls_1_Change()
    MSG.Caption = ""
End Sub

Private Sub m_kr_fls_1_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    If KeyCode = 13 Then
       Call m_kr_fls_1_LostFocus
    End If
End Sub

Private Sub m_kr_fls_1_LostFocus()
    If Not m_kr_fls_1.Text = "" Then
        If Not IsNumeric(Trim(m_kr_fls_1.Text)) Then
            MSG.Caption = "无效房间数!"
            m_kr_fls_1.SetFocus
            m_kr_fls_1.SelStart = 0
            m_kr_fls_1.SelLength = Len(Trim(m_kr_fls_1.Text))
        Else
            m_kr_fls_2.SetFocus
            m_kr_fls_2.SelStart = 0
            m_kr_fls_2.SelLength = Len(Trim(m_kr_fls_2.Text))
            
        End If
    Else
        m_kr_fls_1.Text = "0"
        m_kr_fls_2.SetFocus
        m_kr_fls_2.SelStart = 0
        m_kr_fls_2.SelLength = Len(Trim(m_kr_fls_2.Text))