企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{008BBE7B-C096-11D0-B4E3-00A0C901D681}#1.0#0"; "teechart.ocx"
Begin VB.Form XT_TxfxFrm 
   Caption         =   "图形分析"
   ClientHeight    =   7590
   ClientLeft      =   2385
   ClientTop       =   615
   ClientWidth     =   11280
   Icon            =   "系统_图形分析窗体.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7590
   ScaleWidth      =   11280
   Begin TeeChart.TChart Txfxchart 
      Height          =   6540
      Left            =   450
      OleObjectBlob   =   "系统_图形分析窗体.frx":038A
      TabIndex        =   4
      Top             =   600
      Width           =   10740
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   2010
      TabIndex        =   3
      Top             =   930
      Width           =   1065
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   405
      Left            =   0
      TabIndex        =   1
      Top             =   7185
      Width           =   11280
      _ExtentX        =   19897
      _ExtentY        =   714
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   19368
            Text            =   "3D效果"
            TextSave        =   "3D效果"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar2 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   11280
      _ExtentX        =   19897
      _ExtentY        =   979
      ButtonWidth     =   820
      ButtonHeight    =   926
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList2"
      DisabledImageList=   "ImageList2"
      HotImageList    =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   7
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "dy"
            ImageKey        =   "dy"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "3D"
            Key             =   "lt"
            ImageKey        =   "3d"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "项目"
            Key             =   "item"
            ImageKey        =   "item"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "tc"
            ImageKey        =   "fh"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin MSComctlLib.ImageList ImageList2 
         Left            =   6210
         Top             =   -30
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   11
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":043C
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":07D6
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":0B70
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":0F0A
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":12A4
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":163E
               Key             =   ""
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":19D8
               Key             =   "3d"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":1D72
               Key             =   "dy"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":210C
               Key             =   "bz"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":24A6
               Key             =   "fh"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "系统_图形分析窗体.frx":2840
               Key             =   "item"
            EndProperty
         EndProperty
      End
      Begin MSComDlg.CommonDialog CommonDialog1 
         Left            =   6930
         Top             =   30
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   3  'Align Left
      Height          =   6630
      Left            =   0
      TabIndex        =   0
      Top             =   555
      Width           =   420
      _ExtentX        =   741
      _ExtentY        =   11695
      ButtonWidth     =   1138
      ButtonHeight    =   582
      Appearance      =   1
      TextAlignment   =   1
      ImageList       =   "ImageList2"
      DisabledImageList=   "ImageList2"
      HotImageList    =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   7
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "area"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "bar"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "line"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "pie"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "horzbar"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "hilo"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "gantt"
            Style           =   3
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "XT_TxfxFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Tx3d As Boolean                   '图形3D设置
Dim Dqtxlx As String                  '当前分析图类型
Public bbGrid As Object
Public Txcode As String
Private Sub Command1_Click()
    
    With Txfxchart.Aspect
        If .View3D = True Then
            .Zoom = 100
            .Rotation = 345
            .Elevation = 345
            .HorizOffset = 0
            .VertOffset = 0
            .Perspective = 15
            .Orthogonal = True
            .Chart3DPercent = 15
        End If
    End With
End Sub
Private Sub Form_Load()
    
    TeeCommander1.Chart = Txfxchart
    Tx3d = False
    Dqtxlx = "bar"
    StatusBar1.Panels(1).Text = "二维效果"
  
End Sub
Private Sub Form_Resize()
On Error Resume Next
Txfxchart.Width = Me.Width - Txfxchart.Left - 100
Txfxchart.Height = Me.Height - Txfxchart.Top - 400 - StatusBar1.Height
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload XT_TxItem
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)           '选择分析图类型
   
    Call Xzsctxlx(Button.Key)
    Dqtxlx = Button.Key
End Sub
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)           '菜 单 选 项
    Select Case Button.Key
        Case "lt"                               '视觉效果
            If Tx3d Then
                Tx3d = False
                Txfxchart.Aspect.View3D = False
                Button.Caption = "3D"
                StatusBar1.Panels(1).Text = "二维效果"
            Else
                Tx3d = True
                Button.Caption = "2D"
                Txfxchart.Aspect.View3D = True
                StatusBar1.Panels(1).Text = "三维效果"
            End If
        Case "dy"                                    '打 印
            With Txfxchart
                
            On Error GoTo Cwcl2:
               
               .Printer.ShowPreview
            
            End With
Cwcl2:
            Exit Sub
        Case "item"
            Call Txfxbb(bbGrid, Txcode)
        Case "tc"
            Unload Me
    End Select
End Sub
Private Sub Xzsctxlx(Txlx As String)                           '选择分析图类型
    
    Dim i As Integer
    With Txfxchart
            Select Case Txlx
                Case "area"
                    For i = 0 To .SeriesCount - 1
                        .ChangeSeriesType i, scArea
                    Next i
                Case "bar"
                    For i = 0 To .SeriesCount - 1
                        .ChangeSeriesType i, scBar
                    Next i
                Case "line"
                    For i = 0 To .SeriesCount - 1
                        .ChangeSeriesType i, scLine
                    Next i
                Case "step"
                    'For i = 0 To .SeriesCount - 1
                        '.ChangeSeriesType i, scShape
                    'Next i
                Case "combination"
                    'For i = 0 To .SeriesCount - 1
                    '   .ChangeSeriesType i, scContour
                    'Next i
                Case "pie"
                    For i = 0 To .SeriesCount - 1
                        .ChangeSeriesType i, scPie
                    Next i
                Case "horzbar"
                    For i = 0 To .SeriesCount - 1
                        .ChangeSeriesType i, scHorizBar
                    Next i
                Case "hilo"
                    For i = 0 To .SeriesCount - 1
                        .ChangeSeriesType i, scPoint
                    Next i
                Case "gantt"
                    For i = 0 To .SeriesCount - 1
                        .ChangeSeriesType i, scFastLine
                    Next i
            End Select
    End With
End Sub
Private Sub Txfxchart_OnSeriesBeforeDrawValues(ByVal SeriesIndex As Long)
    
    With Txfxchart
        If .Series(SeriesIndex).SeriesType = scPie Then
            Select Case SeriesIndex
                Case 0: .ChartRect 0, 0, .Canvas.Width * 6 / 16, .Canvas.Height / 2
                Case 1: .ChartRect .Canvas.Width * 5 / 16, 0, .Canvas.Width * 11 / 16, .Canvas.Height / 2
                Case 2: .ChartRect 0, .Canvas.Height / 2, .Canvas.Width * 6 / 16, .Canvas.Height
                Case 3: .ChartRect .Canvas.Width * 5 / 16, .Canvas.Height / 2, .Canvas.Width * 11 / 16, .Canvas.Height
                Case 4: .ChartRect .Canvas.Width * 9 / 16, .Canvas.Height / 5, .Canvas.Width, .Canvas.Height * 4 / 5
            End Select
        End If
    End With
End Sub

						