📄 dt_sfdj.frm
字号:
Visible = 0 'False
Width = 675
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1191;582"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin MSForms.TextBox tx_fls
Height = 330
Index = 4
Left = 3780
TabIndex = 8
Top = 1170
Visible = 0 'False
Width = 675
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1191;582"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin MSForms.TextBox tx_fls
Height = 330
Index = 5
Left = 4620
TabIndex = 9
Top = 1170
Visible = 0 'False
Width = 675
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1191;582"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin MSForms.TextBox tx_fls
Height = 330
Index = 6
Left = 5460
TabIndex = 10
Top = 1170
Visible = 0 'False
Width = 675
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1191;582"
Value = "0"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "房间类型"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 180
TabIndex = 19
Top = 840
Width = 915
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "房 数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 180
TabIndex = 18
Top = 1200
Width = 915
End
Begin VB.Label lb_rzrq
Caption = "入住日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1500
TabIndex = 17
Top = 300
Width = 1275
End
End
Begin MSForms.TextBox tx_rs
Height = 330
Left = 4800
TabIndex = 3
Top = 420
Width = 795
VariousPropertyBits= 746604571
MaxLength = 3
Size = "1402;582"
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "入住人数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3690
TabIndex = 34
Top = 450
Width = 1035
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "住客类型"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 270
TabIndex = 33
Top = 450
Width = 1035
End
Begin MSForms.ComboBox cm_zkmc
Height = 330
Left = 1380
TabIndex = 0
Top = 420
Width = 1635
VariousPropertyBits= 746604571
MaxLength = 4
DisplayStyle = 3
Size = "2884;582"
ColumnCount = 2
cColumnInfo = 2
MatchEntry = 1
ShowDropButtonWhen= 2
FontName = "宋体"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
Object.Width = "705;1058"
End
End
Begin VB.CommandButton cmd_ok
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 3720
TabIndex = 12
Top = 4980
Width = 1455
End
Begin VB.CommandButton cmd_ok
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 1500
TabIndex = 11
Top = 4980
Width = 1455
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "无 预 订 散 客 登 记"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1440
TabIndex = 14
Top = 540
Width = 3915
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
Caption = "Label5"
ForeColor = &H00C00000&
Height = 255
Left = 4080
TabIndex = 13
Top = 180
Width = 2775
End
End
Attribute VB_Name = "dt_sfdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim sfdj_yzrq, sfdj_ylrq As Date '预住日期, 预离日期
Dim sfdj_dffls() As Integer '各种类型的房数
Dim sfdj_pffls() As Integer '各种类型的房数
Dim sfdj_dfrs As Integer '入住人数
Dim sfdj_zklx As Integer '住客类型
Dim sfdj_zkmc As String '住客名称
Dim sfdj_tdh As String '团队号
Dim sfdj_tdmc As String '团队名称
Dim i As Integer
Private Sub cm_tdmc_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
tx_tdh.SetFocus
Case vbKeyReturn, vbKeyDown
tx_rs.SetFocus
End Select
End Sub
'***********************************************************************
'* 功 能 : 把住客名称代码赋给一个文本框
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.04
'* 修改日期 : 1999.03.04
'***********************************************************************
Private Sub cm_zkmc_Click()
tx_zklx = cm_zkmc.List(cm_zkmc.ListIndex, 0)
cm_zkmc = cm_zkmc.List(cm_zkmc.ListIndex, 1)
End Sub
'***********************************************************************
'* 功 能 :
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.09
'* 修改日期 : 1999.03.09
'***********************************************************************
Private Sub cm_zkmc_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
cmd_ok(1).SetFocus
Case vbKeyReturn, vbKeyDown
If tx_tdh.Visible Then
tx_tdh.SetFocus
Else
tx_rs.SetFocus
End If
End Select
End Sub
'***********************************************************************
'* 功 能 : 按"确定"时, 开始登记各种客房类型数
'* 按"退出"时, 退出散客无预订登记
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.04
'* 修改日期 : 1999.03.04
'***********************************************************************
Private Sub cmd_ok_Click(Index As Integer)
Dim t_RT As Boolean
Dim t_RT1 As Boolean
Dim sfdj_freeRT As Boolean
Dim t_rec As Recordset
Dim tools As New HOTEL_TOOL.HOTEL_TOOLS
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '确定
ReDim sfdj_dffls(SYS_LXN + 1)
ReDim sfdj_pffls(SYS_LXN + 1)
t_RT = False
For i = 1 To SYS_LXN
If tx_fls(i).Text > 0 Then
t_RT = True
End If
Next i
If Not t_RT Then
frm_msg.Visible = True
frm_msg.Caption = "请输入适当的房数"
tx_fls(1).SetFocus
Exit Sub
Else
For i = 1 To SYS_LXN
sfdj_dffls(i) = tx_fls(i).Text
sfdj_pffls(i) = 0
Next i
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -