frm+iͥ+

注释：用VB开发的进销存系统源码

VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frm日志维护 
   Caption         =   "日志维护"
   ClientHeight    =   5250
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8055
   Icon            =   "frm日志维护.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5250
   ScaleWidth      =   8055
   StartUpPosition =   1  '所有者中心
   Begin MSDataGridLib.DataGrid grdLog 
      Align           =   1  'Align Top
      Height          =   4620
      Left            =   0
      TabIndex        =   5
      Top             =   630
      Width           =   8055
      _ExtentX        =   14208
      _ExtentY        =   8149
      _Version        =   393216
      HeadLines       =   1
      RowHeight       =   15
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin Threed.SSPanel pnlToolBar 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8055
      _ExtentX        =   14208
      _ExtentY        =   1111
      _Version        =   131073
      Begin MSComDlg.CommonDialog dlgLogSave 
         Left            =   5250
         Top             =   165
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin Threed.SSPanel cmdExit 
         Height          =   570
         Left            =   3495
         TabIndex        =   4
         Top             =   30
         Width           =   1155
         _ExtentX        =   2037
         _ExtentY        =   1005
         _Version        =   131073
         Caption         =   "退出[&X]"
      End
      Begin Threed.SSCommand cmdClear 
         Height          =   570
         Left            =   2340
         TabIndex        =   3
         Top             =   30
         Width           =   1155
         _ExtentX        =   2037
         _ExtentY        =   1005
         _Version        =   131073
         Caption         =   "清除[&C]"
      End
      Begin Threed.SSCommand cmdSave 
         Height          =   570
         Left            =   1185
         TabIndex        =   2
         Top             =   30
         Width           =   1155
         _ExtentX        =   2037
         _ExtentY        =   1005
         _Version        =   131073
         Caption         =   "保存[&S]"
      End
      Begin Threed.SSCommand cmdRefresh 
         Height          =   570
         Left            =   30
         TabIndex        =   1
         Top             =   30
         Width           =   1155
         _ExtentX        =   2037
         _ExtentY        =   1005
         _Version        =   131073
         Caption         =   "刷新[&R]"
      End
   End
End
Attribute VB_Name = "frm日志维护"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'*************************************
'       日志查询
'*************************************

Option Explicit

Private Sub cmdClear_Click()
    Temp = MsgBox("在清除日志前建议请先保存!!!" & vbCrLf & "确定要清除吗?", vbQuestion + vbYesNo, "提示窗口")
    If Temp = vbYes Then
        sSQL = "DELETE SYSLOG"
        Cmd.ActiveConnection = Conn
        Cmd.CommandText = sSQL
        Cmd.Execute
        RsTemp.Requery
        grdLog.Refresh
    End If
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdRefresh_Click()
    On Error GoTo RefreshErr
    sSQL = "SELECT * FROM SYSLOG"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    Set grdLog.DataSource = RsTemp
    grdLog.Refresh
    Exit Sub
RefreshErr:
    MsgBox "读取日志时发生错误 !", vbExclamation, "错误窗口"
End Sub

Private Sub cmdSave_Click()
    On Error Resume Next
    Dim strFile As String
    Dim R As New ADODB.Recordset
    
    dlgLogSave.ShowSave
    strFile = dlgLogSave.FileName
    If UCase(Right(strFile, 4)) <> ".log" Then
        strFile = strFile & ".log"
    End If
    Open strFile For Output As #1
    
    sSQL = "SELECT * FROM SYSLOG"
    Set R = Nothing
    R.Open sSQL, Conn, adOpenStatic, adLockReadOnly

    While Not R.EOF
        Print #1, R("Sequence") & vbTab & _
                R("Operator") & vbTab & _
                R("Terminal") & vbTab & _
                R("SysTime") & vbTab & _
                R("OperationType") & vbTab & _
                R("Description")
        R.MoveNext
    Wend
    Set R = Nothing
    Close #1
End Sub

Private Sub Form_Load()
    On Error GoTo RefreshErr
    dlgLogSave.Filter = "*.log"
    sSQL = "SELECT SEQUENCE AS 序号,OPERATOR AS 操作者,TERMINAL AS 终端,SYSTIME AS 系统时间,OPERATIONTYPE AS 操作类型,DESCRIPTION AS 描述,UNITCODE AS 单元代码 FROM SYSLOG"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    Set grdLog.DataSource = RsTemp
    grdLog.Refresh
    Exit Sub
RefreshErr:
    MsgBox "读取日志时发生错误 !", vbExclamation, "错误窗口"

End Sub

Private Sub Form_Resize()
    grdLog.Height = Me.ScaleHeight - pnlToolBar.Height
End Sub