📄 yx_kfyd.frm
字号:
If Trim(m_khdm.Text) = "" Then
Else
If T_TJ = "" Then
T_TJ = T_TJ & "TRIM(KHDM)='" & UCase(Trim(m_khdm.Text)) & "'"
Else
T_TJ = T_TJ & " AND TRIM(KHDM)='" & UCase(Trim(m_khdm.Text)) & "'"
End If
End If
If Not T_TJ = "" Then
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 Where " & T_TJ, 4)
If Not t_rec.BOF Then
t_rec.MoveLast
t_rec.MoveFirst
m_rzrq1.Enabled = False
m_khdm.Enabled = False
Cmd2(0).Enabled = True
Cmd2(1).Enabled = True
Cmd2(2).Enabled = True
Cmd2(3).Enabled = True
Cmd2(4).Enabled = True
Cmd2(5).Enabled = True
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)
t_rec.Close
Else
MsgBox "无满足条件的记录!", vbOKOnly
End If
Call atfirst
Else
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
t_rec.MoveFirst
End If
m_rzrq1.Enabled = False
m_khdm.Enabled = False
Cmd2(0).Enabled = True
Cmd2(1).Enabled = True
Cmd2(2).Enabled = True
Cmd2(3).Enabled = True
Cmd2(4).Enabled = True
Cmd2(5).Enabled = True
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)
t_rec.Close
Call atfirst
End If
End If
End Sub
Private Sub m_rzrq1_Change()
If Not frm_msg.Caption = "" Then
frm_msg.Caption = ""
End If
End Sub
Private Sub m_rzrq1_GotFocus()
m_rzrq1.SelStart = 0
m_rzrq1.SelLength = Len(Trim(m_rzrq1.Text))
End Sub
Private Sub m_rzrq1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_rzrq1_LostFocus
End If
End Sub
Private Sub m_rzrq1_LostFocus()
If Frame6.Enabled = True Then
If Not m_rzrq1.Text = " - - " Then
t_rq = date_cl(Trim(m_rzrq1.Text))
If t_rq <> "F" Then
m_rzrq1 = t_rq
End If
If IsDate(Trim(m_rzrq1.Text)) Then
m_khdm.SetFocus
m_khdm.SelStart = 0
m_khdm.SelLength = Len(Trim(m_khdm.Text))
Else
frm_msg.Caption = "无效日期!"
m_rzrq1.SetFocus
End If
Else
m_khdm.SetFocus
m_khdm.SelStart = 0
m_khdm.SelLength = Len(Trim(m_khdm.Text))
End If
End If
End Sub
Private Sub m_ydd_h_Change()
If m_ydd_h.Text = "" Or Command2(1).Enabled = False Then
Command2(0).Enabled = False
Else
Command2(0).Enabled = True
End If
End Sub
Private Sub m_ydd_h_GotFocus()
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
If m_ydd_h.Text = "" Then
Command2(0).Enabled = False
End If
End Sub
Private Sub m_ydd_h_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_ydd_h_LostFocus
End If
End Sub
Private Sub m_ydd_h_LostFocus()
If Frame2.Enabled = True Then
m_ydd_h.BackColor = &H80000016
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 where CStr(YDD_H)='" & Trim(UCase(m_ydd_h.Text)) & " '", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
If Not IsNull(t_rec!KR_MC) And Trim(t_rec!KR_MC) = "*" Then
m_kr_mc.Text = UCase(Trim(m_kr_mc.Text))
End If
m_rzrq.Text = Format(Trim(t_rec!rzrq), "yyyy-mm-dd")
If Not IsNull(t_rec!YDSJ) And Trim(t_rec!YDSJ) = "*" Then
m_ydsj.Text = Format(t_rec!YDSJ, "HH:MM:SS")
End If
m_ldrq.Text = Format(Trim(t_rec!ldrq), "yyyy-mm-dd")
m_df_js.Text = Trim(t_rec!DF_JS)
m_gz_js.Text = Trim(t_rec!GZ_JS)
m_rs.Text = t_rec!RS
If Not IsNull(t_rec!dfy_dm) And Trim(t_rec!dfy_dm) = "*" Then
m_dfy_dm.Text = t_rec!dfy_dm
End If
Command2(0).SetFocus
Else
response = MsgBox("此预订单号不存在,是否重输?", 1, "")
If response = 1 Then
If m_ydd_h.Enabled = False Then
m_ydd_h.Enabled = True
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
Else
m_ydd_h.SetFocus
m_ydd_h.SelStart = 0
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
End If
Else
Call atfirst
End If
End If
End If
End Sub
Private Sub m_rzrq_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
t_rq = date_cl(Trim(m_rzrq.Text))
If t_rq <> "F" Then
m_rzrq = t_rq
End If
m_ldrq.SetFocus
End If
End Sub
Private Sub Timer1_Timer()
JZ_DQSJ2 = Time()
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
key_index = 100
Select Case KeyCode
Case vbKeyF2
key_index = 0 '建立
Case vbKeyF3
key_index = 1 '修改
Case vbKeyF4
key_index = 2 '解除
Case vbKeyF5
key_index = 3 '打印
Case vbKeyF6
key_index = 4 '筛选
Case vbKeyF7
key_index = 7 '转预订等待
Case vbKeyF10
key_index = 5 '查询
Case vbKeyF9
key_index = 6
Case vbKeyEscape
key_index = 99 '退出
End Select
Select Case key_index
Case 99
If Frame2.Enabled = False And Frame6.Enabled = False Then
Call Cmd3_Click
Else
Call atfirst
End If
Case 0, 1, 2, 3, 4, 5, 6, 7
If Frame2.Enabled = False And Frame6.Enabled = False Then
Call Cmd2_Click(key_index)
End If
End Select
End Sub
Private Sub atfirst()
' m_rzrq.Visible = True
' m_ldrq.Visible = True
' m_kr_mc.Visible = True
' m_df_js.Visible = True
' Label3.Visible = True
' Label4.Visible = True
' Label5.Visible = True
' Label7.Visible = True
'
'
' m_ydd_h.BackColor = &H80000016
' m_rzrq.BackColor = &H80000016
' m_ldrq.BackColor = &H80000016
' m_kr_mc.BackColor = &H80000016
'
' m_df_js.BackColor = &H80000016
'
Cmd2(0).Enabled = True
Cmd2(1).Enabled = True
Cmd2(2).Enabled = True
Cmd2(3).Enabled = True
Cmd2(4).Enabled = True
Cmd2(5).Enabled = True
Cmd2(6).Enabled = True
Cmd2(7).Enabled = True
Cmd3.Enabled = True
Command2(0).BackColor = &H80000016
Command2(1).BackColor = &H80000016
m_ydd_h.Enabled = False
m_kr_mc.Enabled = False
m_rzrq.Enabled = False
m_ydsj.Enabled = False
m_ldrq.Enabled = False
m_df_js.Enabled = False
m_gz_js.Enabled = False
m_rs.Enabled = False
m_dfy_dm.Enabled = False
If Command2(0).Enabled = True Then
Command2(0).Enabled = False
End If
If Command2(1).Enabled = True Then
Command2(1).Enabled = False
End If
nam.Caption = ""
m_rzrq1.Enabled = False
m_rzrq1.BackColor = &H80000016
m_khdm.Enabled = False
m_khdm.BackColor = &H80000016
Frame6.Enabled = False
Frame2.Enabled = False
frm_msg.Caption = ""
If FLEX1.Enabled = False Then
FLEX1.Enabled = True
FLEX1.SetFocus
End If
If yx_kfyd.KeyPreview = False Then
yx_kfyd.KeyPreview = True
End If
STY = ""
End Sub
'Private Sub yd_jl()
' m_ydd_h.Text = ""
' m_rzrq.Text = " - - "
' m_ldrq.Text = " - - "
' m_kr_mc.Text = ""
'
' m_df_js.Text = ""
'
' m_kr_mc.Visible = False
' m_gjmc.Visible = False
' m_df_js.Visible = False
'
' m_ydd_h.BackColor = &H80000014
' m_rzrq.BackColor = &H80000014
' m_ldrq.BackColor = &H80000014
'
' Label3.Visible = False
' Label4.Visible = False
' Label7.Visible = False
'
' m_ydd_h.Enabled = True
' m_rzrq.Enabled = True
' m_ldrq.Enabled = True
'
' Command2(0).Enabled = True
' Command2(1).Enabled = True
'
' Cmd2(0).Enabled = False
' Cmd2(1).Enabled = False
' Cmd2(2).Enabled = False
' Cmd2(3).Enabled = False
' Cmd2(4).Enabled = False
' Cmd2(5).Enabled = False
' Cmd2(6).Enabled = False
' Cmd3.Enabled = False
'
' frm_msg.Visible = True
' frm_msg.Caption = "请输入预订信息!"
' Cmd2(0).BackColor = &H80000016
' Cmd2(1).BackColor = &H80000016
' Cmd2(0).BackColor = &H80000016
' Cmd2(1).BackColor = &H80000016
' Cmd2(0).BackColor = &H80000016
' Cmd2(1).BackColor = &H80000016
' Cmd3.BackColor = &H80000016
' m_ydd_h.SetFocus
'
'End Sub
Private Sub yd_jc()
Command2(0).Enabled = True
Command2(1).Enabled = True
m_ydd_h.BackColor = &H80000014
End Sub
Private Sub refresh1()
If frm_msg.Enabled = True Then
frm_msg.Caption = ""
End If
If Not T_TJ = "" Then
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 Where " & T_TJ, 4)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
Else
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
End If
Call 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -