我想知道你是否可以帮助我解决一个我似乎无法解决的非常简单的问题。
基本上,我在 Delphi 7 中创建了一个投票系统。在用户选中复选框以投票“是”后,我需要通过将“是投票”字段增加一来更新我的表格“规则”。
这就是问题所在,由于某种原因,表总是增加 2 而不是 1!
无论如何请提供帮助,我对此很陌生,所以请耐心等待。
这是我的代码:(注意:“bYes”是一个布尔值,其值来自复选框。“RuleID”是一个字段名,链接到要投票的某个规则)
if bYes = True then
begin
qry1.Active := False;
qry1.SQL.Text := 'UPDATE rules SET [Yes votes] = [yes votes] + 1 WHERE ruleid = "1"';
qry1.ExecSQL;
qry1.Active := True;
end
else
qry1.close;
qry1.SQL.Text := 'UPDATE rules SET [no votes] = [no votes] + 1 WHERE ruleid = "1"';
qry1.ExecSQL;
qry1.Open;