English
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：18k
源码类别：
企业管理
开发平台：
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 = 1890
- ClientTop = 1245
- ClientWidth = 10875
- Icon = "系统_图形分析窗体.frx":0000
- LinkTopic = "Form1"
- ScaleHeight = 7590
- ScaleWidth = 10875
- Begin TeeChart.TChart Txfxchart
- Height = 6540
- Left = 450
- OleObjectBlob = "系统_图形分析窗体.frx":1042
- TabIndex = 6
- Top = 600
- Width = 10365
- End
- Begin VB.CommandButton Command1
- Caption = "Command1"
- Height = 495
- Left = 2010
- TabIndex = 4
- Top = 930
- Width = 1065
- End
- Begin MSComctlLib.StatusBar StatusBar1
- Align = 2 'Align Bottom
- Height = 405
- Left = 0
- TabIndex = 1
- Top = 7185
- Width = 10875
- _ExtentX = 19182
- _ExtentY = 714
- _Version = 393216
- BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
- NumPanels = 2
- BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- AutoSize = 1
- Object.Width = 9313
- Text = "图形类型:直方图"
- TextSave = "图形类型:直方图"
- EndProperty
- BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- AutoSize = 1
- Object.Width = 9313
- Text = "3D效果"
- TextSave = "3D效果"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList ImageList1
- Left = 8880
- Top = 30
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 20
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":10F4
- Key = "area"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":35D8
- Key = "bar"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":5A08
- Key = "line"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":7E38
- Key = "step"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":A19C
- Key = "combination"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":C500
- Key = "pie"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":E9C4
- Key = "horzbar"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":10D28
- Key = "hilo"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":132DC
- Key = "gantt"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":15658
- Key = "bubble"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":17A70
- Key = "contour"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":199B4
- Key = "xy"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":1BB18
- Key = "polar"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":1D9AC
- Key = "radar"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":1F840
- Key = "lt"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":1FC98
- Key = "bz"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":1FDAC
- Key = "dyj1"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":20428
- Key = "dy"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":20548
- Key = "tc"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "系统_图形分析窗体.frx":2086C
- Key = "bj"
- EndProperty
- EndProperty
- 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 = "ImageList1"
- DisabledImageList= "ImageList1"
- HotImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 17
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "area"
- ImageKey = "area"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "bar"
- ImageKey = "bar"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "line"
- ImageKey = "line"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "step"
- ImageKey = "step"
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "combination"
- ImageKey = "combination"
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "pie"
- ImageKey = "pie"
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "horzbar"
- ImageKey = "horzbar"
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "hilo"
- ImageKey = "hilo"
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "gantt"
- ImageKey = "gantt"
- EndProperty
- BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "bubble"
- ImageKey = "bubble"
- EndProperty
- BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "contour"
- ImageKey = "contour"
- EndProperty
- BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "xy"
- ImageKey = "xy"
- EndProperty
- BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "polar"
- ImageKey = "polar"
- EndProperty
- BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "radar"
- ImageKey = "radar"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.Toolbar Toolbar2
- Align = 1 'Align Top
- Height = 555
- Left = 0
- TabIndex = 2
- Top = 0
- Width = 10875
- _ExtentX = 19182
- _ExtentY = 979
- ButtonWidth = 1138
- ButtonHeight = 926
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 6
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "3D效果"
- Key = "lt"
- ImageKey = "lt"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "dy"
- ImageKey = "dy"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageKey = "bz"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "tc"
- ImageKey = "tc"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComDlg.CommonDialog CommonDialog1
- Left = 8310
- Top = 90
- _ExtentX = 847
- _ExtentY = 847
- _Version = 393216
- End
- 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 '当前分析图类型
- 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 Command2_Click()
- End Sub
- Private Sub Form_Load()
- TeeCommander1.Chart = Txfxchart
- Tx3d = False
- Dqtxlx = "bar"
- 'Call Xzsctxlx(Dqtxlx)
- StatusBar1.Panels(1).Text = "图形类型：" + Dqtxlx
- StatusBar1.Panels(2).Text = "二维效果"
- 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(2).Text = "二维效果"
- With Toolbar1.Buttons
- .Item("bubble").Enabled = True
- .Item("contour").Enabled = True
- .Item("xy").Enabled = True
- .Item("polar").Enabled = True
- .Item("radar").Enabled = True
- End With
- Else
- Tx3d = True
- Button.Caption = "2D效果"
- Txfxchart.Aspect.View3D = True
- StatusBar1.Panels(2).Text = "三维效果"
- With Toolbar1.Buttons
- .Item("bubble").Enabled = False
- .Item("contour").Enabled = False
- .Item("xy").Enabled = False
- .Item("polar").Enabled = False
- .Item("radar").Enabled = False
- End With
- End If
- ' Call Xzsctxlx(Dqtxlx)
- Case "dy" '打 印
- With Txfxchart
- CommonDialog1.CancelError = True
- On Error GoTo Cwcl2:
- CommonDialog1.ShowPrinter
- .PrintInformation.Orientation = VtPrintOrientationLandscape '横向打印
- .PrintInformation.PrintCopies (CommonDialog1.Copies)
- End With
- Cwcl2:
- Exit Sub
- Case "tc"
- Unload Me
- End Select
- End Sub
- Private Sub Xzsctxlx(Txlx As String) '选择分析图类型
- Dim i As Integer
- With Txfxchart
- 'If Not Tx3d Then
- 'Select Case Txlx
- 'Case "area"
- '.charttype = VtChChartType2dArea
- 'Case "bar"
- '.charttype = VtChChartType2dBar
- 'Case "line"
- '.charttype = VtChChartType2dLine
- 'Case "step"
- '.charttype = VtChChartType2dStep
- 'Case "combination"
- '.charttype = VtChChartType2dCombination
- 'Case "pie"
- '.charttype = VtChChartType2dPie
- 'Case "horzbar"
- '.charttype = VtChChartType2dHorizontalBar
- 'Case "hilo"
- '.charttype = VtChChartType2dHiLo
- 'Case "gantt"
- '.charttype = VtChChartType2dGantt
- 'Case "bubble"
- '.charttype = VtChChartType2dBubble
- 'Case "contour"
- '.charttype = VtChChartType2dContour
- 'Case "xy"
- '.charttype = VtChChartType2dXY
- 'Case "polar"
- '.charttype = VtChChartType2dPolar
- 'Case "radar"
- '.charttype = VtChChartType2dRadar
- 'End Select
- 'Else
- 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 If
- 'StatusBar1.Panels(1).Text = "图形类型：" + Dqtxlx
- 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
