Question

delphi edit自动产生编码

在delphi 中 我想一点输入 客户编码这个Edit 中自动产生一个五位的流水号
怎么写代码啊 本人新手 哪位大侠帮下忙 给写下代码啊 多谢了

Answer 1

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

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

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

追问

额 不会写代码 嘿嘿 可不可以帮写一下 麻烦您了

追答

在开始的类定义里加一段（例如 public 段）：

    id: Integer;

按钮的代码示例如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(id);
  Edit1.Text := Format('%.5d',[id]);
end;

Answer 2

你的数据反正要保存进 那就设计数据库
设置 客户编码 字段 sn

在文本框控件的属性 onclick事件里

adoquery.sql.text:='select isnull(max(sn),9999)+1 as k1 from 表';
//获取以前的最大ID号 如果以前没有记录 那就从10000开始
adoquery.open

sn:=adoquery.fieldbyname('k1').asinteger;

追问

这样的话 我什么时候执行啊 难道是 得点到文本框的时候才会产生一个流水号么