English
++
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：53k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "VSLIGHT6.OCX"
- Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
- Begin VB.Form Khgl_Analyze
- Caption = "考核结果分析"
- ClientHeight = 8595
- ClientLeft = 315
- ClientTop = 390
- ClientWidth = 11820
- HelpContextID = 2314001
- Icon = "考核结果分析.frx":0000
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- MDIChild = -1 'True
- ScaleHeight = 8595
- ScaleWidth = 11820
- WindowState = 2 'Maximized
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 540
- Left = 10110
- TabIndex = 3
- Top = 30
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 953
- ButtonWidth = 1455
- ButtonHeight = 953
- Appearance = 1
- Style = 1
- ImageList = "ImageList2"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 2
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "保存格式"
- Key = "bcgs"
- ImageKey = "bcgs"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "默认列宽"
- Key = "hfmrgs"
- ImageKey = "mrlk"
- EndProperty
- EndProperty
- End
- Begin VB.PictureBox Pic_Title
- BackColor = &H00FFFFFF&
- Height = 825
- Left = 0
- Picture = "考核结果分析.frx":1042
- ScaleHeight = 765
- ScaleWidth = 11715
- TabIndex = 1
- Top = 570
- Width = 11775
- Begin VB.Label Lab_Title
- BackColor = &H80000018&
- BackStyle = 0 'Transparent
- Caption = "考核类别:"
- ForeColor = &H00000000&
- Height = 240
- Index = 0
- Left = 300
- TabIndex = 2
- Top = 240
- Width = 4065
- End
- End
- Begin VB.Timer Timer1
- Enabled = 0 'False
- Interval = 1
- Left = 7620
- Top = 90
- End
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
- Height = 7545
- Left = 30
- TabIndex = 0
- Top = 1470
- Width = 11775
- _ExtentX = 20770
- _ExtentY = 13309
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- BackColor = 16777215
- ForeColor = -2147483640
- BackColorFixed = 13826538
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= 16777215
- GridColor = -2147483633
- GridColorFixed = -2147483632
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 0
- SelectionMode = 0
- GridLines = 1
- GridLinesFixed = 2
- GridLineWidth = 1
- Rows = 50
- Cols = 10
- FixedRows = 1
- FixedCols = 1
- RowHeightMin = 0
- RowHeightMax = 0
- ColWidthMin = 0
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 0
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- MultiTotals = -1 'True
- SubtotalPosition= 1
- OutlineBar = 0
- OutlineCol = 0
- Ellipsis = 0
- ExplorerBar = 0
- PicturesOver = 0 'False
- FillStyle = 0
- RightToLeft = 0 'False
- PictureType = 0
- TabBehavior = 0
- OwnerDraw = 0
- Editable = 0 'False
- ShowComboButton = -1 'True
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- Begin MSComctlLib.ImageList ImageList2
- Left = 0
- Top = 0
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 40
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":1FAC4
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":1FE5E
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":201F8
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":20592
- Key = "xg"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2092C
- Key = "zh"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":20CC6
- Key = "sh"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":21060
- Key = "bc"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":213FA
- Key = "fq"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":21794
- Key = "bz"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":21B2E
- Key = "tc"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":21EC8
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":22262
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":225FC
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":22996
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":22D30
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":230CA
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":23464
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":237FE
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":23B98
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":23F32
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":242CC
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":24666
- Key = "sc"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":24A00
- Key = "sx"
- EndProperty
- BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":24D9A
- Key = "cx"
- EndProperty
- BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":25134
- Key = "zd"
- EndProperty
- BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":254CE
- Key = "dz"
- EndProperty
- BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":25868
- Key = "ph"
- EndProperty
- BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":25C02
- Key = "fz"
- EndProperty
- BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":25F9C
- Key = "dw"
- EndProperty
- BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":26336
- Key = "hf"
- EndProperty
- BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":266D0
- Key = "pz"
- EndProperty
- BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":26A6A
- Key = "check"
- EndProperty
- BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":26E04
- Key = "qs"
- EndProperty
- BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2719E
- Key = "fullcheck"
- EndProperty
- BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":27538
- Key = "qq"
- EndProperty
- BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":278D2
- Key = "bcw"
- EndProperty
- BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":27C6C
- Key = "ye"
- EndProperty
- BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":28006
- Key = ""
- EndProperty
- BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":283A0
- Key = "frist"
- EndProperty
- BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2873A
- Key = "dj"
- EndProperty
- EndProperty
- End
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid_dc
- Height = 1245
- Left = 5220
- TabIndex = 5
- Top = 1680
- Visible = 0 'False
- Width = 1875
- _ExtentX = 3307
- _ExtentY = 2196
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- BackColor = -2147483643
- ForeColor = -2147483640
- BackColorFixed = -2147483633
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= -2147483643
- GridColor = -2147483633
- GridColorFixed = -2147483632
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 0
- SelectionMode = 0
- GridLines = 1
- GridLinesFixed = 2
- GridLineWidth = 1
- Rows = 0
- Cols = 0
- FixedRows = 0
- FixedCols = 0
- RowHeightMin = 0
- RowHeightMax = 0
- ColWidthMin = 0
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 0
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- MultiTotals = -1 'True
- SubtotalPosition= 1
- OutlineBar = 0
- OutlineCol = 0
- Ellipsis = 0
- ExplorerBar = 0
- PicturesOver = 0 'False
- FillStyle = 0
- RightToLeft = 0 'False
- PictureType = 0
- TabBehavior = 0
- OwnerDraw = 0
- Editable = 0 'False
- ShowComboButton = -1 'True
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- End
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid_xg
- Height = 1095
- Left = 2940
- TabIndex = 6
- Top = 1650
- Visible = 0 'False
- Width = 1905
- _ExtentX = 3360
- _ExtentY = 1931
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- BackColor = -2147483643
- ForeColor = -2147483640
- BackColorFixed = -2147483633
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= -2147483643
- GridColor = -2147483633
- GridColorFixed = -2147483632
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 0
- SelectionMode = 0
- GridLines = 1
- GridLinesFixed = 2
- GridLineWidth = 1
- Rows = 0
- Cols = 0
- FixedRows = 0
- FixedCols = 0
- RowHeightMin = 0
- RowHeightMax = 0
- ColWidthMin = 0
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 0
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- MultiTotals = -1 'True
- SubtotalPosition= 1
- OutlineBar = 0
- OutlineCol = 0
- Ellipsis = 0
- ExplorerBar = 0
- PicturesOver = 0 'False
- FillStyle = 0
- RightToLeft = 0 'False
- PictureType = 0
- TabBehavior = 0
- OwnerDraw = 0
- Editable = 0 'False
- ShowComboButton = -1 'True
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- End
- End
- Begin MSComctlLib.Toolbar SzToolbar
- Align = 1 'Align Top
- Height = 570
- Left = 0
- TabIndex = 4
- Top = 0
- Width = 11820
- _ExtentX = 20849
- _ExtentY = 1005
- ButtonWidth = 820
- ButtonHeight = 953
- AllowCustomize = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 12
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "设置"
- Key = "ymsz"
- ImageKey = "sz"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "dy"
- ImageKey = "dy"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "预览"
- Key = "yl"
- ImageKey = "yl"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "查询"
- Key = "cx"
- ImageKey = "cx"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "总体"
- Key = "Tzt"
- ImageKey = "Tzt"
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "相关"
- Key = "Txg"
- ImageKey = "Txg"
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "档次"
- Key = "Tdc"
- ImageKey = "Tdc"
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageKey = "bz"
- EndProperty
- BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "fh"
- ImageKey = "tc"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComctlLib.ImageList ImageList1
- Left = 6990
- Top = 30
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 35
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":28AD4
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":28E6E
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":29208
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":295A2
- Key = "xg"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2993C
- Key = "zh"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":29CD6
- Key = "sh"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2A070
- Key = "bc"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2A40A
- Key = "fq"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2A7A4
- Key = "bz"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2AB3E
- Key = "tc"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2AED8
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2B272
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2B60C
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2B9A6
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2BD40
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2C0DA
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2C474
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2C80E
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2CBA8
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2CF42
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2D2DC
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2D676
- Key = "sc"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2DA10
- Key = "sx"
- EndProperty
- BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2DDAA
- Key = "cx"
- EndProperty
- BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2E144
- Key = "zd"
- EndProperty
- BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2E4DE
- Key = "dz"
- EndProperty
- BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2E878
- Key = "ph"
- EndProperty
- BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2EC12
- Key = "fz"
- EndProperty
- BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2EFAC
- Key = "dw"
- EndProperty
- BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2F346
- Key = "hf"
- EndProperty
- BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2F6E0
- Key = "pz"
- EndProperty
- BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2FA7A
- Key = "check"
- EndProperty
- BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":2FE14
- Key = "Txg"
- EndProperty
- BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":301AE
- Key = "Tzt"
- EndProperty
- BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "考核结果分析.frx":30548
- Key = "Tdc"
- EndProperty
- EndProperty
- End
- End
- End
- Attribute VB_Name = "Khgl_Analyze"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '**************************************************************************
- '* 模 块 名 称 :考核结果分析
- '* 功 能 描 述 :
- '* 程序员姓名 :张洪军
- '* 最后修改人 :张洪军
- '* 最后修改时间:2001/12/25
- '* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
- '**************************************************************************
- Dim int_Check(5) As Integer '最小值、最大值、平均值、合计值是否选中
- Dim ReportTitle As String '报表主标题
- Dim str_TitleCode As String '考核类别编码
- Dim str_titleRoot As String '考核类别根结点编码
- Dim Str_QueryCondi As String '用户录入查询条件
- Dim Rec_BillID As New ADODB.Recordset '用户查询单据ID动态集
- Dim str_format As String '显示格式
- '以下为固定使用变量
- Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
- Dim GridCode As String '显示网格网格代码
- Dim GridInf() As Variant '整个网格设置信息
- Dim Tsxx As String '系统提示信息
- Dim Qslz As Long '网格隐藏(非操作显示)列数
- Dim Sjhgd As Double '网格数据行高度
- Dim Sfxshjwg As Boolean '是否显示合计网格
- Dim GridBoolean() As Boolean '网格列信息(布尔型)
- Dim GridStr() As String '网格列信息(字符型)
- Dim GridInt() As Integer '网格列信息(整型)
- Dim Szzls As Integer '数组总列数(网格列数-1)
- Private Sub Form_Resize() '根据窗体大小来调整网格,标题栏大小(Fixed)
- On Error Resume Next
- With CxbbGrid
- .Width = Me.Width - 160
- .Height = Me.Height - .Top - 400
- End With
- With Pic_Title
- .Width = Me.Width - 160
- End With
- GsToolbar.Left = Me.Width - GsToolbar.Width - 140
- End Sub
- Private Sub Form_Load() '窗体装入
- str_format = "########"
- '调入打印页面设置窗体
- ReportTitle = "考核结果分析"
- XtReportCode = "Khgl_Analyze"
- Load Dyymctbl
- '调整标题栏及网格、格式工具条位置(Fixed)
- Pic_Title.Left = 40
- Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
- CxbbGrid.Left = Pic_Title.Left
- CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
- '调 入 网 格(Fixed)
- GridCode = "Khgl_Analyze"
- Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- End Sub
- Private Sub Form_Unload(Cancel As Integer) '窗体卸载
- '卸载条件窗体
- Khgl_AnalyzeQuery.UnloadCheck.Value = 1
- Unload Khgl_AnalyzeQuery
- '卸载打印页面设置窗体
- Unload Dyymctbl
- End Sub
- Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long) '网格列发生移动时自动交换网格索引信息
- Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '网格格式调整(Fixed)
- Select Case Button.Key
- Case "bcgs" '保存表格格式
- Call Bcwggs(CxbbGrid, GridCode, GridStr())
- Case "hfmrgs" '恢复默认格式
- Call Hfmrgs(CxbbGrid, GridCode, GridStr())
- 'Case "szxsxm" '设置显示项目
- 'Call Szxsxm(CxbbGrid, GridCode)
- End Select
- End Sub
- Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case Button.Key
- Case "ymsz" '页面设置
- Dyymctbl.Show 1
- Case "yl" '预 览
- Call bbyl(True)
- Case "dy" '打 印
- Call bbyl(False)
- Case "cx" '查 询
- Khgl_AnalyzeQuery.Show 1
- Case "Tzt" '总体图形
- Call Txfxbb(CxbbGrid, "Khgl_Analyze")
- Case "Txg" '相关图形
- '相关图形分析数据准备
- Call Txg
- Case "Tdc" '档次图形
- '档次图形分析数据准备
- Call Tdc
- Case "bz" '帮 助
- Call F1bz
- Case "fh" '退 出
- Unload Me
- End Select
- End Sub
- Private Sub Timer1_Timer() '在窗体激活后调入查询程序
- Timer1.Enabled = False
- Xt_Wait.Show
- Xt_Wait.Refresh
- '加快显示速度
- CxbbGrid.Redraw = False
- '生成查询结果
- Call Sub_Query
- CxbbGrid.Redraw = True
- Xt_Wait.Hide
- End Sub
- Private Sub Sub_Query() '生成查询结果(Define)
- Dim Rec_Query As New ADODB.Recordset '查询结果动态集
- Dim Coljsq As Long '网格列计数器
- Dim Jsqte As Long '临时动态计数器
- Dim RecRY_Query As New ADODB.Recordset '人员查询结果动态集
- Dim Sqlstr As String '查询字符串
- Dim int_row As Integer '临时动态计数器,实际网格行
- Dim CheckFactor() As New CCheckFactor '考核指标、考核要素、指标权重、要素权重、考核得分
- Dim dbl_total() As Double '考核类别根结点编码
- '以下为自定义部分[
- CxbbGrid.MergeCells = flexMergeFixedOnly '合并单元形式
- With Khgl_AnalyzeQuery
- '生成查询条件
- Str_QueryCondi = " "
- For Jsqte = 1 To 5
- Select Case Jsqte
- Case 1 '考核类别
- str_TitleCode = GetComboKey(.Imgcbo_Title, 0)
- Lab_Title(0).Caption = "考核类别:" + GetComboKey(.Imgcbo_Title, 1)
- Call ShowFormat
- Str_QueryCondi = Str_QueryCondi & " And Kh_Object.TitleCode = '" & str_TitleCode & "'"
- Case 2 '部门
- If Trim(.LrText(0).Text) <> "" Then
- Str_QueryCondi = Str_QueryCondi & " And Rs_BasicInfo.DeptCode like '" & Trim(.LrText(0).Tag) & "%'"
- End If
- Case 3 '被考核对象
- If Trim(.LrText(1).Text) <> "" Then
- Str_QueryCondi = Str_QueryCondi & " And Kh_Object.EmpID = " & Val(Trim(.LrText(1).Tag))
- End If
- End Select
- Next Jsqte
- End With
- '填 充 网 格 标 题
- CxbbGrid.Cols = Sydz("001", GridStr(), Szzls) + 3
- CxbbGrid.TextMatrix(0, Sydz("001", GridStr(), Szzls)) = "ID号"
- CxbbGrid.TextMatrix(0, Sydz("002", GridStr(), Szzls)) = "工号"
- CxbbGrid.TextMatrix(0, Sydz("003", GridStr(), Szzls)) = "姓名"
- CxbbGrid.TextMatrix(1, Sydz("001", GridStr(), Szzls)) = "ID号"
- CxbbGrid.TextMatrix(1, Sydz("002", GridStr(), Szzls)) = "工号"
- CxbbGrid.TextMatrix(1, Sydz("003", GridStr(), Szzls)) = "姓名"
- '取考核类别编码方案
- Sqlstr = "select * from Gy_CodeScheme where ItemCode='" & Trim("Khgl_Title") & "'"
- Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- '取考核类别编码的根结点编码
- str_titleRoot = Mid(str_TitleCode, 1, Mid(Rec_Query.Fields("CodeScheme"), 1, 1))
- Rec_Query.Close
- ReDim CheckFactor(2)
- '本张单据查询字符串,填充考核要素编码、考核指标、考核要素名称
- Sqlstr = " SELECT FactorCode,FactorName,CheckName " & _
- " FROM Kh_v_ValMark where TitleCode='" & str_titleRoot & "'" & _
- " Order By ValMarkID"
- Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- With CxbbGrid
- .Cols = .FixedCols + Rec_Query.RecordCount
- ReDim dbl_total(4, .FixedCols + Rec_Query.RecordCount)
- For Jsqte = .FixedCols To .Cols - 1
- ReDim Preserve CheckFactor(UBound(CheckFactor) + 1)
- CheckFactor(Jsqte).FactorCode = Trim("" & Rec_Query!FactorCode)
- CheckFactor(Jsqte).FactorValues = 0
- dbl_total(1, Jsqte) = 999999.9999 '最小值
- dbl_total(2, Jsqte) = 0 '最小值
- dbl_total(3, Jsqte) = 0 '合计值
- dbl_total(4, Jsqte) = 0 '人数
- .TextMatrix(0, Jsqte) = Trim("" & Rec_Query!CheckName)
- .TextMatrix(1, Jsqte) = Trim("" & Rec_Query!FactorName)
- .ColWidth(Jsqte) = 1000
- .ColAlignment(Jsqte) = flexAlignRightCenter
- Rec_Query.MoveNext
- Next Jsqte
- End With
- CxbbGrid.Cols = CxbbGrid.Cols + 3
- For Jsqte = 0 To 1
- CxbbGrid.TextMatrix(Jsqte, CxbbGrid.Cols - 3) = "有效票数"
- CxbbGrid.TextMatrix(Jsqte, CxbbGrid.Cols - 2) = "合 计"
- CxbbGrid.TextMatrix(Jsqte, CxbbGrid.Cols - 1) = "考核结果"
- CxbbGrid.MergeCol(CxbbGrid.Cols - 3) = True
- CxbbGrid.MergeCol(CxbbGrid.Cols - 2) = True
- CxbbGrid.MergeCol(CxbbGrid.Cols - 1) = True
- Next Jsqte
- For Jsqte = 0 To CxbbGrid.Cols - 1
- CxbbGrid.FixedAlignment(Jsqte) = 4 '列标题居中
- Next Jsqte
- '查询人员信息
- Sqlstr = " SELECT Kh_Object.EmpID , Rs_BasicInfo.EmpNo , Rs_BasicInfo.EmpName ," & _
- " Kh_Object.ObjectTotal , Kh_Object.ObjectBallot , Kh_Object.ObjectResult " & _
- " From Kh_Object left outer join Rs_BasicInfo" & _
- " on Kh_Object.EmpID = Rs_BasicInfo.EmpID " & " where 1=1 " & Str_QueryCondi & _
- " order by Kh_Object.EmpID"
- Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- With Rec_Query
- CxbbGrid.Rows = CxbbGrid.FixedRows + .RecordCount
- For int_row = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
- CxbbGrid.TextMatrix(int_row, Sydz("001", GridStr(), Szzls)) = Trim("" & !EmpID) '人员ID号
- CxbbGrid.TextMatrix(int_row, Sydz("002", GridStr(), Szzls)) = Trim("" & !EmpNo) '工号
- CxbbGrid.TextMatrix(int_row, Sydz("003", GridStr(), Szzls)) = Trim("" & !EmpName) '姓名
- CxbbGrid.RowHeight(int_row) = Sjhgd
- For Jsqte = CxbbGrid.FixedCols To CxbbGrid.Cols - 1 - 3
- '读取考核要素分值
- Sqlstr = " SELECT ObjectTotal From Kh_BaseTotal " & _
- " Where TitleCode='" & str_TitleCode & "'" & _
- " and FactorCode='" & CheckFactor(Jsqte).FactorCode & "'" & _
- " and Empid= " & .Fields("EmpID") & _
- " and TotalType=1"
- Set RecRY_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- If Not RecRY_Query.EOF Then
- '填充考核要素分值
- If RecRY_Query.Fields("ObjectTotal") > 0 Then
- CxbbGrid.TextMatrix(int_row, Jsqte) = Format(RecRY_Query.Fields("ObjectTotal"), str_format)
- If RecRY_Query.Fields("ObjectTotal") < dbl_total(1, Jsqte) Then dbl_total(1, Jsqte) = RecRY_Query.Fields("ObjectTotal") '最小值
- If RecRY_Query.Fields("ObjectTotal") > dbl_total(2, Jsqte) Then dbl_total(2, Jsqte) = RecRY_Query.Fields("ObjectTotal") '最小值
- dbl_total(3, Jsqte) = dbl_total(3, Jsqte) + RecRY_Query.Fields("ObjectTotal") '合计值
- dbl_total(4, Jsqte) = dbl_total(4, Jsqte) + 1 '人数
- End If
- End If
- Next Jsqte
- If (.Fields("ObjectBallot")) > 0 Then
- CxbbGrid.TextMatrix(int_row, CxbbGrid.Cols - 1 - 2) = .Fields("ObjectBallot") '有效票数
- End If
- If (.Fields("ObjectTotal")) > 0 Then
- CxbbGrid.TextMatrix(int_row, CxbbGrid.Cols - 1 - 1) = Format(.Fields("ObjectTotal"), str_format) '合计
- End If
- If Len(Trim((.Fields("ObjectResult") & ""))) > 0 Then
- CxbbGrid.TextMatrix(int_row, CxbbGrid.Cols - 1 - 0) = .Fields("ObjectResult") '考核结果
- Else
- CxbbGrid.TextMatrix(int_row, CxbbGrid.Cols - 1 - 0) = "未知" '考核结果
- End If
- .MoveNext
- Next int_row
- End With
- With CxbbGrid
- '最小值
- If Khgl_AnalyzeQuery.Opt_Check(1).Value = 1 Then
- int_Check(1) = 1
- .Rows = .Rows + 1
- .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = "统 计"
- .TextMatrix(.Rows - 1, Sydz("003", GridStr(), Szzls)) = "最小值"
- For Jsqte = .FixedCols To .Cols - 1 - 3
- .Cell(flexcpBackColor, .Rows - 1, Jsqte) = &HF7F3EC
- If dbl_total(1, Jsqte) > 0 And dbl_total(1, Jsqte) < 999999.99 Then
- .TextMatrix(.Rows - 1, Jsqte) = Format(dbl_total(1, Jsqte), str_format)
- End If
- Next Jsqte
- Else
- int_Check(1) = 0
- End If
- '最大值
- If Khgl_AnalyzeQuery.Opt_Check(2).Value = 1 Then
- int_Check(2) = 1
- .Rows = .Rows + 1
- .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = "统 计"
- .TextMatrix(.Rows - 1, Sydz("003", GridStr(), Szzls)) = "最大值"
- For Jsqte = .FixedCols To .Cols - 1 - 3
- .Cell(flexcpBackColor, .Rows - 1, Jsqte) = &HF7F3EC
- If dbl_total(2, Jsqte) > 0 Then
- .TextMatrix(.Rows - 1, Jsqte) = Format(dbl_total(2, Jsqte), str_format)
- End If
- Next Jsqte
- Else
- int_Check(2) = 0
- End If
- '平均值
- If Khgl_AnalyzeQuery.Opt_Check(3).Value = 1 Then
- int_Check(3) = 1
- .Rows = .Rows + 1
- .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = "统 计"
- .TextMatrix(.Rows - 1, Sydz("003", GridStr(), Szzls)) = "平均值"
- For Jsqte = .FixedCols To .Cols - 1 - 3
- .Cell(flexcpBackColor, .Rows - 1, Jsqte) = &HF7F3EC
- If dbl_total(3, Jsqte) > 0 And dbl_total(4, Jsqte) > 0 Then
- .TextMatrix(.Rows - 1, Jsqte) = Format(dbl_total(3, Jsqte) / dbl_total(4, Jsqte), str_format)
- End If
- Next Jsqte
- Else
- int_Check(3) = 0
- End If
- '合计值
- If Khgl_AnalyzeQuery.Opt_Check(4).Value = 1 Then
- int_Check(4) = 1
- .Rows = .Rows + 1
- .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = "统 计"
- .TextMatrix(.Rows - 1, Sydz("003", GridStr(), Szzls)) = "合计值"
- For Jsqte = .FixedCols To .Cols - 1 - 3
- .Cell(flexcpBackColor, .Rows - 1, Jsqte) = &HF7F3EC
- If dbl_total(3, Jsqte) > 0 Then
- .TextMatrix(.Rows - 1, Jsqte) = Format(dbl_total(3, Jsqte), str_format)
- End If
- Next Jsqte
- Else
- int_Check(4) = 0
- End If
- .ColAlignment(Sydz("002", GridStr(), Szzls)) = flexAlignLeftCenter
- End With
- ']以上为用户自定义部分
- End Sub
- Private Sub bbyl(bbylte As Boolean) '报表打印预览
- Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
- Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
- Bbxbtgs = 2 '报 表 小 标 题 行 数
- Bbbwhgs = 0 '报 表 表 尾 行 数
- ReDim Bbxbt(1 To Bbxbtgs)
- ReDim bbxbtzzxs(1 To Bbxbtgs)
- If Bbbwhgs <> 0 Then
- ReDim Bbbwh(1 To Bbbwhgs)
- ReDim Bbbwhzzxs(1 To Bbbwhgs)
- End If
- Bbzbt = ReportTitle
- Bbxbt(1) = ""
- Bbxbt(2) = Lab_Title(0).Caption
- bbxbtzzxs(2) = 0
- bbxbtzzxs(1) = 0 '报表行组织形式(0-居左 1-居中 2-居右)
- Call Scyxsjb(CxbbGrid) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- End Sub
- Private Sub ShowFormat()
- '设置考核数据显示格式
- Dim rec_format As New Recordset
- Dim str_sql As String
- str_sql = "select TitleDigit from Kh_Title where TitleCode='" & str_TitleCode & "'"
- Set rec_format = Cw_DataEnvi.DataConnect.Execute(str_sql)
- If Not rec_format.EOF Then
- str_format = "########" + "." + String(rec_format.Fields("TitleDigit"), "0")
- End If
- rec_format.Close
- End Sub
- Private Sub Tdc() '档次图形分析数据准备
- Dim Ssql As String
- Dim ADORESULT As New Recordset
- Dim Jsqte As Integer '临时计数器
- Dim int_row As Integer '实际行
- Dim int_Count As Integer '人数
- '判断总记录行是否与固定行数相同
- If CxbbGrid.Rows = CxbbGrid.FixedRows Then
- Exit Sub
- End If
- Ssql = " SELECT KH_OBJECT.ObjectResult, RCOUNT = COUNT(1) " & _
- " FROM KH_OBJECT " & _
- " INNER JOIN Rs_BasicInfo ON KH_OBJECT.EmpID = Rs_BasicInfo.EmpID " & _
- " where not KH_OBJECT.ObjectTotal is null and KH_OBJECT.TitleCode='" & Trim(str_TitleCode) & "' " & Str_QueryCondi & _
- " GROUP BY KH_OBJECT.ObjectResult"
- Set ADORESULT = Cw_DataEnvi.DataConnect.Execute(Ssql)
- If ADORESULT.EOF Then Exit Sub
- ADORESULT.MoveFirst
- CxbbGrid_dc.Rows = ADORESULT.RecordCount + 1
- CxbbGrid_dc.Cols = 2
- CxbbGrid_dc.FixedCols = 0
- CxbbGrid_dc.FixedRows = 1
- CxbbGrid_dc.TextMatrix(0, 0) = "等级"
- CxbbGrid_dc.TextMatrix(0, 1) = "人数"
- int_row = 1
- int_Count = 0
- Do
- CxbbGrid_dc.TextMatrix(int_row, 0) = Trim("" & ADORESULT!ObjectResult)
- CxbbGrid_dc.TextMatrix(int_row, 1) = Trim("" & ADORESULT!RCOUNT)
- int_row = int_row + 1
- int_Count = int_Count + Val(ADORESULT!RCOUNT)
- ADORESULT.MoveNext
- Loop Until ADORESULT.EOF
- If CxbbGrid_dc.TextMatrix(1, 0) = "" Then
- CxbbGrid_dc.TextMatrix(1, 0) = "其它"
- CxbbGrid_dc.TextMatrix(1, 1) = CxbbGrid.Rows - CxbbGrid.FixedRows - int_Count
- End If
- Call Txfxbb(CxbbGrid_dc, "Khgl_Analyze_dc")
- End Sub
- Private Sub Txg() '相关图形分析数据准备
- Dim Ssql As String
- Dim ADORESULT As New Recordset
- Dim Jsqte As Integer '临时计数器
- Dim int_row As Integer '实际行
- Dim int_Count As Integer '人数
- Dim str_check() As String '考核指标
- '判断总记录行是否与固定行数相同
- If CxbbGrid.Rows = CxbbGrid.FixedRows Then
- Exit Sub
- End If
- CxbbGrid_xg.Rows = 2
- CxbbGrid_xg.Cols = 1
- CxbbGrid_xg.FixedRows = 2
- CxbbGrid_xg.FixedCols = 1
- '填充列，考核指标
- Ssql = " select Kh_Target.CheckCode,Kh_Check.CheckName " & _
- " from Kh_Target,Kh_Check " & _
- " where Kh_Target.CheckCode=Kh_Check.CheckCode " & _
- " and Kh_Check.CheckType=2 " & _
- " and Kh_Target.TitleCode= '" & str_titleRoot & "'" & _
- " order by Kh_Target.CheckCode"
- Set ADORESULT = Cw_DataEnvi.DataConnect.Execute(Ssql)
- If ADORESULT.EOF Then Exit Sub
- ADORESULT.MoveFirst
- CxbbGrid_xg.Cols = ADORESULT.RecordCount + 1
- ReDim str_check(ADORESULT.RecordCount + 1)
- Jsqte = 1
- Do While Not ADORESULT.EOF()
- CxbbGrid_xg.TextMatrix(0, Jsqte) = Trim("" & ADORESULT!CheckName)
- str_check(Jsqte) = Trim("" & ADORESULT!CheckCode)
- Jsqte = Jsqte + 1
- ADORESULT.MoveNext
- Loop
- '设置网格的行数，默认为选中了最值4行，如果选择则行数-1
- CxbbGrid_xg.Rows = CxbbGrid.Rows - 1 'CxbbGrid_xg固定行数为1，CxbbGrid固定行数为2
- If int_Check(1) = 1 Then
- CxbbGrid_xg.Rows = CxbbGrid_xg.Rows - 1
- End If
- If int_Check(2) = 1 Then
- CxbbGrid_xg.Rows = CxbbGrid_xg.Rows - 1
- End If
- If int_Check(3) = 1 Then
- CxbbGrid_xg.Rows = CxbbGrid_xg.Rows - 1
- End If
- If int_Check(4) = 1 Then
- CxbbGrid_xg.Rows = CxbbGrid_xg.Rows - 1
- End If
- '填充行，被考核对象、考核指标分值
- For int_row = 1 To CxbbGrid_xg.Rows - 1
- '填充被考核对象
- CxbbGrid_xg.TextMatrix(int_row, 0) = CxbbGrid.TextMatrix(int_row + 1, 2)
- For Jsqte = 1 To CxbbGrid_xg.Cols - 1
- 'Kh_BaseTotal表中（TotalType = 1）的记录值=同类测评者考核平均分*测评者权重
- '读取考核指标分值=(同类测评者考核平均分*测评者权重)*考核要素权重
- Ssql = " SELECT CheckValues=sum(Kh_BaseTotal.ObjectTotal*Kh_BaseTotal.FactorWeigh) " & _
- " From Kh_BaseTotal,Kh_Factor " & Chr(10) & _
- " Where Kh_BaseTotal.FactorCode = Kh_Factor.FactorCode" & Chr(10) & _
- " and Kh_BaseTotal.TitleCode = '" & str_TitleCode & "'" & Chr(10) & _
- " and Kh_BaseTotal.Empid = " & Val(CxbbGrid.TextMatrix(int_row + 1, Sydz("001", GridStr(), Szzls))) & Chr(10) & _
- " and Kh_BaseTotal.TotalType = 1" & Chr(10) & _
- " and Kh_Factor.CheckCode = '" & str_check(Jsqte) & "'" & Chr(10) & _
- " group by Kh_BaseTotal.TitleCode,Kh_BaseTotal.empid,Kh_Factor.CheckCode" & Chr(10) & _
- " order by Kh_BaseTotal.TitleCode,Kh_BaseTotal.empid,Kh_Factor.CheckCode"
- '填充考核指标分值
- Set ADORESULT = Cw_DataEnvi.DataConnect.Execute(Ssql)
- If Not ADORESULT.EOF Then
- CxbbGrid_xg.TextMatrix(int_row, Jsqte) = ADORESULT.Fields("CheckValues")
- Else
- CxbbGrid_xg.TextMatrix(int_row, Jsqte) = 0
- End If
- Next Jsqte
- Next int_row
- Call Txfxbb(CxbbGrid_xg, "Khgl_Analyze_xg")
- 'Khgl_Analyze_Choice.str_TitleCode = str_TitleCode
- 'Khgl_Analyze_Choice.str_titleRoot = str_titleRoot
- 'Khgl_Analyze_Choice.Show 1
- End Sub
