Question

delphi问题。我数据库中有一个数据表，第一个字段是[编号] [varchar] (15) NOT NULL ,表中暂时无数据插入

我想对这个字段弄一个编号规则，比如7位数字。第一个插入的编号就是0000001.但是有个资料上提供的方法是：
adoquery1.SQL.Add('select max(编号) 最大编号 from数据表');
adoquery1.Open;
if adoquery1.RecordCount>0 then//编号规则：7位数字编号
begin
temp:=trim(adoquery1.fieldbyname('最大编号').AsString);
num:=strtoint(temp)+1;
if num<10 then maxClinic:='000000'+inttostr(num);
if num>9 then maxClinic:=‘00000'+inttostr(num);
if num>99 then maxClinic:='0000'+inttostr(num);
if num>999 then maxClinic:='000'+inttostr(num);
if num>9999 then maxClinic:=’00'+inttostr(num);
if num>99999 then maxClinic:='0'+inttostr(num);
if num>999999 then maxClinic:=inttostr(num);
end
else
maxClinic:='0000001';，但现在的问题是，当表中还没有插入数据的时候，adoquery1.RecordCount>0是成立的，返回的是NULL。第一次插入数据是该怎么让判断语句执行else的部分呢。求解。急啊。。。。谢谢！

Answer 1

你用max(编号),求出来的recordcount是=1的。值是NULL。
你可指旅以多一个判断，在adoquery1.RecordCount>0处多个条件。

if (adoquery1.RecordCount>拿脊0) and (adoquery1.fieldbyname('最大编号').asstring<>消逗渗'') then

Answer 2

没用过delphi的数据库滑禅部分的东西，如果adoquery1.RecordCount>0
总是成立的话，程序无非改成这岩判样
adoquery1.Open;
temp:=adoquery1.fieldbyname('最大编号').AsString;
if not ( temp=nil or then adoquery1.IsEmpty) //我不确定delphi空值比较是不是这样的信枣尘，很久没用过了自己确认一下

begin
temp:=trim(temp);
num:=strtoint(temp)+1;
maxClinic:=copy('0000000',1,7-length(inttostr(num)))+inttostr(num);
end
else
maxClinic:='0000001';