专家坐堂-求救·~~Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求救·~~  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50183)

--  作者：wealthwind
--  发布时间：2014/4/30 17:52:00
--  求救·~~

以下设置的HTML，只要到审核阶段，审核人一审批，HTML就锁定，导致不能看全全部的文字内容，请老师给予解决~~

例子以上，请查看~~

此主题相关图片如下：360截图20140430151548812.jpg

此主题相关图片如下：360截图20140430151543359.jpg

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目106.rar

--  作者：Bin
--  发布时间：2014/4/30 17:56:00
--
打不开, 开发者是哪个? 密码是多少?

--  作者：wealthwind
--  发布时间：2014/4/30 18:06:00
--
密码是000054

--  作者：wealthwind
--  发布时间：2014/4/30 18:09:00
--
老师，很急啊，市场人员都在用了~~发现这个问题，他们都查看不了自己写的内容，我这次，问题大了~~

--  作者：lsy
--  发布时间：2014/4/30 18:31:00
--
以什么用户名登录？网页也没显示数据，把审核列清空了或者没清空，浏览器控件都没锁定啊。
[此贴子已经被作者于2014-4-30 18:33:25编辑过]

--  作者：有点甜
--  发布时间：2014/4/30 18:50:00
--

方案一：以个案申请为例子

afterload 代码

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
\'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\\e.html"
If Tables("个案申请").current IsNot Nothing Then
    If Tables("个案申请").current.IsNull("审核") = False Then
        Do until e.form.controls("WebBrowser1").basecontrol.ReadyState = 4
            Application.DoEvents
        Loop
        Dim editor As Object = e.form.controls("WebBrowser1").basecontrol.Document.GetElementsByTagName("div")(0)
        editor.InnerHtml = "<div id=\'mymask\' style=\'position:absolute;width:100%;height:100%;z-index:99999\'></div>" & editor.InnerHtml
    End If

    Vars("编辑器校验")=0
    e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")
    e.Form.TimerEnabled = True
    e.Form.TimerInterval = 500
End If

For Each s As String In "Button1|Button3|Button4|Button6|Button7|Button8|Button9|Button10|Button11|DateTimePicker1|DateTimePicker2|DateTimePicker3|TextBox2|TextBox4|TextBox5|TextBox6|GroupBox5|GroupBox6|GroupBox7|TextBox3|DateTimePicker4|Button01|Button02|GroupBox2".Split("|")
    e.Form.Controls(s).Enabled = Tables("个案申请").current.IsNull("审核")

Next
For Each s As String In "Button1|Button3|Button4|TextBox4".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "区域主管")
Next
For Each s As String In "Button6|Button7|DateTimePicker2|TextBox5|GroupBox5".Split("|")
    e.Form.Controls(s).Enabled = (User.roles = "个案拆分")
Next
For Each s As String In "Button8|Button9|DateTimePicker3|TextBox6|GroupBox6".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")
Next
For Each s As String In "Button10|Button11|DateTimePicker1|TextBox2|GroupBox7".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")
Next
For Each s As String In "TextBox3|DateTimePicker4|Button01|Button02|GroupBox2".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "Boss")
Next

TimerTick代码

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            If Tables("个案申请").current IsNot Nothing Then
                e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")
            End If

            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

[此贴子已经被作者于2014-4-30 18:54:54编辑过]

--  作者：有点甜
--  发布时间：2014/4/30 18:53:00
--

方案二：简单一点，注释掉一句代码就好。

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            If Tables("个案申请").current IsNot Nothing Then
                \'e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
                e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")
            End If
            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

--  作者：lsy
--  发布时间：2014/4/30 19:13:00
--

在浏览器控件上面，加一个多行文本框，停靠：Fill

浏览器不锁定。

如果审核为空，浏览器在上，显示内容；

如果审核不为空，文本框在上，显示内容，只读：BooleanEnum.True

这样，利用了多行文本框既能滚动，又不能编辑的特性。

--  作者：wealthwind
--  发布时间：2014/4/30 22:32:00
--
谢谢老师，我已经完成了~~感谢，感谢~~

--  作者：wealthwind
--  发布时间：2014/5/5 19:48:00
--
老师这样的情况，已经实现录入HTML能否下拉看文件，但是用户可以复制里面的内容，我需要达到另外一个目的就是，禁止用户复制内容，那我要如何实现呢？？？