📄 cx_ydmx_kr.frm
字号:
PromptChar = " "
End
Begin MSMask.MaskEdBox m_kr_sr
Height = 255
Left = 2040
TabIndex = 19
Top = 2160
Width = 1005
_ExtentX = 1773
_ExtentY = 450
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = " "
End
Begin VB.Label MSG
AutoSize = -1 'True
ForeColor = &H00FF0000&
Height = 180
Left = 7680
TabIndex = 35
Top = 240
Width = 90
End
Begin VB.Label Label36
AutoSize = -1 'True
Caption = "备注1:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 720
TabIndex = 34
Top = 6360
Width = 630
End
Begin VB.Label Label35
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 = 720
TabIndex = 33
Top = 5760
Width = 945
End
Begin VB.Label Label34
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 = 720
TabIndex = 32
Top = 5160
Width = 945
End
Begin VB.Label Label33
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 = 720
TabIndex = 31
Top = 4560
Width = 1050
End
Begin VB.Label Label32
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 = 720
TabIndex = 30
Top = 3960
Width = 930
End
Begin VB.Label Label31
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 = 5760
TabIndex = 29
Top = 3360
Width = 1050
End
Begin VB.Label Label30
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 = 720
TabIndex = 28
Top = 3360
Width = 1050
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 = 720
TabIndex = 27
Top = 360
Width = 945
End
Begin VB.Label Label23
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 = 720
TabIndex = 26
Top = 960
Width = 945
End
Begin VB.Label Label24
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 = 3480
TabIndex = 25
Top = 2160
Width = 525
End
Begin VB.Label Label25
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 = 720
TabIndex = 24
Top = 1560
Width = 945
End
Begin VB.Label Label26
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 = 720
TabIndex = 23
Top = 2760
Width = 1050
End
Begin VB.Label Label27
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 = 5760
TabIndex = 22
Top = 2760
Width = 1050
End
Begin VB.Label Label28
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 = 720
TabIndex = 21
Top = 2160
Width = 1050
End
Begin VB.Label Label37
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 = 5520
TabIndex = 20
Top = 4560
Width = 735
End
End
End
Attribute VB_Name = "cx_ydmx_kr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rec As Recordset
Dim yd_h As String
Private Sub Form_Load()
KeyPreview = True
yd_h = cx_yddk_yddh.yd_h
Call del_csh
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
End If
End Sub
'查询初始化
Private Sub del_csh()
Set rec = PUB_data.OpenRecordset("SELECT * FROM YD_KRQD Where YDD_H='" & UCase(yd_h) & "'AND Cstr(Trim(LSH))='" & cx_yddk_mx.lsh & "'", 4)
If Not rec.BOF Then
rec.MoveLast
m_kr_x.Text = IIf(Trim(rec!kr_x) = "*", "", Trim(rec!kr_x))
m_kr_m.Text = IIf(Trim(rec!kr_m) = "*", "", Trim(rec!kr_m))
m_yw_x.Text = IIf(Trim(rec!yw_x) = "*", "", Trim(rec!yw_x))
m_yw_m.Text = IIf(Trim(rec!yw_m) = "*", "", Trim(rec!yw_m))
If Trim(rec!kr_xbmc) = "男" Then
xb(0).Value = True
Else
If Trim(rec!kr_xbmc) = "女" Then
xb(1).Value = True
Else
xb(2).Value = True
End If
End If
If IsNull(rec!kr_sr) Then
m_kr_sr.Text = " - - "
Else
m_kr_sr.Text = Format(rec!kr_sr, "yyyy-mm-dd")
End If
If Not Trim(rec!gjdm) = "*" Then
m_gjdm.Text = Trim(rec!gjdm)
End If
If Not Trim(rec!qzdm) = "*" Then
m_qzdm.Text = Trim(rec!qzdm)
End If
If Not Trim(rec!sydm) = "*" Then
m_sydm.Text = Trim(rec!sydm)
End If
If Not Trim(rec!zjdm) = "*" Then
m_zjdm.Text = Trim(rec!zjdm)
End If
m_zjhm.Text = IIf(Trim(rec!kr_zjhm) = "*", "", Trim(rec!kr_zjhm))
If Not Trim(rec!qzmc) = "*" Then
m_qzmc.Text = Trim(rec!qzmc)
End If
If Not Trim(rec!gjmc) = "*" Then
m_gjmc.Text = Trim(rec!gjmc)
End If
If Not Trim(rec!zjmc) = "*" Then
m_zjmc.Text = Trim(rec!zjmc)
End If
If IsNull(rec!kr_qz_yxq) Then
m_qzsx.Text = " - - "
Else
m_qzsx.Text = Format(Trim(rec!kr_qz_yxq), "yyyy-mm-dd")
End If
m_dz.Text = IIf(Trim(rec!dz) = "*", "", Trim(rec!dz))
If Not Trim(rec!BDJDDW_MC) = "*" Then
m_jddw_mc.Text = Trim(rec!BDJDDW_MC)
End If
m_bz1.Text = IIf(Trim(rec!jd_bz1) = "*", "", Trim(rec!jd_bz1))
If Not Trim(rec!tsfw) = "*" Then
m_tsfw.Text = Trim(rec!tsfw)
End If
If Not Trim(rec!symc) = "*" Then
m_symc.Text = Trim(rec!symc)
End If
If Not Trim(rec!jdy) = "*" Then
m_jdy.Text = Trim(rec!jdy)
End If
End If
rec.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -