📄 dfqk_1.frm
字号:
EndProperty
Height = 210
Left = 3000
TabIndex = 29
Top = 360
Width = 945
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "单人间数:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 28
Top = 360
Width = 945
End
End
Begin VB.Frame F2
Caption = "客人"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Left = 720
TabIndex = 22
Top = 1080
Width = 5895
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "单人间数:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 26
Top = 360
Width = 945
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "双人间数:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3000
TabIndex = 25
Top = 360
Width = 945
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "套间间数:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 24
Top = 960
Width = 945
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "豪华间数:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3000
TabIndex = 23
Top = 960
Width = 945
End
Begin MSForms.TextBox m_kr_fls_1
Height = 300
Left = 1440
TabIndex = 2
Top = 360
Width = 1095
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1931;529"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.TextBox m_kr_fls_2
Height = 300
Left = 4080
TabIndex = 3
Top = 360
Width = 1095
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1931;529"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.TextBox m_kr_fls_3
Height = 300
Left = 1440
TabIndex = 4
Top = 960
Width = 1095
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1931;529"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.TextBox m_kr_fls_4
Height = 300
Left = 4080
TabIndex = 5
Top = 960
Width = 1095
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1931;529"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
End
End
Begin MSMask.MaskEdBox m_ldrq
Height = 255
Left = 4800
TabIndex = 1
Top = 720
Width = 1095
_ExtentX = 1931
_ExtentY = 450
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = " "
End
Begin MSMask.MaskEdBox m_rzrq
Height = 255
Left = 2160
TabIndex = 0
Top = 720
Width = 1095
_ExtentX = 1931
_ExtentY = 450
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = " "
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "订 房 情 况 表"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2280
TabIndex = 19
Top = 240
Width = 2385
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "离店日期:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3720
TabIndex = 18
Top = 720
Width = 945
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "入住日期:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 840
TabIndex = 17
Top = 720
Width = 945
End
End
Begin VB.Label Label10
AutoSize = -1 'True
ForeColor = &H00FF8080&
Height = 180
Left = 4440
TabIndex = 20
Top = 600
Width = 1890
End
Begin VB.Label MSG
AutoSize = -1 'True
ForeColor = &H00FF0000&
Height = 180
Left = 5040
TabIndex = 21
Top = 0
Width = 90
End
End
Attribute VB_Name = "dfqk_1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t_rec3 As Recordset 'ADDNEW,EDIT,DELETE
Dim t_rec4 As Recordset 'LOCK_NO
Dim t_rec As Recordset 'MSFLEXGRID
Dim t_rec2 As Recordset 'TEMP
Dim t_rq As String
Dim rec As Recordset
Dim t_f As Boolean
Dim tff As Boolean
Dim kr_lx As String
Dim date_s As Date
Dim date_e As Date
Dim t_fields As Variant
Dim js1 As String
Dim js2 As String
Dim js3 As String
Dim js4 As String
Dim FL_S As Variant
Dim df_js1 As Integer
Dim DH_YD As String
Private Sub CCMD1_Click(Index As Integer)
Select Case Index
Case 0
Dim LX1 As Integer '***单人间订房数
Dim LX2 As Integer '***双人间订房数
Dim LX3 As Integer '***套间订房数
Dim LX4 As Integer '***豪华套订房数
'**订房数
LX1 = CDec(Trim(m_kr_fls_1.Text)) + CDec(Trim(m_qp_fls_1.Text)) + CDec(Trim(m_dp_fls_1.Text))
LX2 = CDec(Trim(m_kr_fls_2.Text)) + CDec(Trim(m_qp_fls_2.Text)) + CDec(Trim(m_dp_fls_2.Text))
LX3 = CDec(Trim(m_kr_fls_3.Text)) + CDec(Trim(m_qp_fls_3.Text)) + CDec(Trim(m_dp_fls_3.Text))
LX4 = CDec(Trim(m_kr_fls_4.Text)) + CDec(Trim(m_qp_fls_4.Text)) + CDec(Trim(m_dp_fls_4.Text))
Dim kftj As Variant '***修改客房统计表的房间数量
t_fields = Array(0, LX1, LX2, LX3, LX4)
kftj = Array(0, LX1, LX2, LX3, LX4)
Dim t As String
'***判断住客类型
If yd_lx.LX = "SK" Then
t_f = Pub_free(CDate(Trim(m_rzrq.Text)), CDate(Trim(m_ldrq.Text)), t_fields, LoadResString(SYS_SKLX), pub_code)
Else
If yd_lx.LX = "TD" Then
t_f = Pub_free(CDate(Trim(m_rzrq.Text)), CDate(Trim(m_ldrq.Text)), t_fields, LoadResString(SYS_TDLX), pub_code)
Else
If yd_lx.LX = "CB" Then
t_f = Pub_free(CDate(Trim(m_rzrq.Text)), CDate(Trim(m_ldrq.Text)), t_fields, LoadResString(SYS_CBLX), pub_code)
End If
End If
End If
'***判断是否满足预订要求
If t_f Then
'**如果非长包
If yd_lx.LX = "SK" 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_SKLX), pub_code)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -