fyjgl.frm

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

showmsg:
            vstring = "" & "◆◆" & rs("startdate") & "◆◆" & rs("tbr") & "◆◆" & rs("serial") & "◆◆" & rs("telno") & "◆◆" & rs("bfee") & "◆◆" & rs("addr") & "◆◆"
                'MsgBox vstring
            Call AddRowInFlex(Fyjgl.MSFzy, vstring)
            rs.MoveNext
            Loop
        End If
        rs.Close
        Set rs = Nothing
        
    End If
    Call Form_Resize
End Sub

Private Sub ssqlgroup()
    Dim sql, vstring As String
    Dim rs As Recordset
    Dim vdb As Boolean
    Dim valltotal As Long
    valltotal = 0
    
    MSFzy1.Clear
    Call ShowTital1
    
    sql = "select * from group_info order by djrq desc"
    vdb = ExcSql
    If vdb = True Then
    'MsgBox sql
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Do While Not rs.EOF
                If rs("bfee") & "" = "" Then
                    valltotal = valltotal + 0
                Else
                    valltotal = valltotal + rs("bfee")
                End If
            vstring = rs("id") & "◆◆" & rs("jbr") & "◆◆" & rs("xz") & "◆◆" & rs("bpeo") & "◆◆" & _
            rs("xsz") & "◆◆" & rs("bid") & "◆◆" & rs("fph") & "◆◆" & rs("djrq") & "◆◆" & _
            rs("dzqk") & "◆◆" & rs("bfee") & "◆◆"

            Call AddRowInFlex(Fyjgl.MSFzy1, vstring)
            rs.MoveNext
            Loop
            vstring = "◆◆合计◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆" & valltotal & "◆◆"
            Call AddRowInFlex(Fyjgl.MSFzy1, vstring)
        End If
        rs.Close
        Set rs = Nothing
    End If
    Call Form_Resize
End Sub

Private Sub ssqlgroupsel()
    Dim sql, vstring, vyear As String
    Dim rs As Recordset
    Dim vdb As Boolean
    Dim valltotal As Long
    valltotal = 0
    vyear = Year(Date)
    
    MSFzy1.Clear
    Call ShowTital1
    
    sql = "select * from group_info where djrq<>'' and year(djrq)='" & vyear & "' and month(djrq)='" & Obr.Text & "'"
    vdb = ExcSql
    If vdb = True Then
    'MsgBox sql
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Do While Not rs.EOF
                If rs("bfee") & "" = "" Then
                    valltotal = valltotal + 0
                Else
                    valltotal = valltotal + rs("bfee")
                End If
            vstring = rs("id") & "◆◆" & rs("jbr") & "◆◆" & rs("xz") & "◆◆" & rs("bpeo") & "◆◆" & _
            rs("xsz") & "◆◆" & rs("bid") & "◆◆" & rs("fph") & "◆◆" & rs("djrq") & "◆◆" & _
            rs("dzqk") & "◆◆" & rs("bfee") & "◆◆"

            Call AddRowInFlex(Fyjgl.MSFzy1, vstring)
            rs.MoveNext
            Loop
            vstring = "◆◆合计◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆" & valltotal & "◆◆"
            Call AddRowInFlex(Fyjgl.MSFzy1, vstring)
        End If
        rs.Close
        Set rs = Nothing
    End If
    Call Form_Resize
End Sub

Private Sub ssqlgroupPeo()
    Dim sql, vstring As String
    Dim rs As Recordset
    Dim vdb As Boolean
    Dim valltotal, vtotal As Long
    valltotal = 0
    
    MSFzy2.Clear
    Call ShowTital2
    sql = "select * from group_fee order by zid desc"
    vdb = ExcSql
    If vdb = True Then
    'MsgBox sql
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Do While Not rs.EOF
                If rs("zfee") & "" = "" Then
                    vtotal = vtotal + 0
                Else
                    vtotal = vtotal + rs("zfee")
                End If
                
                If rs("bfee") & "" = "" Then
                    valltotal = valltotal + 0
                Else
                    valltotal = valltotal + rs("bfee")
                End If
            vstring = rs("id") & "◆◆" & rs("zid") & "◆◆" & rs("name") & "◆◆" & rs("zfee") & "◆◆" & _
            rs("bfee") & "◆◆"

            Call AddRowInFlex(Fyjgl.MSFzy2, vstring)
            rs.MoveNext
            Loop
            vstring = "◆◆合计◆◆◆◆" & vtotal & "◆◆" & valltotal & "◆◆"
            Call AddRowInFlex(Fyjgl.MSFzy2, vstring)
        End If
        rs.Close
        Set rs = Nothing
    End If
    Call Form_Resize
End Sub


Private Sub isButton2_Click()
    Call ssqlgroupsel
End Sub

Private Sub isButton8_Click()
    Call ssqlshow
    Call Form_Resize
End Sub

Private Sub m1_add_Click()
    Fyjgl_group.Show
    Fyjgl_group.SetFocus
End Sub

Private Sub m1_change_Click()
    Call MSFzy1_DblClick
End Sub

Private Sub m1_del_Click()
    Call MSFzy1DelMsg(MSFzy1.TextMatrix(MSFzy1.Row, 0))

    Call ssqlgroup
End Sub

Private Sub m2_add_Click()
    Fyjgl_zyadd.Show
    Fyjgl_zyadd.SetFocus
End Sub

Private Sub m2_change_Click()
    Call MSFzy2_DblClick
End Sub

Private Sub m2_del_Click()
     Call MSFzy2DelMsg(MSFzy2.TextMatrix(MSFzy2.Row, 0))
     Call ssqlgroupPeo
End Sub

Private Sub MSFzy1_DblClick()
    Call MSFDblClick(Fyjgl.MSFzy1, Fyjgl.Tinsert1)
End Sub

Private Sub MSFzy1_KeyPress(KeyAscii As Integer)
    Call MSFKeyPress(KeyAscii, Fyjgl.MSFzy1, Fyjgl.Tinsert1)
End Sub

Private Sub MSFzy1_LeaveCell()
    Call MSFLeaveCell(Fyjgl.MSFzy1)
End Sub

Private Sub MSFzy1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu pu1
    Else
        Call MSFMouseDown(Fyjgl.Tinsert1)
        Call MSFMouseDownSel(Fyjgl.Cbo1)
    End If
End Sub

Private Sub MSFzy1_RowColChange()
    Call MSFRowColChange(Fyjgl.MSFzy1, Fyjgl.Tinsert1)
End Sub

Private Sub MSFzy2_DblClick()
     Call MSFDblClick(Fyjgl.MSFzy2, Fyjgl.Tinsert2)
End Sub

Private Sub MSFzy2_KeyPress(KeyAscii As Integer)
     Call MSFKeyPress(KeyAscii, Fyjgl.MSFzy2, Fyjgl.Tinsert2)
End Sub

Private Sub MSFzy2_LeaveCell()
    Call MSFLeaveCell(Fyjgl.MSFzy2)
End Sub

Private Sub MSFzy2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu pu2
    Else
        Call MSFMouseDown(Fyjgl.Tinsert2)
        Call MSFMouseDownSel(Fyjgl.Cbo2)
    End If
End Sub

Private Sub Timer1_Timer()
    Call ssqlshow
    Call ssqlgroup
    Call ssqlgroupPeo
    Timer1.Enabled = False
End Sub

Private Sub Tinsert1_KeyPress(KeyAscii As Integer)
    Dim sql, vmsg As String
    Dim Tablef As String
    
    On err GoTo vnextgo:
    
    If KeyAscii = 13 Then
            Select Case MSFzy1.Col
            Case 1
                Tablef = "jbr"
            Case 2
                Tablef = "xz"
            Case 3
                Tablef = "bpeo"
            Case 4
                Tablef = "xsz"
            Case 5
                Tablef = "bid"
            Case 6
                Tablef = "fph"
            Case 7
                Tablef = "djrq"
            Case 8
                Tablef = "dzqk"
            Case 9
                Tablef = "bfee"
            Case Else
                Exit Sub
            End Select
            
            
            vmsg = Tinsert1.Text
            
            If MSFzy1.Text <> "" Then
            If MsgBox("你确定将" & MSFzy1.Text & "修改为：<< " & vmsg & " >> 么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "update group_info set " & Tablef & "='" & vmsg & "' where id=" & MSFzy1.TextMatrix(MSFzy1.Row, 0)
                    'MsgBox sql
                    Call ExcSqlCZ(sql)
            Else
                    GoTo vnextgo
            End If
            Else
                GoTo vnextgo
            End If

            MSFzy1.Text = Tinsert1.Text
vnextgo:
            Tinsert1.Visible = False
            
            'MSFzy1.SetFocus
            'If MSFzy1.Col < (MSFzy1.Cols - 1) Then
            '     MSFzy1.Col = MSFzy1.Col + 1
            'ElseIf MSFzy1.Row < MSFzy1.Rows - 1 Then
            '     MSFzy1.Row = MSFzy1.Row + 1
            '     MSFzy1.Col = 0
            'End If
            KeyAscii = 0
            Timer1.Enabled = True
         End If
End Sub

Private Sub MSFzy1DelMsg(keyCheck As String)
        Dim sql As String
        If MsgBox("你确定将发票号为：" & MSFzy1.TextMatrix(MSFzy1.Row, 5) & "的所有信息都删除么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "delete from group_info where id=" & MSFzy1.TextMatrix(MSFzy1.Row, 0)
                    Call ExcSqlCZ(sql)
                    Call ssqlgroup
        End If
End Sub

Private Sub MSFzy2DelMsg(keyCheck As String)
        Dim sql As String
        If MsgBox("你确定将组员代码为：" & MSFzy2.TextMatrix(MSFzy2.Row, 1) & "的所有信息都删除么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "delete from group_fee where id=" & MSFzy2.TextMatrix(MSFzy2.Row, 0)
                    Call ExcSqlCZ(sql)
                    Call ssqlgroupPeo
        End If
End Sub

Private Sub Tinsert2_KeyPress(KeyAscii As Integer)
    Dim sql, vmsg As String
    Dim Tablef As String
    
    On err GoTo vnextgo:
    
    If KeyAscii = 13 Then
            Select Case MSFzy2.Col
            Case 1
                Tablef = "zid"
            Case 2
                Tablef = "name"
            Case 3
                Tablef = "zfee"
            Case 4
                Tablef = "bfee"
            Case Else
                Exit Sub
            End Select
            
            
            vmsg = Tinsert2.Text
            
            If MSFzy2.Text <> "" Then
            If MsgBox("你确定将" & MSFzy2.Text & "修改为：<< " & vmsg & " >> 么？", vbYesNo, "确认提示") = vbYes Then
                    sql = "update group_fee set " & Tablef & "='" & vmsg & "' where id=" & MSFzy2.TextMatrix(MSFzy2.Row, 0)
                    'MsgBox sql
                    Call ExcSqlCZ(sql)
            Else
                    GoTo vnextgo
            End If
            Else
                GoTo vnextgo
            End If

            MSFzy2.Text = Tinsert2.Text
vnextgo:
            Tinsert2.Visible = False
            
            KeyAscii = 0
            Timer1.Enabled = True
         End If
End Sub

Private Sub vTab_TabSelected(theTab As vbalDTab6X.cTab)
    If vTab.Tabs.Item(1).Selected Then
        Frame2.Visible = True
        Frame3.Visible = False
        Exit Sub
    End If
    If vTab.Tabs.Item(2).Selected Then
        
        Frame2.Visible = False
        Frame3.Visible = True
        Exit Sub
    End If
    If vTab.Tabs.Item(3).Selected Then
        Frame2.Visible = False
        Frame3.Visible = False
        Exit Sub
    End If
End Sub