📄 kf_krqd.frm
字号:
TabIndex = 4
Text = "m_gjmc"
Top = 1560
Width = 2925
End
Begin VB.ComboBox m_qzmc
Height = 300
Left = 3120
Style = 2 'Dropdown List
TabIndex = 11
Top = 3360
Width = 2295
End
Begin VB.ComboBox m_symc
Height = 300
Left = 3000
Style = 2 'Dropdown List
TabIndex = 14
Top = 4560
Width = 2415
End
Begin MSMask.MaskEdBox m_qzsx
Height = 255
Left = 6840
TabIndex = 12
Top = 3360
Width = 1815
_ExtentX = 3201
_ExtentY = 450
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = " "
End
Begin MSMask.MaskEdBox m_kr_sr
Height = 255
Left = 2040
TabIndex = 5
Top = 2160
Width = 1005
_ExtentX = 1773
_ExtentY = 450
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = " "
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 = 42
Top = 4560
Width = 735
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 = 36
Top = 2160
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 = 35
Top = 2760
Width = 1050
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 = 34
Top = 2760
Width = 1050
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 = 33
Top = 1560
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 = 32
Top = 2160
Width = 525
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 = 31
Top = 960
Width = 945
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 = 30
Top = 360
Width = 945
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 = 29
Top = 3360
Width = 1050
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 = 28
Top = 3360
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 = 27
Top = 3960
Width = 930
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 = 26
Top = 4560
Width = 1050
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 = 25
Top = 5160
Width = 945
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 = 24
Top = 5760
Width = 945
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 = 23
Top = 6360
Width = 630
End
Begin VB.Label MSG
AutoSize = -1 'True
ForeColor = &H00FF0000&
Height = 180
Left = 7680
TabIndex = 22
Top = 240
Width = 90
End
End
End
Attribute VB_Name = "kf_krqd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t_rec As Recordset
Dim rec As Recordset
Dim key_index As Integer
Dim t_rec3 As Recordset 'ADDNEW,EDIT,DELETE
Dim t_rec4 As Recordset 'LOCK_NO
Dim t_rq As String
Dim TT As Boolean
Dim t_lock_no As Integer
Dim yd_h As String
Private Sub Form_Load()
KeyPreview = True
If Not STY = "0" Then
yd_h = kf_ydd_h.yd_h
Else
yd_h = dfqk_1.yd_h
End If
Call first
Set rec = PUB_data.OpenRecordset("select GJMC FROM DT_KRGJK", 4) ''****取国籍名称
If Not rec.BOF Then
rec.MoveLast
rec.MoveFirst
Dim i As Integer
i = 0
Do While Not rec.EOF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -