| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 970 人关注过本帖
标题:高手帮忙一下啊,出现了这样的问题啊,头疼啊
只看楼主 加入收藏
gbtyy
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-6-25
收藏
 问题点数:0 回复次数:2 
高手帮忙一下啊,出现了这样的问题啊,头疼啊
系统进行自动编号时出现的问题: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;


高手帮忙解决下,谢谢了
搜索更多相关主题的帖子: 头疼 
2008-06-02 14:26
gbtyy
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-6-25
收藏
得分:0 
没有人回答吗?
2008-06-02 20:36
makebest
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:658
专家分:962
注 册:2005-3-17
收藏
得分:0 
这个问题的错误信息被你剥削了很重要的一个部分: 产生错误在哪一行? 因为你的代码仅可作为参考
2008-06-04 08:32
快速回复:高手帮忙一下啊,出现了这样的问题啊,头疼啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015878 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved