frmtj.frm

企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmTJ 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数据库统计"
   ClientHeight    =   6525
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9195
   Icon            =   "frmTJ.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6525
   ScaleWidth      =   9195
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   960
      Top             =   6000
   End
   Begin VB.Frame Frame1 
      Height          =   5775
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9015
      Begin VB.CommandButton cmdWait 
         Caption         =   "请等待......"
         Height          =   735
         Left            =   3360
         TabIndex        =   5
         Top             =   2400
         Width           =   2175
      End
      Begin VB.ListBox lstTJ 
         Height          =   5280
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   2415
      End
      Begin MSFlexGridLib.MSFlexGrid grdTJ 
         Height          =   5295
         Left            =   2640
         TabIndex        =   1
         Top             =   240
         Width           =   6255
         _ExtentX        =   11033
         _ExtentY        =   9340
         _Version        =   393216
         BackColorBkg    =   -2147483643
         GridColor       =   16744576
         SelectionMode   =   1
         AllowUserResizing=   3
      End
   End
   Begin MSForms.CommandButton cmdTJ 
      Height          =   375
      Left            =   6120
      TabIndex        =   4
      Top             =   6000
      Width           =   1095
      Caption         =   "统计"
      PicturePosition =   327683
      Size            =   "1931;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton cmdExit 
      Height          =   375
      Left            =   7800
      TabIndex        =   2
      Top             =   6000
      Width           =   1215
      Caption         =   "退出"
      PicturePosition =   327683
      Size            =   "2143;661"
      Picture         =   "frmTJ.frx":0442
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
End
Attribute VB_Name = "frmTJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'统计结构
Private Type TJ
   MC As String '名称
   SL As Integer '数量
End Type






Private Sub cmdExit_Click()
  Unload Me
End Sub

Private Sub cmdTJ_Click()
  
  Call lstTJ_Click
  
End Sub

Private Sub Form_Load()
Me.Left = ReadIni("数据统计", "left")
Me.Top = ReadIni("数据统计", "top")



  lstTJ.AddItem "按性别统计"
  lstTJ.AddItem "按年龄统计"
  lstTJ.AddItem "按民族统计"
  lstTJ.AddItem "按籍贯统计"
  lstTJ.AddItem "按职务统计"
  lstTJ.AddItem "按健康状况统计"
  lstTJ.AddItem "按所学专业统计"
  lstTJ.AddItem "按政治面貌统计"
  lstTJ.AddItem "按部门统计"
  lstTJ.AddItem "按工龄统计"
  lstTJ.AddItem "按职工类型统计"
  lstTJ.AddItem "按婚姻状况统计"
  lstTJ.AddItem "按文化程度统计"
  lstTJ.AddItem "按生日统计"
  lstTJ.AddItem "按薪金统计"
  
  
   Me.MousePointer = 11
   DoEvents
   
  Timer1.Enabled = True
  
   Call DarkMe(Me, 255)
  Me.refresh
  
  grdTJ.Cols = 3
  grdTJ.ColWidth(0) = 250
  If ReadIni("数据统计", "col1") = 0 Then
  grdTJ.ColWidth(1) = 900
  Else
  grdTJ.ColWidth(1) = ReadIni("数据统计", "col1")
  End If
  
  If ReadIni("数据统计", "col2") = 0 Then
  grdTJ.ColWidth(2) = 900
  Else
  grdTJ.ColWidth(2) = ReadIni("数据统计", "col2")
  End If
  
End Sub

'统计字程序-----要统计的字段
Private Sub subTJ(ByVal zd As String)
  Dim ptj(5000) As TJ
  Dim pmax As Integer
  Dim ntj As String
  
  
  
  '查找数据库
  Dim strSql As String
  Dim strMsg As String
  Dim rs As ADODB.Recordset
  
  strSql = "select * from t_br"
  Set rs = ExecuteSQL(strSql, strMsg)
  
  '如果数据库为空则不用统计
  If rs.EOF Then Exit Sub
  
   rs.MoveFirst
  
  pmax = 0
  
  Do While Not rs.EOF
    If IsNull(rs.Fields(zd).Value) Then
      ntj = "无数据"
    Else
         ntj = rs.Fields(zd).Value
    End If
    
     For i = 1 To pmax
       If ptj(i).MC = ntj Then
          ptj(i).SL = ptj(i).SL + 1
          Exit For
        End If
     Next
     
     If i > pmax Then
        ptj(i).MC = ntj
        ptj(i).SL = 1
        pmax = pmax + 1
     End If
     
     rs.MoveNext
  Loop
  
  rs.Close
  Set rs = Nothing
  
 With grdTJ
   .Clear
   .Cols = 3
   .Rows = pmax + 1
   
   .TextMatrix(0, 1) = zd
   .TextMatrix(0, 2) = "数量"
   For n = 1 To pmax
       .TextMatrix(n, 1) = ptj(n).MC
       .TextMatrix(n, 2) = ptj(n).SL
   Next
 End With
  
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Call WriteIni("数据统计", "col1", grdTJ.ColWidth(1))
  Call WriteIni("数据统计", "col2", grdTJ.ColWidth(2))
  
  Call WriteIni("数据统计", "left", Me.Left)
  Call WriteIni("数据统计", "top", Me.Top)
End Sub

Private Sub lstTJ_Click()
 Dim v As String
 Dim fd As String
  v = lstTJ.List(lstTJ.ListIndex)
  fd = Mid(v, 2, Len(v) - 3)
   
   Me.MousePointer = 11
  cmdWait.Visible = True
  DoEvents
  Call subTJ(fd)
   Me.MousePointer = 0
  cmdWait.Visible = False
     
End Sub


Private Sub Timer1_Timer()
  lstTJ.ListIndex = 0
  cmdWait.Visible = False
  Me.MousePointer = 0
  Timer1.Enabled = False
End Sub