www.pudn.com > 档案管理系统源码VB.zip > MDIForm1.frm
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMain
BackColor = &H00808000&
Caption = "FileManager"
ClientHeight = 6330
ClientLeft = 60
ClientTop = 630
ClientWidth = 8100
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Visible = 0 'False
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 8100
_ExtentX = 14288
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 12
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "档案管理"
Key = "Manager"
Object.ToolTipText = "档案管理中心"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "目录管理"
Key = "Content"
Object.ToolTipText = "目录管理中心"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Caption = "添加档案"
Key = "Add"
Object.ToolTipText = "添加新档案"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Caption = "修改档案"
Key = "Modify"
Object.ToolTipText = "修改档案内容/说明/参考"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Caption = "删除档案"
Key = "Delete"
Object.ToolTipText = "删除档案"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Caption = "搜索档案"
Key = "Search"
Object.ToolTipText = "搜索档案"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "帮助信息"
Key = "Help"
Object.ToolTipText = "帮助信息中心"
Object.Tag = ""
ImageIndex = 7
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "退出系统"
Key = "Exit"
Object.ToolTipText = "退出系统"
Object.Tag = ""
ImageIndex = 8
EndProperty
EndProperty
End
Begin ComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 330
Left = 0
TabIndex = 0
Top = 6000
Width = 8100
_ExtentX = 14288
_ExtentY = 582
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 6
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Bevel = 2
Object.Width = 1411
MinWidth = 1411
Text = "提示："
TextSave = "提示："
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
TextSave = ""
Key = ""
Object.Tag = ""
Object.ToolTipText = "工具栏的提示信息"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 3529
MinWidth = 3529
TextSave = ""
Key = ""
Object.Tag = ""
Object.ToolTipText = "当前的日期"
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Alignment = 1
Object.Width = 1411
MinWidth = 1411
TextSave = "15:48"
Key = ""
Object.Tag = ""
Object.ToolTipText = "当前的时间"
EndProperty
BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Enabled = 0 'False
Object.Width = 4586
MinWidth = 4586
Text = "设计：俞思龙 调试：刘利"
TextSave = "设计：俞思龙 调试：刘利"
Key = ""
Object.Tag = ""
Object.ToolTipText = "邮件：Silong_group@sohu.com"
EndProperty
BeginProperty Panel6 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Enabled = 0 'False
Object.Width = 5644
MinWidth = 5644
Text = "制作单位：温馨园"
TextSave = "制作单位：温馨园"
Key = ""
Object.Tag = ""
Object.ToolTipText = "电话：0577-6263990 6269098 传真：6269096"
EndProperty
EndProperty
MousePointer = 99
End
Begin ComctlLib.ImageList ImageList1
Left = 45
Top = 915
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 8
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0624
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":093E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0C58
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0F72
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":128C
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":15A6
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":18C0
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu MnuGuestManager
Caption = "档案管理^&M)"
Begin VB.Menu MnuSearchGuest
Caption = "档案仓库 [&T]"
Shortcut = {F5}
End
Begin VB.Menu step3
Caption = "-"
End
Begin VB.Menu MnuExi
Caption = "退出系统 [&E]"
Shortcut = {F9}
End
End
Begin VB.Menu MnuSystem
Caption = "系统配置^&C)"
Begin VB.Menu MnuCompany
Caption = "配置公司信息[&C]"
Shortcut = {F2}
End
Begin VB.Menu Line503
Caption = "-"
End
Begin VB.Menu MnuEmploy
Caption = "配置操作员工[&E]"
End
Begin VB.Menu step50
Caption = "-"
End
Begin VB.Menu MnuGuestType
Caption = "配置档案类型[&T]"
Shortcut = {F3}
End
Begin VB.Menu Line502
Caption = "-"
End
Begin VB.Menu MnuNetData
Caption = "配置网络数据[&N]"
Shortcut = {F8}
End
Begin VB.Menu MnuDataPathDisplay
Caption = ""
End
Begin VB.Menu MnuWordPath
Caption = "配置Word文档保存路径[&D]"
Shortcut = ^D
Visible = 0 'False
End
End
Begin VB.Menu MnuHelp
Caption = "帮助中心^&H)"
Begin VB.Menu MnuTip
Caption = "&D 每日一贴"
Shortcut = {F1}
End
Begin VB.Menu step2
Caption = "-"
End
Begin VB.Menu MnuWxy
Caption = "&A 关于系统"
Shortcut = {F12}
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************
'** Function Declarations: From Wenxingyuan
Dim MouseD As Boolean, Oldx As Single, Oldy As Single
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Dim showT As Boolean
Private Sub MDIForm_Activate()
If showT = True Then Exit Sub
Dim Ltp As Long
Ltp = GetSetting(App.EXEName, "Options", "Show Tips at Startup", 1)
If Ltp = 1 Then
frmTip.Show
End If
showT = True
End Sub
Private Sub MDIForm_Load()
frmMain.MousePointer = 11
Dim Ltp As Long
'frmMain.WindowState = GetSetting(App.EXEName, "Windows", "Windows Status", 1)
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
'配置图片
StatusBar.Panels.Item(3).Text = "日期:" & Format(Date, "Long Date")
'frmMain.Caption = TempArray(0) + "-档案管理系统"
frmMain.StatusBar.Panels.Item(6).Text = "制作单位：" + TempArray(0)
frmMain.StatusBar.Panels.Item(6).ToolTipText = "欢迎使用本软件"
frmMain.MousePointer = 0
On Error Resume Next
frmMain.Picture = LoadPicture(TempArray(5))
frmMain.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.Caption = "当前数据库路径：" & ConData
Exit Sub
PhotoValible:
MsgBox "桌面图片配置有错误,请重新配置桌面!", vbOKOnly + 16, "警告!"
frmMain.MousePointer = 0
Exit Sub
End Sub
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '右键按下时
PopupMenu MnuSystem
End If
End Sub
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If frmMain.StatusBar.Panels.Item(2).Text = "待命状态..." Then
Exit Sub
Else
frmMain.StatusBar.Panels.Item(2).Text = "待命状态..."
End If
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim SureQ As Integer
SureQ = MsgBox("真的退出该系统吗(Y/N)？ ", vbYesNo + 32, "请确认...")
If SureQ = 6 Then
Cancel = 0
Else
Cancel = -1
End If
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
For i = Forms.Count - 1 To 1 Step -1
Unload Forms(i)
Next
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
'SaveSetting App.EXEName, "Windows", "Windows Status", frmMain.WindowState
End Sub
Private Sub MnuCompany_Click()
Me.MousePointer = 11
GetStatus "公司信息配置"
If ConfigForm.Visible = True Then
ConfigForm.SetFocus
Else
ConfigForm.Show
End If
Me.MousePointer = 0
End Sub
Private Sub MnuEmploy_Click()
Me.MousePointer = 11
GetStatus "操作员配置"
If frmOperator.Visible = True Then
frmOperator.SetFocus
Else
frmOperator.Show
End If
Me.MousePointer = 0
End Sub
Private Sub MnuExi_Click()
GetStatus "关闭系统"
Unload Me
End Sub
Private Sub MnuGuestManager_Click()
GetStatus "档案添加、删除、修改、查询"
End Sub
Private Sub MnuGuestType_Click()
frmMain.MousePointer = 11
GetStatus "档案类型有：公文、原始材料"
frmCatalog.Show 1
frmMain.MousePointer = 0
End Sub
Private Sub Mnuhelp_Click()
GetStatus "配置桌片图片、操作员、关于信息"
End Sub
Private Sub MnuNetData_Click()
frmMain.MousePointer = 11
NetData.Show 1
frmMain.MousePointer = 0
End Sub
Private Sub MnuSearchGuest_Click()
frmMain.MousePointer = 11
If frmManager.Visible = True Then
frmManager.SetFocus
Else
frmManager.Show
End If
frmMain.MousePointer = 0
End Sub
Private Sub MnuTip_Click()
frmMain.MousePointer = 11
GetStatus "系统的使用技巧与帮助"
If frmTip.Visible = True Then
frmTip.SetFocus
frmMain.MousePointer = 0
Exit Sub
End If
SaveSetting App.EXEName, "Options", "Show Tips at Startup", -1
If frmTip.Visible = True Then
frmTip.SetFocus
End If
frmTip.Show
frmMain.MousePointer = 0
End Sub
Private Sub MnuWxy_Click()
frmMain.MousePointer = 11
GetStatus "关于系统描述"
frmAbout.Show 1
frmMain.MousePointer = 0
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "Manager"
GetStatus "目录添加、删除、文件添加、修改、删除"
Call MnuSearchGuest_Click
Case "Content"
GetStatus "目录添加、删除"
Call MnuGuestType_Click
Case "Add"
GetStatus "在此目录下添加新档案"
Call frmManager.MnuAddFile_Click
Case "Modify"
GetStatus "修改选定的档案"
Call frmManager.MnuModifyFile_Click
Case "Delete"
GetStatus "删除选定的档案"
Call frmManager.MnuDeleteFile_Click
Case "Search"
GetStatus "搜索档案仓库，查找匹配档案"
Call frmManager.MnuSearchFile_Click
Case "Help"
GetStatus "系统操作手册"
Call MnuTip_Click
Case "Exit"
GetStatus "退出档案管理系统"
Call MnuExi_Click
End Select
End Sub