📄 dt_wgcgl.frm
字号:
End Sub
Private Sub m_lrrq_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
cmd_ok(1).SetFocus
Case vbKeyReturn, vbKeyDown
If op_ycs(0).Value Then
op_ycs(0).SetFocus
Else
op_ycs(1).SetFocus
End If
End Select
End Sub
Private Sub m_qzdm_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_zjhm.SetFocus
Case vbKeyReturn, vbKeyDown
cm_qzmc.SetFocus
End Select
End Sub
Private Sub m_sydm_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_fjh.SetFocus
Case vbKeyReturn, vbKeyDown
cm_symc.SetFocus
End Select
End Sub
Private Sub m_wwxm_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
If op_ycs(0).Value Then
op_ycs(0).SetFocus
Else
op_ycs(1).SetFocus
End If
Case vbKeyReturn, vbKeyDown
m_zwxm.SetFocus
End Select
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_gjdm_LostFocus()
m_gjdm.Text = UCase(Trim(m_gjdm.Text))
Call PUB_DMLostFocus(m_gjdm, cm_gjmc, frm_msg, "不适当的国籍代码")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_gjmc_LostFocus()
Call PUB_MCLostFocus(m_gjdm, cm_gjmc, frm_msg, "不适当的国籍信息")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_gjmc_Click()
m_gjdm.Text = cm_gjmc.List(cm_gjmc.ListIndex, 0)
cm_gjmc.Text = cm_gjmc.List(cm_gjmc.ListIndex, 1)
End Sub
Private Sub m_yxq_wgc_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
cm_qzmc.SetFocus
Case vbKeyReturn, vbKeyDown
m_fjh.SetFocus
End Select
End Sub
Private Sub m_zjdm_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
cm_gjmc.SetFocus
Case vbKeyReturn, vbKeyDown
cm_zjmc.SetFocus
End Select
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_zjdm_LostFocus()
Call PUB_DMLostFocus(m_zjdm, cm_zjmc, frm_msg, "不适当的证件代码")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_zjmc_LostFocus()
Call PUB_MCLostFocus(m_zjdm, cm_zjmc, frm_msg, "不适当的证件信息")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_zjmc_Click()
m_zjdm.Text = cm_zjmc.List(cm_zjmc.ListIndex, 0)
cm_zjmc.Text = cm_zjmc.List(cm_zjmc.ListIndex, 1)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_qzdm_LostFocus()
m_qzdm.Text = UCase(Trim(m_qzdm.Text))
Call PUB_DMLostFocus(m_qzdm, cm_qzmc, frm_msg, "不适当的签证代码")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_qzmc_LostFocus()
Call PUB_MCLostFocus(m_qzdm, cm_qzmc, frm_msg, "不适当的签证信息")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_qzmc_Click()
m_qzdm.Text = cm_qzmc.List(cm_qzmc.ListIndex, 0)
cm_qzmc.Text = cm_qzmc.List(cm_qzmc.ListIndex, 1)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub m_sydm_LostFocus()
m_sydm.Text = UCase(Trim(m_sydm.Text))
Call PUB_DMLostFocus(m_sydm, cm_symc, frm_msg, "不适当的事由代码")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_symc_LostFocus()
Call PUB_MCLostFocus(m_sydm, cm_symc, frm_msg, "不适当的事由信息")
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Private Sub cm_symc_Click()
m_sydm.Text = cm_symc.List(cm_symc.ListIndex, 0)
cm_symc.Text = cm_symc.List(cm_symc.ListIndex, 1)
End Sub
'**************************************************************************************************
'* 功 能 : 外管局数据信息管理 每天处理 DDRQ = DATE -1 的外管局数据
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_Load()
frm_msg.Visible = False
frm_msg.Caption = ""
dt_wgcgl.KeyPreview = True
Call PUB_GetCMDB(PUB_data, cm_gjmc, "DT_KRGJK", "GJDM", "GJMC")
Call PUB_GetCMDB(PUB_data, cm_zjmc, "DT_ZJZL", "ZJDM", "ZJMC")
Call PUB_GetCMDB(PUB_data, cm_qzmc, "DT_QZLX", "QZDM", "QZMC")
wgcgl_zrrq = Mid(CStr(Date - 1), 3, 2) & Mid(CStr(Date - 1), 6, 2) & Mid(CStr(Date - 1), 9, 2)
'删除 DDRQ < DATE - 1 的记录
PUB_data.Execute "DELETE FROM DT_WGJK WHERE DDRQ<'" & wgcgl_zrrq & "' AND YCS='1'"
'查找 DDRQ = TEMP_DDRQ 的记录
Set flex_rec = PUB_data.OpenRecordset("SELECT * FROM DT_WGJK WHERE DDRQ<='" & wgcgl_zrrq & "' AND YCS='0'", 4, 0, 2)
If Not flex_rec.BOF Then
flex_rec.MoveLast
flex_rec.MoveFirst
End If
t_fdxs = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) '设置显示字段
t_fields = Array("LRRQ", "WWXM", "ZWXM", "XB", "CSRQ", "GJ", "ZJDM", "ZJHM", "QZDM", "YXQ_WGC", "SYDM", "LSH", "FJH", "DDRQ", "LKRQ", "BDJDDW_MC", "FJNR") '设置显示字段
t_bt = "^录入日期|<外文姓名 |<中文姓名 |^性别|^ 生 日 |<国籍 |^证件|^证件号码 |^签证|^有效期|^事由|<流水号|<房号 |^抵达日期|^离店日期|<备注 |<永久地址 " '设置显示表头格式
t_fdcounts = 17
Call flex_refresh
tPkjTextSet flex_rec, 0 '把当前字段清空
tPkjEnabledFT "", False
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_GotFocus()
Dim wgjk_rec As Recordset
Dim temp_lsh As String
Dim temp_fjh As String
Dim temp_ddrq As String
If gd1.Rows - 1 <> 0 Then
temp_lsh = gd1.TextArray(gd1.Row * t_fdcounts + 11)
temp_fjh = Trim(gd1.TextArray(gd1.Row * t_fdcounts + 12))
temp_ddrq = Trim(gd1.TextArray(gd1.Row * t_fdcounts + 13))
Set wgjk_rec = PUB_data.OpenRecordset("SELECT * FROM DT_WGJK WHERE LSH=" & IIf(temp_lsh = "" Or (Not IsNumeric(temp_lsh)), 0, temp_lsh) & " AND TRIM(FJH)='" & IIf(temp_fjh = "", "NULL", temp_fjh) & "' AND TRIM(DDRQ)='" & IIf(temp_ddrq = "", "NULL", temp_ddrq) & "'", 4, 0, 2)
If Not wgjk_rec.BOF Then
wgjk_rec.MoveLast
tPkjTextSet wgjk_rec, 1 '按记录集给字段赋值
Else
tPkjTextSet wgjk_rec, 0 '把字段清空
End If
wgjk_rec.Close
Else
tPkjTextSet wgjk_rec, 0 '把字段清空
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmd_func(0).SetFocus
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_RowColChange()
Call gd1_GotFocus
End Sub
Private Sub m_zjhm_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
cm_zjmc.SetFocus
Case vbKeyReturn, vbKeyDown
m_qzdm.SetFocus
End Select
End Sub
Private Sub m_zwxm_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_wwxm.SetFocus
Case vbKeyReturn, vbKeyDown
If op_xb(0).Value Then
op_xb(0).SetFocus
ElseIf op_xb(1).Value Then
op_xb(1).SetFocus
Else
op_xb(2).SetFocus
End If
End Select
End Sub
Private Sub op_xb_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_zwxm.SetFocus
Case vbKeyDown, vbKeyReturn
m_csrq.SetFocus
End Select
End Sub
Private Sub op_ycs_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_lrrq.SetFocus
Case vbKeyReturn, vbKeyDown
m_wwxm.SetFocus
End Select
End Sub
Private Sub XT_Timer_Timer()
JZ_DQSJ2.Caption = Time()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -