救命

最新推荐文章于 2024-05-09 15:56:01 发布

hpl1111

最新推荐文章于 2024-05-09 15:56:01 发布

阅读量493

点赞数

文章标签： input integer

本文链接：https://blog.csdn.net/hpl1111/article/details/496311

版权

我是个菜鸟，谁会救我！！！原因是这样的:我用 stringgrid 设计表格，里面设置了没有输入相应信息时退出，谁知道表格出现自增现象！！！ procedure Ttrade.Button1Click(Sender: TObject); var i:integer; j:real; begin i:=1; j:=0.00; dtm2.adod_goods.Open; dtm2.adod_goods.First; while not dtm2.adod_goods.Eof do begin sg.RowCount:=i+1; sg.Rows[i].Add(inttostr(i)); if (handle_man2.Text<>'')and(client2.Text<>'') then if sg.Cells[1,i]='' then begin sg.Cells[1,i]:=dtm2.adod_goods.Fieldbyname('txt_name').AsString; if dtm2.adod_goods.Fieldbyname('txt_name').AsString='' then begin showmessage('please input goods'); break; end; sg.Cells[2,i]:=dtm2.adod_goods.Fieldbyname('num_amount').AsString; if dtm2.adod_goods.Fieldbyname('num_amount').AsString='' then begin showmessage('please input amount'); break; end; sg.Cells[3,i]:=dtm2.adod_goods.Fieldbyname('num_price').AsString; if dtm2.adod_goods.Fieldbyname('num_price').AsString='' then begin showmessage('please input price'); break; end; j:=((strtofloat(sg.Cells[2,i]))*(strtofloat(sg.Cells[3,i]))); sg.Cells[4,i]:=floattostr(j); end else i:=i+1 else begin showmessage('the conditions are not suffice'); break; end; dtm2.adod_goods.Next; end; end; 这是代码了，救我啊！！！！！拜托各位大哥，大姐了！！！！