form10month.frm

一套收费计算机系统

  dday = ""
    
  If Series = 1 Then '城市户
    qhj = tmonth(DataPoint, 4)
  
    shou = tmonth(DataPoint, 2)
    chu = tmonth(DataPoint, 3)
  End If
  
  If Series = 2 Then '农村户
    qhj = tmonth(DataPoint, 7)
    
    shou = tmonth(DataPoint, 5)
    chu = tmonth(DataPoint, 6)
  End If
  
  Form9tip.Show
End If
End Sub
Private Sub MSChart1_SeriesSelected(Series As Integer, MouseFlags As Integer, Cancel As Integer)
If havechart Then
  chen = 0: nong = 0: shou = 0: chu = 0
  
  dyear = Text2.Text
  dmonth = ""
  dday = ""
  
  If Series = 1 Then '城市户
    qhj = Val(Label8.Caption)
    
    Dim i As Integer
    
    For i = 1 To 12
      shou = shou + tmonth(i, 2)
    Next i
    
    For i = 1 To 12
      chu = chu + tmonth(i, 3)
    Next i
  End If
  
  If Series = 2 Then '农村户
    qhj = Val(Label11.Caption)
    
    For i = 1 To 12
      shou = shou + tmonth(i, 5)
    Next i
    
    For i = 1 To 12
      chu = chu + tmonth(i, 6)
    Next i
  End If
  
  Form9tip.Show
End If
End Sub
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Toolbar1.Visible = False
Toolbar2.Visible = False
Toolbar3.Visible = False
Toolbar4.Visible = False
End Sub
Private Sub MSHFlexGrid2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Toolbar1.Visible = False
Toolbar2.Visible = False
Toolbar3.Visible = False
Toolbar4.Visible = False
End Sub

Private Sub StatusBar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Toolbar1.Visible = False
Toolbar2.Visible = False
Toolbar3.Visible = False
Toolbar4.Visible = False
End Sub
Private Sub Timer1_Timer()
If actionflag = "expright" Then
  If MSChart1.Left <= 0 Then
  Timer1.Enabled = False
  Else
  MSChart1.Left = MSChart1.Left - 100
  MSChart1.Width = MSChart1.Width + 100
  End If
End If

If actionflag = "expleft" Then
  If MSChart1.Left >= 4080 Then
  Timer1.Enabled = False
  Else
  MSChart1.Left = MSChart1.Left + 100
  MSChart1.Width = MSChart1.Width - 100
  End If
End If

If actionflag = "rright" Then
  MSChart1.Plot.View3d.Set MSChart1.Plot.View3d.Rotation - 20, MSChart1.Plot.View3d.Elevation
  If mousestate = True Then
    Timer1.Enabled = False
  End If
End If

If actionflag = "rleft" Then
  MSChart1.Plot.View3d.Set MSChart1.Plot.View3d.Rotation + 20, MSChart1.Plot.View3d.Elevation
  If mousestate = True Then
    Timer1.Enabled = False
  End If
End If

If actionflag = "rup" Then
MSChart1.Plot.View3d.Set MSChart1.Plot.View3d.Rotation, MSChart1.Plot.View3d.Elevation - 10
  If mousestate = True Then
    Timer1.Enabled = False
  End If
End If

If actionflag = "rdown" Then
MSChart1.Plot.View3d.Set MSChart1.Plot.View3d.Rotation, MSChart1.Plot.View3d.Elevation + 10
  If mousestate = True Then
    Timer1.Enabled = False
  End If
End If

If actionflag = "turnh" Then
MSChart1.Plot.DepthToHeightRatio = MSChart1.Plot.DepthToHeightRatio + 0.05
  If mousestate = True Then
    Timer1.Enabled = False
  End If
  If MSChart1.Plot.DepthToHeightRatio >= 2 Then
    Timer1.Enabled = False
  End If
End If
  
If actionflag = "turnb" Then
MSChart1.Plot.DepthToHeightRatio = MSChart1.Plot.DepthToHeightRatio - 0.05
  If mousestate = True Then
    Timer1.Enabled = False
  End If
End If

If actionflag = "loogen" Then
  MSChart1.Plot.WidthToHeightRatio = MSChart1.Plot.WidthToHeightRatio + 0.05
  If mousestate = True Then
    Timer1.Enabled = False
  End If
  If MSChart1.Plot.WidthToHeightRatio >= 3 Then
  Timer1.Enabled = False
  End If
End If

If actionflag = "shorten" Then
  MSChart1.Plot.WidthToHeightRatio = MSChart1.Plot.WidthToHeightRatio - 0.05
  If mousestate = True Then
    Timer1.Enabled = False
  End If
End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 4 Then '二纬折线
MSChart1.ChartType = VtChChartType2dLine
End If
If Button.Index = 5 Then '二纬条形图
MSChart1.ChartType = VtChChartType2dBar
End If
If Button.Index = 6 Then '三纬折线
MSChart1.ChartType = VtChChartType3dLine
End If
If Button.Index = 7 Then '三纬柱状
MSChart1.ChartType = VtChChartType3dBar
End If

End Sub

Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
  If x >= 0 And x <= 330 Then
    actionflag = "expright"
    Timer1.Enabled = True
    Timer1.Interval = 100
  End If
  If x >= 345 And x <= 660 Then
    actionflag = "expleft"
    Timer1.Enabled = True
    Timer1.Interval = 100
  End If
End If
End Sub

Private Sub Toolbar1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
  If x >= 0 And x <= 330 Then
    Timer1.Enabled = False
  End If
  If x >= 345 And x <= 660 Then
    Timer1.Enabled = False
  End If
End If
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

If Button.Index = 1 Then
   
    actionflag = "rright"
    Timer1.Enabled = True
    Timer1.Interval = 500
End If

If Button.Index = 3 Then

  actionflag = "rleft"
  Timer1.Enabled = True
  Timer1.Interval = 500
End If
  
If Button.Index = 5 Then
 
  actionflag = "turnh"
  Timer1.Enabled = True
  Timer1.Interval = 100
End If
  
If Button.Index = 6 Then
 
  actionflag = "turnb"
  Timer1.Enabled = True
  Timer1.Interval = 100
End If
  
If Button.Index = 8 Then
  
  actionflag = "loogen"
  Timer1.Enabled = True
  Timer1.Interval = 100
End If
  
If Button.Index = 9 Then
  
  actionflag = "shorten"
  Timer1.Enabled = True
  Timer1.Interval = 100
End If

End Sub

Private Sub Toolbar2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
   If x >= 0 And x <= 330 Then
    mousestate = False
    actionflag = "rright"
    Timer1.Enabled = True
    Timer1.Interval = 500
  End If
  If x >= 690 And x <= 1020 Then
    mousestate = False
    actionflag = "rleft"
    Timer1.Enabled = True
    Timer1.Interval = 500
  End If
  If x >= 1170 And x <= 1485 Then
    actionflag = "turnh"
    mousestate = False
    Timer1.Enabled = True
    Timer1.Interval = 100
  End If
  If x >= 1490 And x <= 1830 Then
    actionflag = "turnb"
    mousestate = False
    Timer1.Enabled = True
    Timer1.Interval = 100
  End If
  If x >= 1965 And x <= 2295 Then
    actionflag = "loogen"
    mousestate = False
    Timer1.Enabled = True
    Timer1.Interval = 100
  End If
  If x >= 2310 And x <= 2640 Then
    actionflag = "shorten"
    mousestate = False
    Timer1.Enabled = True
    Timer1.Interval = 100
  End If
End If
End Sub

Private Sub Toolbar2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
  If x >= 0 And x <= 330 Then
    mousestate = True
    Timer1.Enabled = False
  End If
  If x >= 690 And x <= 1020 Then
    mousestate = True
    Timer1.Enabled = False
  End If
  If x >= 1170 And x <= 1485 Then
    mousestate = True
    Timer1.Enabled = False
  End If
  If x >= 1490 And x <= 1830 Then
    mousestate = True
    Timer1.Enabled = False
  End If
  If x >= 1965 And x <= 2295 Then
    mousestate = True
    Timer1.Enabled = False
  End If
  If x >= 2310 And x <= 2640 Then
    mousestate = True
    Timer1.Enabled = False
  End If
End If
End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
  actionflag = "rup"
  Timer1.Enabled = True
  Timer1.Interval = 250
End If
End Sub

Private Sub Toolbar3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
   If x >= 0 And x <= 330 Then
    mousestate = False
    actionflag = "rup"
    Timer1.Enabled = True
    Timer1.Interval = 250
   End If
End If
End Sub

Private Sub Toolbar3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
   If x >= 0 And x <= 330 Then
    mousestate = True
    Timer1.Enabled = False
   End If
End If
End Sub

Private Sub Toolbar4_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
  actionflag = "rdown"
  Timer1.Enabled = True
  Timer1.Interval = 250
End If
End Sub

Private Sub Toolbar4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
   If x >= 0 And x <= 330 Then
    mousestate = False
    actionflag = "rdown"
    Timer1.Enabled = True
    Timer1.Interval = 250
   End If
End If
End Sub

Private Sub Toolbar4_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
  If x >= 1 And x <= 330 Then
  mousestate = True
  Timer1.Enabled = False
  End If
End If
End Sub