📄 frmsystem.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form frmSystem
BackColor = &H00C0C0C0&
Caption = "SystemManage"
ClientHeight = 4110
ClientLeft = 60
ClientTop = 630
ClientWidth = 9540
Icon = "frmSystem.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4110
ScaleWidth = 9540
StartUpPosition = 2 '屏幕中心
Begin VB.Timer tMr
Interval = 10000
Left = 2295
Top = 765
End
Begin MSComctlLib.StatusBar sBr
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 1
Top = 3765
Width = 9540
_ExtentX = 16828
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 7
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Object.Width = 882
MinWidth = 882
TextSave = "NUM"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Enabled = 0 'False
Object.Width = 882
MinWidth = 882
TextSave = "CAPS"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 2
Object.Width = 1764
MinWidth = 1764
TextSave = "2004-02-13"
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 2
Object.Width = 1764
MinWidth = 1764
TextSave = "10:07"
EndProperty
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid mFg
Height = 3675
Left = 0
TabIndex = 0
Top = 30
Width = 9795
_ExtentX = 17277
_ExtentY = 6482
_Version = 393216
Cols = 8
FixedCols = 0
BackColor = -2147483624
ForeColorFixed = 8388736
AllowUserResizing= 1
FormatString = "站点|<子系统|<用户|<账套|<会计年度|<注册时间|<运行状态|<终止时间"
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
Begin VB.Menu mnuSystem
Caption = "系统(&S)"
HelpContextID = 1
Begin VB.Menu mnuSystemLogin
Caption = "注册(&L)"
HelpContextID = 101
Shortcut = ^L
End
Begin VB.Menu mnuSystemLogout
Caption = "注销(&O)"
Enabled = 0 'False
HelpContextID = 102
Shortcut = ^O
End
Begin VB.Menu lin1
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuAutoBackup
Caption = "自动备份设置"
Visible = 0 'False
End
Begin VB.Menu lin4
Caption = "-"
Index = 1
End
Begin VB.Menu mnuSystemReRegedit
Caption = "重新授权"
HelpContextID = 103
End
Begin VB.Menu mnuRegistMaintenance
Caption = "注册表维护"
HelpContextID = 104
End
Begin VB.Menu lin5
Caption = "-"
End
Begin VB.Menu mnuSystemQuit
Caption = "退出(&Q)"
End
End
Begin VB.Menu mnuAccount
Caption = "账套(&A)"
HelpContextID = 2
Begin VB.Menu mnuAccountCreate
Caption = "创建账套(&C)"
Enabled = 0 'False
HelpContextID = 201
End
Begin VB.Menu lin2tt
Caption = "-"
End
Begin VB.Menu mnuAccountUpdate
Caption = "维护账套(&U)"
Enabled = 0 'False
HelpContextID = 202
End
Begin VB.Menu lin2
Caption = "-"
Index = 2
End
Begin VB.Menu mnuAccountDelete
Caption = "删除账套(&D)"
Enabled = 0 'False
HelpContextID = 203
End
End
Begin VB.Menu mnuYear
Caption = "年度账(&Y)"
HelpContextID = 3
Begin VB.Menu mnuYearCreate
Caption = "建立年度数据表(&C)"
Enabled = 0 'False
HelpContextID = 301
End
Begin VB.Menu lin3
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuYearDeal
Caption = "结转上年数据(&E)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnu_Km
Caption = "结转上年科目"
Visible = 0 'False
End
End
Begin VB.Menu mnuWork
Caption = "岗位(&W)"
HelpContextID = 4
Begin VB.Menu mnuWorkUser
Caption = "操作员管理(&U)"
Enabled = 0 'False
HelpContextID = 401
End
Begin VB.Menu mnuWorkAuth
Caption = "权限目录(&A)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnuWorkBar1
Caption = "-"
End
Begin VB.Menu mnuWorkSet
Caption = "操作员权限设置(&S)"
Enabled = 0 'False
HelpContextID = 402
End
End
Begin VB.Menu mnuMutex
Caption = "互斥管理"
HelpContextID = 5
Begin VB.Menu mnuMutexInfo
Caption = "互斥功能维护"
Visible = 0 'False
End
Begin VB.Menu mnuMutexObjectInfo
Caption = "互斥对象维护"
Visible = 0 'False
End
Begin VB.Menu mnuMutexLine
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuMutexClear
Caption = "清除互斥状态"
HelpContextID = 501
End
End
Begin VB.Menu mnuDeal
Caption = "数据处理(&P)"
HelpContextID = 6
Begin VB.Menu mnuDealBackup
Caption = "数据备份(&B)"
Enabled = 0 'False
HelpContextID = 601
End
Begin VB.Menu mnuDealRestore
Caption = "数据恢复(&R)"
Enabled = 0 'False
HelpContextID = 602
End
Begin VB.Menu lin15
Caption = "-"
End
Begin VB.Menu mnuFileDatabak
Caption = "账套备份(&S)"
Enabled = 0 'False
HelpContextID = 603
End
Begin VB.Menu mnuFileDataRecover
Caption = "账套恢复(&C)"
Enabled = 0 'False
HelpContextID = 604
End
End
Begin VB.Menu mnuView
Caption = "查阅(&V)"
HelpContextID = 7
Begin VB.Menu mnuViewRefresh
Caption = "刷新(&R)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnuViewClearLock
Caption = "清除死锁(&C)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnuViewMutex
Caption = "并发与互斥(&M)"
Visible = 0 'False
End
Begin VB.Menu lin11
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuViewOption
Caption = "选项(&O)"
Enabled = 0 'False
HelpContextID = 701
End
Begin VB.Menu mnuViewLog
Caption = "上机日志(&L)"
Enabled = 0 'False
HelpContextID = 702
End
Begin VB.Menu mnuViewInfor
Caption = "账套信息(&I)"
Enabled = 0 'False
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpContent
Caption = "目录(&C)"
End
Begin VB.Menu mnuHelpIndex
Caption = "索引(&I)"
End
Begin VB.Menu mnuHelpBar1
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "关于 系统管理(&A)..."
End
End
End
Attribute VB_Name = "frmSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal Hprocess As Long, lpExitCode As Long) As Long
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
Private pidNotepad, Hprocess, Ingexitcode As Long
Private Const Process_Query_Information = &H400
Private Const Still_Active = &H103
Dim rstManage As ADODB.Recordset
'进行运行监控时的前后天数
Dim m_iShowDay As Integer
Private isAutoBackup As Boolean
'Public bUpdate As Boolean '是否修改账套
Public Property Let uiShowDay(ByVal NewDay As Integer)
m_iShowDay = NewDay
End Property
Public Property Get uiShowDay() As Integer
uiShowDay = m_iShowDay
End Property
Private Sub Form_Activate()
'调用该事件以便在本窗体活动时进行一次立即刷新
Call tMr_Timer
End Sub
Private Sub Form_Initialize()
'初始仅监控当天的运行记录
m_iShowDay = 0
frmWizard.bUpdate = False
Set rstManage = New ADODB.Recordset
End Sub
Private Sub Form_Load()
Me.Caption = "长航财务 - " & App.ProductName
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -