关于VF做投票系统的问题
发布网友
发布时间：2023-07-14 16:47
共1个回答
热心网友
时间：2024-12-14 07:36
2、新建一个下组合框combo1，设combo1.rowsource=职工表.编号，姓名 rowsourcetype设为6-字段。
3、新建一个单选按钮optiongroup1,将optiongroup1.option1 到optiongroup1.option4的caption分别设为 优秀、良好、合格和不合格。
4、新建一命令按钮command1 设command1.caption='提交'
5、编写command1.click事件代码
if .not.empty(thisform.combo1.value)&&选择编号，姓名不为空
do case
case thisform.optiongroup1.value=1
repl 职工表.优秀 with 职工表.优秀+1
case thisform.optiongroup1.value=2
repl 职工表.良好 with 职工表.良好+1
case thisform.optiongroup1.value=3
repl 职工表.合格 with 职工表.合格+1
case thisform.optiongroup1.value=4
repl 职工表.不合格 with 职工表.不合格+1
endcase
else
=messagebox('请选择编号，姓名',0,'错误')
return
endif
6、统计票数
每个职工相应等级的票数就是职工表中的数据，这要看你想以怎样的方式表现出来了。
比如：新建一个标签label1 设autosize=.t.
在command1的click事件里输入：
thisform.label1.caption=allt(职工表.编号)+allt(职工表.姓名)+'：优秀'+allt(str(职工表.优秀))+'票 良好：'+allt(str(职工表.良好))+'票 合格：'+allt(str(职工表.合格))+'票 不合格：'+allt(str(职工表.不合格))+'票'
