fzkh.frm

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

    Call sqlsel
End Sub

Private Sub Form_Load()
    Dim c As cTab
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    
    Call Form_Resize
    
    With vTab
      Set c = .Tabs.Add("SOLUTION", , "准客户列表显示")
      c.IconIndex = 0
      c.Panel = Pickl
   End With

   vTab.ShowCloseButton = False
    
    Call sqlsel
End Sub

Private Sub Form_Resize()
    Me.Width = Fmain.Width
    Me.Height = Fmain.Height
    Me.Left = 0
    Me.Top = Fmain.Top
    vTab.Height = Me.ScaleHeight - Frame1.Height

    Pickl.Width = Me.Width
    Pickl.Height = vTab.Height - 400
    Frame1.Width = Me.Width
    MSFzy.Width = Pickl.Width
    MSFzy.Height = Pickl.Height
End Sub

Private Sub isButton11_Click()
    'gPrintListView MSFzy, "准客户资料"
    Call printDate(Fzkh.MSFzy)
End Sub

Private Sub isButton12_Click()
    Unload Me
End Sub

Private Sub isButton3_Click()
    Load FzkhAdd
    FzkhAdd.SetFocus
    FzkhAdd.Show
End Sub

Private Sub isButton4_Click()
    Call MSFzyDelMsg(MSFzy.TextMatrix(MSFzy.Row, 0))
    Call sqlsel
    Call Form_Resize
End Sub


Private Sub MSFzy_DblClick()
    Select Case MSFzy.Col
    Case 3
        Call showCombox(Fzkh.Cbo, 1)
        Call MSFDblClicksel(Fzkh.MSFzy, Fzkh.Cbo)
    Case 11
        Call ShowSelBox(Fzkh.Cbo, "车辆颜色")
        Call MSFDblClicksel(Fzkh.MSFzy, Fzkh.Cbo)
    Case 13
        Call showCombox(Fzkh.Cbo, 3)
        Call MSFDblClicksel(Fzkh.MSFzy, Fzkh.Cbo)
    Case 18
        Call showCombox(Fzkh.Cbo, 2)
        Call MSFDblClicksel(Fzkh.MSFzy, Fzkh.Cbo)
    Case Else
        Call MSFDblClick(Fzkh.MSFzy, Fzkh.Tinsert)
    End Select
    TS.Text = MSFzy.TextMatrix(MSFzy.Row, MSFzy.Col)
    Ts1.Text = MSFzy.Row
    Ts2.Text = MSFzy.Col
End Sub

Private Sub MSFzy_KeyPress(KeyAscii As Integer)
    If MSFzy.Col = 3 Then
        Call MSFKeyPresssel(KeyAscii, Fzkh.MSFzy, Fzkh.Cbo)
    Else
        Call MSFKeyPress(KeyAscii, Fzkh.MSFzy, Fzkh.Tinsert)
    End If
End Sub


Private Sub MSFzy_LeaveCell()
    Call MSFLeaveCell(Fzkh.MSFzy)
End Sub

Private Sub MSFzy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu pu1
    Else
        If ((Cbo.Visible = True) Or (Tinsert.Visible = True)) Then
            
            MSFzy.Row = Ts1.Text
            MSFzy.Col = Ts2.Text
            
            Select Case Ts2.Text
            Case 3
                If Trim$(Cbo.Text) <> TS.Text Then
                    Call Tinsert_KeyPress(13)
                End If
            Case 13
                If Trim$(Cbo.Text) <> TS.Text Then
                    Call Tinsert_KeyPress(13)
                End If
            Case 18
                If Trim$(Cbo.Text) <> TS.Text Then
                    Call Tinsert_KeyPress(13)
                End If
            Case 11
                If Trim$(Cbo.Text) <> TS.Text Then
                    Call Tinsert_KeyPress(13)
                End If
            Case Else
                If Trim$(Tinsert.Text) <> TS.Text Then
                    Call Tinsert_KeyPress(13)
                    
                End If
            End Select
            Call MSFMouseDown(Fzkh.Tinsert)
            Call MSFMouseDownSel(Fzkh.Cbo)
        End If
    End If
End Sub

Private Sub MSFzy_RowColChange()
    If MSFzy.Col = 3 And MSFzy.Col = 11 And MSFzy.Col = 13 And MSFzy.Col = 18 Then
        Call MSFRowColChangeSel(Fzkh.MSFzy, Fzkh.Cbo)
    Else
        Call MSFRowColChange(Fzkh.MSFzy, Fzkh.Tinsert)
    End If
    
