伤脑筋.listView只每条显示数据库20字节的内容....

Question

请教一下......我使用listView读取数据库的时候.字段中的每条数据只能显示20字节的内容...不知道是怎么回事呢....我的代码是这样的///
var
  tmpItem: TListItem;
begin
  countITG := 0 ;
  ListView1.Items.Clear;
  with adoquery1 do
  begin
  close;
  sql.Clear;
  sql.Add( 'select site_N,U_name,U_pass,statu from siteInfo');
  Open;
  while not Eof do
  begin
  inc(countITG);
  ADOQuery1.Active := True;
  tmpItem := ListView1.Items.Add;
  tmpItem.Caption := intToStr(countITG);
  tmpItem.SubItems.Add(FieldByName('site_N').Value);
  next;
  end;
end;
end;

Answer 1

创建数据库的语句如下
      Adocommand1.commandtext:='create   table   siteInfo(site_N   char(80),U_name  char(30),U_pass char(30),statu char(30))';
      ADOCommand1.execute;
记录写入如下
     Adocommand1.commandtext:='insert  into  siteInfo(site_N,U_name,U_pass,statu) values  ("' +  webURL  +  '","' + webUName +  '","' + Form1.PSW.text +  '","' +  DateToStr(Now)  +   '")';
     ADOCommand1.execute;
查看数据库内容没有问题。数据保存完整郁闷呢。。