度量快速开发平台-专业、快速的软件定制快开平台

标题: 一个简单的投票调查功能构建效果 [打印本页]
作者: 王爱东    时间: 2020-4-10 11:58
标题: 一个简单的投票调查功能构建效果
   一般在一个单位中，存在对人员，部门等进行一些绩效调查问卷的功能，类似下图中的调查。


那么如何最快速最简单的在度量快速开发平台中实现呢，其实在度量快速开发平台中，针对这种考核结果都一样的，就更方便。
简单投票建立步骤：
1、建一张考核结果表（都不需要建立考核库表）

2、建立两张业务表，其中一张中条件写为1=0 不查询出数据，用于用户填写的。

3、建立一张用户填写的数据

在窗体加载事件中加载出要调查的项，可以专门建立一个调查问卷项库表读取出来，本例直接是在窗体加载事件中新增的。
加载事件：
  1. 文档显示部件1.RefreshData()
  2. 目标考核调查问卷列表.RefreshData()
  3. 目标考核调查问卷列表.EnableNewRow = False

  5. 目标考核调查问卷列表.SetFieldReadOnly("考核项目",True)

  7. 目标考核调查问卷列表.SetColumnCaption("考核项目","科室")
  8. 目标考核调查问卷列表.SetColumnCaption("考核结论","满意度")

  10. '增加要考核的项目，可以新建立一张表实现，也可以直接这里固定添加
  11. dim dt = 目标考核调查问卷列表.DataTable
  12. dim dr

  14. dr = dt.NewRow()
  15. dr["ID"]=guid()
  16. dr["考核项目"] = "办公室"
  17. dt.Rows.Add(dr)

  19. dr = dt.NewRow()
  20. dr["ID"]=guid()
  21. dr["考核项目"] = "人事科"
  22. dt.Rows.Add(dr)

  24. dr = dt.NewRow()
  25. dr["ID"]=guid()
  26. dr["考核项目"] = "党委、团委"
  27. dt.Rows.Add(dr)

  29. dr = dt.NewRow()
  30. dr["ID"]=guid()
  31. dr["考核项目"] = "工会"
  32. dt.Rows.Add(dr)

  34. dr = dt.NewRow()
  35. dr["ID"]=guid()
  36. dr["考核项目"] = "财务科"
  37. dt.Rows.Add(dr)
复制代码



提交保存：（需要判断是否都填写了的，就写上判断代码即可）
  1. dim finishFlag=1
  2. for each drx in dt.Rows
  3.    if isnull(drx["考核结论"]) then
  4.        finishFlag=0
  5.        exit for
  6.    end if
  7. next
  8. if     finishFlag=0 then
  9.     showMessage("还有问卷没有完成，请全部完成后提交，谢谢！",3)
  10. else
  11.      if showquestion("确定要提交吗？") then
  12.          目标考核调查问卷列表.SaveData()
  13.          msgbox("感谢您的参与！")
  14.        Me.Close()
  15.       end if
复制代码
然后把这个窗体建立菜单开放给用户填写即可。
填写完成后需要统计结果。

4、构建查询统计界面
直接新建一个窗体，拉入一个网格部件，把不带条件的业务表选择过来刷新即可。可以默认一个好的分组，就自动带上统计功能了。


后记：
这个是可以做简单的调查文件功能的方法。可以很快速的构建。如果要设计到制作一个投票、调查、在线考试的效果(比如自定义项目，评判内容，评判方式等)。就要复杂一些，当然度量快速开发平台要给大家提供一个快速构建的能力，我们后续也会提供很好的工具，简单配置就能实现各类复杂的调查、投票、在线考试的效果来。







作者: 王爱东    时间: 2020-4-10 12:03
这个只是一个简单构建案例供大家参考了解。当然如果有单位目前就只是这个简单的投票调查，就可以直接简单搞定。
作者: 王爱东    时间: 2020-4-10 12:08
代码中好像没显示完，差一个end if
作者: 王爱东    时间: 2020-4-10 16:44
还可以直接利用网上的投票功能，做好后，直接连接到度量快速开发平台中。
作者: 万望    时间: 2020-4-10 16:46
听说顶多了，有人气
作者: 万望    时间: 2020-4-10 16:48
怎一个快字了得
作者: 张兴康    时间: 2020-4-10 19:21
不错的功能，赞一个
作者: 刘亚东    时间: 2020-4-10 19:49
作者: 张军勇    时间: 2020-4-11 08:28
王爱东 发表于 2015-11-10 12:03
这个只是一个简单构建案例供大家参考了解。当然如果有单位目前就只是这个简单的投票调查，就可以直接简单搞 ...

还是需要调查问卷部件来实现。
作者: 万望    时间: 2020-4-12 21:26
前十必火



欢迎光临 度量快速开发平台-专业、快速的软件定制快开平台 (http://plat.delit.cn/) Powered by Discuz! X3.2