1. 谁知道用DELPHI如何自动生成流水号
在数据库中还是仅在程序中?如果在数据库中的话,可以设置用
存储过程
来完成,在程序中生成的话,得根据
流水号
的规则来定了(是否需要单独、连续,有没有前辍...)
2. 请各位大侠帮助!delphi中如何自动生成流水号?日期+部门编号+流水号?
一开始先给Z赋个初值,如z:=1;
程序每次执行到需要ID时,Z:=Z+1.
这样就可以搞定。。
3. delphi edit自动产生编码
在“输入”按钮的onclick事件里编写响应代码。
生成的客户编码如果没有什么特殊要求,只是最简单的序列式流水号的话,可以直接设立一个全局变量,用以记录当前的序号,当前序号加1,就是新的流水号。
将流水号赋给客户编码这个Edit控件。
4. delphi怎么自动生成编号并且不重复,重复则有提示
既然是自动生成,在程序中就应该避免重复现象的发生。
首先给编号定一个规则!然后每次生成编号前检查下最大的编号,在其基础上加1!
5. 在DELPHI5数据库中怎样让它自动生成编号?
自己用语句写比如:Select
MAx(id)
from
表如果表中没有纪录哪么id=1000然后插入DB中如果有纪录那么新纪录的id=max(id)+1
6. DELPHI自动生成6位编号
Edit1.Text:=spbh;
这句有错,SPBH是整型的,Edit1.Text是字符串型的,你应该转换下
Edit1.Text:=inttostr(spbh);
7. DELPHI关于自动生成6位编号
spbh:=formatfloat('000000',strtoint(copy(f_dm.adoquery4. Fields[1].AsString,4,2))+1);
检查一下copy(f_dm.adoquery4. Fields[1].AsString,4,2) 是不是整数,如果不是整数, 你使用strtoint就会出错
还有这句 pbh:=format('000000',1) 你编译的时候不报错吗?
可以改成 pbh := FormatFloat('000000', 1);
8. 谁能给我一个自动编号的代码,要DELPHI的
//按你的ini文件的具体情况改下下面的代码吧
//保存的时候没有保存为7位数字,如果你要保存为7位数的话就先利用Format改为7位数再写入到ini文件中
uses IniFiles;
var
f :TIniFile;
aNo :Integer;
begin
f := TIniFile.Create('d:\1.ini'); //ini文件不存在会在写入的时候自动创建的
try
aNo := f.ReadInteger('config','No',0); //读取config节点下的No的值,默认值为0(No不存在或为空的时候会取默认值)
Inc(aNo); //自加1
f.WriteInteger('config','No',aNo); //写入
ShowMessage(Format('%.7d',[aNo]));
finally
FreeAndNil(f);
end;
end;