📄 tree.frm
字号:
If IsNull(rst!Font) Then
TxtFont.Text = Trim(DefFont)
Else
TxtFont.Text = Trim(rst!Font)
End If
If IsNull(rst!FontSize) Then
TxtFontSize.Text = Trim(str(DefFontSize))
Else
TxtFontSize.Text = Trim(str(rst!FontSize))
End If
If IsNull(rst!staticcolor) Then
TxtStaticColor.Text = Trim(DefStaticColor)
Else
TxtStaticColor.Text = Trim(rst!staticcolor)
End If
TxtStaticColor.ForeColor = Val(Trim(TxtStaticColor.Text))
If IsNull(rst!dynamiccolor) Then
TxtDynamicColor.Text = Trim(DefDynamicColor)
Else
TxtDynamicColor.Text = Trim(rst!dynamiccolor)
End If
TxtDynamicColor.ForeColor = Val(Trim(TxtDynamicColor.Text))
CobWiz.Clear
CobMethod.Clear
sql = "SELECT TableName FROM TableInfo"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
Do While Not rst.EOF
CobWiz.AddItem Trim(rst!Tablename)
rst.MoveNext
Loop
i = InStr(UCase(Trim(TxtLinkFile.Text)), UCase("?id="))
If i = 0 Then
CobWiz.ListIndex = 0
Else
cc = Mid(Trim(TxtLinkFile.Text), i + 4, Len(Trim(TxtLinkFile.Text)) - i - 3)
For i = 0 To CobWiz.ListCount - 1
If UCase(Trim(cc)) = UCase(Trim(CobWiz.list(i))) Then
CobWiz.ListIndex = i
Exit For
End If
Next i
End If
End If
rst.Close
CobMethod.AddItem "输入"
CobMethod.AddItem "查询"
CobMethod.AddItem "修改"
CobMethod.AddItem "首页"
For i = 0 To CobMethod.ListCount - 1
If InStr(UCase(Trim(TxtLinkFile.Text)), UCase(ProgName(i))) <> 0 Then
CobMethod.ListIndex = i
Exit For
End If
Next i
'---------------set disp
OptLinkState1.Enabled = False
OptLinkState2.Enabled = True
OptLinkState3.Enabled = True
OptLinkState4.Enabled = True
OptLinkState5.Enabled = True
OptLinkState6.Enabled = True
'OptLinkState7.Enabled = True
'OptLinkState9.Enabled = True
'OptLinkState10.Enabled = True
'OptLinkState11.Enabled = True
'OptLinkState12.Enabled = True
OptDispState1.Enabled = True
OptDispState2.Enabled = True
OptDispStyle1.Enabled = True
OptDispStyle2.Enabled = True
OptDispStyle3.Enabled = True
TxtLinkFile.Enabled = True
CmdLinkFile.Enabled = False
CobWiz.Enabled = True
CobMethod.Enabled = True
TxtFont.Enabled = True
TxtFontSize.Enabled = True
CmdSetFont.Enabled = True
TxtStaticColor.Enabled = True
CmdSelectSColor.Enabled = True
TxtDynamicColor.Enabled = True
CmdSelectDColor.Enabled = True
Case 6
'---------------文档管理
LabLinkFile.Caption = "链接文件："
OptLinkState6.Value = True
Select Case rst!dispstate
Case 1
OptDispState1.Value = True
Case 2
OptDispState2.Value = True
End Select
Select Case rst!dispstyle
Case 1
OptDispStyle1.Value = True
Case 2
OptDispStyle2.Value = True
Case 3
OptDispStyle3.Value = True
End Select
If IsNull(rst!linkfile) Then
TxtLinkFile.Text = ""
Else
TxtLinkFile.Text = Trim(rst!linkfile)
End If
If IsNull(rst!Font) Then
TxtFont.Text = Trim(DefFont)
Else
TxtFont.Text = Trim(rst!Font)
End If
If IsNull(rst!FontSize) Then
TxtFontSize.Text = Trim(str(DefFontSize))
Else
TxtFontSize.Text = Trim(str(rst!FontSize))
End If
If IsNull(rst!staticcolor) Then
TxtStaticColor.Text = Trim(DefStaticColor)
Else
TxtStaticColor.Text = Trim(rst!staticcolor)
End If
TxtStaticColor.ForeColor = Val(Trim(TxtStaticColor.Text))
If IsNull(rst!dynamiccolor) Then
TxtDynamicColor.Text = Trim(DefDynamicColor)
Else
TxtDynamicColor.Text = Trim(rst!dynamiccolor)
End If
TxtDynamicColor.ForeColor = Val(Trim(TxtDynamicColor.Text))
CobWiz.Clear
CobMethod.Clear
CobMethod.AddItem "本地归档"
CobMethod.AddItem "维护科目密级"
CobMethod.AddItem "查询文件"
CobMethod.AddItem "删除文件"
For i = 0 To CobMethod.ListCount - 1
If InStr(UCase(Trim(TxtLinkFile.Text)), UCase(DocManage(i))) <> 0 Then
CobMethod.ListIndex = i
Exit For
End If
Next i
'---------------set disp
OptLinkState1.Enabled = False
OptLinkState2.Enabled = True
OptLinkState3.Enabled = True
OptLinkState4.Enabled = True
OptLinkState5.Enabled = True
OptLinkState6.Enabled = True
'OptLinkState7.Enabled = True
'OptLinkState9.Enabled = True
'OptLinkState10.Enabled = True
'OptLinkState11.Enabled = True
'OptLinkState12.Enabled = True
OptDispState1.Enabled = True
OptDispState2.Enabled = True
OptDispStyle1.Enabled = True
OptDispStyle2.Enabled = True
OptDispStyle3.Enabled = True
TxtLinkFile.Enabled = True
CmdLinkFile.Enabled = False
CobWiz.Enabled = False
CobMethod.Enabled = True
TxtFont.Enabled = True
TxtFontSize.Enabled = True
CmdSetFont.Enabled = True
TxtStaticColor.Enabled = True
CmdSelectSColor.Enabled = True
TxtDynamicColor.Enabled = True
CmdSelectDColor.Enabled = True
Case 7
'---------------set data
LabLinkFile.Caption = "链接文件："
OptLinkState7.Value = True
Select Case rst!dispstate
Case 1
OptDispState1.Value = True
Case 2
OptDispState2.Value = True
End Select
Select Case rst!dispstyle
Case 1
OptDispStyle1.Value = True
Case 2
OptDispStyle2.Value = True
Case 3
OptDispStyle3.Value = True
End Select
If IsNull(rst!linkfile) Then
TxtLinkFile.Text = ""
Else
TxtLinkFile.Text = Trim(rst!linkfile)
End If
If IsNull(rst!Font) Then
TxtFont.Text = Trim(DefFont)
Else
TxtFont.Text = Trim(rst!Font)
End If
If IsNull(rst!FontSize) Then
TxtFontSize.Text = Trim(str(DefFontSize))
Else
TxtFontSize.Text = Trim(str(rst!FontSize))
End If
If IsNull(rst!staticcolor) Then
TxtStaticColor.Text = Trim(DefStaticColor)
Else
TxtStaticColor.Text = Trim(rst!staticcolor)
End If
TxtStaticColor.ForeColor = Val(Trim(TxtStaticColor.Text))
If IsNull(rst!dynamiccolor) Then
TxtDynamicColor.Text = Trim(DefDynamicColor)
Else
TxtDynamicColor.Text = Trim(rst!dynamiccolor)
End If
TxtDynamicColor.ForeColor = Val(Trim(TxtDynamicColor.Text))
CobWiz.Clear
CobMethod.Clear
CobMethod.AddItem "应用生成器"
CobMethod.AddItem "合同生成器"
CobMethod.AddItem "常用名词维护"
CobMethod.AddItem "栏目管理"
CobMethod.AddItem "定义流程"
CobMethod.AddItem "流程路线"
CobMethod.AddItem "流程实例"
CobMethod.AddItem "HEML模板"
For i = 0 To CobMethod.ListCount - 1
If InStr(UCase(Trim(TxtLinkFile.Text)), UCase(SystemTools(i))) <> 0 Then
CobMethod.ListIndex = i
Exit For
End If
Next i
'---------------set disp
OptLinkState1.Enabled = False
OptLinkState2.Enabled = True
OptLinkState3.Enabled = True
OptLinkState4.Enabled = True
OptLinkState5.Enabled = True
OptLinkState6.Enabled = True
'OptLinkState7.Enabled = True
'OptLinkState9.Enabled = True
'OptLinkState10.Enabled = True
'OptLinkState11.Enabled = True
'OptLinkState12.Enabled = True
OptDispState1.Enabled = True
OptDispState2.Enabled = True
OptDispStyle1.Enabled = True
OptDispStyle2.Enabled = True
OptDispStyle3.Enabled = True
TxtLinkFile.Enabled = True
CmdLinkFile.Enabled = False
CobWiz.Enabled = False
CobMethod.Enabled = True
TxtFont.Enabled = True
TxtFontSize.Enabled = True
CmdSetFont.Enabled = True
TxtStaticColor.Enabled = True
CmdSelectSColor.Enabled = True
TxtDynamicColor.Enabled = True
CmdSelectDColor.Enabled = True
Case 9
'---------------set data
LabLinkFile.Caption = "链接文件："
OptLinkState9.Value = True
Select Case rst!dispstate
Case 1
OptDispState1.Value = True
Case 2
OptDispState2.Value = True
End Select
Select Case rst!dispstyle
Case 1
OptDispStyle1.Value = True
Case 2
OptDispStyle2.Value = True
Case 3
OptDispStyle3.Value = True
End Select
If IsNull(rst!linkfile) Then
TxtLinkFile.Text = ""
Else
TxtLinkFile.Text = Trim(rst!linkfile)
End If
If IsNull(rst!Font) Then
TxtFont.Text = Trim(DefFont)
Else
TxtFont.Text = Trim(rst!Font)
End If
If IsNull(rst!FontSize) Then
TxtFontSize.Text = Trim(str(DefFontSize))
Else
TxtFontSize.Text = Trim(str(rst!FontSize))
End If
If IsNull(rst!staticcolor) Then
TxtStaticColor.Text = Trim(DefStaticColor)
Else
TxtStaticColor.Text = Trim(rst!staticcolor)
End If
TxtStaticColor.ForeColor = Val(Trim(TxtStaticColor.Text))
If IsNull(rst!dynamiccolor) Then
TxtDynamicColor.Text = Trim(DefDynamicColor)
Else
TxtDynamicColor.Text = Trim(rst!dynamiccolor)
End If
TxtDynamicColor.ForeColor = Val(Trim(TxtDynamicColor.Text))
CobWiz.Clear
CobMethod.Clear
CobMethod.AddItem "提供新闻"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -