fkhgl.frm

为个人用户开发的车险秘书系统

    sql = "delete from insurance_info where serial='" & Trim$(ListViewzl.SelectedItem.Text) & "'"
    Call exsql(sql)
    sql = "delete from car_info where serial='" & Trim$(ListViewzl.SelectedItem.Text) & "'"
    Call exsql(sql)
    sql = "delete from danger where serial='" & Trim$(ListViewzl.SelectedItem.Text) & "'"
    Call exsql(sql)
    sql = "delete from additional where bid='" & Trim$(ListViewzl.SelectedItem.Text) & "'"
    Call exsql(sql)
    
    Call ssqlshow
    End If
    End If
End Sub

Private Sub isButton5_Click()
    Dim sql As String
    
    If ListViewzl.ListItems.Count > 0 Then
    If Tmsg.Text = "add" Then
        sql = "insert into family values('" & Trim$(Tadd.Text) & "','" & Trim$(Tname(0).Text) & "','" & Trim$(Tname(1).Text) & "','" & Trim$(Obr.Text) & "','" & Trim$(Tname(2).Text) & "','" & Trim$(Tname(3).Text) & "','" & Trim$(Tname(4).Text) & "','" & Trim$(Tname(5).Text) & "','" & Trim$(Tname(6).Text) & "')"
    Else
        sql = "update family set gx='" & Trim$(Tname(1).Text) & "',sr='" & Trim$(Obr.Text) & "',tel='" & Trim$(Tname(2).Text) & "',gname='" & Trim$(Tname(3).Text) & "',zy='" & Trim$(Tname(4).Text) & "',addr='" & Trim$(Tname(5).Text) & "',mark='" & Trim$(Tname(6).Text) & "' where id='" & Trim$(Tadd.Text) & "' and name='" & Trim$(Tname(0).Text) & "'"
    End If
    Call exsql(sql)
    Call ssqlshow
    Call Ssqlkshow(Trim$(Tadd.Text))
    vTab.Tabs.Item(1).Selected = True
    End If
End Sub

Private Sub isButton8_Click()
    Dim sql As String
    Dim rs As Recordset
    Dim vdb As Boolean
    Dim c As ListItem
    
    ListViewzl.ListItems.Clear
    sql = "select * from orders where id='" & Trim$(Tsel.Text) & "'"
    vdb = ExcSql
    If vdb = True Then
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            End If
            
            sql = "select * from orders where d2='" & Trim$(Tsel.Text) & "'"
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            End If
            
            sql = "select * from orders where d6='" & Trim$(Tsel.Text) & "'"
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            End If
            
            sql = "select * from orders where d11='" & Trim$(Tsel.Text) & "'"
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            End If
            
            sql = "select * from orders where d20='" & Trim$(Tsel.Text) & "'"
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            Else
                MsgBox "您搜寻的信息不存在！"
                Call ssqlshow
            End If
            
        End If
        Exit Sub
showmsg:
                Do While Not rs.EOF
                    Set c = ListViewzl.ListItems.Add(, , rs("id") & "")
                    c.SubItems(1) = rs("d2") & ""
                    c.SubItems(2) = rs("d4") & ""
                    c.SubItems(3) = rs("d3") & ""
                    c.SubItems(4) = rs("d28") & ""
                    c.SubItems(5) = rs("d6") & ""
                    c.SubItems(6) = rs("d10") & ""
                    c.SubItems(7) = rs("d11") & ""
                    c.SubItems(8) = rs("d26") & ""
                    c.SubItems(9) = rs("x6") & ""
                    c.SubItems(10) = rs("d20") & ""
                    c.SubItems(11) = rs("d21") & ""
                    c.SubItems(12) = rs("d27") & ""
                    c.SubItems(13) = rs("id") & ""
                rs.MoveNext
                Loop
                rs.Close
                Set rs = Nothing
End Sub

Private Sub ListViewjt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        If ListViewjt.ListItems.Count > 0 Then
            mdel.Enabled = True
            mchange.Enabled = True
        Else
            mdel.Enabled = False
            mchange.Enabled = False
        End If
        If Tadd.Text = "" Then
            madd.Enabled = False
        Else
            madd.Enabled = True
        End If
        
        PopupMenu mp
    End If
End Sub

Private Sub ListViewzl_Click()
    Dim sql, msg1, msg2 As String
    Dim rs As Recordset
    Dim vdb As Boolean
    Dim allfee, allbfee, all1, all2 As Long
    Dim c As ListItem
    
    Tjg.ListItems.Clear
    If ListViewzl.ListItems.Count > 0 Then
       sql = "select b.a1 as c1,b.b1 as d1,b.a2 as c2,b.b2 as d2,b.a3 as c3,b.b3 as d3,b.a4 as c4,b.b4 as d4," & _
            "b.a5 as c5,b.b5 as d5,b.a6 as c6,b.a6_1 as c6_1,b.b6 as d6,b.a7 as c7,b.b7 as d7," & _
            "b.a8 as c8,b.b8 as d8,b.a10 as c10,b.b10 as d10,a.agio as c11,b.b12 as b12msg from insurance_info as a ,danger as b where a.serial=b.serial and a.serial='" & Trim$(ListViewzl.SelectedItem.Text) & "'"
        
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            
            Tjg.ListItems.Clear
            Set c = Tjg.ListItems.Add(1, , " ")
                c.SubItems(1) = "保额"
                c.SubItems(2) = rs("c1") & "万"
                c.SubItems(3) = rs("c2") & "万"
                c.SubItems(4) = rs("c3") & "万"
                c.SubItems(5) = rs("c4") & " "
                c.SubItems(6) = " "
                c.SubItems(7) = (CLng(rs("c5")) + (CLng(rs("c6")) * CLng(rs("c6_1")))) & "万"
                c.SubItems(8) = rs("c7") & " "
                c.SubItems(9) = rs("c8") & "万"
                c.SubItems(10) = rs("c10") & "万"
                c.SubItems(11) = rs("c11")
            Set c = Tjg.ListItems.Add(2, , " ")
                c.SubItems(1) = "保费"
                c.SubItems(2) = rs("d1") & "元"
                c.SubItems(3) = rs("d2") & "元"
                c.SubItems(4) = rs("d3") & "元"
                c.SubItems(5) = rs("d4") & "元"
                c.SubItems(6) = rs("b12msg") & "元"
                c.SubItems(7) = (CLng(rs("d5")) + CLng(rs("d6"))) & "元"
                c.SubItems(8) = rs("d7") & "元"
                c.SubItems(9) = rs("d8") & "元"
                c.SubItems(10) = rs("d10") & "元"
                c.SubItems(11) = (CLng(rs("d1")) + CLng(rs("d2")) + CLng(rs("d3")) + CLng(rs("d4")) + CLng(rs("d1")) + CLng(rs("d6")) + CLng(rs("d7")) + CLng(rs("d8")) + CLng(rs("d10")) + CLng(rs("b12msg"))) & "元"
           ' msg1 = "保额 / 车损险:" & rs("t1") & "万    三责险:" & allfee & "万    盗抢险:" & rs("t5") & "万    玻璃险:" & rs("t6") & "   车上人员:" & rs("t9") & "万    不记免赔 " & rs("t12") & "   无过失 " & rs("t13") & "   自燃险 " & rs("t7") & "万"
            ' & all1 & "万"
            'msg2 = "保费 / 车损险:" & rs("f1") & "元    三责险:" & allbfee & "元    盗抢险:" & rs("f5") & "元    玻璃险:" & rs("f6") & "元    车上人员:" & rs("f9") & "元    不记免赔 " & rs("f12") & "元    无过失 " & rs("t13") & "元   自燃险 " & rs("f7") & "元  合计:" & all2 & "元"
            'Tjg.Text = msg1 & vbCrLf & vbCrLf & msg2
            Tadd.Text = Trim$(ListViewzl.SelectedItem.Text)
            Call Ssqlkshow(Trim$(ListViewzl.SelectedItem.Text))
        End If
        rs.Close
        Set rs = Nothing
    End If
    
    
End Sub

Private Sub madd_Click()
    Dim i As Integer

        For i = 0 To 6
            Tname(i).Text = ""
        Next i
        Tmsg.Text = "add"
        Obr.Text = Date
        
        vTab.Tabs.Item(2).Selected = True
End Sub

Private Sub mchange_Click()
    Tmsg.Text = "change"
    Tname(0).Text = Trim$(ListViewjt.SelectedItem.ListSubItems(1).Text)
    Tname(1).Text = Trim$(ListViewjt.SelectedItem.ListSubItems(2).Text)
    Obr.Text = Trim$(ListViewjt.SelectedItem.ListSubItems(3).Text)
    Tname(2).Text = Trim$(ListViewjt.SelectedItem.ListSubItems(4).Text)
    Tname(3).Text = Trim$(ListViewjt.SelectedItem.ListSubItems(5).Text)
    Tname(4).Text = Trim$(ListViewjt.SelectedItem.ListSubItems(6).Text)
    Tname(5).Text = Trim$(ListViewjt.SelectedItem.ListSubItems(7).Text)
    Tname(6).Text = Trim$(ListViewjt.SelectedItem.ListSubItems(8).Text)
    
    If Obr.Text = "" Then
        Obr.Text = Date
    End If
     vTab.Tabs.Item(2).Selected = True
