📄 yd_wait.frm
字号:
FLEX1.SetFocus
End If
Else
t_rec1.MoveLast
m_rzrq1.Enabled = True
m_khdm.Enabled = True
m_rzrq1.BackColor = &H80000005
m_khdm.BackColor = &H80000005
Frame6.Enabled = True
m_rzrq1.SetFocus
Cmd2(0).Enabled = False
Cmd2(1).Enabled = False
Cmd2(2).Enabled = False
Cmd2(3).Enabled = False
Cmd2(4).Enabled = False
Cmd2(5).Enabled = False
End If
Case 5 '查询
FLEX1.Enabled = False
STY = "5"
wait_dh.tf = False
wait_dh.wait_dh = ""
wait_dh.m_ydd_h.Text = m_ydd_h.Text
wait_dh.m_ydd_h.SelStart = 0
wait_dh.m_ydd_h.SelLength = Len(Trim(wait_dh.m_ydd_h.Text))
wait_dh.Show (1)
If wait_dh.tf Then
If Mid(wait_dh.wait_dh, 1, 2) = "SK" Or Mid(wait_dh.wait_dh, 1, 2) = "CB" Then
wait_xg.Tab1.TabEnabled(5) = False
wait_xg.Frame6.Enabled = False
wait_xg.Frame7.Enabled = False
'WAIT_XG.F1S.Visible = True
'Else
'WAIT_XG.F1T.Visible = True
End If
wait_xg.Show (1)
Call refresh1
Call first
Else
Call first
Exit Sub
End If
Case 6 '刷新
Call refresh1
Call first
End Select
End Sub
Private Sub Cmd3_Click()
Unload Me
yx_main.Show (1)
End Sub
Private Sub FLEX1_GotFocus()
On Error GoTo error1
m_ydd_h.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9))
m_kr_mc.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 1))
m_rzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 2)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 2), "yyyy-mm-dd"))
m_ydsj.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 3))
m_ldrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 4)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 4), "yyyy-mm-dd"))
m_df_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 5))
m_gz_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 6))
m_rs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 7))
m_dfy_dm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 8))
' m_rs.SelStart = 0
' m_rs.SelLength = Len(Trim(m_rs.Text))
Exit Sub
error1:
If Err() = 383 Then
Resume Next
End If
End Sub
Private Sub FLEX1_RowColChange()
On Error GoTo error1
m_ydd_h.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9))
m_kr_mc.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 1))
m_rzrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 2)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 2), "yyyy-mm-dd"))
m_ydsj.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 3))
m_ldrq.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 9 + 4)) = "", " - - ", Format(FLEX1.TextArray(FLEX1.Row * 9 + 4), "yyyy-mm-dd"))
m_df_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 5))
m_gz_js.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 6))
m_rs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 7))
m_dfy_dm.Text = Trim(FLEX1.TextArray(FLEX1.Row * 9 + 8))
Exit Sub
error1:
If Err() = 383 Then
Resume Next
End If
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 vbKeyF9
key_index = 6 '刷新
Case vbKeyF10
key_index = 5 '查询
Case vbKeyEscape
key_index = 99
End Select
If key_index = 99 Then
If Frame2.Enabled = False And Frame6.Enabled = False Then
Call Cmd3_Click
Else
Call first
End If
Else
If Frame2.Enabled = False And Frame6.Enabled = False Then
Call Cmd2_Click(key_index)
End If
End If
End Sub
Private Sub first()
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
m_rzrq.Enabled = False
m_khdm.Enabled = False
m_rzrq.Text = " - - "
m_khdm.Text = ""
Frame2.Enabled = False
Frame6.Enabled = False
If CMD1(0).Enabled = True Then
CMD1(0).Enabled = False
End If
If CMD1(1).Enabled = True Then
CMD1(1).Enabled = False
End If
If Cmd2(0).Enabled = False Then
Cmd2(0).Enabled = True
End If
If Cmd2(1).Enabled = False Then
Cmd2(1).Enabled = True
End If
If Cmd2(2).Enabled = False Then
Cmd2(2).Enabled = True
End If
If Cmd2(3).Enabled = False Then
Cmd2(3).Enabled = True
End If
If Cmd2(4).Enabled = False Then
Cmd2(4).Enabled = True
End If
If Cmd2(5).Enabled = False Then
Cmd2(5).Enabled = True
End If
If Cmd3.Enabled = False Then
Cmd3.Enabled = True
End If
If yd_wait.KeyPreview = False Then
yd_wait.KeyPreview = True
End If
If FLEX1.Enabled = False Then
FLEX1.Enabled = True
FLEX1.SetFocus
End If
STY = ""
End Sub
Private Sub m_rzrq1_Change()
frm_msg.Caption = ""
End Sub
Private Sub m_rzrq1_GotFocus()
m_rzrq1.SelStart = 0
m_rzrq1.SelLength = Len(Trim(m_rzrq.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_khdm_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_khdm_LostFocus
End If
End Sub
Private Sub m_khdm_LostFocus()
If Frame6.Enabled = True Then
If m_rzrq1.Text = " - - " Then
T_TJ = ""
Else
T_TJ = "Cstr(RZRQ)='" & Trim(m_rzrq1.Text) & "'"
End If
If Not Trim(m_khdm.Text) = "" Then
If T_TJ = "" Then
T_TJ = T_TJ & "TRIM(KHDM)='" & Trim(m_khdm) & "'"
Else
T_TJ = T_TJ & " AND TRIM(KHDM)='" & Trim(m_khdm) & "'"
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_WAIT Where " & T_TJ, 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 first
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_WAIT", 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 first
End If
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_WAIT 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)
If Not IsNull(t_rec!RS) Then
m_rs.Text = t_rec!RS
End If
If Not IsNull(t_rec!dfy_dm) And Trim(t_rec!dfy_dm) = "*" Then
m_dfy_dm.Text = t_rec!dfy_dm
End If
CMD1(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 first
End If
End If
End If
End Sub
Private Sub Timer1_Timer()
JZ_DQSJ2 = Time()
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_WAIT Where " & T_TJ, 4)
If Not t_rec.BOF Then
t_rec.MoveLast
Call Flex_full(FLEX1, t_bt, t_rec, t_fields, 8, Array(0, 0, 0, 0, 0, 0, 0, 0, 0))
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_WAIT", 4)
If Not t_rec.BOF Then
t_rec.MoveLast
Call Flex_full(FLEX1, t_bt, t_rec, t_fields, 8, Array(0, 0, 0, 0, 0, 0, 0, 0, 0))
End If
End If
rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -