frmqycbkhedit.frm

朋友给的

        XYQK = ""
        BXXQ = ""
        HTDQQK = ""
        YJBX = ""
        JCQK = ""
        ZT = ""
        JZDS = ""
        JDFX = ""
        CGSBYJ = ""
        FZR = ""
        FZRXB = ""
        FZRNL = ""
        FZRXL = ""
        FZRZW = ""
        FZRBGDH = ""
        FZRSJ = ""
        FZREMAIL = ""
        FZRADDRESS = ""
        FZRJTDH = ""
        FZRSR = Now
        FZRGRAH = ""
        FZRXG = ""
        JBR = ""
        JBRXB = ""
        JBRNL = ""
        JBRXL = ""
        JBRZW = ""
        JBRBGDH = ""
        JBRCZ = ""
        JBRSJ = ""
        JBREMAIL = ""
        JBRADDRESS = ""
        JBRGTDH = ""
        JBRSR = Now
        JBRGRAH = ""
        JBRXG = ""
        JSR = ""
        JSRLXDH = ""
        JSRTJ = ""
        MEMO = ""
        


End Sub

Private Sub FZR_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 FZRBGDH_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 FZRGRAH_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 FZRNL_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 FZRSR_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub FZRXBD_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 SendKeys "{tab}"

End Sub

Private Sub FZRXL_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 HTDQQK_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 JBR_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRBGDH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRCJ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRGRAH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRNL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRSR_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRXB_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRXG_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRXL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JBRZW_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 JSRADDRESS_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JSREMAIL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JSRJQDH_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 JSRSJ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JSRTJ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub JSRXM_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 KHDJ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

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).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 VIEWQY1 "
    strsql = strsql & " where 序号 ='" & Trim(CODE2) & "'"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        BDHTH = rs("保单合同号")
        TBXZ = rs("投保险种")
        BXF = rs("保险费")
        BXQX = rs("保险期限")
        TBRQ = rs("投保日期")
        SXRQ = rs("生效日期")
        XBRQ = rs("续保日期")
         QTYD = IIf(IsNull(rs("其他约定")), "", rs("其他约定"))
         XH = rs("序号")
        KHDJ = IIf(IsNull(rs("客户等级")), "", rs("客户等级"))
        XSQD = rs("销售渠道")
        DWMC = rs("单位名称")
        ADDRESS = rs("地址")
        YZBM = rs("邮政编码")
        HY = rs("行业")
        ZGRS = rs("职工人数")
        XYQK = rs("效益情况")
        BXXQ = rs("保险需求")
        HTDQQK = rs("原合同到期情况")
        YJBX = rs("预计保险")
        JCQK = rs("接触情况")
        ZT = rs("状态")
        JZDS = rs("竞争对手")
        JDFX = rs("焦点分析")
        CGSBYJ = rs("成功失败原因")
        FZR = rs("负责人")
        FZRXB = rs("负责人性别")
        FZRNL = rs("负责人年龄")
        FZRXL = IIf(IsNull(rs("负责人学历")), "", rs("负责人学历"))
        FZRZW = rs("负责人职务")
        FZRBGDH = rs("负责人办公电话")
        FZRSJ = rs("负责人手机")
        FZREMAIL = rs("负责人电子邮件")
        FZRADDRESS = rs("负责人家庭住址")
        FZRJTDH = rs("负责人家庭电话")
        FZRSR = rs("负责人生日")
        FZRGRAH = rs("负责人个人爱好")
        FZRXG = rs("负责人性格")
        JBR = rs("经办人")
        JBRXB = rs("经办人性别")
        JBRNL = rs("经办人年龄")
        JBRXL = rs("经办人学历")
        JBRZW = rs("经办人职务")
        JBRBGDH = rs("经办人办公电话")
        JBRCZ = rs("经办人办公传真")
        JBRSJ = rs("经办人手机")
        JBREMAIL = rs("经办人电子邮件")
        JBRADDRESS = rs("经办人家庭住址")
        JBRGTDH = rs("经办人家庭电话")
        JBRSR = rs("经办人生日")
        JBRGRAH = rs("经办人个人爱好")
        JBRXG = rs("经办人性格")
        JSR = rs("介绍人")
        JSRLXDH = rs("介绍人联系电话")
        JSRTJ = rs("介绍条件")
        MEMO = IIf(IsNull(rs("备注")), "", rs("备注"))
        End If
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
End Sub

Private Sub QTYD_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"
    SSTab1.Tab = 2
End Sub

Private Sub SXRQ_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 TBXZ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"
End Sub

Private Sub Text14_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub Text15_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{tab}"

End Sub

Private Sub Text4_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 XYQK_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 YZBM_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