一个简单的投票调查功能构建效果

王爱东 · 发表于 2020-4-10 11:58:33

一般在一个单位中，存在对人员，部门等进行一些绩效调查问卷的功能，类似下图中的调查。

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

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

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

在窗体加载事件中加载出要调查的项，可以专门建立一个调查问卷项库表读取出来，本例直接是在窗体加载事件中新增的。
加载事件：

文档显示部件1.RefreshData()
目标考核调查问卷列表.RefreshData()
目标考核调查问卷列表.EnableNewRow = False
目标考核调查问卷列表.SetFieldReadOnly("考核项目",True)
目标考核调查问卷列表.SetColumnCaption("考核项目","科室")
目标考核调查问卷列表.SetColumnCaption("考核结论","满意度")
'增加要考核的项目，可以新建立一张表实现，也可以直接这里固定添加
dim dt = 目标考核调查问卷列表.DataTable
dim dr
dr = dt.NewRow()
dr["ID"]=guid()
dr["考核项目"] = "办公室"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr["ID"]=guid()
dr["考核项目"] = "人事科"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr["ID"]=guid()
dr["考核项目"] = "党委、团委"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr["ID"]=guid()
dr["考核项目"] = "工会"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr["ID"]=guid()
dr["考核项目"] = "财务科"
dt.Rows.Add(dr)

复制代码

提交保存：（需要判断是否都填写了的，就写上判断代码即可）

dim finishFlag=1
for each drx in dt.Rows
if isnull(drx["考核结论"]) then
finishFlag=0
exit for
end if
next
if finishFlag=0 then
showMessage("还有问卷没有完成，请全部完成后提交，谢谢！",3)
else
if showquestion("确定要提交吗？") then
目标考核调查问卷列表.SaveData()
msgbox("感谢您的参与！")
Me.Close()
end if

复制代码

然后把这个窗体建立菜单开放给用户填写即可。
填写完成后需要统计结果。

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

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