frmchart.frm

VB示例源码 VB source code,very important.good,download VB source code,very important.good,download

VERSION 5.00
Object = "{65E121D4-0C60-11d2-A9FC-0000F8754DA1}#1.1#0"; "MSCHART.OCX"
Begin VB.Form frmChart 
   Caption         =   "收入图表"
   ClientHeight    =   5055
   ClientLeft      =   1665
   ClientTop       =   4425
   ClientWidth     =   8160
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5055
   ScaleWidth      =   8160
   WhatsThisHelp   =   -1  'True
   Begin MSChart20Lib.MSChart grfRevenue 
      Height          =   4935
      Left            =   1080
      OleObjectBlob   =   "frmchart.frx":0000
      TabIndex        =   1
      Top             =   120
      Width           =   5415
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭(&C)"
      Default         =   -1  'True
      Height          =   420
      Left            =   6840
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmChart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
  Unload Me

End Sub

Private Sub Form_Load()
  
  SetGraphData
  
End Sub
Sub SetGraphData()
  Dim strGraphData As String
  Dim vGraphData As Variant
  Dim strSrchString As String * 1
  Dim lStart As Long
  Dim lEnd As Long
  Dim lstrLen As Long
  Dim i As Integer
  Dim j As Integer

  On Error GoTo SetGraphDataError
  Screen.MousePointer = vbHourglass

  ' 请求商务规则的结果。
  frmRevenue.sbrRev.Panels(1).Text = "从 Bobsvr 检索图表数据..."
  vGraphData = gobjServer.GetRevenue(CInt(Val(frmRevenue.frmSalesModel.Tag)), _
                                                                CCur(Val(frmRevenue.txtRevParm(0).Tag)), _
                                                                CCur(frmRevenue.txtRevParm(1).Text), _
                                                                CInt(frmRevenue.txtRevParm(2).Text), _
                                                                CLng(frmRevenue.txtRevParm(3).Text), _
                                                                CBool(frmRevenue.chkDiscount.Value), _
                                                                frmRevenue.cboBooks.Text)
 
  ' 检查是否服务器返回 0 (发生错误)
  If Not IsArray(vGraphData) Then
      MsgBox "服务器发生错误。客户端不能正确地工作。应用程序将终止!", vbExclamation, "图书销售客户端错误"
      End
  End If

  grfRevenue.RowCount = Val(frmRevenue.txtRevParm(2).Text)
  grfRevenue.ColumnCount = 2
  grfRevenue.AutoIncrement = True
  
  goStatusPanel.Text = "透视图表数据..."
  
  For j = 0 To UBound(vGraphData, 2)
    For i = 0 To UBound(vGraphData, 1)
      grfRevenue.Row = i + 1
      grfRevenue.RowLabel = CStr(i + 1)
      grfRevenue.Column = j + 1
      grfRevenue.Data = vGraphData(i, j)
    Next i
  Next j
 
  Screen.MousePointer = vbDefault
  Exit Sub

SetGraphDataError:
  Screen.MousePointer = vbDefault
  MsgBox Error$ & " - " & Str$(Err), vbExclamation, "设置图表数据错误"
  Exit Sub

End Sub