📄 cx_yddk.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 24
Top = 480
Width = 945
End
Begin VB.Label Label17
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 = 6240
TabIndex = 23
Top = 480
Width = 945
End
Begin VB.Label Label16
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 = 6240
TabIndex = 22
Top = 1080
Width = 945
End
Begin VB.Label m_kr_mc1
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 = 3240
TabIndex = 20
Top = 1080
Width = 945
End
Begin VB.Label Label14
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 = 9120
TabIndex = 18
Top = 480
Width = 735
End
Begin VB.Label Label11
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 = 3240
TabIndex = 17
Top = 480
Width = 945
End
Begin VB.Label Label22
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 = 10
Top = 1080
Width = 945
End
End
Begin MSFlexGridLib.MSFlexGrid FLEX1
Height = 4215
Left = 120
TabIndex = 0
Top = 960
Width = 11415
_ExtentX = 20135
_ExtentY = 7435
_Version = 327680
Rows = 3
Cols = 10
FixedCols = 0
BackColor = -2147483624
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 3
End
Begin VB.Label nam
AutoSize = -1 'True
Caption = "操作类型:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 9360
TabIndex = 13
Top = 240
Width = 1035
End
Begin VB.Label name1
AutoSize = -1 'True
Caption = "列表说明:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 600
TabIndex = 12
Top = 360
Width = 1035
End
Begin VB.Label rec_no
AutoSize = -1 'True
Caption = "当前记录数:"
Height = 180
Left = 4200
TabIndex = 11
Top = 360
Width = 990
End
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 = 15
Top = 0
Width = 11775
End
Begin VB.Label frm_msg
BackColor = &H8000000A&
ForeColor = &H00FF0000&
Height = 735
Left = 5400
TabIndex = 14
Top = 0
Width = 6375
End
End
Attribute VB_Name = "cx_yddk"
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 response As String
Dim response1 As String
Dim t_rec As Recordset 'MSFLEXGRID
Dim rec As Recordset
Dim Title As String
Dim t_rq As String
Dim T_TJ As String '筛选条件
Dim cx_dh1 As String '查询单号
Private Sub Form_Load()
Dim sys_uid As String, sys_pwd As String
sys_uid = "db2user"
sys_pwd = "db2user"
KeyPreview = True
Call first
name1.Caption = "客房预订单一览表"
Set rec = PUB_data.OpenRecordset("select YDD_H,KR_MC,RZRQ,YDSJ,LDRQ,YDRQ,GJDM,DF_JS,GZ_JS,RS,DFY_DM,KHDM,LOCK_NO from YD_YDDK", 4)
If Not rec.BOF Then
rec.MoveLast
t_fields = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
t_bt = "^ 预订单号 |^ 客人名称 |^ 预达日期 |^ 预达时间 |^ 预离日期 |^ 预订日期 |^ 国籍代码 |^ 预订房数 |^ 管制房数 |^ 人数 |^ 订房员"
Call pub_memo.Flex_full(flex1, t_bt, rec, t_fields, 10, Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0))
End If
rec_no.Caption = "当前记录数:" + CStr(flex1.Rows - 1)
nam.Caption = ""
m_rzrq.Text = " - - "
m_ldrq.Text = " - - "
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
key_index = 100
Select Case KeyCode
Case vbKeySpace
key_index = 0 '预订明细
Case vbKeyF6
key_index = 1 '筛选
Case vbKeyF2
key_index = 2 '今日预达
Case vbKeyF3
key_index = 3 '明日预达
Case vbKeyF9
key_index = 4 '刷新
Case vbKeyF5
key_index = 5 '打印
Case vbKeyEscape
key_index = 99 '退出
End Select
Select Case key_index
Case 0, 1, 2, 3, 4, 5
If Frame6.Enabled = False Then
Call Cmd2_Click(key_index)
End If
Case 99
If Frame6.Enabled = False Then
Call Cmd3_Click
Else
Call first
End If
End Select
End Sub
Private Sub Cmd2_Click(Index As Integer)
Select Case Index
Case 0 '明细
flex1.Enabled = False
cx_yddk_yddh.m_ydd_h.Text = Trim(flex1.TextArray(flex1.Row * 11))
cx_yddk_yddh.m_ydd_h.SelStart = 0
cx_yddk_yddh.m_ydd_h.SelLength = Len(Trim(cx_yddk_yddh.m_ydd_h.Text))
cx_yddk_yddh.Show (1)
If cx_yddk_yddh.tf Then
cx_yddk_mx.Show (1)
Call flex1_ref
Call first
Else
Call first
Exit Sub
End If
Case 1 '筛选
Frame6.Enabled = True
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -