救命
来源:互联网 发布:英美战争 知乎 编辑:程序博客网 时间:2024/06/03 00:51
我是个菜鸟,谁会救我!!!原因是这样的:我用 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; 这是代码了,救我啊!!!!!拜托各位大哥,大姐了!!!!
- 救命
- 救命
- 救命
- 救命~~~~~
- 救命!
- 救命!!!!!!
- 救命!!!
- 救命啊
- 高手救命!!!!!
- 急用救命..
- 救命啊!
- 救命忠告
- 大虾救命啊~~~~~~~~~~
- 注射器,救命的注射器
- 救命感人故事一
- dos-救命的稻草
- 大虾们快来啊,救命啊
- Mysql 救命模式
- 通过API和键盘钩子彻底屏蔽任务条和开始菜单
- Using Eclipse for C/C++ Development
- 导出Excel非常快的类
- 快速开发高性能Jsp Web应用---FastJsp框架介绍
- 让TreeView前面显示CheckBox
- 救命
- 又是国庆
- 使用Java操作Windows注册表
- 从今天开始,好好经营Fe的Blog
- [转载]GCC编译器选项及优化提示
- 我的三年研究生(CS)学习与工作经历(ZT)
- CPU 的18条
- Struts-Menu使用指南
- How To Use CMD2Model Class