frmlogman.frm

引用枕善居网站上的职工工资系统

         ItemData        =   "FrmLogMan.frx":59F2
         Left            =   7440
         List            =   "FrmLogMan.frx":59F4
         MouseIcon       =   "FrmLogMan.frx":59F6
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   240
         Width           =   1575
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "事件类别"
         Height          =   180
         Left            =   360
         TabIndex        =   5
         Top             =   300
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "选择日期"
         Height          =   180
         Left            =   3360
         TabIndex        =   4
         Top             =   300
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "选择用户"
         Height          =   180
         Left            =   6480
         TabIndex        =   3
         Top             =   300
         Width           =   720
      End
   End
End
Attribute VB_Name = "FrmLogMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Refresh_Log()
  Dim TmpSource As String
  TmpSource = "SELECT  LogDate As 日期, LogTime As 时间, UserName As 操作用户," _
        + "LogType As 事件类型, Title As 标题, Body As 内容 FROM SysLog " _
        + " WHERE LogDate=#" + Trim(Format(MonthView1.Value, "yyyy-mm-dd")) + "#"
  
  If ComboType.ListIndex > 0 Then
    TmpSource = TmpSource + " And LogType='" + Trim(ComboType.Text) + "'"
  End If
  
  If ComboUser.ListIndex > 0 Then
    TmpSource = TmpSource + " And UserName='" + Trim(ComboUser) + "'"
  End If
  
  'TmpSource = TmpSource + " ORDER BY LogId"
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
          + App.Path + "\DATA\职工工资管理.mdb;Persist Security Info=False"
  Adodc1.RecordSource = TmpSource
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
 'DataGrid1.Columns(0).Width = 800
  DataGrid1.Columns(0).Width = 1800
  DataGrid1.Columns(1).Width = 1800
  DataGrid1.Columns(2).Width = 1800
  DataGrid1.Columns(3).Width = 1700
  DataGrid1.Columns(4).Width = 3000
  DataGrid1.Columns(5).Width = 4500
End Sub

Private Sub Cmd_Back_Click()
  frm开始.Line4.Visible = False
  Unload Me
End Sub

Private Sub Cmd_DelbyDate_Click()
If CurUser.User_type = 4 Or CurUser.User_type = 3 Or CurUser.User_type = 2 Then
   MsgBox "你没有删除当前日志的权限", vbOKOnly + vbCritical, "警告"
 ElseIf CurUser.User_type = 1 Then
   If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择要删除的日志"
    Exit Sub
  End If
  If MsgBox("是否删除当前日志记录", vbYesNo, "请确认") = vbYes Then
 'MyLog.DeleteByDate (Format(MonthView1.Value, "yyyy_mm_dd"))

 
  Do While Adodc1.Recordset.BOF = False
   On Error GoTo a
  Adodc1.Recordset.Delete
  Adodc1.Recordset.MoveNext
  Loop
a:
MsgBox "系统日志已清空", vbOKOnly, "清空日志"
                                  '添加系统日志信息
  MyLog.Title = "成员姓名:" + Trim(Me.Caption)
  MyLog.Body = "已清空" & (Format(MonthView1.Value, "yyyy年mm月dd日")) & "的系统日志记录" '设置为当天日期
  MyLog.LogType = "删除"
  MyLog.UserName = CurUser.name
  MyLog.Save
  Refresh_Log
 End If
End If

End Sub

Private Sub Cmd_DelbyId_Click()
  If CurUser.User_type = 4 Or CurUser.User_type = 3 Then
   MsgBox "你没有删除日志的权限", vbOKOnly + vbCritical, "警告"
ElseIf CurUser.User_type = 1 Or CurUser.User_type = 2 Then
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择要删除的日志"
    Exit Sub
  End If
  
  If MsgBox("是否删除当前日志记录", vbYesNo, "请确认") = vbYes Then
   On Error GoTo a
   Adodc1.Recordset.Delete
  End If
a:
   MsgBox "已删除当前日志记录", vbOKOnly, "删除日志"

  End If

  Refresh_Log
End Sub

Private Sub ComboType_Click()
  Refresh_Log
End Sub

Private Sub ComboUser_Click()
  Refresh_Log
End Sub

Private Sub Comd1_Click()
MonthView1.Visible = True
Comd1.Text = MonthView1.Value
End Sub

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Command4.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
'cmdsave.Enabled = True
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
Command4.Enabled = True
Command1.Enabled = True
Command3.Enabled = True
'cmdsave.Enabled = True
If Adodc1.Recordset.AbsolutePosition <= 0 Then
Adodc1.Recordset.MoveFirst
  MsgBox "已经是第一条记录！", vbExclamation, "提示信息"
  Command1.Enabled = False
  Command2.Enabled = False
 Command3.Enabled = True
  End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
Command4.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
'cmdsave.Enabled = True
If Adodc1.Recordset.AbsolutePosition <= 0 Then
Adodc1.Recordset.MoveLast
  MsgBox "已经是最后一条记录！", vbExclamation, "提示信息"
    Command4.Enabled = False
    Command3.Enabled = False
    Command2.Enabled = True
  End If
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
'cmdsave.Enabled = True
End Sub



Private Sub Command5_Click()
DataReport2.Show
End Sub

Private Sub Command6_Click()
If Me.WindowState = 2 Then
   Me.WindowState = 0
  Else
  Me.WindowState = 2
  End If
End Sub

Private Sub Command7_Click()
Me.WindowState = 1
End Sub

Private Sub DtCheckDate_Change()
  Refresh_Log
End Sub



Private Sub Form_Load()
Comd1.Text = Format(Now, "yyyy-mm-dd")      '设置为当天日期
MonthView1.Value = Format(Now, "yyyy-mm-dd")
   WindowsXPC1.InitSubClassing
   Me.BackColor = &HD1D8DB
   Frame1.BackColor = &HD1D8DB
  '加载事件类型
  ComboType.AddItem "全部", 0
  ComboType.AddItem "登陆", 1
  ComboType.AddItem "增加", 2
  ComboType.AddItem "修改", 3
  ComboType.AddItem "删除", 4
  ComboType.AddItem "数据备份", 5
  ComboType.AddItem "恢复备份", 6
  '加载用户名
  MyUser.LoadUsers
  ComboUser.AddItem "全部"
  i = 0
  Do While Arr_User(i) <> ""
    ComboUser.AddItem Arr_User(i)
    i = i + 1
  Loop
  ComboUser.ListIndex = 0
  ComboType.ListIndex = 0
  Comd1.imige = True
  Refresh_Log
End Sub

Private Sub Form_Paint()
If Me.WindowState = 0 Then
   Command6.Caption = "最大化(&S)"
   Command6.ToolTipText = "最大化窗体"
  ElseIf Me.WindowState = 2 Then
   Command6.Caption = "还原(&Z)"
   Command6.ToolTipText = "窗体还原"
  End If
End Sub

Private Sub Form_Resize()
On Error Resume Next
DataGrid1.Height = Me.Height - 1800
DataGrid1.Width = Me.Width - 550
DataGrid1.Left = 240
DataGrid1.Top = 840
Frame1.Left = 240
Frame1.Width = Me.Width - 550
Cmd_DelbyId.Top = DataGrid1.Height + 960
Cmd_DelbyDate.Top = DataGrid1.Height + 960
Cmd_Back.Top = DataGrid1.Height + 960
Cmd_Back.Left = Me.Width - 1500
Command1.Top = DataGrid1.Height + 960
Command2.Top = DataGrid1.Height + 960
Command3.Top = DataGrid1.Height + 960
Command4.Top = DataGrid1.Height + 960
Command6.Top = DataGrid1.Height + 960
Command6.Left = Me.Width - 2275 - 200
Command7.Top = DataGrid1.Height + 960
Command7.Left = Me.Width - 3255 - 200
End Sub


Private Sub Form_Unload(Cancel As Integer)
Call Disconnect
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Comd1.imige = True
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Comd1.Text = MonthView1.Value
MonthView1.Visible = False
Refresh_Log
End Sub