【结帖】query 更新数据库问题,求助贾工!!

lity

query更新数据库问题

erwuzai

表单上控件：
  InfoBroker: TInfoBroker;
    RadioGroup1: TRadioGroup;
    Panel1: TPanel;
    DataSetBroker1: TDataSetBroker;
    BitBtn1: TBitBtn;
取人员表里的所有人员。

jiahaiminghr

begin
  with DataSetBroker1.DataSet do
  begin
    if RecordCount > 0 then
    begin
      RadioGroup1.Items.Clear;
      First;
      while not eof do
      begin
        RadioGroup1.Items.Add(FieldByName('姓名').AsString);
        next;
      end;
    end;
  end;
end;

lity

我在RadioGroup1Click下写代码;出现的错误如下
[错误]Biz:\TPXT\WJJ1\TPXX.INFO.DIR\TPGL.FormDoc.pas(48, 11): Undeclared identifier "showmessage"
请问应该怎么定义?

atiger

在use上加上Business.Forms

lity

原来就有Business.Forms的.

jiahaiminghr

看看你出错误的代码。

lity

提交按钮代码不会写了,提示投票成功的同时，数据库方面也有相应的变化,如:给谁投票,谁的票数就加1,然后显示统计,
请大家帮忙,虚心求教!谢谢先

lity

procedure TKBBD1.BitBtn1Click(Sender: TObject);
var
name:string;
begin
    datasetbroker1.DataSet.RecNo:= radiogroup1.ItemIndex;
    name:=datasetbroker1.DataSet.FieldByName('XM').AsString;
    if name <>'' then
      begin
        with query1 do
        begin
          Close;
          query1.CommandText:='update sjb1 set ps=ps+1 where xm = ''name''';
          open;
        end;
      end;
end;
提交按钮下的代码,请帮忙看看,这样写可以不?

jiahaiminghr

可以的，楼主可以测试一下，看还有没有其他的缺陷。