manage.frm
来自「OA编程 源代码」· FRM 代码 · 共 1,121 行 · 第 1/3 页
FRM
1,121 行
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "WindowTileVertical"
Object.ToolTipText = "垂直平铺"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "WindowTileHorizontal"
Object.ToolTipText = "水平平铺"
ImageIndex = 5
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "WindowCascade"
Object.ToolTipText = "层叠窗口"
ImageIndex = 6
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "WindowIcon"
Object.ToolTipText = "排列图标"
ImageIndex = 7
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "Windowunload"
Object.ToolTipText = "卸载窗体"
ImageIndex = 8
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ShowTree"
Object.ToolTipText = "显示目录树"
ImageIndex = 9
Style = 1
Value = 1
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "help"
Object.ToolTipText = "帮助信息"
ImageIndex = 10
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "CmdHome"
ImageIndex = 13
EndProperty
EndProperty
OLEDropMode = 1
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "查找条件:"
Height = 180
Left = 10152
TabIndex = 7
Top = 1248
Width = 816
End
End
End
Begin VB.Menu Menu_Sys
Caption = " 系 统"
Index = 0
Begin VB.Menu Menus_xt
Caption = "注 销"
Index = 0
End
Begin VB.Menu Menus_xt
Caption = "授权码"
Index = 1
Visible = 0 'False
End
Begin VB.Menu Menus_xt
Caption = "-"
Index = 2
End
Begin VB.Menu Menus_xt
Caption = "退 出"
Index = 3
End
End
Begin VB.Menu Menu_Sys
Caption = " 栏目管理"
Index = 1
Begin VB.Menu Menu_LM
Caption = "栏目设置"
Index = 0
End
Begin VB.Menu Menu_LM
Caption = "栏目权限"
Index = 1
End
Begin VB.Menu Menu_LM
Caption = "栏目风格"
Index = 2
End
Begin VB.Menu Menu_LM
Caption = "-"
Index = 3
End
Begin VB.Menu Menu_LM
Caption = "整理目录"
Index = 4
End
End
Begin VB.Menu Menu_Sys
Caption = " 用户管理"
Index = 2
Begin VB.Menu Menus_User
Caption = "用户管理"
Index = 0
End
Begin VB.Menu Menus_User
Caption = "-"
Index = 1
End
Begin VB.Menu Menus_User
Caption = "修改密码"
Index = 2
End
End
Begin VB.Menu Menu_Sys
Caption = " 权限设置"
Index = 3
Begin VB.Menu Menus_Security
Caption = "应用权限"
Index = 0
End
Begin VB.Menu Menus_Security
Caption = "-"
Index = 1
End
Begin VB.Menu Menus_Security
Caption = "快捷权限"
Index = 2
End
End
Begin VB.Menu Menu_Sys
Caption = " 应用程序"
Index = 4
Visible = 0 'False
Begin VB.Menu Menu_App
Caption = "居委会设置"
Index = 0
End
End
Begin VB.Menu Menu_Sys
Caption = " 界面设置"
Index = 5
Begin VB.Menu Menu_Style
Caption = "主页风格"
Index = 0
End
Begin VB.Menu Menu_Style
Caption = "主页工作区"
Index = 1
End
Begin VB.Menu Menu_Style
Caption = "-"
Index = 2
End
Begin VB.Menu Menu_Style
Caption = "新闻公告风格"
Index = 3
End
End
Begin VB.Menu Menu_Sys
Caption = " 窗 口"
Index = 6
Visible = 0 'False
Begin VB.Menu windows
Caption = "水平平铺"
Index = 0
End
Begin VB.Menu windows
Caption = "垂直平铺"
Index = 1
End
Begin VB.Menu windows
Caption = "层叠窗体"
Index = 2
End
Begin VB.Menu windows
Caption = "排列图标"
Index = 3
End
Begin VB.Menu windows
Caption = "-"
Index = 4
End
Begin VB.Menu windows
Caption = "卸载窗体"
Index = 5
End
Begin VB.Menu windows
Caption = "-"
Index = 6
End
Begin VB.Menu windows
Caption = "隐藏工具条"
Checked = -1 'True
Index = 7
End
Begin VB.Menu windows
Caption = "隐藏目录树"
Checked = -1 'True
Index = 8
End
End
Begin VB.Menu Menu_Sys
Caption = " 帮 助"
Index = 7
Begin VB.Menu Menus_Help
Caption = "关于系统"
Index = 0
End
Begin VB.Menu Menus_Help
Caption = "-"
Index = 1
End
Begin VB.Menu Menus_Help
Caption = "帮助信息"
Index = 2
End
End
End
Attribute VB_Name = "MDIManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim pnlA, pnlB, pnlC As Panel
Const HelpCNT = &HB
Private mSplitterMoveFlag As Boolean '分割符是否处于移动状态
Private mXPlace As Integer '分割符移动的X方向坐标
Private Sub Basewh_Click()
FrmBase.Show
End Sub
Private Sub LimitSet_Click()
FrmLimitSet.Show
End Sub
Private Sub MDIForm_Load()
On Error Resume Next
MDIManage.Caption = Trim(MDIManage.Caption) & " - " & Trim(SysPath)
'生成全局变量
Pubsaconnstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=bkbt919;password=919bkbt;Data Source=" & Sevname & ";Connect Timeout=3000;Initial Catalog=" & dbName
'pubsaconnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=dongfeng;Data Source=iamluodong;Connect Timeout=10;Initial Catalog=BCCDB"
conDataBaseStr = Pubsaconnstring
If Pubsaconn.State = 1 Then
Pubsaconn.Close
End If
Pubsaconn.ConnectionString = Pubsaconnstring
Pubsaconn.Open
If err.Number <> 0 Then
MsgBox "连接Server失败！", 64
Exit Sub
End If
Call mLoadNavigation
InitialSize
'换皮肤
Call LoadSkin(Me)
'FrmAbout.Show
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' Dim YesOrNo As Integer
'
' YesOrNo = MsgBox("是否退出“Web管理控制台”程序？", vbYesNo + vbDefaultButton1 + vbQuestion, "提示")
' If YesOrNo = vbNo Then
' Cancel = True
' End If
' Call UnloadSkin
End Sub
Private Function InitialSize()
On Error GoTo ErrAlert
leftbar.Width = Splitbar.Left + 50
With VerticalMenu
.Top = 0
.Left = 0
If CDbl(.Height) <> (CDbl(Me.Height) - 750) Then
If (Me.Height - 1200 - Me.sbStatusBar.Height) < 0 Then
.Height = 0
Else
' .Height = Me.Height - 1070 - Me.sbStatusBar.Height - Me.Toolbar.Height
.Height = Me.Height - Me.sbStatusBar.Height - Me.Toolbar.Height - 800 ' - 1000
Splitbar.Height = Me.Height - Me.sbStatusBar.Height - Me.Toolbar.Height
End If
.Visible = False
.Visible = True
End If
.Width = leftbar.Width - 50
End With
Exit Function
ErrAlert:
Call g_ErrorMessage.ErrMessage
End Function
Private Sub MDIForm_Resize()
On Error GoTo ErrAlert
InitialSize
Exit Sub
ErrAlert:
Call g_ErrorMessage.ErrMessage
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
gclsDatabase.CloseRDODatabaseConnection
Set gclsDatabase = Nothing
If Len(Trim(PathName)) <> 0 Then
Return_Var = SetCurrentDirectory(PathName)
End If
End Sub
Private Sub Menu_App_Click(Index As Integer)
Select Case Index
Case 0
frmResident.Show 1
End Select
End Sub
Private Sub Menu_LM_Click(Index As Integer)
Dim i As Integer
Dim delPath As String
Dim tempPath As String
Dim fs As Object
Dim userChoose As Integer
Select Case Index
Case 0
FrmTree.Show
Screen.MousePointer = 0
FrmTree.SetFocus
Case 1
FrmLimit.Show
FrmLimit.SetFocus
Screen.MousePointer = 0
Case 2
FrmTreeDef.Show 1
Case 4
i = MsgBox("系统将自动整理临时目录，是否继续？", vbYesNo, "系统提示")
If i = vbYes Then
Screen.MousePointer = 11
sql = "SELECT * FROM mainpagepath"
Set rst = gclsDatabase.RDOSelect(sql)
delPath = rst("mainpagepath")
rst.Close
tempPath = delPath & "Temp\*"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFolder tempPath, True
tempPath = delPath & "AttachmentFile\NewsFile\temp\*.*"
fs.DeleteFile tempPath, True
Set fs = Nothing
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?