frmygxxgl.frm

朋友给的

        DBRBZ = ""
        
End Sub



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

End Sub

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

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






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

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

End Sub

Private Sub ZC_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub CSNY_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub

Private Sub HYZK_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub YB_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub SFZH_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 GDDH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub SJ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub HJSZ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
   
    SendKeys "{Tab}"
    End If
End Sub
Private Sub MZ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub WHCD_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub RSRQ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub ZZMM_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DLZH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub ZYZH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub JYJL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub GZJL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub JCJL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub PXJL_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub LDDLRQ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub MEMO_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
    KL.Tab = 2
    SendKeys "{Tab}"
    End If
End Sub
Private Sub DBRXH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRXM_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRGZDW_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRZW_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRCSNY_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub

Private Sub DBRBGDH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRYB_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRZZDH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRADDRESS_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRSFZH_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRHJDZ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub DBRMQDZ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub BDBRGX_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"
End Sub
Private Sub BZ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
    KL.Tab = 3
    SendKeys "{Tab}"
    End If
End Sub
Private Sub DBRSJ_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(code1 As String)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim strsql As String
    On Error GoTo ErrHandle
    strsql = "select * from VIEWYGXX "
    strsql = strsql & " where  工号='" & Trim(code1) & "'"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        GH = rs("工号")
        XM = rs("姓名")
        BM = rs("部门")
        ZC = rs("职称")
        CSNY = rs("出生年月")
        If rs("性别") = "男" Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
        HYZK = rs("婚姻状况")
         YB = rs("邮编")
         SFZH = rs("身份证号")
        ADDRESS = rs("家庭住址")
        YWZJ = rs("业务职级")
        SSTD = rs("所属团队")
        SSTD.ListIndex = 0
        SSTD.ItemData(0) = rs("所属团队ID")
        GDDH = rs("固定电话")
        SJ = rs("手机")
        HJSZ = rs("户籍所在")
        EMAIL = rs("电子邮件")
        MZ = rs("民族")
        WHCD = rs("文化程度")
        RSRQ = rs("入司日期")
        ZZMM = rs("政治面貌")
        DLZH = rs("代理证号")
        ZYZH = rs("展业证号")
        JYJL = rs("教育经历")
        GZJL = rs("工作经历")
        JCJL = rs("奖惩记录")
        PXJL = rs("培训记录")
        LDDLRQ = rs("劳动合同或代理合同到期日期")
        MEMO = rs("备注")
        DBRXH = rs("担保人序号")
        DBRXM = rs("担保人姓名")
        DBRGZDW = rs("担保人工作单位")
        DBRZW = rs("担保人职务")
        DBRCSNY = rs("担保人出生年月")
        If rs("担保人性别") = "男" Then
            Option3.Value = True
        Else
            Option4.Value = True
        End If
       
        DBRBGDH = rs("担保人办公电话")
         DBRYB = rs("担保人邮编")
         DBRZZDH = rs("担保人住宅电话")
        DBRADDRESS = rs("担保人家庭住址")
        DBRSFZH = rs("担保人身份证号")
        DBRSJ = rs("担保人手机")
        DBRHJDZ = rs("担保人户籍地址")
        DBRMQDZ = rs("担保人目前地址")
        YBDBRGX = rs("与被担保人关系")
        BZ = rs("担保人备注")
        End If
    '=========显示图片========='员工照片
    Dim rsTemp As New ADODB.Recordset
    If rsTemp.State = 1 Then rsTemp.Close
    rsTemp.Open "select ygzp,DBRSFZSM from ygjbzl where gh='" & code1 & "'", gCnn, adOpenStatic, adLockReadOnly
    If Not rsTemp.EOF Then
        If IsNull(rsTemp.Fields("ygzp").Value) = True Then
            Image1.Picture = LoadPicture("")
            Label20.Visible = True
            pic = ""
            Filename = ""
        Else
            pic = rsTemp.Fields("ygzp").Value
             If Dir("temp.jpg") <> "" Then
               Kill ("temp.jpg")
             End If
             Open "temp.jpg" For Binary As #1
             Put #1, , pic
             Close #1
             Image1.Picture = LoadPicture("temp.jpg")
             If Dir("temp.jpg") <> "" Then
               Kill ("temp.jpg")
             End If
             Label20.Visible = False
        End If
    
    
    '=========显示图片========='担保人身份证扫描
        If IsNull(rsTemp.Fields("DBRSFZSM").Value) = True Then
            Image2.Picture = LoadPicture("")
            Label31.Visible = True
            pic1 = ""
            Filename1 = ""
        Else
            pic1 = rsTemp.Fields("DBRSFZSM").Value
             If Dir("temp1.jpg") <> "" Then
               Kill ("temp1.jpg")
             End If
             Open "temp1.jpg" For Binary As #1
             Put #1, , pic1
             Close #1
             Image2.Picture = LoadPicture("temp1.jpg")
             If Dir("temp1.jpg") <> "" Then
               Kill ("temp1.jpg")
             End If
             Label31.Visible = False
        End If
    
    End If
    '=========显示图片=========
    Set rsTemp = Nothing
        
        
        
        
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
End Sub
Private Sub FillText(code1 As String, code2 As String)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim strsql As String
    On Error GoTo ErrHandle
    strsql = "select * from VIEWYGXX "
    strsql = strsql & " where " & Trim(code1) & " like '%" & Trim(code2) & "%'"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        GH = rs("工号")
        XM = rs("姓名")
        BM = rs("部门")
        ZC = rs("职称")
        CSNY = rs("出生年月")
        If rs("性别") = "男" Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
        HYZK = rs("婚姻状况")
         YB = rs("邮编")
         SFZH = rs("身份证号")
         YWZJ = rs("业务职级")
         SSTD = rs("所属团队")
         SSTD.ListIndex = 0
         SSTD.ItemData(0) = rs("所属团队ID")
        ADDRESS = rs("家庭住址")
        GDDH = rs("固定电话")
        SJ = rs("手机")
        HJSZ = rs("户籍所在")
        MZ = rs("民族")
        WHCD = rs("文化程度")
        RSRQ = rs("入司日期")
        ZZMM = rs("政治面貌")
        DLZH = rs("代理证号")
        ZYZH = rs("展业证号")
        JYJL = rs("教育经历")
        GZJL = rs("工作经历")
        JCJL = rs("奖惩记录")
        PXJL = rs("培训记录")
        LDDLRQ = rs("劳动合同或代理合同到期日期")
        MEMO = rs("备注")
        DBRXH = rs("担保人序号")
        DBRXM = rs("担保人姓名")
        DBRGZDW = rs("担保人工作单位")
        DBRZW = rs("担保人职务")
        DBRCSNY = rs("担保人出生年月")
        If rs("担保人性别") = "男" Then
            Option3.Value = True
        Else
            Option4.Value = True
        End If
        EMAIL = rs("电子邮件")
        DBRBGDH = rs("担保人办公电话")
         DBRYB = rs("担保人邮编")
         DBRZZDH = rs("担保人住宅电话")
        DBRADDRESS = rs("担保人家庭住址")
        DBRSFZH = rs("担保人身份证号")
        DBRSJ = rs("担保人手机")
        DBRHJDZ = rs("担保人户籍地址")
        DBRMQDZ = rs("担保人目前地址")
        YBDBRGX = rs("与被担保人关系")
        BZ = rs("担保人备注")
        End If
    '=========显示图片========='员工照片
    Dim rsTemp As New ADODB.Recordset
    If rsTemp.State = 1 Then rsTemp.Close
    rsTemp.Open "select ygzp,DBRSFZSM from ygjbzl where gh='" & rs("工号") & "'", gCnn, adOpenStatic, adLockReadOnly
    If Not rsTemp.EOF Then
        If IsNull(rsTemp.Fields("ygzp").Value) = True Then
            Image1.Picture = LoadPicture("")
            Label20.Visible = True
            pic = ""
            Filename = ""
        Else
            pic = rsTemp.Fields("ygzp").Value
             If Dir("temp.jpg") <> "" Then
               Kill ("temp.jpg")
             End If
             Open "temp.jpg" For Binary As #1
             Put #1, , pic
             Close #1
             Image1.Picture = LoadPicture("temp.jpg")
             If Dir("temp.jpg") <> "" Then
               Kill ("temp.jpg")
             End If
             Label20.Visible = False
        End If
    
    
    '=========显示图片========='担保人身份证扫描
        If IsNull(rsTemp.Fields("DBRSFZSM"