Question

刚学Delphi，请教一下，如图，现在我想批量在数字前补0，例如009630，如何写？谢谢！

数据库为access，求代码例子学习，谢谢！

Answer 1

这个在数据库中操作
把这个栏位的数据select出来插入临时表，
然后把临时表中此栏位数据转换成varchar类型，然后设置 临时表栏位='00'+临时表栏位
最后再把数据转换回int类型，插入原来的数据表。
OK，处理完毕。

追问

本人刚学delphi，能帮忙写个例子学习一下？谢谢！

追答

汗，你要求的这个操作主要都是在sql查询器中操作完成的，你写一个存储过程，然后在delphi中用一个query控件来执行这个存储过程就行了啊，把执行的过程写在一个butten的点击事件里面。
如果你的这个字段是文本类型的就更没什么难度了，类型转换都不需要，直接设置 临时表栏位='00'+临时表栏位

这个也不会？

Answer 2

如果字段的数据类型是数字类型,改了也没用,数据库表中是不允许整数前有零的.但看你的表样式,不像是数字类型,像是文本类型,如果是文本类型,这很好解决.用一个ADO数据集组件
for循环,先读取,然后再修改保存,即便上万条,也要不到几秒钟的时间.

追问

是的，字段类型为文本型，因小弟刚学delphi，能帮写个例子代码学习一下吗？谢谢！

Answer 3

把字段数字类改为字段类型，再用length长度函数判断是否达到你所要的长度，再前面加0字符就可以了

追问

小弟刚学，求代码例子学习，谢谢！

追答

select '0000'+convert(char(10),字段名) from 表名
可以直接用SQL语句，如果指定长度再加个right函数

Answer 4

看楼主的表格应该是数据库里面的值吧，直接使用sql语句修改多好啊
还有一种方法就是格式化数字

追问

小弟刚学delphi，求代码例子学习，谢谢！

追答

我用delphi时间也不长，只做过简单的东西，你说的这个应该不用什么delphi处理吧，直接修改数据库不就行了吗？就像楼下说的那样修改SQL语句就可以呀