📄 dt_krdj.frm
字号:
Height = 375
Index = 2
Left = 10260
TabIndex = 4
Top = 960
Width = 1125
End
Begin VB.Frame fm_dfzt
BorderStyle = 0 'None
Height = 555
Left = 420
TabIndex = 67
Top = 8160
Width = 9375
Begin VB.Label Label18
Alignment = 1 'Right Justify
Caption = "订房数量:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 0
TabIndex = 75
Top = 0
Width = 915
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
Caption = "派房数量:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 0
TabIndex = 74
Top = 300
Width = 915
End
Begin VB.Label lb_dffls
Caption = "单人"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 960
TabIndex = 73
Top = 0
Width = 6615
End
Begin VB.Label lb_pffls
Caption = "单人"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 960
TabIndex = 72
Top = 300
Width = 6615
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
Caption = "预订房人数:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 7680
TabIndex = 71
Top = 0
Width = 1095
End
Begin VB.Label Label35
Alignment = 1 'Right Justify
Caption = "已派房人数:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 7680
TabIndex = 70
Top = 300
Width = 1095
End
Begin VB.Label lb_dfrs
Alignment = 1 'Right Justify
Caption = "100"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 8700
TabIndex = 69
Top = 0
Width = 495
End
Begin VB.Label lb_pfrs
Alignment = 1 'Right Justify
Caption = "100"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 8700
TabIndex = 68
Top = 300
Width = 495
End
End
Begin VB.CommandButton cmd_djbt
Caption = "预定单(F9)"
Height = 375
Index = 9
Left = 2790
TabIndex = 2
Top = 960
Width = 1125
End
Begin VB.CommandButton cmd_djbt
Caption = "常来客(F8)"
Height = 375
Index = 8
Left = 1590
TabIndex = 1
Top = 960
Width = 1125
End
Begin VB.CommandButton cmd_djbt
Caption = "登记卡(F7)"
Height = 375
Index = 7
Left = 390
TabIndex = 0
Top = 960
Width = 1125
End
Begin VB.CommandButton CMD_EXIT
Caption = "退出(Esc)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 10050
TabIndex = 5
Top = 8220
Width = 1455
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
ForeColor = &H8000000D&
Height = 315
Left = 6330
TabIndex = 66
Top = 120
Width = 5475
End
Begin VB.Label Label34
Alignment = 2 'Center
Caption = "客 人 信 息 登 记 卡"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 360
TabIndex = 65
Top = 570
Width = 10995
End
End
Attribute VB_Name = "dt_krdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim t_czlsh As String
Dim key_index As Integer
Dim krdj_bjft As Boolean '判断当前是否在编辑状态, 若在编辑状态, 按Esc键不执行任何功能; 在非编辑状态, 提示是否退出
Dim ydkr_gzfs As Integer '预订客人管制房数
Dim ydkr_gzfs_i As Integer '预订客人管制房数的循环变量
Dim ydkr_gzfh As Variant
'MAIN 参数设置
Dim CS_gnmc As String '功能名称 "增加","修改","显示"
Dim CS_zh As String '修改或显示信息是的客人帐号
Dim CS_yddh As String '预定单号
Dim CS_tdzh As String '团队帐号
Dim CS_tdmc As String '团队名称
Dim CS_rzrq As Date '入住日期
Dim CS_ldrq As Date '离店日期
Dim CS_dffls() As Integer '订房房类数
Dim CS_pffls() As Integer '派房房类数
Dim CS_zklx As Integer '住客类型
Dim CS_dfrs As Integer '人数
Dim CS_dfydm As String '订房员代码
Dim CS_khdm As String '客户编号
Dim CS_YWDW_MC As String '单位名称
Dim krdj_pfrs As Integer
'**************************************************************************************************
'* 功 能 : 传递显示及编辑用的各种参数
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.03
'* 修改日期 : 1999.03.03
'* 参数说明 : t_gnmc -- 表示 增加, 修改, 显示 等各种功能
'**************************************************************************************************
Sub MAIN(t_gnmc As String, t_zh As String, t_yddh As String, t_tdzh As String, t_tdmc As String, t_rzrq As Date, t_ldrq As Date, t_dffls() As Integer, t_zklx As Integer, t_dfrs As Integer, t_dfydm As String, t_khdm As String, t_YWDW_MC As String)
CS_gnmc = Trim(t_gnmc)
CS_zh = Trim(t_zh)
CS_yddh = Trim(t_yddh)
CS_tdzh = Trim(t_tdzh)
CS_tdmc = Trim(t_tdmc)
CS_rzrq = t_rzrq
CS_ldrq = t_ldrq
ReDim CS_dffls(SYS_LXN + 1)
For i = 1 To SYS_LXN
CS_dffls(i) = t_dffls(i)
Next i
CS_zklx = t_zklx
CS_dfrs = t_dfrs
CS_dfydm = Trim(t_dfydm)
CS_khdm = Trim(t_khdm)
CS_YWDW_MC = Trim(t_YWDW_MC)
End Sub
'**************************************************************************************************
'* 功 能 : 客人入住时, 显示订房和派房情况
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.09
'* 修改日期 : 1999.03.09
'**************************************************************************************************
Private Sub tPflslbReset()
lb_dfrs.Caption = CStr(CS_dfrs)
lb_dffls.Caption = ""
For i = 1 To SYS_LXN
lb_dffls.Caption = lb_dffls.Caption + " " + SYS_LXC(i) + " " + RIGHT(String(4, " ") & CStr(CS_dffls(i)), 3)
Next i
lb_pfrs.Caption = CStr(krdj_pfrs)
lb_pffls.Caption = ""
For i = 1 To SYS_LXN
lb_pffls.Caption = lb_pffls.Caption + " " + SYS_LXC(i) + " " + RIGHT(String(4, " ") & CStr(CS_pffls(i)), 3)
Next i
End Sub
'**************************************************************************************************
'* 功 能 : 用来设置各种控件 .edabled 的设置
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.03
'* 修改日期 : 1999.03.03
'* 参数说明 : temp_gnmc -- 表示 增加, 修改, 显示 等各种功能
'**************************************************************************************************
Private Sub tPkjEnabledFT(temp_gnmc As String, temp_ft As Boolean) '控件.enabled 的设置
If temp_gnmc = "增加" Or temp_gnmc = "同住" Then
m_zh.Enabled = False
Else
m_zh.Enabled = True
End If
m_kr_x.Enabled = temp_ft
m_kr_m.Enabled = temp_ft
m_yw_x.Enabled = temp_ft
m_yw_m.Enabled = temp_ft
op_xb(0).Enabled = temp_ft
op_xb(1).Enabled = temp_ft
op_xb(2).Enabled = temp_ft
m_kr_sr.Enabled = temp_ft
m_gjdm.Enabled = temp_ft
cm_gjmc.Enabled = temp_ft
m_zjdm.Enabled = temp_ft
cm_zjmc.Enabled = temp_ft
m_kr_zjhm.Enabled = temp_ft
m_sydm.Enabled = temp_ft
cm_symc.Enabled = temp_ft
m_qzdm.Enabled = temp_ft
cm_qzmc.Enabled = temp_ft
m_kr_qz_yxq.Enabled = temp_ft
m_dz.Enabled = temp_ft
'????
If CS_gnmc = "修改" And Trim(m_zklx.Text) = LoadResString(SYS_TDLX) Then
m_td_zh.Enabled = True
cm_tdmc.Enabled = True
Else
m_td_zh.Enabled = False
cm_tdmc.Enabled = False
End If
m_jdy.Enabled = temp_ft
m_bdjddw_mc.Enabled = temp_ft
m_rzrq.Enabled = False
m_rzsj.Enabled = False
If CS_gnmc = "修改" And Len(Trim(m_zh.Text)) = 4 Then
m_ldrq.Enabled = True
Else
m_ldrq.Enabled = False
End If
m_ldsj.Enabled = temp_ft
m_zklx.Enabled = temp_ft
cm_zklx_mc.Enabled = temp_ft
If CS_gnmc = "修改" Then
m_kf_zkl.Enabled = False
Else
m_kf_zkl.Enabled = temp_ft
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -