📄 yx_kfyd.frm
字号:
Left = 4200
TabIndex = 46
Text = "Text2"
Top = 2760
Width = 1215
End
Begin VB.TextBox m_ydsj
Height = 255
Left = 4200
TabIndex = 44
Text = "Text1"
Top = 1560
Width = 1215
End
Begin MSMask.MaskEdBox m_ldrq
Height = 255
Left = 1440
TabIndex = 41
Top = 2160
Width = 1215
_ExtentX = 2143
_ExtentY = 450
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = " "
End
Begin MSMask.MaskEdBox m_rzrq
Height = 255
Left = 1440
TabIndex = 40
Top = 1560
Width = 1215
_ExtentX = 2143
_ExtentY = 450
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = " "
End
Begin VB.CommandButton Command2
Caption = "确 认"
Height = 555
Index = 0
Left = 960
TabIndex = 33
Top = 3960
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "返 回"
Height = 555
Index = 1
Left = 3240
TabIndex = 31
Top = 3960
Width = 1575
End
Begin VB.TextBox m_df_js
Height = 255
Left = 4200
MaxLength = 3
TabIndex = 30
Text = "Text6"
Top = 2160
Width = 1215
End
Begin VB.TextBox m_gz_js
Height = 255
Left = 1440
MaxLength = 20
TabIndex = 29
Text = "Text5"
Top = 2760
Width = 1215
End
Begin VB.TextBox m_kr_mc
Height = 255
Left = 1440
MaxLength = 20
TabIndex = 28
Text = "12345678900987654321"
Top = 960
Width = 2415
End
Begin VB.TextBox m_ydd_h
BackColor = &H80000014&
Height = 255
Left = 1440
MaxLength = 12
TabIndex = 27
Text = "123456789012"
Top = 360
Width = 1455
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "订房员代码:"
Height = 210
Left = 240
TabIndex = 47
Top = 3360
Width = 1155
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "人数:"
Height = 210
Left = 3120
TabIndex = 45
Top = 2760
Width = 525
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "预达时间:"
Height = 210
Left = 3120
TabIndex = 43
Top = 1560
Width = 945
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "预订单号:"
Height = 210
Left = 240
TabIndex = 26
Top = 360
Width = 945
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "预订间数:"
Height = 210
Left = 3120
TabIndex = 25
Top = 2160
Width = 945
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "预离日期:"
Height = 210
Left = 240
TabIndex = 24
Top = 2160
Width = 945
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "预达日期:"
Height = 210
Left = 240
TabIndex = 23
Top = 1560
Width = 945
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "管制间数:"
Height = 210
Left = 240
TabIndex = 22
Top = 2760
Width = 945
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "客人名称:"
Height = 210
Left = 240
TabIndex = 21
Top = 960
Width = 945
End
End
Begin VB.Label rec_no
AutoSize = -1 'True
Caption = "当前记录数:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 4200
TabIndex = 39
Top = 360
Width = 990
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 = 38
Top = 360
Width = 1035
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 = 35
Top = 240
Width = 1035
End
End
Begin VB.Label frm_msg
BackColor = &H8000000A&
ForeColor = &H00FF0000&
Height = 735
Left = 5400
TabIndex = 12
Top = 120
Width = 6375
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 = 11
Top = 120
Width = 11775
End
End
Attribute VB_Name = "yx_kfyd"
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 t_rec As Recordset 'MSFLEXGRID
Dim t_rec1 As Recordset
Dim t_rq As String
Dim dh As String
Dim date1 As Date
Dim date2 As Date
Dim T_TJ As String '筛选条件
Dim del_tf As Boolean
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,KHDM,LOCK_NO from YD_YDDK", 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 atfirst
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)
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)
FLEX1.Enabled = False
STY = "0"
yd_lx.Show (1)
'******散客或长包预订
If yd_lx.STY = True Then
If Not yd_lx.LX = "TD" Then
'***客房价格
If dfqk_1.F2.Enabled = False Then
dfqk_1.Enabled = True
End If
If dfqk_1.F3.Enabled = True Then
dfqk_1.F3.Enabled = False
End If
If dfqk_1.F4.Enabled = True Then
dfqk_1.F4.Enabled = False
End If
If yd_lx.LX = "SK" Then
dfqk_1.Frame1.Caption = "散客预订单:"
Else
dfqk_1.Frame1.Caption = "长包预订单:"
End If
dfqk_1.tf = False
dfqk_1.Show (1)
date1 = dfqk_1.RQ1 '取预订起始日期
date2 = dfqk_1.RQ2 '取预订截止日期
If dfqk_1.tf Then '确认返回
'***订房情况
'***用餐情况
df_sqb.Tab1.TabEnabled(5) = False
df_sqb.Show (1)
Call refresh1
Call atfirst
Else ''非确认返回
Call atfirst
Exit Sub
End If
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -