frmywedit.frm

朋友给的

        BXDH = BDHTH
        BXQX = rs("保险期限")
        TBRQ = rs("投保日期")
        TBXZ = rs("投保险种")
        BXF = rs("保险费")
        SXRQ = rs("生效日期")
        XBRQ = rs("续保日期")
        QTYD = rs("其他约定")
        BBXR = rs("被保险人")
        YWLB = rs("业务类别")
        TBXZ = rs("投保险种")
        TBR = rs("投保人")
        JFFS = rs("交费方式")
        YWY = rs("业务员工号") & "-" & rs("业务员姓名")
        YWYYJ = rs("业务员佣金")
        KHYJ = rs("考核佣金折算比例")
        ZSXF = rs("总手续费")
        QTYD = rs("其他约定")
        BXGS.Text = rs("保险公司名称")
        BXGS.ListIndex = 0
        BXGS.ItemData(0) = rs("保险公司ID")
        ZKH.Text = rs("准客户名称")
        ZKH.ListIndex = 0
        ZKH.ItemData(0) = rs("准客户ID")
        Command4.Enabled = True
        Command5.Enabled = True
    End If
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
End Sub
Private Sub Form_Load()
    If Me.WindowState = 0 Then Me.Move 0, 0, 12000, 8040
     Dim rs As ADODB.Recordset
    Dim i As Long
    Set rs = New ADODB.Recordset
    Dim msg As String
    Dim strsql As String
    strsql = "select * from  BXGS"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
   
   For i = 0 To rs.RecordCount - 1
        BXGS.AddItem rs("MC")
        BXGS.ItemData(i) = rs("id")
        rs.MoveNext
    Next
   If rs.State Then rs.Close
   JFFS.Clear
   rs.Open "select value from parameters where paratype=3", gCnn, adOpenStatic, adLockReadOnly
   For i = 0 To rs.RecordCount - 1
        JFFS.AddItem rs(0)
        rs.MoveNext
    Next
    If rs.State = 1 Then rs.Close
    YWLB.Clear
    rs.Open "select value from parameters where paratype=2", gCnn, adOpenStatic, adLockReadOnly
   For i = 0 To rs.RecordCount - 1
        YWLB.AddItem rs(0)
        rs.MoveNext
    Next
   If rs.State = 1 Then rs.Close
   rs.Open "select 工号,姓名 from viewygxx order by  工号", gCnn, adOpenStatic, adLockReadOnly
   YWY.Clear
   YWY = "0000-其他"
   For i = 0 To rs.RecordCount - 1
        YWY.AddItem rs(0) & "-" & rs(1)
        rs.MoveNext
   Next
   If rs.State = 1 Then rs.Close
    rs.Open "select * from VIEWBXYW", gCnn, adOpenStatic, adLockReadOnly
    findbt.Clear
    For i = 0 To rs.Fields.count - 1
        findbt.AddItem rs.Fields(i).name
    Next
    If rs.State = 1 Then rs.Close
    If QYLX = 1 Then
        ZKH.Text = frmGRCBKH.DWMC
        ZKHID1 = frmGRCBKH.XH
    Else
        ZKH.Text = frmQYCBKH.DWMC
        ZKHID1 = frmQYCBKH.XH
    End If
   TBRQ = Now
   SXRQ = Now
XBRQ = Now


strsql = "select 保单合同号 from  VIEWbxyw"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
msg = ShowListView(ListView1, rs, False, "3000")












  Command4.Enabled = False
  Command5.Enabled = False
   TBXZ.AddItem "养老保险"
End Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

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

End Sub

Private Sub KHYJ_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
                FillTXT1 (ListView1.ListItems(i).Text)
            End If
        Next
        
        
        
    End If












End Sub
Private Sub FillTXT1(code As String)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "select * from viewbxyw where 保单合同号='" & code & "'", gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
'    Dim rs As ADODB.Recordset
'    Set rs = New ADODB.Recordset
'    Dim strsql As String
'    strsql = "select 保单合同号 from  VIEWbxyw where " & CODE1 & " like '%" & CODE2 & "%'"
'    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        BDHTH = rs("保单合同号")
        BXDH = BDHTH
        
        BXQX = rs("保险期限")
        TBRQ = rs("投保日期")
        TBXZ = rs("投保险种")
        BXF = rs("保险费")
        SXRQ = rs("生效日期")
        XBRQ = rs("续保日期")
        QTYD = rs("其他约定")
        BBXR = rs("被保险人")
        YWLB = rs("业务类别")
        TBXZ = rs("投保险种")
        TBR = rs("投保人")
        JFFS = rs("交费方式")
        YWY = rs("业务员工号") & "-" & rs("业务员姓名")
        YWYYJ = rs("业务员佣金")
        KHYJ = rs("考核佣金折算比例")
        ZSXF = rs("总手续费")
        QTYD = rs("其他约定")
        BXGS.Text = rs("保险公司名称")
        BXGS.ListIndex = 0
        BXGS.ItemData(0) = rs("保险公司ID")
        ZKH.Text = rs("准客户名称")
        'ZKH.ListIndex = 0
        ZKHID1 = rs("准客户ID")
        
        Command4.Enabled = True
        Command5.Enabled = True

    End If
    
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
    
    
    
    
    End If
    
    
    
    




End Sub





Private Sub Option1_Click(Index As Integer)

End Sub

'Private Sub Option1_Click(Index As Integer)
'    Dim rs As ADODB.Recordset
'    Dim l, i As Integer
'    Set rs = New ADODB.Recordset
'    Dim strsql As String
'    ZKH.Clear
'   If Option1.Item(0).Value = True Then
'        strsql = "select * from  TBKHJBZL"
'        strsql = strsql & " where KHLX ='1'"
'        rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
'        For i = 0 To rs.RecordCount - 1
'            ZKH.AddItem rs("DWMC")
'            ZKH.ItemData(i) = rs("id")
'            rs.MoveNext
'        Next
'   Else
'        strsql = "select * from  TBKHJBZL"
'        strsql = strsql & " where KHLX ='0'"
'        rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
'        For i = 0 To rs.RecordCount - 1
'            ZKH.AddItem rs("DWMC")
'            ZKH.ItemData(i) = rs("id")
'            rs.MoveNext
'        Next
'
'   End If
'End Sub

Private Sub QTYD_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 TBR_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 XBRQ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"

End Sub

Private Sub YWLB_Click()
    Dim rs As ADODB.Recordset
    Dim i As Long
    Set rs = New ADODB.Recordset
    If rs.State = 1 Then rs.Close
    rs.Open "select tbxz from ywlb where ywlb='" & Trim(YWLB) & "'", gCnn, adOpenStatic, adLockReadOnly
    TBXZ.Clear
    For i = 0 To rs.RecordCount - 1
        TBXZ.AddItem rs(0)
        rs.MoveNext
    Next

End Sub

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

End Sub

Private Sub YWY_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
    Dim srtYGGH As String
    '===========查找员工编号
    Dim hh As Long
    For hh = 1 To Len(YWY.Text)
        srtYGGH = Left(YWY, hh)
        If Right(srtYGGH, 1) = "-" Then
            srtYGGH = Left(srtYGGH, Len(srtYGGH) - 1)
            Exit For
        End If
    Next
    '===========查找员工编号
    
       YWY.Text = CheckGhLy(srtYGGH, YWY)

    SendKeys "{Tab}"
    End If
End Sub
Private Function CheckGhLy(strTemp As String, ComboxTemp As ComboBox) As String
    Dim i, j As Integer
    Dim sTemp As String
    
    If strTemp = "" Then
       CheckGhLy = "0000-其他"
       Exit Function
    End If
    
    strTemp = Trim(strTemp)
    If ComboxTemp.ListCount <= 0 Then Exit Function
    CheckGhLy = ""
    For i = 0 To ComboxTemp.ListCount
'        If Left(ComboxTemp.List(i), 4) = strTemp Then
        For j = 1 To Len(ComboxTemp.List(i)) - 1
            sTemp = Mid(ComboxTemp.List(i), j, 1)
            If sTemp = "-" Then
                If Left(ComboxTemp.List(i), j - 1) = strTemp Then
                    CheckGhLy = Mid(ComboxTemp.List(i), j + 1, 10)
                    CheckGhLy = ComboxTemp.List(i)
                    Exit Function
                End If
            End If
        Next j
    Next i
    If CheckGhLy = "" Then
       MsgBox "没有此员工,请核对!", vbInformation, "系统提示"
       CheckGhLy = "0000-其他"
    End If
End Function
Private Sub YWYYJ_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then SendKeys "{Tab}"

End Sub

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

End Sub