frmhandle.frm

人事管理系统vb版,用于一般中小企业

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmHandle 
   Caption         =   "操作监控"
   ClientHeight    =   2505
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5145
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   Icon            =   "frmHandle.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2505
   ScaleWidth      =   5145
   Begin RichTextLib.RichTextBox ricText 
      Height          =   2535
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5175
      _ExtentX        =   9128
      _ExtentY        =   4471
      _Version        =   393217
      BackColor       =   16777215
      ReadOnly        =   -1  'True
      ScrollBars      =   3
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"frmHandle.frx":000C
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmHandle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim adoHistroy As New ADODB.Recordset
Private Sub Form_Load()
    On Error Resume Next
    DisSysMenu Me.hwnd, 6
    Me.Icon = MDIMain.Icon
    Set ricBox = frmHandle.ricText
    With adoHistroy
        .Open "select * from 日志 order by id", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
         If .EOF = False Then
            .MoveLast
            If IsNull(.Fields("状态")) = True Then .Fields("状态") = 0
         End If
         .AddNew
         datLoad = Now
        .Fields("登录时间") = datLoad
        .Fields("登录用户") = gstrName
        .Fields("权限") = gblnPopedom
        .Fields("IP") = LinkIP
        .Update
    End With
    'ricBox.SelColor = vbBlue
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    'fraInfo.Move 0, -60, Me.ScaleWidth
    ricText.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    'ricText.Move 0, 940, Me.ScaleWidth, Me.ScaleHeight - 900
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    MDIMain.Hide
    blnAbout = False
    With adoHistroy
        If .EOF = False Then
            .Requery
            .MoveLast
            .Fields("退出时间") = Now
            .Fields("状态") = 1
            .Update
        End If
        .Close
    End With
    Set adoHistroy = Nothing
End Sub

Private Sub ricText_Change()
    On Error Resume Next
    With adoHistroy
        .Requery
        .MoveLast
        .Fields("操作内容") = ricBox.Text
        .Update
    End With
End Sub