End Sub

Private Sub mdel_Click()
    Dim sql, snum As String
    snum = Trim$(ListViewjt.SelectedItem.ListSubItems(1).Text)
    If snum <> "" Then
        sql = "delete from family where id='" & Trim$(Tadd.Text) & "' and name='" & snum & "'"
        Call exsql(sql)
        Call ssqlshow
        Call Ssqlkshow(snum)
    End If
End Sub

Private Sub Timer1_Timer()
    Call ssqlshow
End Sub

Private Sub Tname_GotFocus(Index As Integer)
    Tname(Index).BackColor = &HFFC0C0
End Sub

Private Sub Tname_LostFocus(Index As Integer)
    Tname(Index).BackColor = &HFFFFFF
End Sub

Private Sub ssqlshow()
    Dim sql As String
    Dim vdb As Boolean
    Dim rs As Recordset
    Dim c As ListItem
    Dim vdate As String
    
    vdate = DateAdd("m", -1, Date)
    
    ListViewzl.ListItems.Clear
    sql = "select a.tbd as c13,a.serial as c1,a.xsz as c2,a.email as c3,b.cpxh as c4,b.cph as c5,b.fdjh as c6,b.cjh as c7,b.cdny as c8,b.xsqu as c9," & _
    " a.bear_co as c10,a.Tpeo as c11,a.addr as c12,a.bpeo as c14 from insurance_info as a , " & _
    "car_info as b where a.serial=b.serial order by month(a.tbd) asc"
    vdb = ExcSql
    If vdb = True Then
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Do While Not rs.EOF
                Set c = ListViewzl.ListItems.Add(, , rs("c1") & "")
                c.SubItems(1) = rs("c14") & ""
                c.SubItems(2) = rs("c2") & ""
                c.SubItems(3) = rs("c3") & ""
                c.SubItems(4) = rs("c4") & ""
                c.SubItems(5) = rs("c5") & ""
                c.SubItems(6) = rs("c6") & ""
                c.SubItems(7) = rs("c7") & ""
                c.SubItems(8) = rs("c8") & ""
                c.SubItems(9) = rs("c13") & ""
                c.SubItems(10) = rs("c9") & ""
                c.SubItems(11) = rs("c10") & ""
                c.SubItems(12) = rs("c11") & ""
                c.SubItems(13) = rs("c12") & ""
                c.SubItems(14) = rs("c1") & ""
            rs.MoveNext
            Loop
        End If
        rs.Close
        Set rs = Nothing
        Timer1.Enabled = False
    End If
    
End Sub

Private Sub Ssqlkshow(ByVal vmsg As String)
    Dim sql As String
    Dim vdb As Boolean
    Dim rs As Recordset
    Dim c As ListItem
    
    ListViewjt.ListItems.Clear
    sql = "select * from family where id='" & Trim$(ListViewzl.SelectedItem.Text) & "'"
    vdb = ExcSql
    If vdb = True Then
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Do While Not rs.EOF
                Set c = ListViewjt.ListItems.Add(, , rs("name") & "")
                c.SubItems(1) = rs("name") & ""
                c.SubItems(2) = rs("gx") & ""
                c.SubItems(3) = rs("sr") & ""
                c.SubItems(4) = rs("tel") & ""
                c.SubItems(5) = rs("zy") & ""
                c.SubItems(6) = rs("gname") & ""
                c.SubItems(7) = rs("addr") & ""
                'c.SubItems(8) = rs("mark") & ""
            rs.MoveNext
            Loop
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub


Private Sub vselOs(ByVal vms As String, ByVal vname As OsenXPComboBox)
    Dim sql As String
    Dim rs As Recordset
    Dim vdb As Boolean
    
    If vms = "Oyw" Then
        sql = "select 代号,姓名 from member"
    Else
        sql = "select 属性 from sys where 类别='" & vms & "'"
    End If
    vdb = ExcSql
    If vdb = True Then
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            With vname
            Do While Not rs.EOF
                If vms = "Oyw" Then
                .AddItem rs("姓名") & " - " & rs("代号")
                Else
                .AddItem rs("属性")
                End If
            rs.MoveNext
            Loop
            .ListIndex = 0
            End With
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub