企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
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 An_RsAgeLongFrm 
   Caption         =   "年资分析"
   ClientHeight    =   8595
   ClientLeft      =   315
   ClientTop       =   390
   ClientWidth     =   11820
   HelpContextID   =   5001
   Icon            =   "查询_年资分析列表.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8595
   ScaleWidth      =   11820
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ProgressBar PB_Proc 
      Height          =   330
      Left            =   3795
      TabIndex        =   4
      Top             =   3735
      Visible         =   0   'False
      Width           =   4440
      _ExtentX        =   7832
      _ExtentY        =   582
      _Version        =   393216
      Appearance      =   1
      Scrolling       =   1
   End
   Begin VB.PictureBox Pic_Title 
      BackColor       =   &H00FFFFFF&
      Height          =   690
      Left            =   -75
      Picture         =   "查询_年资分析列表.frx":1042
      ScaleHeight     =   630
      ScaleWidth      =   11715
      TabIndex        =   2
      Top             =   600
      Width           =   11775
      Begin VB.Label Lab_Title 
         AutoSize        =   -1  'True
         BackColor       =   &H80000018&
         BackStyle       =   0  'Transparent
         Caption         =   "年资分析"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   405
         TabIndex        =   3
         Top             =   180
         Width           =   1020
      End
   End
   Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
      Height          =   7770
      Left            =   60
      TabIndex        =   0
      Top             =   1305
      Width           =   11775
      _ExtentX        =   20770
      _ExtentY        =   13705
      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  =   -2147483633
      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            =   20
      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
   End
   Begin MSComctlLib.Toolbar SzToolbar 
      Align           =   1  'Align Top
      Height          =   570
      Left            =   0
      TabIndex        =   1
      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      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "ymsz"
            Object.ToolTipText     =   "设置打印参数"
            ImageKey        =   "sz"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "dy"
            Object.ToolTipText     =   "打印当前数据"
            ImageKey        =   "dy"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "yl"
            Object.ToolTipText     =   "显示当前数据的打印模式"
            ImageKey        =   "yl"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "cx"
            Object.ToolTipText     =   "以某种条件取得数据"
            ImageKey        =   "cx"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "定义"
            Key             =   "DingYi"
            ImageKey        =   "xsxm"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "bz"
            Object.ToolTipText     =   "显示帮助信息"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "fh"
            Object.ToolTipText     =   "退出本报表"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   1
         Left            =   6060
         Top             =   60
      End
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   5280
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   36
            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             =   "Locate"
            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             =   "Sum"
            EndProperty
            BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_年资分析列表.frx":2719E
               Key             =   "Total"
            EndProperty
            BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_年资分析列表.frx":27538
               Key             =   "Detail"
            EndProperty
            BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "查询_年资分析列表.frx":278D2
               Key             =   "Order"
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "An_RsAgeLongFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'*    模 块 名 称 :年资分析列表
'*    功 能 描 述 :
'*    程序员姓名  :张洪军
'*    最后修改人  :张洪军
'*    最后修改时间:2002/01/03
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'**************************************************************************
Dim ReportTitle As String                '报表主标题
Public sSqlWhere As String
Public sSqlWhereMe As String
Public sSqlWhereMore As String
Public sSqlFrom As String
Public int_CodeLevel As Integer
Dim sFieldValue() As New CFieldValue
Dim sSqlOrder As String
Dim Str_RightEdit 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 CxbbGrid_AfterMoveColumn(ByVal Col As Long, Position As Long)
    Dim i As Integer
    With Me.CxbbGrid
        ReDim sFieldValue(.Cols - 1)
        For i = 0 To .Cols - 1
            sFieldValue(i).FieldName = Trim(.TextMatrix(1, i))
        Next i
    End With
End Sub
Private Sub CxbbGrid_AfterSort(ByVal Col As Long, Order As Integer)
    Dim i As Long
    With Me.CxbbGrid
        For i = .FixedRows To .Rows - 1
            .TextMatrix(i, Qslz) = i - .FixedRows + 1
        Next i
    End With
    
End Sub
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
    With Me.PB_Proc
        .Left = (Me.Width - .Width) / 2
        .Top = Me.Height / 2
    End With
    
End Sub
Private Sub Form_Load()                                                   '窗体装入
    On Error GoTo 0
    '调入打印页面设置窗体
    ReportTitle = "年资分析"
    XtReportCode = "Rs_RsAgeLongFrm"
    Load Dyymctbl
    Me.Caption = ReportTitle
    Me.Lab_Title = ReportTitle
    '调整标题栏及网格、格式工具条位置(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 = "Rs_RsAgeLongFrm"
    Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
    Me.CxbbGrid.MergeCells = flexMergeNever
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = CxbbGrid.Cols - 1
    iBeginCol = Val(GridInf(1))
    
    '初始化变量
    sSqlOrder = " order by Rs_BasicInfo.DeptCode "
    Me.sSqlFrom = " from Rs_BasicInfo  "
    Me.sSqlWhereMe = " where Rs_BasicInfo.YnStop=0  "
    Me.sSqlWhereMore = ""
    Me.sSqlWhere = Me.sSqlWhereMe & Me.sSqlWhereMore
    '编辑(新增、修改、删除)权限索引
    Str_RightEdit = "Rs_An_RsAgeLong_Edit"
End Sub
Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
        
    '卸载打印页面设置窗体
    Unload Dyymctbl
    Security_Log "Rs_An_RsAgeLong", Xtczybm, 2, False  '用户退出时写上机日志
End Sub
Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
    Dim i As Integer
    Dim iMax As Integer
    Dim iMin As Integer
    Dim iStep As Integer
    '编码列不允许移动
    If Col <= Qslz Then
        Position = Col
        Exit Sub
    End If
    '不允许列超过编码列
    If Position <= Qslz Then
        Position = Qslz + 1
    End If
    '移动数组
    With Me.CxbbGrid
        If .Cols <= Qslz + 1 Then
            Exit Sub
        End If
        If Col = Position Then
            Exit Sub
        End If
        Dim sFieldValueT As New CFieldValue
        iStep = IIf(Col > Position, -1, 1)
        CFieldValueCopy sFieldValue(Col - Qslz - 1), sFieldValueT
        For i = Col + iStep - Qslz - 1 To Position - Qslz - 1 Step iStep
            CFieldValueCopy sFieldValue(i), sFieldValue(i - iStep)
        Next i
        CFieldValueCopy sFieldValueT, sFieldValue(Position - Qslz - 1)
    End With
    
    
End Sub
Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    Select Case Button.Key
    Case "ymsz"                                          '页面设置
        Dyymctbl.Show 1
    Case "yl"                                            '预 览
        bbyl (True)
    Case "dy"                                            '打 印
        bbyl (False)
    Case "cx"                                            '查 询
       An_RsAgeLongFrmQuery.Show 1
    Case "DingYi"                                        '定 义
       '判断用户是否有此功能执行权限,如有则写上机日志(进入)
        If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
            Exit Sub
        End If
       An_RsSetAgeLongFrm.Show 1
    
    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
    
    '生成查询结果
    ShowRecord
    
    CxbbGrid.Redraw = True
    
    Xt_Wait.Hide
    
End Sub
Public Function ShowRecord()                                  '生成查询结果(Define)
    '显示数据
    On Error GoTo ErrCtrl
    
    Dim rs As New ADODB.Recordset
    Dim rec_num As New ADODB.Recordset
    Dim s As String
    Dim i As Long
    Dim j As Long
    Dim sFrom As String
    Dim str_Temp As String
    Dim Age() As Integer
    Dim int_sum() As Integer
    
    
    If Trim(Me.sSqlWhereMore) = "" Then
        Me.sSqlWhereMore = " 1=1 "
    End If
    
    If Trim(Me.sSqlWhere) = "" Then
        GoTo ErrCtrl
    End If
    Me.MousePointer = 11
    
    With Me.CxbbGrid
        '初始化网格
        .Redraw = False
        .Rows = .FixedRows
        .Cols = Qslz + 4
        .FixedCols = .Cols
    
    '填充年资段
        s = "select  ItemName,ItemParameter from Rs_OtherSet where ItemProperty=2 order by ItemName"
        Set rs = Cw_DataEnvi.DataConnect.Execute(s)
        If rs.EOF() Then
            MsgBox "没有设置年资段!", vbOKOnly + vbCritical
            GoTo ErrCtrl
        End If
        .Cols = .FixedCols + 2 * rs.RecordCount + 4
        ReDim Age(.Cols)
        ReDim int_sum(.Cols)
        
        i = .FixedCols
        
        Age(i - 2) = "0"  '年资段最小值
        int_sum(0) = 0
        
        
        Do While Not rs.EOF()
            Age(i) = Val(Trim(rs.Fields("ItemParameter") & "")) '年资段上限
            
            str_Temp = Age(i - 2) & "-" & Age(i) & "月"
            
            .TextMatrix(.FixedRows - 1, i) = str_Temp
            .TextMatrix(.FixedRows - 1, i + 1) = "百分比%"
            
            '调整网格格式
            .ColAlignment(i) = flexAlignRightCenter
            .ColAlignment(i + 1) = flexAlignRightCenter
            .FixedAlignment(i) = flexAlignCenterCenter
            .FixedAlignment(i + 1) = flexAlignCenterCenter
            i = i + 2
            rs.MoveNext
        Loop
        rs.Close
        str_Temp = Age(i - 2) & "月以上"
        .TextMatrix(.FixedRows - 1, .Cols - 4) = str_Temp
        .TextMatrix(.FixedRows - 1, .Cols - 3) = "百分比%"
        .TextMatrix(.FixedRows - 1, .Cols - 2) = "未   知"
        .TextMatrix(.FixedRows - 1, .Cols - 1) = "百分比%"
        
        '调整网格格式
        .ColAlignment(.Cols - 2) = flexAlignRightCenter
        .ColAlignment(.Cols - 1) = flexAlignRightCenter
        .FixedAlignment(.Cols - 2) = flexAlignCenterCenter
        .FixedAlignment(.Cols - 1) = flexAlignCenterCenter
        '填充部门和部门人数
        s = " select Gy_Department.DeptCode ,Gy_Department.DeptName,Gy_Department.CodeLevel " & Chr(10) _
            & " ,Num=(select count(*) from Rs_BasicInfo  " & Chr(10) _
            & "where  left(Rs_BasicInfo.DeptCode,len(Gy_Department.DeptCode))=Gy_Department.DeptCode  and " & Me.sSqlWhereMore & ") " & Chr(10) _
            & " from Gy_Department  " & Chr(10) _
            & Me.sSqlWhereMe
        Set rs = Cw_DataEnvi.DataConnect.Execute(s)
        If rs.EOF() Then
            GoTo ErrCtrl
        End If
        .Rows = .FixedRows + rs.RecordCount + 1
        i = .FixedRows
        Do While Not rs.EOF()
            .RowHeight(i) = Sjhgd
            .TextMatrix(i, Qslz) = Trim(rs.Fields("DeptCode") & "")
            .TextMatrix(i, Qslz + 1) = Trim(rs.Fields("DeptName") & "")
            .TextMatrix(i, Qslz + 2) = Val(rs.Fields("Num") & "")
            If Val(rs.Fields("CodeLevel") & "") = int_CodeLevel Then
                int_sum(0) = int_sum(0) + Val(rs.Fields("Num") & "")
            End If
            
            '填充平均年资
            s = " select num=avg(DateDiff(Month, HireTime, getdate())) from Rs_BasicInfo " & Chr(10) & _
                " where  Rs_BasicInfo.DeptCode like   '" & Trim(rs.Fields("DeptCode") & "") & "%'" & Chr(10) & _
                " and    " & Me.sSqlWhereMore & Chr(10)
                
            Set rec_num = Cw_DataEnvi.DataConnect.Execute(s)
            If Not rs.EOF() Then
                If rec_num.Fields("num") > 0 Then
                    .TextMatrix(i, .FixedCols - 1) = rec_num.Fields("num")
                End If
            End If
            rec_num.Close
            
            '填充年资段人数和百分比
            For j = .FixedCols To .Cols - 2 Step 2
                Select Case j
                    Case .Cols - 2
                        s = " select num=count(1) from Rs_BasicInfo " & Chr(10) & _
                            " where  Rs_BasicInfo.DeptCode like   '" & Trim(rs.Fields("DeptCode") & "") & "%'" & Chr(10) & _
                            " and    HireTime IS null " & Chr(10) & _
                            " and    " & Me.sSqlWhereMore & Chr(10)
                    Case .Cols - 4
                        s = " select num=count(1) from Rs_BasicInfo " & Chr(10) & _
                            " where  Rs_BasicInfo.DeptCode like   '" & Trim(rs.Fields("DeptCode") & "") & "%'" & Chr(10) & _
                            " and    DateDiff(Month, HireTime, getdate()) >= " & Val(Age(j - 2)) & Chr(10) & _
                            " and    " & Me.sSqlWhereMore & Chr(10)
                        
                    Case Else
                        s = " select num=count(1) from Rs_BasicInfo " & Chr(10) & _
                            " where  Rs_BasicInfo.DeptCode like   '" & Trim(rs.Fields("DeptCode") & "") & "%'" & Chr(10) & _
                            " and    DateDiff(Month, HireTime, getdate()) >= " & Val(Age(j - 2)) & " And DateDiff(Month, HireTime, getdate()) < " & Val(Age(j)) & Chr(10) & _
                            " and    " & Me.sSqlWhereMore & Chr(10)
                End Select
                Set rec_num = Cw_DataEnvi.DataConnect.Execute(s)
                If Not rs.EOF() Then
                    If rec_num.Fields("num") > 0 Then
                        .TextMatrix(i, j) = rec_num.Fields("num")
                        If Val(rs.Fields("CodeLevel") & "") = int_CodeLevel Then
                            int_sum(j) = int_sum(j) + rec_num.Fields("num")
                        End If
                        If Val(.TextMatrix(i, Qslz + 2)) <> 0 Then
                            .TextMatrix(i, j + 1) = Format(100 * Val(rec_num.Fields("Num") & "") / Val(.TextMatrix(i, Qslz + 2)), "##0.00")
                        End If
                    End If
                End If
                rec_num.Close
            Next j
            
            rs.MoveNext
            i = i + 1
        Loop
        rs.Close
        Set rs = Nothing
        '填充合计行
        .RowHeight(.Rows - 1) = Sjhgd
        .TextMatrix(.Rows - 1, Qslz) = "合计"
        .TextMatrix(.Rows - 1, Qslz + 1) = "合计"
        .TextMatrix(.Rows - 1, Qslz + 2) = int_sum(0)
                '填充平均年资
        s = " select num=avg(DateDiff(Month, HireTime, getdate())) from Rs_BasicInfo " & Chr(10) & _
            " inner join Gy_DepartMent on Left(Rs_BasicInfo.DeptCode, Len(Gy_Department.DeptCode)) = Gy_Department.DeptCode " & Chr(10) & _
              Me.sSqlWhereMe & " and " & Me.sSqlWhereMore
        
        Set rec_num = Cw_DataEnvi.DataConnect.Execute(s)
        If Not rec_num.EOF() Then
            If rec_num.Fields("num") > 0 Then
                .TextMatrix(.Rows - 1, Qslz + 3) = rec_num.Fields("num")
            End If
        End If
        rec_num.Close
            
        
        
        For j = .FixedCols To .Cols - 2 Step 2
            .Cell(flexcpBackColor, .Rows - 1, j) = &HF7F3EC
            .Cell(flexcpBackColor, .Rows - 1, j) = &HF7F3EC
            If int_sum(j) > 0 Then
                .TextMatrix(.Rows - 1, j) = int_sum(j)
                
                If Val(.TextMatrix(.Rows - 1, Qslz + 2)) <> 0 Then
                    .TextMatrix(.Rows - 1, j + 1) = Format(100 * int_sum(j) / Val(.TextMatrix(.Rows - 1, Qslz + 2)), "##0.00")
                End If
            End If
        
        Next j
        
        .Redraw = True
    End With
    Me.PB_Proc.Visible = False
    Me.MousePointer = 0
    Exit Function
ErrCtrl:
    If rs.State = 1 Then
        rs.Close
    End If
    Set rs = Nothing
    Me.PB_Proc.Visible = False
    Me.CxbbGrid.Redraw = True
    Me.MousePointer = 0
End Function
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 = 1                                         '报 表 小 标 题 行 数
    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
    
    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

						