谁知道用DELPHI如何自动生成流水号

2024-05-04 03:25

1. 谁知道用DELPHI如何自动生成流水号

在数据库中还是仅在程序中?如果在数据库中的话,可以设置用
存储过程
来完成,在程序中生成的话,得根据
流水号
的规则来定了(是否需要单独、连续,有没有前辍...)

谁知道用DELPHI如何自动生成流水号

2. 请各位大侠帮助!delphi中如何自动生成流水号?日期+部门编号+流水号?

一开始先给Z赋个初值,如z:=1;
程序每次执行到需要ID时,Z:=Z+1.
这样就可以搞定。。

3. delphi edit自动产生编码

在“输入”按钮的onclick事件里编写响应代码。

生成的客户编码如果没有什么特殊要求,只是最简单的序列式流水号的话,可以直接设立一个全局变量,用以记录当前的序号,当前序号加1,就是新的流水号。

将流水号赋给客户编码这个Edit控件。

delphi edit自动产生编码

4. delphi怎么自动生成编号并且不重复,重复则有提示

既然是自动生成,在程序中就应该避免重复现象的发生。
首先给编号定一个规则!然后每次生成编号前检查下最大的编号,在其基础上加1!

5. 在DELPHI5数据库中怎样让它自动生成编号?

自己用语句写比如:Select
MAx(id)
from
表如果表中没有纪录哪么id=1000然后插入DB中如果有纪录那么新纪录的id=max(id)+1

在DELPHI5数据库中怎样让它自动生成编号?

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);

DELPHI关于自动生成6位编号

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;
最新文章
热门文章
推荐阅读