📄 frmqycbkh.frm
字号:
Top = 2400
Width = 1695
End
Begin VB.Label Label27
Caption = "电子邮件"
Height = 375
Left = -70170
TabIndex = 72
Top = 3060
Width = 1695
End
Begin VB.Label Label26
Caption = "家庭住址"
Height = 375
Left = -74610
TabIndex = 71
Top = 3720
Width = 1695
End
Begin VB.Label Label25
Caption = "生 日"
Height = 375
Left = -74610
TabIndex = 70
Top = 4380
Width = 1695
End
Begin VB.Label Label24
Caption = "家庭电话"
Height = 375
Left = -70170
TabIndex = 69
Top = 3720
Width = 1695
End
Begin VB.Label Label23
Caption = "个人爱好"
Height = 375
Left = -70170
TabIndex = 68
Top = 4380
Width = 1695
End
Begin VB.Label Label21
Caption = "性 格"
Height = 375
Left = -74610
TabIndex = 67
Top = 5040
Width = 1695
End
Begin VB.Label Label1
Caption = "序 号"
Height = 375
Left = 360
TabIndex = 66
Top = 795
Width = 1335
End
Begin VB.Label Label2
Caption = "客户等级"
Height = 375
Left = 4800
TabIndex = 65
Top = 795
Width = 1695
End
Begin VB.Label Label3
Caption = "销售渠道"
Height = 375
Left = 360
TabIndex = 64
Top = 1458
Width = 1695
End
Begin VB.Label Label4
Caption = "单位名称"
Height = 375
Left = 4800
TabIndex = 63
Top = 1458
Width = 1695
End
Begin VB.Label Label5
Caption = "行 业"
Height = 375
Left = 360
TabIndex = 62
Top = 2784
Width = 1695
End
Begin VB.Label Label6
Caption = "邮政编码"
Height = 375
Left = 4800
TabIndex = 61
Top = 2121
Width = 1695
End
Begin VB.Label Label7
Caption = "地 址"
Height = 375
Left = 360
TabIndex = 60
Top = 2121
Width = 1695
End
Begin VB.Label Label8
Caption = "职工人数"
Height = 375
Left = 4800
TabIndex = 59
Top = 2784
Width = 1695
End
Begin VB.Label Label9
Caption = "效益情况"
Height = 375
Left = 360
TabIndex = 58
Top = 3447
Width = 1695
End
Begin VB.Label Label10
Caption = "原合同到期情况"
Height = 375
Left = 360
TabIndex = 57
Top = 4110
Width = 1695
End
Begin VB.Label Label11
Caption = "保险需求"
Height = 375
Left = 360
TabIndex = 56
Top = 5436
Width = 1695
End
Begin VB.Label Label12
Caption = "预计保险"
Height = 375
Left = 4800
TabIndex = 55
Top = 4773
Width = 1695
End
Begin VB.Label Label13
Caption = "状 态"
Height = 375
Left = 4800
TabIndex = 54
Top = 3447
Width = 1695
End
Begin VB.Label Label14
Caption = "接触情况"
Height = 375
Left = 360
TabIndex = 53
Top = 4773
Width = 1695
End
Begin VB.Label Label15
Caption = "竞争对手"
Height = 375
Left = 4800
TabIndex = 52
Top = 4110
Width = 1695
End
Begin VB.Label Label16
Caption = "焦点分析"
Height = 375
Left = 360
TabIndex = 51
Top = 6099
Width = 1695
End
Begin VB.Label Label17
Caption = "成功/失败原因"
Height = 375
Left = 360
TabIndex = 50
Top = 6765
Width = 1695
End
End
End
End
Attribute VB_Name = "frmQYCBKH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BDHTH_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub BXF_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub CGSBYJ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
KL.Tab = 1
SendKeys "{Tab}"
End If
End Sub
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim msg As String
Dim strsql As String
strsql = "select 序号,单位名称 from VIEWTBQY"
If Trim(findbt) <> "" And Trim(findnr) <> "" Then
strsql = strsql & " where " & findbt & " like '%" & findnr & "%'"
End If
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
'If rs.RecordCount = 1 Then
' Call FillText(Findbt, Findnr)
' ListView1.ColumnHeaders.Clear
If rs.RecordCount > 0 Then
msg = ShowListView(ListView1, rs, False, "1,3500")
Else
ClearText
'MsgBox "无记录", vbInformation, "系统提示"
End If
End Sub
Private Sub Command2_Click()
If MsgBox("确定删除序号为：" & XH & " 的企业资料？", vbYesNo, "修改询问") = vbNo Then
Exit Sub
Else
gCnn.Execute "delete from tbkhjbzl where xh='" & Trim(XH) & "'"
End If
ClearText
Call Form_Load
End Sub
Private Sub Command5_Click()
frmYWEDIT.Show
End Sub
'Private Sub Command4_Click()
'Dim rs As ADODB.Recordset
' Set rs = New ADODB.Recordset
' Dim msg As String
' Dim strsql As String
'
' strsql = "select * from VIEWQY"
' If Trim(findbt) <> "" And Trim(findnr) <> "" Then
'
' strsql = strsql & " where " & findbt & " like '%" & findnr & "%'" & " And " & " 客户类型 " & " ='1'"
' End If
' rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
' If rs.RecordCount = 1 Then
' Call FillText(findbt, findnr)
' ElseIf rs.RecordCount > 1 Then
' msg = ShowListView(ListView1, rs, False, 1000)
' Else
' ClearText
' MsgBox "无记录", vbInformation, "系统提示"
' End If
'
'End Sub
Private Sub KHDJ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub XYQK_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DWMC_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub TBXZ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub BXQX_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub TBRQ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub SXRQ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub XBRQ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub XH_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub KHLX_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub XSQD_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub ADDRESS_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub YZBM_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub HY_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub ZGRS_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub BXXQ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub HTDQQK_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub YJBX_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub JCQK_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub ZY_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub JZDS_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub QTYD_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub JDFX_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZR_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRXB_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRNL_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRZW_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRBGDH_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRSJ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZREMAIL_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRADDRESS_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRJTDH_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRSR_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRGRAH_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub FZRXG_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
KL.Tab = 2
SendKeys "{Tab}"
End If
End Sub
Private Sub JSR_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub JSRLXDH_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub JSRJSTJ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -