📄 tree.frm
字号:
CobMethod.AddItem "审查新闻"
CobMethod.AddItem "发布新闻"
CobMethod.AddItem "内部邮件"
CobMethod.AddItem "流程执行"
CobMethod.AddItem "流程查询"
CobMethod.AddItem "自由论坛"
For i = 0 To CobMethod.ListCount - 1
If InStr(UCase(Trim(TxtLinkFile.Text)), UCase(SystemApp(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 10
'-----------合同类应用
LabLinkFile.Caption = "链接文件："
OptLinkState10.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
sql = "SELECT distinct 表名 FROM 合同说明"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
Do While Not rst.EOF
CobWiz.AddItem Trim(rst!表名)
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 "修改合同信息"
For i = 0 To CobMethod.ListCount - 1
If InStr(UCase(Trim(TxtLinkFile.Text)), UCase(ContName(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 11
LabLinkFile.Caption = "链接文件："
OptLinkState11.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
sql = "select distinct TempKind from DocTemp"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
Do While Not rst.EOF
CobWiz.AddItem Trim(rst!TempKind)
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 "查看操作人"
For i = 0 To CobMethod.ListCount - 1
If InStr(UCase(Trim(TxtLinkFile.Text)), UCase(FlowApp(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 12
'---------------综合类应用
LabLinkFile.Caption = "链接文件："
OptLinkState12.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
sql = "SELECT distinct 表名 FROM 合同说明"
Set rst = gclsDatabase.RDOSelect(sql)
If rst.RowCount > 0 Then
Do While Not rst.EOF
CobWiz.AddItem Trim(rst!表名)
rst.MoveNext
Loop
i = InStr(UCase(Trim(TxtLinkFile.Text)), UCase("?id="))
If i = 0 Then
CobWiz.ListIndex = 0
Else
cc = Mid(Trim(TxtLi⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -