Foxtable(狐表) → 用户栏目 → 专家坐堂 → 逻辑按钮


  共有3458人关注过本帖树形打印复制链接

主题：逻辑按钮
帅哥哟，离线，有人找我吗？
zoyong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		逻辑按钮  发帖心情 Post By：2018/9/23 16:33:00 [显示全部帖子]



    With wb.AddInputGroup("form1","就餐类别","就餐类别")
        .AddSwitch("中餐","中餐")
        .AddSwitch("晚餐","晚餐")
    End With

除了用单选按钮，逻辑按键能不能实现二选一功能
选中中餐后就不能点晚餐，选了晚餐后中餐就不能选择，怎么实现
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/25 12:45:00 [显示全部帖子]

static da As Date = Date.today.AddDays(-1)
If da <> Date.today AndAlso Date.Now.Hour = 10 Then
    da = Date.today
    Dim ta As String = Format(da,"dddd")   '格式化星期
    If ta = "星期二"  Then
        Dim lb As WinForm.Button = Forms("订餐").Controls("重起打印机")
        lb.PerformClick()
    End If
End If


计划任务，设置每周二上午10点模拟按键，上面的代码是否有效
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/26 8:15:00 [显示全部帖子]

企业微信如何获取e.Cookies("username") 的值
下面的代码，实测为空值
我想进入页面后自动输入名称

.AddInput("姓名","姓名","text").Value = e.Cookies("username") 
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/26 9:14:00 [显示全部帖子]

HttpRequst事件

If e.host = "210121kc64.51mypc.cn:20995" Then '需要授权才能访问的域名,前面不能加http
    Dim UserId As String
    Dim UserName As String
    Dim sb As New StringBuilder
    sb.AppendLine("<meta name='viewport' c>")
    If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId
        Dim ul As String  = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
        ul = CExp(ul,Functions.Execute("GetQYAccessToken"),e.GetValues("code"))
        Dim hc As new HttpClient(ul)
        Dim jo As JObject = JObject.Parse(hc.GetData)
        If jo("UserId") IsNot Nothing Then
            UserId = jo("UserId")
        End If
    Else
        UserId = e.Cookies("userid") '否则从cookie中提取userid和username
    End If
    Dim Verified As Boolean
    Dim dr As DataRow = DataTables("Users").Find("userid ='" & UserId & "'") '根据openid找出对应的行
    If UserId  > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True '授权成功
        Verified  = True
        UserName = dr("name")
        e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中wxcbfda17a529a9666
    ElseIf e.GetValues.ContainsKey("code") = False Then '如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxcbfda17a529a9666&redirect_uri=http%3a%2f%2f210121kc64.51mypc.cn:20995&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
        sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
    If Verified = False Then
        sb.AppendLine("你无权访问本系统")
    Else
        sb.AppendLine("欢迎" & UserName & " , <a href='http://www.baidu.com'>刷新页面</a>")
    End If
    e.WriteString(sb.ToString)
End If

以上代码无效啊
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/26 17:09:00 [显示全部帖子]

msgbox(e.host)
msgbox(UserId)

210121kc64.51mypc.cn:20995

加上:20995，代码不跳出

用这个执行，210121kc64.51mypc.cn     
msgbox(e.host)     弹出210121kc64.51mypc.cn        
msgbox(UserId)     弹出空值
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/30 13:29:00 [显示全部帖子]

以下代码可用，但是每次会提示，

图片点击可在新窗口打开查看此主题相关图片如下：360截图20180930132835335.bmp
图片点击可在新窗口打开查看


Dim Book As New XLS.Book(ProjectPath & "Attachments\订餐明细打印.xls")
Dim fl As String = ProjectPath & "Reports\订餐明细打印.xls"
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process
Proc.File = fl

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange    '只取有数据的区域
Rg.copy
ClipBoard.GetImage.save("e:\web\webdc\images\订餐明细打印.jpg")
App.quit
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/30 16:45:00 [显示全部帖子]

If e.host = "210121kc64.51mypc.cn" Then '需要授权才能访问的域名,前面不能加http
    Dim UserId As String
    Dim UserName As String
    Dim sb As New StringBuilder
    sb.AppendLine("<meta name='viewport' c>")
    If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId
        Dim ul As String  = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
        ul = CExp(ul,Functions.Execute("GetQYAccessToken"),e.GetValues("code"))
        Dim hc As new HttpClient(ul)
        Dim jo As JObject = JObject.Parse(hc.GetData)
        If jo("UserId") IsNot Nothing Then
            UserId = jo("UserId")
        End If
    Else
        UserId = e.Cookies("userid") '否则从cookie中提取userid和username
    End If
    
    Dim Verified As Boolean
    Dim dr As DataRow = DataTables("Users").Find("userid ='" & UserId & "'") '根据openid找出对应的行
    If UserId  > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True Then   '授权成功
        Verified  = True
        UserName = dr("name")
        e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中wxcbfda17a529a96a6
    ElseIf e.GetValues.ContainsKey("code") = False Then '如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect"
        Dim ul2 As String = UrlEncode("http://210121kc64.51mypc.cn:20996/logon.htm") '跳转到授权链接,登录主页
        ul = CExp(ul,"wxcbfda17a529a96a6",ul2,"123")     '123
       sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
'sb.Append("<meta http-equiv='Refresh' c>") '直接跳转到首页
        e.WriteString(sb.ToString)
        Return
    End If
    If Verified = False Then
        sb.AppendLine("你无权访问本系统,请联系管理员开通!")
    Else     '<br/>表示换行
        sb.AppendLine("<br/><h2>欢迎" & UserName & "</h2><a href='dcsx.htm'><h2>点击进入订餐系统</h2></a>")
    End If
    e.WriteString(sb.ToString)
End If


红色代码获取登入信息可用，但是进入后点击后进入dcsx.htm这个页面，还是停留在当前
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/30 17:28:00 [显示全部帖子]

Dim wb As New WeUI
wb.AddPageTitle("","pageheader","工作餐平台","内部订餐系统")
With wb.AddGrid("","g1")
     .Add("c6","我要订餐", "./webdc/images/dcmxtongji.png", "http://210121kc64.51mypc.cn:20996/wydc.htm")
     .Add("c5","订餐明细", "./webdc/images/dcmx.png", "http://210121kc64.51mypc.cn:20996/dcmxmx.htm")
     .Add("c7","我的订餐", "./webdc/images/dchj.png", "http://210121kc64.51mypc.cn:20996/wddc.htm") 
     .Add("c8","订餐统计", "./webdc/images/edit.png", "http://210121kc64.51mypc.cn:20996/dcmxtongji.htm")
     .Add("c9","代码测试", "./webdc/images/list.png", "http://210121kc64.51mypc.cn:20996/Upimages.htm")
End With
     With wb.AddPageFooter("","pf1","Copyright &copy; 2010-2018 xj-cgjs.com")
        .AddLink("底部链接","http://wap.baidu.com")
     End With
e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/9/30 17:46:00 [显示全部帖子]

'通用事件头
HttpServer.WebPath = "e:\web"
Functions.Execute("WEBSERVERS",e)


WEBSERVERS：
Dim e As RequestEventArgs = args(0)
Dim drx As DataRow = DataTables("订餐网页表").SQLFind("网页='" & e.Path & "'")
If drx IsNot Nothing  Then
 '   For Each dr As DataRow In DataTables("订餐网页表").DataRows
 '       If DataTables("订餐网页表").Find("启用状态") = true Then
            e.AsyncExecute = True  '通知系统,将采用异步方式生成网页
            Functions.AsyncExecute(drx("函数名称"),e) '异步调用函数生成网页
  '      End If
  '  Next
End If
[此贴子已经被作者于2018/9/30 18:36:44编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 5 次数据查询