End Sub

Private Sub Timer1_Timer()
    Call sqlsel
    Call Form_Resize
End Sub

Private Sub Tinsert_KeyPress(KeyAscii As Integer)
     '文本框起输入编辑框的作用，模拟网格单元，输入到文本框的内容，经过处理送到网格中，
    '当输入完后按回车键可以自动到下一列，若为最后一列，跳转到下一行的第一列等待输入。
    Dim sql As String
    Dim Tablef, vmsg As String
    Dim TSql As String
    
    On err GoTo vnextgo:

    If KeyAscii = 13 Then
            Select Case MSFzy.Col
            'Case 1
            '    Tablef = "id=" & Tinsert.Text
            '    vmsg = Tinsert.Text
            Case 2
                Tablef = "name='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 3
                Tablef = "sex='" & Cbo.Text & "'"
                vmsg = Cbo.Text
            Case 4
                Tablef = "zw='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 5
                Tablef = "tel='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 6
                Tablef = "cp='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 7
                Tablef = "cl='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 8
                Tablef = "cph='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 19
                Tablef = "fj='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 10
                Tablef = "cj='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 11
                Tablef = "se='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 12
                Tablef = "enddate=#" & Tinsert.Text & "#"
                vmsg = Tinsert.Text
            Case 13
                Tablef = "lp='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 14
                Tablef = "bf='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 15
                Tablef = "gs='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 16
                Tablef = "nnum='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 17
                Tablef = "znum='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 18
                Tablef = "cc='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 19
                Tablef = "addr='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 20
                Tablef = "mark='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case 21
                Tablef = "other='" & Tinsert.Text & "'"
                vmsg = Tinsert.Text
            Case Else
               ' MsgBox "非法的操作方法，请查看帮助系统！"
                Exit Sub
            End Select
            
            If MsgBox("你确定将" & MSFzy.Text & "修改为：<< " & vmsg & " >> 么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "update znpeo set " & Tablef & " where id=" & MSFzy.TextMatrix(MSFzy.Row, 0)
                    'MsgBox sql
                    Call ExcSqlCZ(sql)
            Else
                    GoTo vnextgo
            End If
            If MSFzy.Col = 3 Then
                MSFzy.Text = Cbo.Text
            Else
                MSFzy.Text = Tinsert.Text
            End If
vnextgo:
            Tinsert.Visible = False
            Cbo.Visible = False
            MSFzy.SetFocus
            If MSFzy.Col < (MSFzy.Cols - 1) Then
                 MSFzy.Col = MSFzy.Col + 1
            ElseIf MSFzy.Row < MSFzy.Rows - 1 Then
                 MSFzy.Row = MSFzy.Row + 1
                 MSFzy.Col = 0
            End If
            KeyAscii = 0
         End If
End Sub

Private Sub MSFzyDelMsg(keyCheck As String)
        Dim sql As String
        If MsgBox("你确定将" & MSFzy.TextMatrix(MSFzy.Row, 2) & "的所有信息都删除么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "delete from znpeo where id=" & MSFzy.TextMatrix(MSFzy.Row, 0)
                    Call ExcSqlCZ(sql)
                    Call sqlsel
        End If
End Sub

Private Sub showTital()
    MSFzy.Cols = 22
    InitSingleCol Fzkh.MSFzy, "序号", 0, 0, 0
    InitSingleCol Fzkh.MSFzy, "序号", 1, 0, 600
    InitSingleCol Fzkh.MSFzy, "准客户姓名", 2, 0, 1840
    InitSingleCol Fzkh.MSFzy, "性别", 3, 0, 800
    InitSingleCol Fzkh.MSFzy, "职务", 4, 0, 800
    InitSingleCol Fzkh.MSFzy, "手机或电话", 5, 0, 1482
    InitSingleCol Fzkh.MSFzy, "厂牌型号", 6, 0, 1200
    InitSingleCol Fzkh.MSFzy, "车辆价格", 7, 0, 1000
    InitSingleCol Fzkh.MSFzy, "车牌号", 8, 0, 1800
    InitSingleCol Fzkh.MSFzy, "发动机号", 9, 0, 1500
    InitSingleCol Fzkh.MSFzy, "车架号", 10, 0, 1440
    InitSingleCol Fzkh.MSFzy, "车辆颜色", 11, 0, 1200
    InitSingleCol Fzkh.MSFzy, "到期日", 12, 0, 1200
    InitSingleCol Fzkh.MSFzy, "理赔情况", 13, 0, 900
    InitSingleCol Fzkh.MSFzy, "上年保费", 14, 0, 900
    InitSingleCol Fzkh.MSFzy, "承包公司", 15, 0, 900
    InitSingleCol Fzkh.MSFzy, "使用年限", 16, 0, 900
    InitSingleCol Fzkh.MSFzy, "座位数", 17, 0, 800
    InitSingleCol Fzkh.MSFzy, "促成", 18, 0, 1400
    InitSingleCol Fzkh.MSFzy, "单位地址", 19, 0, 2500
    InitSingleCol Fzkh.MSFzy, "备注", 20, 0, 2500
    InitSingleCol Fzkh.MSFzy, "其它", 21, 0, 2500
    MSFzy.Rows = 1
End Sub

Private Sub sqlsel()
    Dim sql As String
    Dim vdb As Boolean
    Dim rs As Recordset
    Dim vstring As String
    Dim vdate As String
    Dim i As Integer
    
    vdate = DateAdd("m", -1, Date)
    'MsgBox vdate
    MSFzy.Clear
    Call showTital
    sql = "select * from znpeo where enddate>#" & vdate & "# order by month(enddate),day(enddate) asc"
    vdb = ExcSql
    If vdb = True Then
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            i = 0
            Do While Not rs.EOF
                i = i + 1
                vstring = rs("id") & "◆◆" & i & "◆◆" & rs("name") & "◆◆" & rs("sex") & "◆◆" & rs("zw") & "◆◆" _
                & rs("tel") & "◆◆" & rs("cp") & "◆◆" & rs("cl") & "◆◆" & rs("cph") & "◆◆" & rs("fj") & "◆◆" _
                & rs("cj") & "◆◆" & rs("se") & "◆◆" & rs("enddate") & "◆◆" & rs("lp") & "◆◆" & rs("bf") & "◆◆" _
                & rs("gs") & "◆◆" & rs("nnum") & "◆◆" & rs("znum") & "◆◆" & rs("cc") & "◆◆" & rs("addr") & "◆◆" & rs("mark") & "◆◆" & rs("other") & "◆◆"
                'MsgBox vstring
                Call AddRowInFlex(Fzkh.MSFzy, vstring)
            rs.MoveNext
            Loop
        End If
        rs.Close
        Set rs = Nothing
    End If
    Timer1.Enabled = False
    Call Form_Resize
End Sub



Private Sub isButton8_Click()
    Dim sql, vstring As String
    Dim rs As Recordset
    Dim vdb As Boolean
    Dim c As ListItem
    Dim i As Integer
    
     If Trim$(Tsel.Text) = "" Then
        Call sqlsel
        Exit Sub
    End If
    
    MSFzy.Clear
    Call showTital
     
    sql = "select * from znpeo where name='" & 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 znpeo where tel='" & Trim$(Tsel.Text) & "'"
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            End If
            
            sql = "select * from znpeo where cph='" & Trim$(Tsel.Text) & "'"
            Set rs = conn.Execute(sql)
            If Not rs.EOF Then
               GoTo showmsg
               Exit Sub
            Else
                MsgBox "您搜寻的信息不存在！"
                Call sqlsel
            End If
            
        End If
        Exit Sub
showmsg:
              i = 0
            Do While Not rs.EOF
                i = i + 1
                vstring = rs("id") & "◆◆" & i & "◆◆" & rs("name") & "◆◆" & rs("sex") & "◆◆" & rs("zw") & "◆◆" _
                & rs("tel") & "◆◆" & rs("cp") & "◆◆" & rs("cl") & "◆◆" & rs("cph") & "◆◆" & rs("fj") & "◆◆" _
                & rs("cj") & "◆◆" & rs("se") & "◆◆" & rs("enddate") & "◆◆" & rs("lp") & "◆◆" & rs("bf") & "◆◆" _
                & rs("gs") & "◆◆" & rs("nnum") & "◆◆" & rs("znum") & "◆◆" & rs("cc") & "◆◆" & rs("addr") & "◆◆" & rs("mark") & "◆◆" & rs("other") & "◆◆"
                'MsgBox vstring
                Call AddRowInFlex(Fzkh.MSFzy, vstring)
            rs.MoveNext
            Loop
        rs.Close
        Set rs = Nothing
        Call Form_Resize
End Sub