📄 mdiform1.vb
字号:
Private Sub frmMain_Activated(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Activated
If showT = True Then Exit Sub
Dim Ltp As Integer
Ltp = CInt(GetSetting(VB6.GetExeName(), "Options", "Show Tips at Startup", CStr(1)))
If Ltp = 1 Then
frmTip.DefInstance.Show()
End If
showT = True
End Sub
Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.WaitCursor
Dim Ltp As Integer
'frmMain.WindowState = GetSetting(App.EXEName, "Windows", "Windows Status", 1)
Me.Left = VB6.TwipsToPixelsX(CSng(GetSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainLeft", CStr(1000))))
Me.Top = VB6.TwipsToPixelsY(CSng(GetSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainTop", CStr(1000))))
Me.Width = VB6.TwipsToPixelsX(CSng(GetSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainWidth", CStr(6500))))
Me.Height = VB6.TwipsToPixelsY(CSng(GetSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainHeight", CStr(6500))))
'配置图片
StatusBar.Panels.Item(3).Text = "日期:" & VB6.Format(Today, "Long Date")
'frmMain.Caption = TempArray(0) + "-档案管理系统"
frmMain.DefInstance.StatusBar.Panels.Item(6).Text = "制作单位：" & TempArray(0)
frmMain.DefInstance.StatusBar.Panels.Item(6).ToolTipText = "欢迎使用本软件"
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
On Error Resume Next
'UPGRADE_WARNING: MDIForm 属性 frmMain.Picture 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
frmMain.DefInstance.BackgroundImage = System.Drawing.Image.FromFile(TempArray(5))
frmMain.DefInstance.StatusBar.Panels.Item(2).Text = "准备就绪..."
showT = False
'权限控制
Select Case PurView
Case "只能添加"
MnuCompany.Enabled = False
MnuEmploy.Enabled = False
Case "不能修改"
MnuCompany.Enabled = False
MnuEmploy.Enabled = False
Case "可以修改"
MnuEmploy.Enabled = False
Case "超级权限"
'没有权限限制
End Select
'显示路径
MnuDataPathDisplay.Text = "当前数据库路径：" & ConData
Exit Sub
PhotoValible:
MsgBox("桌面图片配置有错误,请重新配置桌面!", MsgBoxStyle.OKOnly + 16, "警告!")
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
End Sub
'UPGRADE_WARNING: Form 事件 MDIForm.MouseDown 未升级。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2050"'
Private Sub MDIForm_MouseDown(ByRef Button As Short, ByRef Shift As Short, ByRef X As Single, ByRef Y As Single)
If Button = 2 Then '右键按下时
'UPGRADE_ISSUE: MDIForm 方法 frmMain.PopupMenu 未升级。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2064"'
PopupMenu(MnuSystem)
End If
End Sub
'UPGRADE_WARNING: Form 事件 MDIForm.MouseMove 未升级。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2050"'
Private Sub MDIForm_MouseMove(ByRef Button As Short, ByRef Shift As Short, ByRef X As Single, ByRef Y As Single)
If frmMain.DefInstance.StatusBar.Panels.Item(2).Text = "待命状态..." Then
Exit Sub
Else
frmMain.DefInstance.StatusBar.Panels.Item(2).Text = "待命状态..."
End If
End Sub
'UPGRADE_WARNING: Form 事件 frmMain.QueryUnload 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
Private Sub frmMain_Closing(ByVal eventSender As System.Object, ByVal eventArgs As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim Cancel As Short = eventArgs.Cancel
Dim SureQ As Short
SureQ = MsgBox("真的退出该系统吗(Y/N)？ ", MsgBoxStyle.YesNo + 32, "请确认...")
If SureQ = 6 Then
Cancel = 0
Else
Cancel = -1
End If
eventArgs.Cancel = Cancel
End Sub
'UPGRADE_WARNING: Form 事件 frmMain.Unload 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
Private Sub frmMain_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
Dim i As Object
'UPGRADE_ISSUE: Forms 集合 未升级。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_WARNING: 未能解析对象 Forms.Count 的默认属性。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
For i = Forms.Count - 1 To 1 Step -1
'UPGRADE_ISSUE: Forms 集合 未升级。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: 卸载 Forms() 未升级。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2029"'
Unload(Forms(i))
Next
If Me.WindowState <> System.Windows.Forms.FormWindowState.Minimized Then
SaveSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainLeft", CStr(VB6.PixelsToTwipsX(Me.Left)))
SaveSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainTop", CStr(VB6.PixelsToTwipsY(Me.Top)))
SaveSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainWidth", CStr(VB6.PixelsToTwipsX(Me.Width)))
SaveSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, "Settings", "MainHeight", CStr(VB6.PixelsToTwipsY(Me.Height)))
End If
'SaveSetting App.EXEName, "Windows", "Windows Status", frmMain.WindowState
End Sub
Public Sub MnuCompany_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuCompany.Popup
MnuCompany_Click(eventSender, eventArgs)
End Sub
Public Sub MnuCompany_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuCompany.Click
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
GetStatus("公司信息配置")
If ConfigForm.DefInstance.Visible = True Then
ConfigForm.DefInstance.Activate()
Else
ConfigForm.DefInstance.Show()
End If
Me.Cursor = System.Windows.Forms.Cursors.Default
End Sub
Public Sub MnuEmploy_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuEmploy.Popup
MnuEmploy_Click(eventSender, eventArgs)
End Sub
Public Sub MnuEmploy_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuEmploy.Click
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
GetStatus("操作员配置")
If frmOperator.DefInstance.Visible = True Then
frmOperator.DefInstance.Activate()
Else
frmOperator.DefInstance.Show()
End If
Me.Cursor = System.Windows.Forms.Cursors.Default
End Sub
Public Sub MnuExi_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuExi.Popup
MnuExi_Click(eventSender, eventArgs)
End Sub
Public Sub MnuExi_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuExi.Click
GetStatus("关闭系统")
Me.Close()
End Sub
Public Sub MnuGuestManager_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuGuestManager.Popup
MnuGuestManager_Click(eventSender, eventArgs)
End Sub
Public Sub MnuGuestManager_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuGuestManager.Click
GetStatus("档案添加、删除、修改、查询")
End Sub
Public Sub MnuGuestType_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuGuestType.Popup
MnuGuestType_Click(eventSender, eventArgs)
End Sub
Public Sub MnuGuestType_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuGuestType.Click
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.WaitCursor
GetStatus("档案类型有：公文、原始材料")
frmCatalog.DefInstance.ShowDialog()
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
End Sub
Public Sub Mnuhelp_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Mnuhelp.Popup
Mnuhelp_Click(eventSender, eventArgs)
End Sub
Public Sub Mnuhelp_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Mnuhelp.Click
GetStatus("配置桌片图片、操作员、关于信息")
End Sub
Public Sub MnuNetData_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuNetData.Popup
MnuNetData_Click(eventSender, eventArgs)
End Sub
Public Sub MnuNetData_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuNetData.Click
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.WaitCursor
NetData.DefInstance.ShowDialog()
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
End Sub
Public Sub MnuSearchGuest_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuSearchGuest.Popup
MnuSearchGuest_Click(eventSender, eventArgs)
End Sub
Public Sub MnuSearchGuest_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuSearchGuest.Click
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.WaitCursor
If frmManager.DefInstance.Visible = True Then
frmManager.DefInstance.Activate()
Else
frmManager.DefInstance.Show()
End If
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
End Sub
Public Sub MnuTip_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuTip.Popup
MnuTip_Click(eventSender, eventArgs)
End Sub
Public Sub MnuTip_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuTip.Click
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.WaitCursor
GetStatus("系统的使用技巧与帮助")
If frmTip.DefInstance.Visible = True Then
frmTip.DefInstance.Activate()
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
End If
SaveSetting(VB6.GetExeName(), "Options", "Show Tips at Startup", CStr(-1))
If frmTip.DefInstance.Visible = True Then
frmTip.DefInstance.Activate()
End If
frmTip.DefInstance.Show()
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
End Sub
Public Sub MnuWxy_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuWxy.Popup
MnuWxy_Click(eventSender, eventArgs)
End Sub
Public Sub MnuWxy_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuWxy.Click
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.WaitCursor
GetStatus("关于系统描述")
frmAbout.DefInstance.ShowDialog()
frmMain.DefInstance.Cursor = System.Windows.Forms.Cursors.Default
End Sub
Private Sub Toolbar1_ButtonClick(ByVal eventSender As System.Object, ByVal eventArgs As AxComctlLib.IToolbarEvents_ButtonClickEvent) Handles Toolbar1.ButtonClick
Select Case eventArgs.Button.Key
Case "Manager"
GetStatus("目录添加、删除、文件添加、修改、删除")
Call MnuSearchGuest_Click(MnuSearchGuest, New System.EventArgs())
Case "Content"
GetStatus("目录添加、删除")
Call MnuGuestType_Click(MnuGuestType, New System.EventArgs())
Case "Add"
GetStatus("在此目录下添加新档案")
Call frmManager.DefInstance.MnuAddFile_Click(frmManager.DefInstance.MnuAddFile, New System.EventArgs())
Case "Modify"
GetStatus("修改选定的档案")
Call frmManager.DefInstance.MnuModifyFile_Click(frmManager.DefInstance.MnuModifyFile, New System.EventArgs())
Case "Delete"
GetStatus("删除选定的档案")
Call frmManager.DefInstance.MnuDeleteFile_Click(frmManager.DefInstance.MnuDeleteFile, New System.EventArgs())
Case "Search"
GetStatus("搜索档案仓库，查找匹配档案")
Call frmManager.DefInstance.MnuSearchFile_Click(frmManager.DefInstance.MnuSearchFile, New System.EventArgs())
Case "Help"
GetStatus("系统操作手册")
Call MnuTip_Click(MnuTip, New System.EventArgs())
Case "Exit"
GetStatus("退出档案管理系统")
Call MnuExi_Click(MnuExi, New System.EventArgs())
End Select
End Sub
End Class⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -