⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tree.frm

📁 OA编程 源代码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            OptDispStyle3.Value = True
            
            If IsNull(rst!linkfile) Then
                TxtLinkFile.Text = ""
            Else
                TxtLinkFile.Text = Trim(rst!linkfile)
            End If
            
            CobWiz.Clear
            CobMethod.Clear
            
            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))
            
            '---------------set disp
            
            OptLinkState1.Enabled = True
            OptLinkState2.Enabled = False
            OptLinkState3.Enabled = False
            OptLinkState4.Enabled = False
            OptLinkState5.Enabled = False
            OptLinkState6.Enabled = False
            'OptLinkState7.Enabled = False
            'OptLinkState9.Enabled = False
            'OptLinkState10.Enabled = False
            'OptLinkState11.Enabled = False
            'OptLinkState12.Enabled = False
            
            OptDispState1.Enabled = True
            OptDispState2.Enabled = False
            
            OptDispStyle1.Enabled = False
            OptDispStyle3.Enabled = False
            OptDispStyle2.Enabled = True
            
            TxtLinkFile.Enabled = True
            CmdLinkFile.Enabled = True
            CobWiz.Enabled = False
            CobMethod.Enabled = False
            
            TxtFont.Enabled = True
            TxtFontSize.Enabled = True
            CmdSetFont.Enabled = True
            
            TxtStaticColor.Enabled = True
            CmdSelectSColor.Enabled = True
            TxtDynamicColor.Enabled = True
            CmdSelectDColor.Enabled = True
        Case 2
            '---------------set data
            
            LabLinkFile.Caption = "链接目录："
            
            OptLinkState2.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
                    OptDispStyle2.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))
            
            '---------------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 = True
            CobWiz.Enabled = False
            CobMethod.Enabled = False
            
            TxtFont.Enabled = True
            TxtFontSize.Enabled = True
            CmdSetFont.Enabled = True
            
            TxtStaticColor.Enabled = True
            CmdSelectSColor.Enabled = True
            TxtDynamicColor.Enabled = True
            CmdSelectDColor.Enabled = True
        Case 3
            '---------------set data
            
            LabLinkFile.Caption = "链接目录："
            
            OptLinkState3.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
                    OptDispStyle2.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))
            
            '---------------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 = True
            CobWiz.Enabled = False
            CobMethod.Enabled = False
            
            TxtFont.Enabled = True
            TxtFontSize.Enabled = True
            CmdSetFont.Enabled = True
            
            TxtStaticColor.Enabled = True
            CmdSelectSColor.Enabled = True
            TxtDynamicColor.Enabled = True
            CmdSelectDColor.Enabled = True
        Case 4
            '---------------set data
            
            LabLinkFile.Caption = "链接目录："
            
            OptLinkState4.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))
            
            '---------------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 = True
            CobWiz.Enabled = False
            CobMethod.Enabled = False
            
            TxtFont.Enabled = True
            TxtFontSize.Enabled = True
            CmdSetFont.Enabled = True
            
            TxtStaticColor.Enabled = True
            CmdSelectSColor.Enabled = True
            TxtDynamicColor.Enabled = True
            CmdSelectDColor.Enabled = True
        Case 5
            '---------------set data
            
            LabLinkFile.Caption = "链接文件："
            
            OptLinkState5.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
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -