📄 yx_kfyd.frm
字号:
'*******长包预订
If yd_lx.LX = "TD" Then
If dfqk_1.F2.Enabled = False Then
dfqk_1.F2.Enabled = True
End If
If dfqk_1.F3.Enabled = False Then
dfqk_1.F3.Enabled = True
End If
If dfqk_1.F4.Enabled = False Then
dfqk_1.F4.Enabled = True
End If
dfqk_1.Frame1.Caption = "团队预订单:"
dfqk_1.tf = False
dfqk_1.Show (1)
date1 = dfqk_1.RQ1 '取预订起始日期
date2 = dfqk_1.RQ2 '取预订截止日期
If dfqk_1.tf Then '确认返回
'df_sqb.F1T.Visible = True
df_sqb.Show (1)
Call refresh1
Call atfirst
Else ''订房情况非确认返回
Call atfirst
Exit Sub
End If
End If
End If
Else
Call atfirst
Exit Sub
End If
'预订修改
Case 1
pub_code = Left(Pub_getcode(PUB_data, "PUB_YDXG"), 5)
FLEX1.Enabled = False
STY = "1"
kf_ydd_h.tf = False
kf_ydd_h.yd_h = ""
kf_ydd_h.m_ydd_h.Text = m_ydd_h.Text
kf_ydd_h.m_ydd_h.SelStart = 0
kf_ydd_h.m_ydd_h.SelLength = Len(Trim(kf_ydd_h.m_ydd_h.Text))
kf_ydd_h.Show (1)
If kf_ydd_h.tf Then
If Mid(kf_ydd_h.yd_h, 1, 2) = "SK" Or Mid(kf_ydd_h.yd_h, 1, 2) = "CB" Then
df_sqb.Tab1.TabEnabled(5) = False
df_sqb.Frame6.Enabled = False
df_sqb.Frame7.Enabled = False
'df_sqb.F1S.Visible = True
'Else
'df_sqb.F1T.Visible = True
End If
df_sqb.Show (1)
Call refresh1
Call atfirst
Else
Call atfirst
Exit Sub
End If
'预订解除
Case 2
pub_code = Left(Pub_getcode(PUB_data, "PUB_YDJC"), 5)
STY = "2"
FLEX1.Enabled = False
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Cmd2(5).Enabled = False
Cmd2(6).Enabled = False
Cmd2(7).Enabled = False
frm_msg.Caption = "请输入预订单号!"
nam.Caption = "当前操作: 删除. "
Command2(0).Enabled = True
Command2(1).Enabled = True
m_ydd_h.BackColor = &H80000014
Frame2.Enabled = True
If m_ydd_h.Enabled = False Then
m_ydd_h.Enabled = True
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
Else
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
End If
'
'打印
Case 3
If T_TJ = "" Then
Set t_rec = PUB_data.OpenRecordset("select YDD_H,KR_MC,RZRQ,YDSJ,LDRQ,DF_JS,GZ_JS,RS,DFY_DM from YD_YDDK", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
Call print_tabler(t_rec, "客房预订清单", Array("预订单号", "客人名称", "预达日期", " 预达时间", "预离日期", "预订房数", "管制房数", "人数", "订房员"), Array(18, 25, 15, 15, 12, 8, 10, 6, 8), 40, Array(11, 11, 11, 11, 11, 21, 21, 21, 21))
Else
MsgBox "无可打印信息!", 64
Call refresh1
Call atfirst
Exit Sub
End If
Else
Set t_rec = PUB_data.OpenRecordset("select YDD_H,KR_MC,RZRQ,YDSJ,LDRQ,DF_JS,GZ_JS,RS,DFY_DM from YD_YDDK WHERE " & T_TJ & "", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
Call print_tabler(t_rec, "客房预订清单", Array("预订单号", "客人名称", "预达日期", " 预达时间", "预离日期", "预订房数", "管制房数", "人数", "订房员"), Array(18, 25, 15, 15, 12, 8, 10, 6, 8), 40, Array(11, 11, 11, 11, 11, 21, 21, 21, 21))
Else
MsgBox "无可打印信息!", 64
Call refresh1
Call atfirst
Exit Sub
End If
End If
'筛选
Case 4
FLEX1.Enabled = False
m_rzrq1.BackColor = RGB(255, 255, 255)
m_rzrq1.SelStart = 0
m_rzrq1.SelLength = Len(Trim(m_rzrq1.Text))
Frame6.Enabled = True
m_khdm.BackColor = RGB(255, 255, 255)
frm_msg.Caption = "请输入筛选条件!"
nam.Caption = "当前操作: 筛选. "
Set t_rec1 = PUB_data.OpenRecordset("select YDD_H,KR_MC,RZRQ,YDSJ,LDRQ,DF_JS,GZ_JS,RS,DFY_DM,KHDM,LOCK_NO from YD_YDDK order by RZRQ", 4)
If t_rec1.BOF Then
frm_msg.Caption = "当前数据库中没有记录"
If FLEX1.Enabled = False Then
FLEX1.Enabled = True
FLEX1.SetFocus
Else
FLEX1.SetFocus
End If
Else
t_rec1.MoveLast
m_rzrq1.Enabled = True
m_khdm.Enabled = True
m_rzrq1.BackColor = &H80000005
m_khdm.BackColor = &H80000005
m_rzrq1.SetFocus
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Cmd2(5).Enabled = False
Cmd2(6).Enabled = False
Cmd2(7).Enabled = False
End If
'查询
Case 5
pub_code = Left(Pub_getcode(PUB_data, "PUB_YDCX"), 5)
FLEX1.Enabled = False
STY = "5"
kf_ydd_h.tf = False
kf_ydd_h.yd_h = ""
kf_ydd_h.m_ydd_h.Text = m_ydd_h.Text
kf_ydd_h.m_ydd_h.SelStart = 0
kf_ydd_h.m_ydd_h.SelLength = Len(Trim(kf_ydd_h.m_ydd_h.Text))
kf_ydd_h.Show (1)
If kf_ydd_h.tf Then
If Mid(kf_ydd_h.yd_h, 1, 2) = "SK" Or Mid(kf_ydd_h.yd_h, 1, 2) = "CB" Then
df_sqb.Tab1.TabEnabled(5) = False
df_sqb.Frame6.Enabled = False
df_sqb.Frame7.Enabled = False
'df_sqb.F1S.Visible = True
'Else
'df_sqb.F1T.Visible = True
End If
df_sqb.Show (1)
Call refresh1
Call atfirst
Else
Call atfirst
Exit Sub
End If
'刷新
Case 6
Call refresh1
Call atfirst
'转预订等待
Case 7
pub_code = Left(Pub_getcode(PUB_data, "PUB_YDZW"), 5)
STY = "7"
FLEX1.Enabled = False
frm_msg.Caption = "请输入预订单号!"
nam.Caption = "当前操作: 预订转等待. "
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Cmd2(5).Enabled = False
Cmd2(6).Enabled = False
Cmd2(7).Enabled = False
Command2(0).Enabled = True
Command2(1).Enabled = True
m_ydd_h.BackColor = &H80000014
Frame2.Enabled = True
If m_ydd_h.Enabled = False Then
m_ydd_h.Enabled = True
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
Else
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
End If
End Select
End Sub
Private Sub Cmd3_Click()
Unload Me
yx_main.Show (1)
End Sub
'删除确认
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0
Set t_rec = PUB_data.OpenRecordset("select YDD_H,KR_MC,RZRQ,YDSJ,LDRQ,DF_JS,GZ_JS,RS,DF_LX1,DF_LX2,DF_LX3,DF_LX4,ZKLX,DFY_DM,KHDM,LOCK_NO from YD_YDDK where CStr(YDD_H)='" & Trim(UCase(m_ydd_h.Text)) & " '", 2, 0, 2)
If Not t_rec.BOF Then
t_rec.MoveLast
'取单号对应信息
If Not IsNull(t_rec!KR_MC) And Trim(t_rec!KR_MC) = "*" Then
m_kr_mc.Text = UCase(Trim(m_kr_mc.Text))
End If
m_rzrq.Text = Format(Trim(t_rec!rzrq), "yyyy-mm-dd")
If Not IsNull(t_rec!YDSJ) And Trim(t_rec!YDSJ) = "*" Then
m_ydsj.Text = Format(t_rec!YDSJ, "HH:MM:SS")
End If
m_ldrq.Text = Format(Trim(t_rec!ldrq), "yyyy-mm-dd")
m_df_js.Text = Trim(t_rec!DF_JS)
m_gz_js.Text = Trim(t_rec!GZ_JS)
If Not IsNull(t_rec!RS) Then
m_rs.Text = t_rec!RS
End If
If Not IsNull(t_rec!dfy_dm) And Trim(t_rec!dfy_dm) = "*" Then
m_dfy_dm.Text = t_rec!dfy_dm
End If
Dim T_RZRQ As Date
Dim T_LDRQ As Date
Dim T_ARR As Variant
Dim zlx As Integer
T_RZRQ = t_rec!rzrq
T_LDRQ = t_rec!ldrq
T_ARR = Array(0, t_rec!DF_LX1, t_rec!DF_LX2, t_rec!DF_LX3, t_rec!DF_LX4)
zlx = t_rec!ZKLX
'解除归档
del_tf = pub_yden(UCase(Trim(m_ydd_h.Text)), pub_code)
If del_tf Then
'释放房间
Call Pub_kftj(T_RZRQ, T_LDRQ, T_ARR, T_RZRQ, T_LDRQ, T_ARR, zlx, pub_code)
If STY = "2" Then
MsgBox "预订单成功解除！", vbOKOnly
Else
If STY = "7" Then
MsgBox "预订单成功转为等待！", vbOKOnly
End If
End If
Else
MsgBox "无效功能调用！", 16
End If
Call refresh1
Call atfirst
Else
response = MsgBox("此预订单号不存在,是否重输?", 1, "")
If response = 1 Then
If m_ydd_h.Enabled = False Then
m_ydd_h.Enabled = True
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
Else
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
End If
Else
Call atfirst
End If
End If
Case 1
Call atfirst
End Select
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
m_ydd_h.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9))
m_kr_mc.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 1))
m_rzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 2)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 2), "yyyy-mm-dd"))
m_ydsj.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 3)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 9 + 3)))
m_ldrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 4)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 4), "yyyy-mm-dd"))
m_df_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 5))
m_gz_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 6))
m_rs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 7))
m_dfy_dm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 8))
Exit Sub
error1:
If Err() = 383 Then
Resume Next
End If
End Sub
Private Sub FLEX1_RowColChange()
On Error GoTo error1
m_ydd_h.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9))
m_kr_mc.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 1))
m_rzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 2)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 2), "yyyy-mm-dd"))
m_ydsj.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 3)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 9 + 3)))
m_ldrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 4)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 4), "yyyy-mm-dd"))
m_df_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 5))
m_gz_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 6))
m_rs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 7))
m_dfy_dm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 8))
Exit Sub
error1:
If Err() = 383 Then
Resume Next
End If
End Sub
Private Sub m_khdm_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_khdm_LostFocus
End If
End Sub
Private Sub m_khdm_LostFocus()
If Frame6.Enabled = True Then
If m_rzrq1.Text = " - - " Then
T_TJ = ""
Else
T_TJ = "Cstr(RZRQ)='" & Trim(m_rzrq1.Text) & "'"
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -