Delphi IntraWeb 数据库应用 汉字只能保存两个

[jaoan]

我用intraWeb做的一个B/S的东东 数据库是ADO连接SQL2000

其中有一个字段是CustomerName (VarChar,255)

在添加记录的时候只要是两个字的都能成功添加，要是三个字的名字就添加不上，网页只是闪一下，没有任何改变

下面是添加按钮的代码：

procedure TIWForm1.IWButton5Click(Sender: TObject);
var str:string;
begin
//查找添加的记录是否有重复，判断的字段有证件号（CardID）或者电话号码（PhoneNo）
str:='select * from Customerinfo where CardID = '+
      chr(39)+IWEdit5.Text+chr(39)+
      ' or PhoneNo = '+
      chr(39)+IWEdit6.Text +chr(39); 
UserSession.ADOQuery3.Close;
UserSession.ADOQuery3.SQL.Clear;
UserSession.ADOQuery3.SQL.Append(str);
UserSession.ADOQuery3.Open;

if UserSession.ADOQuery3.FieldValues['zt']='有' then//查找到有记录，提示重复
  begin
        webapplication.ShowMessage('保存不成功，记录有重复，请查看下方明细。');
  end
else  //没有则新增
  begin
  UserSession.ADOQuery2.Append;
  UserSession.ADOQuery2.FieldByName('CustomerName').Value:=IWEdit4.Text;
  UserSession.ADOQuery2.FieldByName('CardID').Value:=IWEdit5.Text;
  UserSession.ADOQuery2.FieldByName('quyu').Value:=IWLabel7.Caption;
  UserSession.ADOQuery2.FieldByName('PhoneNo').Value:=IWEdit6.Text;
  UserSession.ADOQuery2.FieldByName('zt').Value:='有';
  UserSession.ADOQuery2.Post;

  IWEdit4.Text:='';
  IWEdit5.Text:='';
  IWEdit6.Text:='';
  webapplication.ShowMessage('保存成功');
  end;

[kye_jufei]

從代碼來看（寫得基本沒有問題，數據庫的字段長度也夠。。。），LZ設置斷點看一下。。。

[jaoan]

好了，这是intraWeb的BUG，我用Delphi 7 重新做了。