📄 tree.frm
字号:
Begin VB.Frame FraLinkState
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "栏目性质"
ForeColor = &H80000008&
Height = 2535
Left = 120
TabIndex = 19
Top = 360
Width = 4695
Begin VB.OptionButton OptLinkState12
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "综合功能叶栏目"
Enabled = 0 'False
ForeColor = &H80000008&
Height = 255
Left = 2640
TabIndex = 41
Top = 1800
Width = 1695
End
Begin VB.OptionButton OptLinkState11
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "流程应用叶栏目"
Enabled = 0 'False
ForeColor = &H80000008&
Height = 255
Left = 2640
TabIndex = 40
Top = 1440
Width = 1815
End
Begin VB.OptionButton OptLinkState10
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "合同应用叶栏目"
Enabled = 0 'False
ForeColor = &H80000008&
Height = 255
Left = 2640
TabIndex = 39
Top = 1080
Width = 1935
End
Begin VB.OptionButton OptLinkState9
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "系统功能叶栏目"
Enabled = 0 'False
ForeColor = &H80000008&
Height = 255
Left = 2640
TabIndex = 12
ToolTipText = "此栏目需要选定具体的新闻公告级别应用名称"
Top = 720
Width = 1935
End
Begin VB.OptionButton OptLinkState7
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "管理助手叶栏目"
Enabled = 0 'False
ForeColor = &H80000008&
Height = 255
Left = 2640
TabIndex = 36
ToolTipText = "此栏目需要选定具体的管理助手应用名称"
Top = 360
Width = 1935
End
Begin VB.OptionButton OptLinkState6
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "文档维护叶栏目"
ForeColor = &H80000008&
Height = 255
Left = 480
TabIndex = 35
ToolTipText = "此栏目需要选定具体的管理助手应用名称"
Top = 2160
Width = 1935
End
Begin VB.OptionButton OptLinkState5
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "具体应用叶栏目"
ForeColor = &H80000008&
Height = 255
Left = 480
TabIndex = 30
ToolTipText = "此栏目需要选定具体的应用"
Top = 1800
Width = 1935
End
Begin VB.OptionButton OptLinkState4
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "分级管理叶栏目"
ForeColor = &H80000008&
Height = 255
Left = 480
TabIndex = 29
ToolTipText = "此栏目需要设定分级管理的目录"
Top = 1440
Width = 1935
End
Begin VB.OptionButton OptLinkState3
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "链接目录叶栏目"
ForeColor = &H80000008&
Height = 255
Left = 480
TabIndex = 3
ToolTipText = "此栏目需要显示选定目录下的文件"
Top = 1080
Width = 1935
End
Begin VB.OptionButton OptLinkState2
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "链接文件叶栏目"
ForeColor = &H80000008&
Height = 255
Left = 480
TabIndex = 2
ToolTipText = "此栏目是通过HTML或ASP文件进行关联的"
Top = 720
Width = 1935
End
Begin VB.OptionButton OptLinkState1
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "非叶栏目"
ForeColor = &H80000008&
Height = 255
Left = 480
TabIndex = 1
Top = 360
Width = 1935
End
End
Begin VB.Label LabRight
AutoSize = -1 'True
Caption = "设置成功！"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 315
Left = 5040
TabIndex = 28
Top = 5400
Visible = 0 'False
Width = 1650
End
Begin VB.Label LabMethod
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "应用方法："
Height = 180
Left = 120
TabIndex = 34
Top = 4320
Width = 900
End
Begin VB.Label LabWiz
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "应用名称："
Height = 180
Left = 120
TabIndex = 32
Top = 3720
Width = 900
End
Begin VB.Label LabFont
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "显示字体："
Height = 180
Left = 120
TabIndex = 26
Top = 4920
Width = 900
End
Begin VB.Label LabStaticColor
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "静态颜色："
Height = 180
Left = 120
TabIndex = 25
Top = 5520
Width = 900
End
Begin VB.Label LabFontSize
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "字号："
Height = 180
Left = 2760
TabIndex = 24
Top = 4920
Width = 540
End
Begin VB.Label LabDynamicColor
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "动态颜色："
Height = 180
Left = 120
TabIndex = 23
Top = 6120
Width = 900
End
Begin VB.Label LabLinkFile
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "链接文件："
Height = 180
Left = 120
TabIndex = 22
Top = 3120
Width = 900
End
End
Begin VB.Menu TreePopMenu
Caption = "栏目"
Visible = 0 'False
Begin VB.Menu AddNext
Caption = "添加同级栏目"
HelpContextID = 1
End
Begin VB.Menu AddChild
Caption = "添加子栏目"
HelpContextID = 2
End
Begin VB.Menu ChangeItem
Caption = "修改栏目名称"
HelpContextID = 3
End
Begin VB.Menu DeleteItem
Caption = "删除当前栏目"
HelpContextID = 4
End
End
End
Attribute VB_Name = "FrmTree"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim indrag As Boolean '指示拖放操作的标志。
Private nodX As Node
Private strNodeKey As String
Private strNodeText As String
Private ChangeFlag As Boolean
Private Sub SaveTreeBase()
On Error GoTo DatabaseError
' If Not OptLinkState1.Value Then
' If Len(Trim(TxtLinkFile.Text)) = 0 Then
' MsgBox "链接的文件或目录不能为空！", vbExclamation, "系统信息"
' Exit Sub
' End If
'End If
If OptLinkState10.Value Then
If CobWiz.ListIndex < 0 Then
MsgBox "合同应用名称不能为空！", 48, "系统信息"
Exit Sub
End If
End If
If OptLinkState11.Value Then
If CobWiz.ListIndex < 0 Then
MsgBox "流程路线名称不能为空！", 48, "系统信息"
Exit Sub
End If
End If
If OptLinkState12.Value Then
If CobWiz.ListIndex < 0 Then
MsgBox "应用名称不能为空！", 48, "系统信息"
Exit Sub
End If
End If
sql = "Update treebase Set "
sql = sql & "linkstate="
If OptLinkState1.Value Then sql = sql & "1,"
If OptLinkState2.Value Then sql = sql & "2,"
If OptLinkState3.Value Then sql = sql & "3,"
If OptLinkState4.Value Then sql = sql & "4,"
If OptLinkState5.Value Then sql = sql & "5,"
If OptLinkState6.Value Then sql = sql & "6,"
If OptLinkState7.Value Then sql = sql & "7,"
If OptLinkState9.Value Then sql = sql & "9,"
If OptLinkState10.Value Then sql = sql & "10,"
If OptLinkState11.Value Then sql = sql & "11,"
If OptLinkState12.Value Then sql = sql & "12,"
sql = sql & "dispstate="
If OptDispState1.Value Then sql = sql & "1,"
If OptDispState2.Value Then sql = sql & "2,"
sql = sql & "dispstyle="
If OptDispStyle1.Value Then sql = sql & "1,"
If OptDispStyle2.Value Then sql = sql & "2,"
If OptDispStyle3.Value Then sql = sql & "3,"
sql = sql & "linkfile='" & Trim(TxtLinkFile.Text) & "',"
sql = sql & "font='" & Trim(TxtFont.Text) & "',"
sql = sql & "fontsize=" & Trim(TxtFontSize.Text) & ","
sql = sql & "staticcolor='" & Trim(TxtStaticColor.Text) & "',"
sql = sql & "dynamiccolor='" & Trim(TxtDynamicColor.Text) & "' "
sql = sql & "WHERE treeno='" & Trim(strNodeKey) & "'"
Return_Var = gclsDatabase.RDOUpdate(sql)
'MsgBox "栏目设置成功！", vbInformation, "系统信息"
LabRight.Visible = True
TimeInfo.Enabled = True
Exit Sub
DatabaseError:
Call ManageQuit
End Sub
Private Sub DispTreeBase()
Dim i As Integer
Dim cc As String
On Error GoTo DatabaseError
FrmTree.Caption = "栏目管理（" & GetTitle(strNodeKey) & "）"
FraTreeInfo.Caption = GetTitle(strNodeKey)
sql = "SELECT linkstate,linkfile,dispstate,dispstyle,"
sql = sql & "font,fontsize,staticcolor,dynamiccolor "
sql = sql & "FROM treebase WHERE "
sql = sql & "treeno='" & strNodeKey & "' order by treeno"
Set rst = gclsDatabase.RDOSelect(sql)
Select Case rst!linkstate
Case 1
'---------------set data
LabLinkFile.Caption = "链接文件："
OptLinkState1.Value = True
OptDispState1.Value = True
OptDispStyle2.Value = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -