📄 wait_krqd.frm
字号:
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 = 40
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 = 39
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 = 38
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 = 37
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 = 36
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 = 35
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 = 34
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 = 33
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 = 32
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 = 31
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 = 30
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 = 29
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 = 28
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 = 27
Top = 4560
Width = 735
End
End
End
Attribute VB_Name = "wait_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
Private Sub Form_Load()
KeyPreview = True
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
'增加
If wait_xg.txk_o = "0" Then
End If
'修改
If wait_xg.txk_o = "1" Then
Call xg_csh
End If
'删除
If wait_xg.txk_o = "2" Then
Call del_csh
End If
'常客
If wait_xg.txk_o = "3" Then
Call clk
End If
'查询
If wait_xg.txk_o = "4" Then
Call del_csh
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
End If
End Sub
Private Sub m_bz1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Cmd3(0).SetFocus
End If
End Sub
Private Sub m_dz_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
m_sydm.SetFocus
End If
End Sub
Private Sub m_gjdm_Change()
MSG.Caption = ""
End Sub
Private Sub m_gjdm_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_gjdm_LostFocus
End If
End Sub
Private Sub m_gjdm_LostFocus()
If Not Trim(m_gjdm.Text) = "" Then
Set rec = PUB_data.OpenRecordset("SELECT GJDM,GJMC FROM DT_KRGJK WHERE GJDM='" & Trim(UCase(m_gjdm.Text)) & "'", 4)
If Not rec.BOF Then
rec.MoveLast
m_gjmc.Text = Trim(UCase(rec!gjmc))
m_kr_sr.SetFocus
m_kr_sr.SelStart = 0
m_kr_sr.SelLength = Len(Trim(m_kr_sr.Text))
Else
MSG.Caption = "无效国籍代码"
m_gjdm.SetFocus
m_gjdm.SelStart = 0
m_gjdm.SelLength = Len(Trim(m_gjdm.Text))
End If
rec.Close
Else
If m_gjmc.Enabled = False Then
m_gjmc.Enabled = True
m_gjmc.SetFocus
Else
m_gjmc.SetFocus
End If
End If
End Sub
Private Sub m_gjmc_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call m_gjmc_LostFocus
End If
End Sub
Private Sub m_gjmc_LostFocus()
If Not Trim(m_gjmc.Text) = "" Then
Set rec = PUB_data.OpenRecordset("SELECT GJDM,GJMC FROM DT_KRGJK WHERE GJMC='" & UCase(Trim(m_gjmc.Text)) & "'", 4)
If Not rec.BOF Then
rec.MoveLast
m_gjdm.Text = UCase(Trim(rec!gjdm))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -