pub_dt.bas

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

Attribute VB_Name = "pub_dt"
Option Explicit

'************************************************************************************
'* 功    能 : 给住客名称控件赋值
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.06
'* 修改日期 : 1999.03.06
'* 参数说明:  tp_zkmc : 住客名称字段控件名
'************************************************************************************
Public Sub PUB_GetZKMC(tp_zkmc As Control)
    Dim i As Integer
        
    tp_zkmc.Clear
    
    tp_zkmc.AddItem
    i = 0
    tp_zkmc.List(i, 0) = CInt(LoadResString(SYS_SKLX))
    tp_zkmc.List(i, 1) = LoadResString(SYS_SKMC)
    
    tp_zkmc.AddItem
    i = i + 1
    tp_zkmc.List(i, 0) = CInt(LoadResString(SYS_TDLX))
    tp_zkmc.List(i, 1) = LoadResString(SYS_TDMC)
    
    tp_zkmc.AddItem
    i = i + 1
    tp_zkmc.List(i, 0) = CInt(LoadResString(SYS_CBLX))
    tp_zkmc.List(i, 1) = LoadResString(SYS_CBMC)
    
    tp_zkmc.AddItem
    i = i + 1
    tp_zkmc.List(i, 0) = CInt(LoadResString(SYS_NBLX))
    tp_zkmc.List(i, 1) = LoadResString(SYS_NBMC)
    
End Sub


'**************************************************************************************************
'*  功    能 : 有预订散客登记
'*  作    者 : 梁卫
'*  作成日期 : 1999.04.05
'*  修改日期 : 1999.04.05
'**************************************************************************************************
Public Sub DT_SYDJ(t_msg As Control, t_pub_code As String)

    Dim t_tools As New HOTEL_TOOL.HOTEL_TOOLS

    '散客有预订登记的变量设置
    Dim sydj_yddh As String
    Dim sydj_rzrq As Date
    Dim sydj_ldrq  As Date
    Dim sydj_dffls() As Integer
    Dim sydj_pffls() As Integer
    Dim sydj_dfrs As Integer
    Dim sydj_dfydm As String
    Dim sydj_khdm As String
    Dim sydj_YWDW_MC As String
    Dim sydj_zklx As Integer
    Dim ydd_rec As Recordset
    Dim yddk_lock As Integer
    Dim t_czlsh As String
    Dim temp_lock As Integer
    Dim temp_i As Integer
    
    dt_yddq.YDD_H = ""
    dt_yddq.MAIN (LoadResString(SYS_SKQZ))
    dt_yddq.Show (1)
    sydj_yddh = Trim(dt_yddq.YDD_H)
    
    If Trim(sydj_yddh) = "" Then
        t_msg.Visible = True
        t_msg.Caption = "无效的预订单号 !"
    Else
        If Trim(sydj_yddh) <> "" Then
            Set ydd_rec = PUB_data.OpenRecordset("SELECT * FROM YD_YDDK WHERE TRIM(YDD_H)='" & Trim(sydj_yddh) & "'", 2, 0, 2)
            If Not ydd_rec.BOF Then
                ydd_rec.MoveLast
                
                If ydd_rec.Fields("LDRQ") < Date Then
                    t_msg.Visible = True
                    t_msg.Caption = "预订单的预离店日期为" & CStr(ydd_rec.Fields("LDRQ")) & "比今日日期早, 请作为无预订散客处理!"
                ElseIf ydd_rec.Fields("RZRQ") > Date Then
                    t_msg.Visible = True
                    t_msg.Caption = "客人的入住日期比预来店日期提前, 请作为无预订散客处理!"
                Else
                    ReDim sydj_dffls(SYS_LXN + 1)
                    ReDim sydj_pffls(SYS_LXN + 1)
                    For temp_i = 1 To SYS_LXN
                        sydj_dffls(temp_i) = 0
                        sydj_pffls(temp_i) = 0
                    Next
                    sydj_rzrq = Date
                    sydj_ldrq = ydd_rec.Fields("LDRQ")
                    sydj_zklx = ydd_rec.Fields("ZKLX")
                    sydj_dfrs = IIf(IsNull(ydd_rec.Fields("RS")), 0, ydd_rec.Fields("RS"))
                    sydj_dfydm = IIf(IsNull(ydd_rec.Fields("DFY_DM")), "*", Trim(ydd_rec.Fields("DFY_DM")))
                    sydj_khdm = IIf(IsNull(ydd_rec.Fields("KHDM")), "*", Trim(ydd_rec.Fields("KHDM")))
                    sydj_YWDW_MC = IIf(IsNull(ydd_rec.Fields("YWDW_MC")), "*", Trim(ydd_rec.Fields("YWDW_MC")))
                    
                    For temp_i = 1 To SYS_LXN
                        sydj_dffls(temp_i) = ydd_rec.Fields("DF_LX" & Trim(Str(temp_i)))
                    Next
                    
                    Do
                        yddk_lock = Pub_lock("PUBLIC", "YD_YDDK", ydd_rec)
                    Loop Until yddk_lock <> 0
                    
                    Select Case yddk_lock
                    Case 1
                        t_czlsh = Pub_czls(PUB_data, "DT_SYDJ", Time(), t_pub_code)
                        
                        dt_krdj.PFRS = 0
                        dt_krdj.PFFLS = PUB_JOIN(sydj_pffls, 3, pub_code)
                        Call dt_krdj.MAIN("增加", "", Trim(sydj_yddh), "", "", Date, sydj_ldrq, sydj_dffls, sydj_zklx, sydj_dfrs, sydj_dfydm, sydj_khdm, sydj_YWDW_MC)
                        dt_krdj.Show (1)
                        Call PUB_FJFL(sydj_pffls, dt_krdj.PFFLS, 3, pub_code)
                        
                        Dim temp_sjpfs As Integer     '有预订时, 统计各种客房类型实际的派房数量
                        Dim yddk_rec As Recordset
                        Dim yddk_rzrq As Date         '预定单中的入住日期
                        Dim yddk_ldrq As Date         '预定单中的离店日期
                        
                        '统计该预定单实际的派房数量, 并修改当前预定单中的字段
                        temp_sjpfs = 0
                        For temp_i = 1 To SYS_LXN
                            temp_sjpfs = temp_sjpfs + sydj_pffls(temp_i)
                        Next
                        
                        Set yddk_rec = PUB_data.OpenRecordset("SELECT * FROM YD_YDDK WHERE TRIM(YDD_H)='" & sydj_yddh & "'", 2, 0, 2)
                        If Not yddk_rec.BOF Then
                            yddk_rec.MoveLast
                                
                            Dim tp_czlsh As String
                            tp_czlsh = Pub_czls(PUB_data, "DT_KRDJ", Time(), pub_code)
                            yddk_rec.Edit
                                yddk_rec.Fields("RZ_JS") = temp_sjpfs
                            yddk_rec.Update
                            
                            yddk_rzrq = yddk_rec.Fields("RZRQ")
                            yddk_ldrq = yddk_rec.Fields("LDRQ")
                            
                            Call Pub_czle(PUB_data, tp_czlsh, "预定单 " & sydj_yddh & " 中入住间数改为 " & temp_sjpfs, Time(), pub_code)
                            
                            '修改客房利用情况统计表
                            Call Pub_kftj(Date, sydj_ldrq, sydj_pffls, Date, yddk_ldrq, sydj_dffls, sydj_zklx, pub_code)
                        End If
                        yddk_rec.Close
                        
                        Call Pub_czle(PUB_data, t_czlsh, "散客登记,预订单号:" + sydj_yddh, Time(), t_pub_code)
                        
                        If Not pub_yden(sydj_yddh, t_pub_code) Then
                            t_msg.Visible = True
                            t_msg.Caption = "预订单" + sydj_yddh + "归档有误"
                        End If
                    Case 2
                        t_msg.Visible = True
                        t_msg.Caption = "预定单" & sydj_yddh & "已被归档"
                    End Select
                    
                    Call Pub_UNlock("YD_YDDK", ydd_rec)
                End If
            End If
            ydd_rec.Close
        End If
    End If

End Sub

'**************************************************************************************************
'*  功    能 : 有预订团队登记
'*  作    者 : 梁卫
'*  作成日期 : 1999.04.05
'*  修改日期 : 1999.04.05
'**************************************************************************************************
Public Sub DT_TYDJ(t_msg As Control, t_pub_code As String)

    Dim t_tools As New HOTEL_TOOL.HOTEL_TOOLS

    '团队有预订登记的变量设置
    Dim tydj_yddh As String
    Dim ydd_rec As Recordset
    Dim yddk_lock As Integer
    Dim t_czlsh As String
    Dim temp_lock As Integer
    Dim temp_i As Integer
    
    dt_yddq.YDD_H = ""
    dt_yddq.MAIN (LoadResString(SYS_TDQZ))
    dt_yddq.Show (1)
    tydj_yddh = Trim(dt_yddq.YDD_H)