adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.sql.Text:='insert into beipin (PNo,PName,PScale,PGau,PQuat,PPrice) values(:p1,:p2,:p3,:p4,:p5,:p6)';
adoquery1.Parameters.ParamByName('p1').Value:=strtoint(Edit1.text);
adoquery1.Parameters.ParamByName('p2').Value:=Edit2.text;
adoquery1.Parameters.ParamByName('p3').Value:=Edit3.text;
adoquery1.Parameters.ParamByName('p4').Value:=Edit4.text;
adoquery1.Parameters.ParamByName('p5').Value:=strtoint(edit5.text);
adoquery1.Parameters.ParamByName('p6').Value:=strtofloat(edit6.text);
adoquery1.ExecSQL;我的pno字段是bigint型的,但我要將查詢結果的pno全為六位的.比如000001.
adoquery1.sql.Clear;
adoquery1.sql.Text:='insert into beipin (PNo,PName,PScale,PGau,PQuat,PPrice) values(:p1,:p2,:p3,:p4,:p5,:p6)';
adoquery1.Parameters.ParamByName('p1').Value:=strtoint(Edit1.text);
adoquery1.Parameters.ParamByName('p2').Value:=Edit2.text;
adoquery1.Parameters.ParamByName('p3').Value:=Edit3.text;
adoquery1.Parameters.ParamByName('p4').Value:=Edit4.text;
adoquery1.Parameters.ParamByName('p5').Value:=strtoint(edit5.text);
adoquery1.Parameters.ParamByName('p6').Value:=strtofloat(edit6.text);
adoquery1.ExecSQL;我的pno字段是bigint型的,但我要將查詢結果的pno全為六位的.比如000001.
解决方案 »
- (送100分)为什么我的服务不启动了!(在线等!在线送分,昨天就过的了)
- 怎样移除了一个已安装的组件
- 关于在程序中执行sql脚本的问题?
- 关于Help文档的开发!
- 求酒店管理系统需求说明书,设计文档!
- 能否把内存流或磁盘上的某个文件的一部分映射为磁盘上的一个文件,供其它程序调用?
- 关于QReport报表的QRShape适应报表字段大小的问题和QRDBRichText不显示数据的问题
- 大家帮帮我啊!
- 使用clientdataset1.GetNextPacket方法,发现可以取得的记录数比实际查询出来大。何解?
- 是关于数据库的问题
- 问一个有关VCL组件在窗体上移动的简单问题哈
- clientdataset的Filter属性,用的时候要注意那些问题啊?
Pno='00000'+inttostr(x)
else if 10<= x <99 then
................