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

标题: 一个简单的投票调查功能构建效果 [打印本页]

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


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

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

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

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

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

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

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

  10. dr = dt.NewRow()
  11. dr["ID"]=guid()
  12. dr["考核项目"] = "办公室"
  13. dt.Rows.Add(dr)

  14. dr = dt.NewRow()
  15. dr["ID"]=guid()
  16. dr["考核项目"] = "人事科"
  17. dt.Rows.Add(dr)

  18. dr = dt.NewRow()
  19. dr["ID"]=guid()
  20. dr["考核项目"] = "党委、团委"
  21. dt.Rows.Add(dr)

  22. dr = dt.NewRow()
  23. dr["ID"]=guid()
  24. dr["考核项目"] = "工会"
  25. dt.Rows.Add(dr)

  26. dr = dt.NewRow()
  27. dr["ID"]=guid()
  28. dr["考核项目"] = "财务科"
  29. 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://bbs.delit.cn/) Powered by Discuz! X3.2