📄 cx_ydda_mx_kr.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 720
TabIndex = 37
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 = 36
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 = 35
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 = 34
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 = 33
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 = 32
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 = 31
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 = 30
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 = 29
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 = 28
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 = 27
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 = 26
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 = 25
Top = 4560
Width = 735
End
End
End
Attribute VB_Name = "cx_ydda_mx_kr"
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
Dim t_yk As String
Private Sub Cmd3_Click()
Unload Me
End Sub
Private Sub Form_Load()
KeyPreview = True
t_yk = "YK" & year(Format(Date, "yyyy-mm-dd"))
yd_h = cx_ydda_yddh.yd_h
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
m_gjmc.AddItem Trim(rec.Fields("GJMC")), i
rec.MoveNext
i = i + 1
Loop
End If
rec.Close
Set rec = PUB_data.OpenRecordset("SELECT QZDM,QZMC FROM DT_QZLX", 4) ''****取签证名称
If Not rec.BOF Then
rec.MoveLast
rec.MoveFirst
i = 0
Do While Not rec.EOF
m_qzmc.AddItem Trim(rec.Fields("QZMC")), i
rec.MoveNext
i = i + 1
Loop
End If
rec.Close
Set rec = PUB_data.OpenRecordset("SELECT ZJDM,ZJMC FROM DT_ZJZL", 4) ''****取证件名称
If Not rec.BOF Then
rec.MoveLast
rec.MoveFirst
i = 0
Do While Not rec.EOF
m_zjmc.AddItem Trim(rec.Fields("ZJMC")), i
rec.MoveNext
i = i + 1
Loop
End If
rec.Close
Set rec = PUB_data.OpenRecordset("SELECT SYDM,SYMC FROM DT_LLSY", 4) ''****取事由名称
If Not rec.BOF Then
rec.MoveLast
rec.MoveFirst
i = 0
Do While Not rec.EOF
m_symc.AddItem Trim(rec.Fields("SYMC")), i
rec.MoveNext
i = i + 1
Loop
End If
rec.Close
Set rec = PUB_data.OpenRecordset("select TSFW from YD_TSFW ", 4) ''****取特殊服务
If Not rec.BOF Then
rec.MoveLast
rec.MoveFirst
i = 0
Do While Not rec.EOF
m_tsfw.AddItem Trim(rec.Fields("TSFW")), i
rec.MoveNext
i = i + 1
Loop
Else
m_tsfw.Enabled = False
m_tsfw.Text = ""
End If
rec.Close
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 first()
m_kr_x.Text = ""
m_kr_m.Text = ""
m_yw_x.Text = ""
m_yw_m.Text = ""
m_dz.Text = ""
m_jddw_mc.Text = ""
m_bz1.Text = ""
m_zjhm.Text = ""
m_gjdm.Text = ""
m_gjmc.Text = ""
m_zjdm.Text = ""
m_qzdm.Text = ""
m_sydm.Text = ""
m_jdy.Text = ""
m_kr_sr.Text = " - - "
m_qzsx.Text = " - - "
Frame1.Enabled = False
End Sub
Private Sub del_csh()
''*********查询初始化
Set rec = PUB_data.OpenRecordset("SELECT * FROM " & t_yk & " Where YDD_H='" & UCase(yd_h) & "'AND Cstr(Trim(LSH))='" & UCase(Trim(cx_ydda_mx.m_lsh.Text)) & "'", 4)
If Not rec.BOF Then
rec.MoveLast
m_kr_x.Text = Trim(rec!kr_x)
m_kr_m.Text = Trim(rec!kr_m)
m_yw_x.Text = Trim(rec!yw_x)
m_yw_m.Text = 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 + -