📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "SYSINFO.OCX"
Begin VB.MDIForm frmMain
AutoShowChildren= 0 'False
BackColor = &H80000009&
Caption = "企业档案管理系统"
ClientHeight = 4950
ClientLeft = 165
ClientTop = 450
ClientWidth = 6675
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 'CenterScreen
Begin SysInfoLib.SysInfo SysInfo
Left = 4320
Top = 1200
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin MSComctlLib.ImageList ImlColor
Left = 3480
Top = 1200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":27A2
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":33F6
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":404A
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4C9E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":58F2
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6546
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImlGray
Left = 2520
Top = 1200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":719A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7DEE
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":8A42
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9696
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A2EA
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":AF3E
Key = ""
EndProperty
EndProperty
End
Begin ComCtl3.CoolBar CoolBar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 1
Top = 0
Width = 6675
_ExtentX = 11774
_ExtentY = 1111
BandCount = 1
_CBWidth = 6675
_CBHeight = 630
_Version = "6.0.8169"
Child1 = "Toolbar1"
MinHeight1 = 570
Width1 = 4425
NewRow1 = 0 'False
Begin MSComctlLib.Toolbar Toolbar1
Height = 570
Left = 30
TabIndex = 2
Top = 30
Width = 6555
_ExtentX = 11562
_ExtentY = 1005
ButtonWidth = 1032
ButtonHeight = 1005
Style = 1
ImageList = "ImlGray"
HotImageList = "ImlColor"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Import"
Object.ToolTipText = "数据导入(从ZT97)"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Center"
Object.ToolTipText = "控制台,用于文书导入及查询"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Class"
Object.ToolTipText = "文书类型管理"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Move"
Object.ToolTipText = "文书转移"
ImageIndex = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Delete"
Object.ToolTipText = "文书删除"
ImageIndex = 5
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Exit"
Object.ToolTipText = "退出"
ImageIndex = 6
EndProperty
EndProperty
End
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 4680
Width = 6675
_ExtentX = 11774
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 6112
Text = "状态"
TextSave = "状态"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2003-11-7"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "19:58"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 1740
Top = 1140
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Menu mnuSystemSetup
Caption = "系统设置(&S)"
NegotiatePosition= 2 'Middle
Begin VB.Menu mnuDataImport
Caption = "数据导入(&I)"
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuCaseManage
Caption = "文书类型管理(&C)..."
End
Begin VB.Menu mnuImgPathSet
Caption = "文件存放路径设置(&S)"
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuView
Caption = "系统功能(&V)"
Begin VB.Menu mnuCenter
Caption = "控制台(&C)"
Shortcut = ^C
End
Begin VB.Menu mnuViewBar0
Caption = "-"
End
Begin VB.Menu mnuFileMove
Caption = "文书转移(&M)"
End
Begin VB.Menu mnuDelCase
Caption = "文书删除(&D)"
End
Begin VB.Menu mnuBackup
Caption = "文书备份(&B)"
End
End
Begin VB.Menu mnuFunction
Caption = "系统维护(&P)"
Begin VB.Menu mnuDatabaseBackup
Caption = "数据库备份(&B)"
End
Begin VB.Menu mnuDatebaseClean
Caption = "数据库整理(&C)"
End
Begin VB.Menu mnuFuncSep
Caption = "-"
End
Begin VB.Menu mnuDatabaseInit
Caption = "数据库初始化(&I)"
End
End
Begin VB.Menu mnuWindow
Caption = "窗口(&W)"
WindowList = -1 'True
Begin VB.Menu mnuWindowCascade
Caption = "层叠(&C)"
End
Begin VB.Menu mnuWindowTileHorizontal
Caption = "横向平铺(&H)"
End
Begin VB.Menu mnuWindowTileVertical
Caption = "纵向平铺(&V)"
End
Begin VB.Menu mnuWindowArrangeIcons
Caption = "排列图标(&A)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Index = 1
Begin VB.Menu mnuTitle
Caption = "主题(&T)"
End
Begin VB.Menu mnuSep
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "关于(&A) "
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'局部常量定义
Const EM_UNDO = &HC7
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Sub MDIForm_Load()
Me.WindowState = vbMaximized
fCenter.Show
End Sub
Private Sub LoadNewDoc()
Static lQueryCount As Long
Dim frmQ As frmQueryResult
lQueryCount = lQueryCount + 1
Set frmQ = New frmQueryResult
frmQ.Caption = "查询 " & lQueryCount
frmQ.Show
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call MDIForm_Unload(0)
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
' If Me.WindowState <> vbMinimized Then
' SaveSetting App.Title, "Settings", "MainLeft", Me.Left
' SaveSetting App.Title, "Settings", "MainTop", Me.Top
' SaveSetting App.Title, "Settings", "MainWidth", Me.Width
' SaveSetting App.Title, "Settings", "MainHeight", Me.Height
' End If
Me.MousePointer = vbHourglass
If Not fCenter Is Nothing Then
Unload fCenter
End If
If Not conZT97 Is Nothing Then
Set conZT97 = Nothing
End If
If Not conCaseMain Is Nothing Then
Set conCaseMain = Nothing
End If
Me.MousePointer = vbDefault
End
End Sub
'"文书备份"菜单单击事件
Private Sub mnuBackup_Click()
Dim fImgBackup As frmImgBackup
Set fImgBackup = New frmImgBackup
fImgBackup.Show vbModal '显示文书备份窗体
End Sub
'"文书类型管理"菜单单击事件
Private Sub mnuCaseManage_Click()
Dim fNewCase As frmNewCase
Set fNewCase = New frmNewCase
fNewCase.Show vbModal '显示文书类型管理窗口
End Sub
'"控制台"菜单单击事件
Private Sub mnuCenter_Click()
If Not fCenter Is Nothing Then '可以通过Is Nothing来判断窗体是否彻底释放资源
fCenter.Show
Exit Sub
End If
Set fCenter = New frmCenter
fCenter.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -