同上。
解决方案 »
- 如何单步调试一个包和包里面的控件?
- activex 的难题!!!!关于 activex 控件包添加了 文件 在客户端调用的问题!!!!!!! 急!!!!
- 关于字符串处理的问题……急!!!!!!!!!!!!
- WinSubClass.pas文件在哪里?
- 传递datetime型数据出错
- 请问哪能找到delphi6开发版中的所有VCL(组件)的中文介绍以及例子,多谢了。
- FastReport如何设置用自定义纸型横打?
- 如何在客户端知道服务器端是否打开?
- 如何用编程的方法清除 IE 的Form AutoComplete List和Saved username and password by IE
- 牛人请进:有关结果集中的行状态!
- 有介绍delphi关于类定义,使用的书籍,或文档吗?
- 请各位指点一下....由于前途关系希望大家坦城点
单据号的话,文本字段
id.sql.text--select (max(val(rkid))+1) as id from ruku
var
Nostr,Result:string;
begin
Nostr:=id.FieldValues['id'];
Result:=copy('00000',1,5-length(NoStr))+NoStr;
Edit1.Text:=Result;
end;
Oracle可以设置Sequence
SQL Server设置标识种子
在sqlserver2000中用identity函数