clsdailymanage.cls

主要实现数据库的日志管理功能

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsDailyManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

'查询日志
Public Sub yngc_mnuSelectDaily()
   
   '***********************************************************
   '根据功能不同，调节窗体按钮的可见与否
   yngc_frmDailySelect.yngc_btnPrintDaily.Visible = True
   yngc_frmDailySelect.yngc_btnSelectDaily.Visible = True
   yngc_frmDailySelect.yngc_btnSelectedDelDaily.Visible = False
   'yngc_frmDailySelect.yngc_btnSelectedDelDaily.Left = 360
   yngc_frmDailySelect.yngc_btnCancal.Left = 4320
   yngc_frmDailySelect.Frame1.Left = 480
   yngc_frmDailySelect.Frame1.Width = 5892
   '***********************************************************
   
   yngc_frmDailySelect.Show vbModal
   
End Sub

'输出日志
Public Sub yngc_mnuPrintDaily()
   On Error Resume Next
   '定义文件名称
   Dim strOpenFilename As String
   yngc_frmDailySelect.CommonDialog1.FileName = ""
   '定义过滤条件
   yngc_frmDailySelect.CommonDialog1.Filter = "所有文件(*.*)|*.*|" & _
        "日志文件(*.xls)|*.xls"
   '设置打开方式
   yngc_frmDailySelect.CommonDialog1.FilterIndex = 2
   '打开对话框
   yngc_frmDailySelect.CommonDialog1.ShowOpen
   If err <> 32755 Then
      strOpenFilename = yngc_frmDailySelect.CommonDialog1.FileName
      If strOpenFilename <> "" Then
         Set appExcel = CreateObject("excel.application")
         appExcel.Visible = True
         appExcel.Workbooks.Open (strOpenFilename)
      Else
         'MsgBox "文件名称不能为空", vbInformation, "提示"
         Exit Sub
      End If
   End If
End Sub
Public Sub yngc_mnuDelDaily()
   yngc_frmDailySelect.Caption = "日志删除"
   yngc_frmDailySelect.yngc_btnSelectedDelDaily.Left = 360
   yngc_frmDailySelect.yngc_btnCancal.Left = 2320
   yngc_frmDailySelect.Frame1.Left = 1480
   yngc_frmDailySelect.Frame1.Width = 3852
   yngc_frmDailySelect.yngc_btnSelectedDelDaily.Visible = True
   yngc_frmDailySelect.yngc_btnPrintDaily.Visible = False
   yngc_frmDailySelect.yngc_btnSelectDaily.Visible = False
   
   yngc_frmDailySelect.Show vbModal
   
End Sub
Public Sub showform()
yngc_frmDailySelect.Show
End Sub

Public Property Set Connect(pConn As connectDataBase.connectdata)
    Set g_clsConnect = pConn
End Property