一般在一个单位中,存在对人员,部门等进行一些绩效调查问卷的功能,类似下图中的调查。
那么如何最快速最简单的在度量快速开发平台中实现呢,其实在度量快速开发平台中,针对这种考核结果都一样的,就更方便。
简单投票建立步骤:
1、建一张考核结果表(都不需要建立考核库表)
2、建立两张业务表,其中一张中条件写为1=0 不查询出数据,用于用户填写的 。
3、建立一张用户填写的数据
在窗体加载事件中加载出要调查的项,可以专门建立一个调查问卷项库表读取出来,本例直接是在窗体加载事件中新增的。
然后把这个窗体建立菜单开放给用户填写即可。
填写完成后需要统计结果。
4、构建查询统计界面
直接新建一个窗体,拉入一个网格部件,把不带条件的业务表选择过来刷新即可。可以默认一个好的分组,就自动带上统计功能了。
后记:
这个是可以做简单的调查文件功能的方法。可以很快速的构建。如果要设计到制作一个投票、调查、在线考试的效果(比如自定义项目,评判内容,评判方式等)。就要复杂一些,当然度量快速开发平台要给大家提供一个快速构建的能力,我们后续也会提供很好的工具,简单配置就能实现各类复杂的调查、投票、在线考试的效果来。
原文地址: http://bbs.delit.cn/thread-276-1-1.html
那么如何最快速最简单的在度量快速开发平台中实现呢,其实在度量快速开发平台中,针对这种考核结果都一样的,就更方便。
简单投票建立步骤:
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、构建查询统计界面
直接新建一个窗体,拉入一个网格部件,把不带条件的业务表选择过来刷新即可。可以默认一个好的分组,就自动带上统计功能了。
后记:
这个是可以做简单的调查文件功能的方法。可以很快速的构建。如果要设计到制作一个投票、调查、在线考试的效果(比如自定义项目,评判内容,评判方式等)。就要复杂一些,当然度量快速开发平台要给大家提供一个快速构建的能力,我们后续也会提供很好的工具,简单配置就能实现各类复杂的调查、投票、在线考试的效果来。
原文地址: http://bbs.delit.cn/thread-276-1-1.html
转载请注明出处:
撰写人:度量科技www.delit.cn