📄 yd_wait.frm
字号:
Left = 6930
TabIndex = 10
Top = 225
Width = 945
End
End
Begin VB.CommandButton Cmd3
Caption = "退出(ESC)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 10200
TabIndex = 8
Top = 8280
Width = 1575
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 0
TabIndex = 41
Top = 0
Width = 11775
End
Begin VB.Label frm_msg
BackColor = &H8000000A&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 735
Left = 5400
TabIndex = 40
Top = 0
Width = 6375
End
End
Attribute VB_Name = "yd_wait"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim key_index As Integer
Dim t_bt As String
Dim t_fields As Variant
Dim t_lock_no As Integer
Dim response As String
Dim response1 As String
Dim t_rec As Recordset 'MSFLEXGRID
Dim t_rec1 As Recordset
Dim t_rq As String
Dim rec As Recordset
Dim rec1 As Recordset
Dim rec2 As Recordset
Dim rec3 As Recordset
Dim rec4 As Recordset
Dim rec5 As Recordset
Dim rec6 As Recordset
Dim t_f As Boolean 'PUB_FREE 返回值
Dim del_tf As Boolean '解除归档返回值
Dim T_TJ As String '筛选条件
Private Sub CMD1_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,LOCK_NO,ZKLX,DFY_DM,KHDM,LOCK_NO from YD_WAIT 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
If del_tf Then
MsgBox "预订等待成功解除！", vbOKOnly
Else
MsgBox "无效功能调用！", 16
End If
End If
Call refresh1
Call first
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 first
End If
End If
Case 1
Call first
End Select
End Sub
Private Sub flex1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Cmd2(0).SetFocus
End If
End Sub
Private Sub Form_Load()
Dim sys_uid As String, sys_pwd As String
JZ_USER = SYS_USER + Space(1) + SYS_NAME
JZ_JRSJ2 = Time()
sys_uid = "db2user"
sys_pwd = "db2user"
Set t_rec = PUB_data.OpenRecordset("select YDD_H,KR_MC,RZRQ,YDSJ,LDRQ,DF_JS,GZ_JS,RS,DFY_DM,LOCK_NO from YD_WAIT", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
name1.Caption = "预订等待一览表"
nam.Caption = ""
KeyPreview = True
m_rzrq1.Text = " - - "
m_rzrq.Text = " - - "
m_ldrq.Text = " - - "
m_khdm.Text = ""
Call first
t_fields = Array(0, 1, 2, 3, 4, 5, 6, 7, 8)
t_bt = "^ 预订单号 |^ 客人名称 |^ 预达日期 |^ 预达时间 |^ 预离日期 |^预订房数|^管制房数 |^入住人数 |^订房员代码 "
Call pub_memo.Flex_full(FLEX1, t_bt, t_rec, t_fields, 8, Array(0, 0, 0, 0, 0, 0, 0, 0, 0))
rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
frm_msg.Visible = False
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)
Select Case Index
Case 0 '转正式
pub_code = Left(Pub_getcode(PUB_data, "PUB_YDJL"), 5)
wait_dh.tf = False
wait_dh.m_ydd_h.Text = UCase(Trim(m_ydd_h.Text))
wait_dh.m_ydd_h.SelStart = 0
wait_dh.m_ydd_h.SelLength = Len(Trim(wait_dh.m_ydd_h.Text))
wait_dh.Show (1)
'单号存在
If wait_dh.tf Then '
'***判断住客类型
Set rec = PUB_data.OpenRecordset("SELECT * FROM YD_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'", 2, 0, 2)
If Not rec.BOF Then
rec.MoveLast
'加锁
Do
Select Case Pub_lock("YX", "YD_WAIT", rec) '判断加锁结果
Case "1" '锁定
Exit Do
Case "2" '
Call Pub_UNlock("YD_WAIT", rec)
Exit Sub
End Select
Loop
If Mid(wait_dh.wait_dh, 1, 2) = "SK" Then
t_f = Pub_free(rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), LoadResString(SYS_SKLX), pub_code)
Else
If Mid(wait_dh.wait_dh, 1, 2) = "TD" Then
t_f = Pub_free(rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), LoadResString(SYS_TDLX), pub_code)
Else
If Mid(wait_dh.wait_dh, 1, 2) = "CB" Then
t_f = Pub_free(rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), LoadResString(SYS_CBLX), pub_code)
End If
End If
End If
If t_f Then
'可以转正式预订,&*****修改房态表
If Not Mid(kf_ydd_h.yd_h, 1, 2) = "CB" Then
If Mid(kf_ydd_h.yd_h, 1, 2) = "SK" Then
Call Pub_kftj(rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), LoadResString(SYS_SKLX), pub_code)
Else
Call Pub_kftj(rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), LoadResString(SYS_TDLX), pub_code)
End If
Else '***长包
Call Pub_kftj(rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), rec!rzrq, rec!ldrq, Array(0, rec!DF_LX1, rec!DF_LX2, rec!DF_LX3, rec!DF_LX4), LoadResString(SYS_CBLX), pub_code)
End If
'****预订单
PUB_data.Execute "INSERT INTO YD_YDDK SELECT * FROM YD_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'"
PUB_data.Execute "DELETE FROM YD_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'"
'***同行客人
Set rec2 = PUB_data.OpenRecordset("SELECT YDD_H,LSH FROM YK_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'", 2, 0, 2)
If Not rec2.BOF Then '有客人信息
rec2.MoveLast
rec2.MoveFirst
PUB_data.Execute "INSERT INTO YD_KRQD SELECT * FROM YK_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'"
PUB_data.Execute "DELETE FROM YK_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'"
End If
'团队就餐
Set rec4 = PUB_data.OpenRecordset("SELECT YDD_H,LSH FROM YC_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'", 2, 0, 2)
If Not rec4.BOF Then
rec4.MoveLast
rec4.MoveFirst
PUB_data.Execute "INSERT INTO YD_TDJC SELECT * FROM YC_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'"
PUB_data.Execute "DELETE FROM YC_WAIT WHERE YDD_H='" & wait_dh.wait_dh & "'"
End If
'解锁
Call Pub_UNlock("YD_WAIT", rec)
MsgBox "该预订等待已转正式!"
' 等待列表刷新
Set t_rec = PUB_data.OpenRecordset("select YDD_H,KR_MC,RZRQ,YDSJ,LDRQ,DF_JS,GZ_JS,RS,DFY_DM,LOCK_NO from YD_WAIT", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
Call pub_memo.Flex_full(FLEX1, t_bt, t_rec, t_fields, 8, Array(0, 0, 0, 0, 0, 0, 0, 0, 0))
rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
Call first
Exit Sub
'不可以转正式预订
Else
'解锁
Call Pub_UNlock("YD_WAIT", rec)
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)
Call refresh1
Call first
Exit Sub
End If
'单号记录不存在
End If
'非有效单号返回
Else
Call refresh1
Call first
Exit Sub
End If
Case 1 '修改
pub_code = Left(Pub_getcode(PUB_data, "PUB_WDXG"), 5)
STY = "1"
wait_dh.tf = False
wait_dh.m_ydd_h.Text = UCase(Trim(m_ydd_h.Text))
wait_dh.m_ydd_h.SelStart = 0
wait_dh.m_ydd_h.SelLength = Len(Trim(wait_dh.m_ydd_h.Text))
wait_dh.Show (1)
If wait_dh.tf Then
wait_xg.Show (1)
Call refresh1
Call first
Else
Call first
End If
Case 2 '解除
pub_code = Left(Pub_getcode(PUB_data, "PUB_WDJC"), 5)
STY = "2"
FLEX1.Enabled = False
frm_msg.Caption = "请输入预订单号!"
nam.Caption = "当前操作: 删除. "
CMD1(0).Enabled = True
CMD1(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 first
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 first
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))
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_WAIT order by RZRQ", 4)
If t_rec1.BOF Then
frm_msg.Caption = "当前数据库中没有记录"
If FLEX1.Enabled = False Then
FLEX1.Enabled = True
FLEX1.SetFocus
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -