Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口录入与查询


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

主题：窗口录入与查询
美女呀，离线，留言给我吧！
云开月明
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/2 14:09:00 [显示全部帖子]

老师，？
     
     如果我的产品不良记录与录入窗口作为一个项目，那管理员用户如何进行不同用户的权限设置？  是不是要增加一个用户管理表？
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/3 15:18:00 [显示全部帖子]

老师，

      您好！

      产品不良记录表有一个查询窗口（如图一），查找按钮CLICK事件如下，但出现错误提示（如图二）

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
Dim tbx As WinForm.TextBox = e.Form.Controls("TextFind")
Dim chk As WinForm.CheckBox = e.Form.Controls("模糊查找")
Dim str As String = tbx.Value
Dim dr As DataRow
If chk.checked Then
dr = DataTables("产品不良记录").Select("产品名称 Like '%" & str & "%'")
Else
dr = DataTables("产品不良记录").Select("产品名称 = '" & str & "'")
End If
If dr IsNot Nothing Then
Dim idx As Integer = Tables("产品不良记录").FindRow(dr)
If idx >= 0 Then
Tables("产品不良记录").Position = idx
Else
MessageBox.Show("不符合条件,请取消查询!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If 
盼复，为谢！
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/3 16:35:00 [显示全部帖子]

谢谢老师！
可是现在又出现（如图三）
图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
的提示
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/6 10:30:00 [显示全部帖子]

谢谢老师！还有问题请教：如果我需要查找是“产品不良记录“表中任意一列中的内容，代码如何修改？

 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/7 9:42:00 [显示全部帖子]

多谢老师！
      
      我看过权限管理章节，有个问题请教一下，如果在局域网多用户使用的情况下是不是一定要使用外部数据表储存用户权限分配？（为避免增加、删除、更改用户后，需要更新各终端的项目文件）

盼复！为谢！
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/7 16:33:00 [显示全部帖子]

老师，
      请问一般数据录入是在窗口中还是表中录入好些。像我现在做的产品不良记录表是通过录入窗口中SQL Table录入，审核、查找、筛选在产品不良表中，到时候权限控制会不会太繁锁？
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/7 17:43:00 [显示全部帖子]

老师：
      我设置了一键审核按钮，代码以下：

If User.IsRole("审核") = True Then
    Dim rs As List(of Row) = Tables("产品不良记录").GetCheckedRows()
For Each r As Row In rs
         r("审核人") = User.Name
         r("审核日期") = Date.Today()
    Next
Else
    MessageBox.show("你无审核权限!", "提示")
End If

同时也设置取消审核按钮，代码如下：
If User.IsRole("审核") = True 
For Each r As Row In Tables("产品不良记录").Rows
   If r.Checked = False
    Tables("产品不良记录").Current("审核人") = Nothing
    Tables("产品不良记录").Current("审核日期") = Nothing
End If 
Next
Else
    MessageBox.show("你无审核权限!", "提示")
End If

但是取消审核按钮，对未选中的行不能实行一键取消审核，求指点

盼复！为谢！
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/9 14:51:00 [显示全部帖子]

老师，
      你好！
      图一：采购订单列表
      图二：采购订单录入窗口

      录入窗口中TABLE控件是SQLTABLE，其它控件绑定至采购订单列表中各列。

      如何实现在窗口Table中录入N条数据，其它控件中相同的内容只录入1次，保存至采购订单列表后，由其它控制件录入的数据，每条记录中都有显示。
    

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
     
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
盼复！为谢！
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/9 16:02:00 [显示全部帖子]

老师，

     我之前的表达不太清楚，在窗口Table中输几行，其它控件的内容相同，只录入1次，保存后，相对应的那几行中都有其它控件录入的数据，而不是一次性替换到整列的值。
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/9 17:20:00 [显示全部帖子]

谢谢老师！

在窗口AfterLoad事件写代码

 

Tables("采购订单录入窗口_Table1").filter = "1=2"


但是其它控件的录入值还是有，如何将窗口中所有控件设置在每次打开编辑时都是空白的。


请指教，谢谢！
 回到顶部
总数 129 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..13
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05200 秒, 6 次数据查询