高手帮忙一下啊,出现了这样的问题啊,头疼啊
系统进行自动编号时出现的问题:is not valid integer value按钮的事件代码如下
procedure Tfrm_xygdj.BitBtn2Click(Sender: TObject);
var
s,m:string;
n:integer;
begin
s:='';
With data1.ADOpublic do
begin
Close;
SQL.Clear;
SQL.Add('select max(bh) as ss From 人事表 ');
Open;
end;
If data1.ADOpublic.FieldByName('ss').Value = null then
s:=s+'001'
else
begin
m:= Trim(data1.ADOpublic.FieldByName('ss').Value) ;
n:= strtoint(copy(m,4,5)) ;
if n<9 then
s:= s+'00'+InttoStr(n +1)
else if n<99 then
s:=s+'0'+InttoStr(n +1)
else
s:=s+InttoStr(n +1);
end;
edit1.Text:=s;
end;
高手帮忙解决下,谢谢了