kf_krqd.frm

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

            m_gjmc.AddItem Trim(rec.Fields("GJMC")), i
            rec.MoveNext
            i = i + 1
        Loop
    End If
    rec.Close
            
    
    Set rec = PUB_data.OpenRecordset("SELECT QZDM,QZMC FROM DT_QZLX", 4) ''****取签证名称
    If Not rec.BOF Then
        rec.MoveLast
        rec.MoveFirst
        i = 0
        Do While Not rec.EOF
            m_qzmc.AddItem Trim(rec.Fields("QZMC")), i
            rec.MoveNext
            i = i + 1
        Loop
    End If
    rec.Close
    
        
    Set rec = PUB_data.OpenRecordset("SELECT ZJDM,ZJMC FROM DT_ZJZL", 4) ''****取证件名称
    If Not rec.BOF Then
        rec.MoveLast
        rec.MoveFirst
        i = 0
        Do While Not rec.EOF
            m_zjmc.AddItem Trim(rec.Fields("ZJMC")), i
            rec.MoveNext
            i = i + 1
            Loop
        End If
        rec.Close
        
        
    
    Set rec = PUB_data.OpenRecordset("SELECT SYDM,SYMC FROM DT_LLSY", 4)  ''****取事由名称
    If Not rec.BOF Then
        rec.MoveLast
        rec.MoveFirst
        i = 0
        Do While Not rec.EOF
        m_symc.AddItem Trim(rec.Fields("SYMC")), i
        rec.MoveNext
        i = i + 1
        Loop
    End If
    rec.Close
    
    Set rec = PUB_data.OpenRecordset("select TSFW from YD_TSFW  ", 4) ''****取特殊服务
    If Not rec.BOF Then
        rec.MoveLast
        rec.MoveFirst
        i = 0
        Do While Not rec.EOF
            m_tsfw.AddItem Trim(rec.Fields("TSFW")), i
            rec.MoveNext
            i = i + 1
        Loop
    Else
        m_tsfw.Enabled = False
        m_tsfw.Text = ""
    End If
    rec.Close
     
    '增加
    If df_sqb.txk_o = "0" Then
        
    End If
    
    '修改
    If df_sqb.txk_o = "1" Then
        Call xg_csh
    End If
    
    '删除
    If df_sqb.txk_o = "2" Then
        Call del_csh
    End If
    
    '常客
    If df_sqb.txk_o = "3" Then
        Call clk
    End If
    
    '查询
    If df_sqb.txk_o = "4" Then
        Call del_csh
    End If
    
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_bz1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Cmd3(0).SetFocus
    End If
End Sub

Private Sub m_dz_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_sydm.SetFocus
    End If
End Sub

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

Private Sub m_gjdm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_gjdm_LostFocus
    End If
End Sub

Private Sub m_gjdm_LostFocus()
    If Not Trim(m_gjdm.Text) = "" Then
        Set rec = PUB_data.OpenRecordset("SELECT GJDM,GJMC FROM DT_KRGJK WHERE GJDM='" & Trim(UCase(m_gjdm.Text)) & "'", 4)
        If Not rec.BOF Then
            rec.MoveLast
            m_gjmc.Text = Trim(UCase(rec!gjmc))
            m_kr_sr.SetFocus
            m_kr_sr.SelStart = 0
            m_kr_sr.SelLength = Len(Trim(m_kr_sr.Text))
        Else
            MSG.Caption = "无效国籍代码"
            m_gjdm.SetFocus
            m_gjdm.SelStart = 0
            m_gjdm.SelLength = Len(Trim(m_gjdm.Text))
            
        End If
        rec.Close
    Else
        If m_gjmc.Enabled = False Then
            m_gjmc.Enabled = True
            m_gjmc.SetFocus
        Else
            m_gjmc.SetFocus
        End If
    End If
End Sub



Private Sub m_gjmc_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_gjmc_LostFocus
    End If
End Sub

