📄 frmgrcbkh.frm
字号:
Height = 375
Left = 1845
TabIndex = 10
Top = 3995
Width = 2415
End
Begin VB.TextBox FZRADDRESS
Height = 375
Left = 6165
TabIndex = 11
Top = 3995
Width = 2415
End
Begin VB.TextBox FZRJTDH
Height = 375
Left = 1845
TabIndex = 12
Top = 4647
Width = 2415
End
Begin VB.TextBox FZRGRAH
Height = 375
Left = 1845
TabIndex = 14
Top = 5299
Width = 2415
End
Begin VB.TextBox FZRXG
Height = 375
Left = 6165
TabIndex = 15
Top = 5299
Width = 2415
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":0052
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":1D5E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":2082
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":2F5E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":3E3A
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":415E
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":4482
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":47A6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":4ACA
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":4DEE
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":5112
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGRCBKH.frx":5436
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label34
Caption = "保险需求"
Height = 375
Left = -74505
TabIndex = 52
Top = 2115
Width = 1335
End
Begin VB.Label Label33
Caption = "收入情况"
Height = 375
Left = -70065
TabIndex = 51
Top = 780
Width = 1695
End
Begin VB.Label Label32
Caption = "预 算"
Height = 375
Left = -74505
TabIndex = 50
Top = 780
Width = 1695
End
Begin VB.Label Label31
Caption = "拜访情况"
Height = 375
Left = -74505
TabIndex = 49
Top = 3045
Width = 1695
End
Begin VB.Label Label30
Caption = "焦点分析"
Height = 375
Left = -74505
TabIndex = 48
Top = 4020
Width = 1695
End
Begin VB.Label Label29
Caption = "竞争对手"
Height = 375
Left = -70065
TabIndex = 47
Top = 1410
Width = 1695
End
Begin VB.Label Label28
Caption = "状 态"
Height = 375
Left = -74505
TabIndex = 46
Top = 1410
Width = 1695
End
Begin VB.Label Label48
Caption = "子女情况"
Height = 375
Left = 4620
TabIndex = 45
Top = 6015
Width = 1695
End
Begin VB.Label Label47
Caption = "姓 名"
Height = 375
Left = 600
TabIndex = 44
Top = 855
Width = 1335
End
Begin VB.Label Label46
Caption = "性 别"
Height = 375
Left = 4620
TabIndex = 43
Top = 2145
Width = 1695
End
Begin VB.Label Label45
Caption = "年 龄"
Height = 375
Left = 600
TabIndex = 42
Top = 1500
Width = 1695
End
Begin VB.Label Label44
Caption = "身份证号"
Height = 375
Left = 4620
TabIndex = 41
Top = 855
Width = 1695
End
Begin VB.Label Label43
Caption = "工作单位"
Height = 375
Left = 600
TabIndex = 40
Top = 2790
Width = 1695
End
Begin VB.Label Label42
Caption = "民 族"
Height = 375
Left = 4620
TabIndex = 39
Top = 4725
Width = 1695
End
Begin VB.Label Label41
Caption = "学 历"
Height = 375
Left = 600
TabIndex = 38
Top = 2145
Width = 1695
End
Begin VB.Label Label40
Caption = "职 务"
Height = 375
Left = 4620
TabIndex = 37
Top = 2790
Width = 1695
End
Begin VB.Label Label39
Caption = "办公电话"
Height = 375
Left = 600
TabIndex = 36
Top = 3435
Width = 1695
End
Begin VB.Label Label38
Caption = "电子邮件"
Height = 375
Left = 600
TabIndex = 35
Top = 4080
Width = 1695
End
Begin VB.Label Label37
Caption = "手 机"
Height = 375
Left = 4620
TabIndex = 34
Top = 3435
Width = 1695
End
Begin VB.Label Label36
Caption = "家庭住址"
Height = 375
Left = 4620
TabIndex = 33
Top = 4080
Width = 1695
End
Begin VB.Label Label35
Caption = "生 日"
Height = 375
Left = 4620
TabIndex = 32
Top = 1500
Width = 1695
End
Begin VB.Label Label22
Caption = "家庭电话"
Height = 375
Left = 600
TabIndex = 31
Top = 4725
Width = 1695
End
Begin VB.Label Label20
Caption = "个人爱好"
Height = 375
Left = 600
TabIndex = 30
Top = 5370
Width = 1695
End
Begin VB.Label Label19
Caption = "性 格"
Height = 375
Left = 4620
TabIndex = 29
Top = 5370
Width = 1695
End
Begin VB.Label Label18
Caption = "婚姻情况"
Height = 375
Left = 600
TabIndex = 28
Top = 6015
Width = 1695
End
End
End
End
Attribute VB_Name = "frmGRCBKH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 VIEWTBGR"
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, "3000,1")
Else
ClearText
'MsgBox "无记录", vbOKOnly, "系统提示"
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 ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim i As Long
If ListView1.ListItems.count > 0 Then
For i = 1 To ListView1.ListItems.count
If ListView1.ListItems(i).Selected Then
Call FillText1(ListView1.ListItems(i).ListSubItems(1).Text)
End If
Next
End If
End Sub
Private Sub FillText1(code2 As String)
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim strsql As String
On Error GoTo ErrHandle
strsql = "select * from VIEWTBGR "
strsql = strsql & " where 身份证号 ='" & Trim(code2) & "'"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
DWMC = rs("姓名")
'FZRXB = rs("性别")
If Trim(rs("性别")) = "男" Then
Option1.Value = True
Else
Option2.Value = True
End If
FZRNL = rs("年龄")
XH = rs("身份证号")
FZRXL = rs("学历")
JBRJTDH = rs("民族")
JBRADDRESS = rs("工作单位")
FZRZW = rs("职务")
FZRBGDH = rs("办公电话")
FZRSJ = rs("手机")
FZREMAIL = rs("电子邮件")
FZRADDRESS = rs("家庭住址")
FZRJTDH = rs("家庭电话")
FZRSR = rs("生日")
FZRXG = rs("性格")
FZRGRAH = rs("个人爱好")
JBR = rs("婚姻情况")
JBRXB = rs("子女情况")
JBRNL = rs("保险需求")
JBRXL = rs("收入情况")
JBRZW = rs("预算")
JBRBGDH = rs("拜访情况")
JBRCZ = rs("状态")
JBRSJ = rs("竞争对手")
JBREMAIL = rs("焦点分析")
Command5.Enabled = True
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -