Foxtable(狐表)用户栏目专家坐堂 → 图片自动更新


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

主题:图片自动更新

帅哥哟,离线,有人找我吗?
Jonny
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2020/2/4 14:33:00
图片自动更新  发帖心情 Post By:2020/2/11 16:14:00 [只看该作者]

 版主:

我现在有个问题,需要大家指导一下。

手头现在有几张表,一张是全部门人员的信息表,另一张是特种作业人员信息表,一张是特种设备点检表。特种作业人员只是一部分人员,是那个全部人员的子集合。

特种作业点检表是特种作业人员每天要检查的一个清单,我现在想把它做成可视化窗口,方便规范员工点检。每点击一项检查项目,右侧的图片可以自动更新到相关内容。比如点击检查项目,黑色叉车,右侧的图片会自动显示黑色叉车;点击检查项目,黄色叉车,右侧图片会自动显示为黄色叉车。

我的想法是新建一个窗口,通过下拉单选择点检项目,右侧图片可以自动更新,引导检查项目。但不知道如何做到关联引用?

有没有类似的项目?帮助里没找到类似的例子
[此贴子已经被作者于2020/2/11 16:16:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/11 17:39:00 [只看该作者]

使用图片扩展列管理图片即可:http://www.foxtable.com/webhelp/topics/0086.htm

如果使用窗口控件,也可以使用图片控件:http://www.foxtable.com/webhelp/topics/0812.htm,直接绑定图片列,或者根据某个字段如“检查项目”获取本机图片设置到图片控件即可:http://www.foxtable.com/webhelp/topics/2728.htm

 回到顶部
帅哥哟,离线,有人找我吗?
Jonny
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2020/2/4 14:33:00
  发帖心情 Post By:2020/2/11 19:37:00 [只看该作者]

 谢谢版主,是我学习不精图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Jonny
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2020/2/4 14:33:00
  发帖心情 Post By:2020/2/13 17:46:00 [只看该作者]


 版主:

可能是我没有说清楚。现在的需求是从A表(特种作业取证信息表)和B表(叉车台帐)中抓取一部分信息,然后新增在C表(叉车点检记录)中。

举个例子,A表是特种作业取证表,一般只有班长和操作员。现在计划新建一个窗口录入界面,有些字段(比如车辆台帐信息)是从B表里抓取的,有些是从A表(比如员工信息)抓取的,它们形成记录后,需要记录在C表里。

这几天尝试了很多办法,主要是困难是:

1.抓屏示意如下,当选择了车间、规格和生产厂商之后,其实注册车号就已经固定了,不应该是台帐里所有设备,只有一个。通过前两天的测试,是可以实现的。这个帮助写得很清楚,http://www.foxtable.com/webhelp/index.htm?page=1416.htm。因为全部字段都在B表里。

图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2020-02-13_17-16-50.png
图片点击可在新窗口打开查看

2. 但现在的问题是,我还有一个组合框,就是“检查人员”,这个需要从A表里抓取。但抓取的时候,参考B组的字段限制,只抓取当前车间、当前班组的人员作为下拉框。这个功能我一直没搞定,想了很多办法都不行。上面的帮助只是当前表里可以逐次缩小下拉内容,但现在是把B、A表里的信息各抓取一部分,而且它们还是相关的。从B表里抓取了车间,那么A表抓取的时候,应该只显示当前班组里的人员,而且不是全车间人的供下拉选择。绑定列不行,试了好多遍,字段不限制,显示的是所有信息。这有点像Excel里的跨表引用,而且要跨表动态引用。


图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2020-02-13_17-25-56.png
图片点击可在新窗口打开查看

谢谢版主。

不好意思,编辑了好几遍,图片过长,显示不太美观。

 

[此贴子已经被作者于2020/2/13 17:51:01编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 8:38:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
Jonny
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2020/2/4 14:33:00
组合框逻辑关联、图片更新的问题  发帖心情 Post By:2020/2/17 22:57:00 [只看该作者]


 
 版主,非常感谢支持。

根据您的指导,我已经做出想要的界面的绝大部分内容,但仍然存在以下几个问题。

1. 员工班组选择时,逻辑有问题。

我设想的逻辑是选择单元后,再选择班组,再选择员工。选择范围是逐步缩小的,但现在设计出来的窗口,选择了班组后,会把两个单元的本班组的人员全列出来。这不是我想要的结果,因为将来每个班组要有十几个人,两个单元加起来要超过20人,这么长的下拉单,显然太啰嗦了。

图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2020-02-17_20-34-22.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:组合框逻辑测试1.png
图片点击可在新窗口打开查看

我参考的是在线帮助文件:http://www.foxtable.com/webhelp/index.htm?page=1523.htm。当然这个界面的组合框一共是7个,我把它们分成两组。第一组的三个是没有问题的,问题是第二组的4个。首先在窗口的AfterLoad事件,写如下代码:

以下内容为程序代码:

1 Dim cmb As WinForm.ComboBox = e.form.Controls("规格")
2 cmb.ComboList = DataTables("叉车台帐").GetComboListString("规格")
3
4 Dim cmb_2 As WinForm.ComboBox = e.form.Controls("单元")
5 cmb_2.ComboList = DataTables("特种作业取证表").GetComboListString("岗位")


然后在第二组第二个组合框,"班组"的Enter事件里,写入代码:

以下内容为程序代码:

1 Dim cmb_2 As WinForm.ComboBox = e.Sender
2 Dim str As String = e.Form.Controls("单元").Value
3 cmb_2.ComboList = DataTables("特种作业取证表").GetComboListString("班组", "岗位= '" & str & "'")


同理,第三个组合框,“检查人员”的Enter事件里,写入代码:

以下内容为程序代码:

1 Dim cmb_2 As WinForm.ComboBox = e.Sender
2 Dim str As String = e.Form.Controls("班组").Value
3 cmb_2.ComboList = DataTables("特种作业取证表").GetComboListString("姓名", "班组 = '" & str & "'")


最后一个组合框,”工号“的Enter事件里,写入代码:

以下内容为程序代码:

1 Dim cmb_2 As WinForm.ComboBox = e.Sender
2 Dim str As String = e.Form.Controls("班组").Value
3 cmb_2.ComboList = DataTables("特种作业取证表").GetComboListString("姓名", "班组 = '" & str & "'")




图片点击可在新窗口打开查看此主题相关图片如下:组合框逻辑测试2.png
图片点击可在新窗口打开查看
但不知道哪里出了问题,选择逻辑不太正确。但界面可以正常显示,所以设置办法应该是对的。请版主指点代码是否有不合适的地方。

2. 照片无法更新。

我的想法是当上面的组合框选择完成后,就会自动显示相应位号的设备实物图片,而不是固定的某一张图。我尝试了绑定列,但不起作用,照片不显示。我在照片框的BeforeGetImage事件写了如下代码:

Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("叉车台帐").Current
Dim str As String=r("注册车号") 
If str IsNot Nothing Then
    Select Case str
            Case "陕H00019"
                e.file="林德_陕H00019.jpg"
            Case "陕H00022"
                e.file="海斯特_陕H00022.jpg"
            Case "陕H00023"
                e.file="海斯特_陕H00023.jpg"
             Case "陕H00024"
                e.file="林德_陕H00024.jpg"
    End Select
Else
     e.File = "" '不显示图片
End If

在那个”叉车台帐“的表里,每一个位号的设备,都有一个备注列,有自己的照片,但上面的引用方法应该不对,照片不显示,更不要提自动关联了。


图片点击可在新窗口打开查看此主题相关图片如下:照片更新问题.png
图片点击可在新窗口打开查看

请版主指点,谢谢。





[此贴子已经被作者于2020/2/17 23:09:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/17 23:13:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
Jonny
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2020/2/4 14:33:00
  发帖心情 Post By:2020/2/18 16:49:00 [只看该作者]

 版主:

我原本也想传实例,但那个项目文件里,还有一些部门其它信息,有些是个人隐私,不方便放在论坛。

今天早上做了些数据处理,另存在一个测试文件里。

请查收附件。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试1.table



感谢指点。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/18 17:36:00 [只看该作者]

开发者密码?

 回到顶部
帅哥哟,离线,有人找我吗?
Jonny
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2020/2/4 14:33:00
  发帖心情 Post By:2020/2/18 18:29:00 [只看该作者]

 抱歉,我自己的项目设置了密码。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试1.table

重置了,是默认”888“

 回到顶部
总数 47 1 2 3 4 5 下一页