Private Sub m_gjmc_LostFocus()
    If Not Trim(m_gjmc.Text) = "" Then
        Set rec = PUB_data.OpenRecordset("SELECT GJDM,GJMC FROM DT_KRGJK WHERE GJMC='" & UCase(Trim(m_gjmc.Text)) & "'", 4)
        If Not rec.BOF Then
            rec.MoveLast
            m_gjdm.Text = UCase(Trim(rec!gjdm))
            m_kr_sr.SetFocus
            m_kr_sr.SelStart = 0
            m_kr_sr.SelLength = Len(Trim(m_kr_sr.Text))
        
        End If
    Else
            m_kr_sr.SetFocus
            m_kr_sr.SelStart = 0
            m_kr_sr.SelLength = Len(Trim(m_kr_sr.Text))
    End If
End Sub

Private Sub m_jddw_mc_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        m_tsfw.SetFocus
    End If
End Sub


Private Sub Cmd3_Click(Index As Integer)
     Select Case Index
        Case 0
        If df_sqb.txk_o = "0" Or df_sqb.txk_o = "3" Then  '增加
           Set t_rec3 = PUB_data.OpenRecordset("SELECT * FROM YD_KRQD WHERE YDD_H='" & yd_h & "'", 2, 0, 2)
                If Not t_rec3.BOF Then
                     t_rec3.MoveLast
                End If
                        t_rec3.AddNew
                            t_rec3!YDD_H = yd_h
                            t_rec3!kr_x = IIf(Trim(m_kr_x.Text) = "", "*", UCase(Trim(m_kr_x.Text)))
                            t_rec3!kr_m = IIf(Trim(m_kr_m.Text) = "", "*", UCase(Trim(m_kr_m.Text)))
                            t_rec3!yw_x = IIf(Trim(m_yw_x.Text) = "", "*", UCase(Trim(m_yw_x.Text)))
                            t_rec3!yw_m = IIf(Trim(m_yw_m.Text) = "", "*", UCase(Trim(m_yw_m.Text)))
                            Set rec = PUB_data.OpenRecordset("SELECT YDD_H,RZRQ,LDRQ FROM YD_YDDK WHERE YDD_H='" & yd_h & "'", 4)
                            
                            If Not rec.BOF Then
                                rec.MoveLast
                                t_rec3!rzrq = rec!rzrq
                                t_rec3!ldrq = rec!ldrq
                            End If
                            rec.Close
                            
                            If xb(0).Value = True Then '判断性别
                                t_rec3!kr_xbmc = "男"
                                t_rec3!kr_xbdm = "1"
                            Else
                                If xb(1).Value = True Then
                                    t_rec3!kr_xbmc = "女"
                                    t_rec3!kr_xbdm = "2"
                                Else
                                    t_rec3!kr_xbmc = "*"
                                    t_rec3!kr_xbdm = "0"
                                End If
                            End If
                            If Not m_kr_sr.Text = "    -  -  " Then
                                t_rec3!kr_sr = CDate(m_kr_sr.Text)
                            End If
                            't_rec3!KR_SR = IIf(Trim(m_kr_sr.Text) = "    -  -  ", Null, CDate(m_kr_sr.Text))
                            t_rec3!gjmc = IIf(Trim(m_gjmc.Text) = "", "*", UCase(Trim(m_gjmc.Text)))
                            t_rec3!gjdm = IIf(Trim(m_gjdm.Text) = "", "*", UCase(Trim(m_gjdm.Text)))
                            t_rec3!zjmc = IIf(Trim(m_zjmc.Text) = "", "*", UCase(Trim(m_zjmc.Text)))
                            t_rec3!kr_zjhm = IIf(Trim(m_zjhm.Text) = "", "*", UCase(Trim(m_zjhm.Text)))
                            t_rec3!qzmc = IIf(Trim(m_qzmc.Text) = "", "*", UCase(Trim(m_qzmc.Text)))
                            If Not m_qzsx.Text = "    -  -  " Then
                                t_rec3!kr_qz_yxq = CDate(m_qzsx.Text)
                            End If
                            't_rec3!KR_QZ_YXQ = IIf(Trim(m_qzsx.Text) = "    -  -  ", Null, CDate(m_qzsx.Text))
                            t_rec3!dz = IIf(Trim(m_dz.Text) = "", "*", UCase(Trim(m_dz.Text)))
                            t_rec3!BDJDDW_MC = IIf(Trim(m_jddw_mc.Text) = "", "*", UCase(Trim(m_jddw_mc.Text)))
                            t_rec3!jd_bz1 = IIf(Trim(m_bz1.Text) = "", "*", UCase(Trim(m_bz1.Text)))
                            t_rec3!tsfw = IIf(Trim(m_tsfw.Text) = "", "*", UCase(Trim(m_tsfw.Text)))
                            t_rec3!qzdm = IIf(Trim(m_qzdm.Text) = "", "*", UCase(Trim(m_qzdm.Text)))
                            t_rec3!zjdm = IIf(Trim(m_zjdm.Text) = "", "*", UCase(Trim(m_zjdm.Text)))
                            t_rec3!sydm = IIf(Trim(m_sydm.Text) = "", "*", UCase(Trim(m_sydm.Text)))
                            t_rec3!symc = IIf(Trim(m_symc.Text) = "", "*", UCase(Trim(m_symc.Text)))
                            t_rec3!jdy = IIf(Trim(m_jdy.Text) = "", "*", UCase(Trim(m_jdy.Text)))
                        
                            If Mid(yd_h, 1, 2) = "SK" Then  ''***住客类型
                                t_rec3!ZKLX = LoadResString(SYS_SKLX)
                            Else
                                If Mid(yd_h, 1, 2) = "TD" Then
                                    t_rec3!ZKLX = LoadResString(SYS_TDLX)
                                Else
                                    If Mid(yd_h, 1, 2) = "CB" Then
                                        t_rec3!ZKLX = LoadResString(SYS_CBLX)
                                    End If
                                End If
                            End If
                            
                            t_rec3.CZY = SYS_USER
                            If Not Trim(m_gjdm.Text) = "" Then  ''**取国籍所属洲代码
                                Set rec = PUB_data.OpenRecordset("SELECT GJDM,GJ_SSZDM FROM DT_KRGJK WHERE GJDM='" & UCase(Trim(m_gjdm.Text)) & "'", 4)
                                If Not rec.BOF Then
                                    rec.MoveLast
                                    t_rec3!GJ_SSZDM = Trim(rec!GJ_SSZDM)
                                End If
                                rec.Close
                            End If
                            t_rec3!lock_no = 0
                    
                            
                            Dim j As Long
                            Dim t_1 As String
                            For j = 1 To 999
                                t_1 = Right("00" & j, 3)
                                Set rec = PUB_data.OpenRecordset("select YDD_H,LSH from YD_KRQD where YDD_H='" & yd_h & "'AND Cstr(LSH)='" & CDec(t_1) & "'", 4)
                                If Not rec.BOF Then
                                        rec.MoveLast
                                Else: Exit For
                                End If
                            Next
                            t_rec3!lsh = CDec(t_1)
                            Set rec = PUB_data.OpenRecordset("SELECT YDD_H,KR_MC,VIP_DJ,DFY_DM FROM YD_YDDK WHERE YDD_H='" & yd_h & "'", 4)
                            If Not rec.BOF Then
                                If Not IsNull(rec!KR_MC) Then
                                    t_rec3!tdmc = Trim(rec!KR_MC)
                                Else
                                    t_rec3!tdmc = "*"
                                End If
                                
                                If Not IsNull(rec!dfy_dm) Then
                                    t_rec3!dfy_dm = Trim(rec!dfy_dm)
                                Else
                                    t_rec3!dfy_dm = "*"
                                End If
                                
                                If Not IsNull(rec!vip_dj) Then
                                    t_rec3!vip_dj = rec!vip_dj
                                Else
                                    t_rec3!vip_dj = 0
                                End If
                            End If
                            rec.Close
                        t_rec3.Update
                    TT = True
                    Unload Me
           Else
                If df_sqb.txk_o = "1" Then  '****修改同行客人数据
                       
                       
                        
                    Set t_rec3 = PUB_data.OpenRecordset("SELECT * FROM YD_KRQD WHERE YDD_H='" & yd_h & "'AND CSTR(TRIM(LSH))='" & df_sqb.m_lsh & "'", 2, 0, 2)
                        If Not t_rec3.BOF Then
                            t_rec3.MoveLast
                            '加锁
                                Do
                                    Select Case Pub_lock("PUBLIC", "YD_KRQD", t_rec3)  '判断加锁结果
                                        Case "1" '锁定
                                            Exit Do
                                        Case "2"  '
                                            Call Pub_UNlock("YD_KRQD", t_rec3)
                                            Exit Sub
                                    End Select
                                Loop
                            t_rec3.Edit
                                t_rec3!kr_x = IIf(Trim(m_kr_x.Text) = "", "*", UCase(Trim(m_kr_x.Text)))
                                t_rec3!kr_m = IIf(Trim(m_kr_m.Text) = "", "*", UCase(Trim(m_kr_m.Text)))
                                t_rec3!yw_x = IIf(Trim(m_yw_x.Text) = "", "*", UCase(Trim(m_yw_x.Text)))
                                t_rec3!yw_m = IIf(Trim(m_yw_m.Text) = "", "*", UCase(Trim(m_yw_m.Text)))
                                If xb(0).Value = True Then '判断性别
                                    t_rec3!kr_xbmc = "男"
                                    t_rec3!kr_xbdm = "1"
                                Else
                                    If xb(1).Value = True Then
                                        t_rec3!kr_xbmc = "女"
                                        t_rec3!kr_xbdm = "2"
                                    Else
                                        t_rec3!kr_xbmc = "*"
                                        t_rec3!kr_xbdm = "0"
                                    End If
                                End If
                                If Not m_kr_sr.Text = "    -  -  " Then
                                    t_rec3!kr_sr = CDate(m_kr_sr.Text)
                                End If
                                't_rec3!KR_SR = IIf(Trim(m_kr_sr.Text) = "    -  -  ", Null, CDate(m_kr_sr.Text))
                                t_rec3!gjmc = IIf(Trim(m_gjmc.Text) = "", "*", UCase(Trim(m_gjmc.Text)))
                                t_rec3!gjdm = IIf(Trim(m_gjdm.Text) = "", "*", UCase(Trim(m_gjdm.Text)))
                                t_rec3!zjmc = IIf(Trim(m_zjmc.Text) = "", "*", UCase(Trim(m_zjmc.Text)))
                                t_rec3!kr_zjhm = IIf(Trim(m_zjhm.Text) = "", "*", UCase(Trim(m_zjhm.Text)))
                                t_rec3!qzmc = IIf(Trim(m_qzmc.Text) = "", "*", UCase(Trim(m_qzmc.Text)))
                                If Not m_qzsx.Text = "    -  -  " Then
                                    t_rec3!kr_qz_yxq = CDate(m_qzsx.Text)
                                End If
                                't_rec3!KR_QZ_YXQ = IIf(Trim(m_qzsx.Text) = "    -  -  ", Null, CDate(m_qzsx.Text))
                                t_rec3!dz = IIf(Trim(m_dz.Text) = "", "*", UCase(Trim(m_dz.Text)))
                                t_rec3!rzrq = dfqk_1.RQ1
                                t_rec3!ldrq = dfqk_1.RQ2
                                t_rec3!BDJDDW_MC = IIf(Trim(m_jddw_mc.Text) = "", "*", UCase(Trim(m_jddw_mc.Text)))
                                t_rec3!jd_bz1 = IIf(Trim(m_bz1.Text) = "", "*", UCase(Trim(m_bz1.Text)))
                                t_rec3!tsfw = IIf(Trim(m_tsfw.Text) = "", "*", UCase(Trim(m_tsfw.Text)))
                                t_rec3!qzdm = IIf(Trim(m_qzdm.Text) = "", "*", UCase(Trim(m_qzdm.Text)))
                                t_rec3!zjdm = IIf(Trim(m_zjdm.Text) = "", "*", UCase(Trim(m_zjdm.Text)))
                                t_rec3!sydm = IIf(Trim(m_sydm.Text) = "", "*", UCase(Trim(m_sydm.Text)))
                                t_rec3!symc = IIf(Trim(m_symc.Text) = "", "*", UCase(Trim(m_symc.Text)))
                                If Not Trim(m_gjdm.Text) = "" Then  ''**取国籍所属洲代码
                                    Set rec = PUB_data.OpenRecordset("SELECT GJDM,GJ_SSZDM FROM DT_KRGJK WHERE GJDM='" & UCase(Trim(m_gjdm.Text)) & "'", 4)
                                    If Not rec.BOF Then
                                        rec.MoveLast
                                        t_rec3!GJ_SSZDM = Trim(rec!GJ_SSZDM)