frmmanapp.frm

人事管理信息系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form frmManApp 
   Caption         =   "员工评价列表"
   ClientHeight    =   4425
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6855
   Icon            =   "frmManApp.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4425
   ScaleWidth      =   6855
   WindowState     =   2  'Maximized
   Begin MSFlexGridLib.MSFlexGrid msgList 
      Height          =   3135
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   6255
      _ExtentX        =   11033
      _ExtentY        =   5530
      _Version        =   393216
      Cols            =   4
      FixedCols       =   3
      AllowUserResizing=   1
   End
   Begin VB.Label lblTitle 
      Caption         =   "员  工  评  价  列  表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2895
   End
End
Attribute VB_Name = "frmManApp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mrc As ADODB.Recordset
Dim MsgText As String
Public txtSQL As String
Dim mintRW As Integer
Public msBarText As String
Public reportName As String
Public reportSQL As String

Private Sub Form_Load()
    
    '用户操作权限
    Dim sPermission As String
    Dim recTemp As Recordset
    Dim sSql As String
    Dim sByte As String
    Dim MsgText As String
    
  On Error GoTo myErr
    '设置操作的表名称
    'msTableName = "ampaytune"
    'msRptName = "paytune.rpt"
    'msOrderBy = " order by tzdate,tzid"
    'sOrder0 = "+ {tzdate}"
    'sOrder1 = "+ {tzid}"
    'msSelect = "select * from "
    
    '置mintRW初值
    mintRW = 0
    sSql = "select rw from permission where module=12 and id='" & sUserName & " '"
    Set recTemp = ExecuteSQL(sSql, MsgText)
    If recTemp.EOF = False Then
        mintRW = CInt(recTemp!rw)
    Else
        mintRW = ERRORMODE
        SetMdiEnv
        MsgBox "您的帐号权限有错误！", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
    
    reportName = "manappraise.rpt"

    
    '设置msSql
        'msSql = msSelect & msTableName & " where tzdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "' and tzdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy
        
    '显示数据
    msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
    flagEdit = True
    ShowTitle
    ShowData
    
    Set recTemp = Nothing
    Exit Sub
    
myErr:
    ShowError
End Sub
Private Sub Form_Activate()
    '设置读写权限
    SetWorkRW mintRW
    fMainForm.sbStatusBar.Panels(1).Text = msBarText
End Sub


Private Sub Form_Resize()
    If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then
        '边界处理
        If Me.ScaleHeight < 10 * lblTitle.Height Then
            
            Exit Sub
        End If
        If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then
            
            Exit Sub
        End If
        '控制控件的位置
                
        lblTitle.Top = lblTitle.Height
        lblTitle.Left = (Me.Width - lblTitle.Width) / 2
        
        msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2
        msgList.Width = Me.ScaleWidth - 200
        msgList.Left = Me.ScaleLeft + 100
        msgList.Height = Me.ScaleHeight - msgList.Top - 200
    End If
End Sub

'记录编辑
Public Sub RecordEdit()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManApp.msgList.Rows > 1 Then
           
            intCount = frmManApp.msgList.Row
            frmManApp1.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
            frmManApp1.txtSQL = "select * from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
            frmManApp1.Show
        Else
            Call RecordAdd
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End Sub

Public Sub FormClose()
    Unload Me
End Sub

'删除记录
Public Sub RecordDelete()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmManApp.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmManApp.msgList.Row
                txtSQL = "delete from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
                flagEdit = True
                
                frmManApp.ShowTitle
                frmManApp.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End Sub

'刷新表格
Public Sub RecordRefresh()
    ShowData
End Sub

'记录添加
Public Sub RecordAdd()
    gintMode = 1
    frmManApp1.Show
    frmManApp1.ZOrder 0
End Sub

'记录查询
Public Sub RecordFind()
    frmManApp2.Show
End Sub

'详细显示记录
Public Sub RecordView()
    If msgList.Rows > 1 = False Then
        gintMode = VIEW
        gsSql = " where pjno='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "'"
        frmManRecord1.Show 1
    End If
End Sub



'显示Grid的内容

Public Sub ShowData()
    Dim j As Integer
    Dim i As Integer

    Set mrc = ExecuteSQL(txtSQL, MsgText)
    With msgList
        .Rows = 1
        
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            For i = 1 To mrc.Fields.Count
                Select Case mrc.Fields(i - 1).Type
                    Case adDBDate
                        .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
                    Case Else
                        .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
                End Select
            Next i
            mrc.MoveNext
        Loop
        
        
        
    End With
    
    
End Sub


'显示Grid表头
Public Sub ShowTitle()
    Dim i As Integer
    
    With msgList
        .Cols = 12
        .TextMatrix(0, 1) = ""
        .TextMatrix(0, 2) = "部门"
        .TextMatrix(0, 3) = "编号"
        .TextMatrix(0, 4) = "姓名"
        .TextMatrix(0, 5) = "时间"
        .TextMatrix(0, 6) = "工作业绩"
        .TextMatrix(0, 7) = "工作态度"
        .TextMatrix(0, 8) = "业务水平"
        .TextMatrix(0, 9) = "其它1"
        .TextMatrix(0, 10) = "其它2"
        .TextMatrix(0, 11) = "备注"
        
        '固定表头
        .FixedRows = 1
                
        '设置各列的对齐方式
        For i = 0 To 11
            .ColAlignment(i) = 0
        Next i
        
        '表头项居中
        .FillStyle = flexFillRepeat
        .Col = 0
        .Row = 0
        .RowSel = 1
        .ColSel = .Cols - 1
        .CellAlignment = 4
        
        '设置单元大小
        .ColWidth(0) = 300
        .ColWidth(1) = 0
        .ColWidth(2) = 1000
        .ColWidth(3) = 1000
        .ColWidth(4) = 1000
        .ColWidth(5) = 1000
        .ColWidth(6) = 3500
        .ColWidth(7) = 3500
        .ColWidth(8) = 3500
        .ColWidth(9) = 3500
        .ColWidth(10) = 3500
        .ColWidth(11) = 1000
        .Row = 1
        
    End With
End Sub


Private Sub Form_Unload(Cancel As Integer)
    flagEdit = False
    gintMode = 0
    SetMdiEnv
    
End Sub

Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    '右键弹出
    If Button = 2 And Shift = 0 Then
        PopupMenu fMainForm.menuManapprise
    End If
    
    
End Sub