| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 报表需要存储在共享文件夹以便不同部门审核应该怎么把登录权限些进去呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126471) |
| -- 作者：Engineer1 -- 发布时间：2018/10/22 14:41:00 -- 报表需要存储在共享文件夹以便不同部门审核应该怎么把登录权限些进去呢 生成的报表文件需要不同部门审阅，所以想存放在服务器上共享，但不能网络中的人都可以访问共享 文件夹，得有权限的才可以，怎么把用户名和密码加进去 Dim Proc As New Process Proc.File = "\\\\win-p589p7dh28g\\reports\\1.pdf" Proc.Start() |
| -- 作者：有点甜 -- 发布时间：2018/10/22 15:29:00 -- 1、你做一个登陆窗口，输入账号、密码；
2、参考下面代码登陆
Dim p As new Process() |
| -- 作者：Engineer1 -- 发布时间：2018/10/22 16:16:00 -- 老师这个可以加到项目内置的登录窗口里吗？应该怎么弄不会啊 |
| -- 作者：有点甜 -- 发布时间：2018/10/22 16:19:00 -- 1、你访问共享文件夹的账号密码是什么？
2、在红色地方输入账号密码，执行代码，即可访问共享文件夹
Dim p As new Process() |
| -- 作者：Engineer1 -- 发布时间：2018/10/22 16:38:00 -- 可以了，谢谢 老师！ |
| -- 作者：Engineer1 -- 发布时间：2018/10/22 17:01:00 -- Dim p As new Process() p.StartInfo.FileName = "cmd.exe" p.StartInfo.UseShellExecute = False \'关闭Shell的使用 p.StartInfo.RedirectStandardInput = True \'重定向标准输入 p.StartInfo.RedirectStandardOutput = True \'重定向标准输出 p.StartInfo.RedirectStandardError = True \'重定向错误输出 p.StartInfo.CreateNoWindow = True \'设置不显示窗口 p.Start() p.StandardInput.WriteLine( "net use * /del /y") p.StandardInput.WriteLine( "net use \\\\win-p589p7dh28g 密码 /user:123aa") p.StandardInput.WriteLine("exit") Dim r As Row = Tables("理化检测_table3").Current Dim tmfx As String = ProjectPath & "Attachments\\分析报告模板.doc" \'指定模板文件 Dim f As String = projectpath & "\\\\win-p589p7dh28g\\reports\\" & e.form.controls("TextBox9").Text & ".doc" \'指定目标文件 Dim wrtfx As New WordReport(Tables("理化检测_table3"),tmfx,f) \'定义一个WordReport wrtfx.ReplaceWithImage("[图片]",r("报告人") & ".png",65,50) wrtfx.Build() \'逐行生成报表 wrtfx.quit() \'退出报表 老师我这个报表保存的路径这么写对不对？看了一下仍然存储到本地目录了
[此贴子已经被作者于2018/10/22 17:03:41编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/10/22 17:09:00 -- Dim f As String = projectpath & "\\\\win-p589p7dh28g\\reports\\" & e.form.controls("TextBox9").Text & ".doc" \'指定目标文件
改成
Dim f As String = "\\\\win-p589p7dh28g\\reports\\" & e.form.controls("TextBox9").Text & ".doc" \'指定目标文件 |
| -- 作者：Engineer1 -- 发布时间：2018/10/22 17:30:00 -- 字符写错了 [此贴子已经被作者于2018/10/22 17:35:20编辑过]
|