有关listView和数据库的问题，在线急等，分数不是问题！

Question

是这样的
我想做成系统－－管理工具－－事件查看器那样的
然后我用LISTVIEW连接数据库显示字段
同时还要实现删除日志和保存日志为文本文件的功能
大家救我呀概括起来三个问题怎样让字段在LISTVIEW显示
怎眼实现删除日志，最好写点代码
怎样导出为文本文件，有分隔符的那种，就像系统自身的急

Answer 1

设置listview的其中一个属性（viewstyle）为vsReport，直接在属性窗口中可以修改
第一个字段直接赋值，其他字段用属于第一个字段的子项（即添加子项）
listview1.columns.add;
listview1.columns.add; // 两列
listview1.items.add; //添加一行
listview1.items.item[0].caption='第一个字段';
listview1.items.item[0].subitems.add('第二个字段');

Answer 2

谢谢楼上的
现在改用DBGRID了
请大家帮忙
实现类似
系统事务日志那样的效果

Answer 3

DBGRID
也可以作成类似的效果

Answer 4

http://blog.csdn.net/cnhgj/archive/2004/11/05/169395.aspx

Answer 5

to 戏子
我现在想要的是怎样实现 事件查看器 那样的效果
利用 DBGRID
只要实现  筛选，删除，查询 就可以了
真的很急呀
大家帮忙了

Answer 6

1 左边一个treeview,右边一个listview 中间一个splitter
treeviewd  单击时，判断节点信息，从而决定右侧调用什么库的内容。
2。保存，想要保存带分隔符的，可以用Tstringlist类 的SaveToFile，如：SaveToFile('c:\abbbb.csv');
下面是个保存到文本文件的例子，你可以尝试改为.csv文件。
procedure TForm1.ExportData(SourceTableName, OutputFile: String);
var AFile: TextFile;
  Q1: TQuery;
  I,J: Longint;
  RS: String;
  VA: array of String;
begin
  Q1 := TQuery.Create(nil);
  try
    Assignfile(AFile,OutputFile);
    Rewrite(AFile); //打开输出文件    Q1.SQL.Clear;
    Q1.SQL.Add('Select * from "'+SourceTableName+'"');
    Q1.Open;
    SetLength(VA,Q1.FieldCount); //设置动态数组长度
    ProgressBar1.Max := Q1.RecordCount;
    for I:=0 to Q1.RecordCount-1 do  //从第一条记录到最后一条记录循环
    begin
      RS := '';
      for J:=0 to Q1.FieldCount-1 do  //从第一个字段到最后一个字段循环
      begin
        case Q1.Fields[J].DataType of
          ftInteger,ftFloat,ftDate:
            VA[J] := Q1.Fields[J].AsString;
          ftString,ftMemo:
            VA[J] := '"'+Q1.Fields[J].AsString+'"';
        end;
        if J = Q1.FieldCount-1 then
          VA[J] := VA[J]
        else VA[J] := VA[J]+',';
        RS := RS+VA[J];
      end;
      Writeln(AFile,RS); //写入行
      Q1.Next;
      ProgressBar1.StepIt; //画进度条
      Application.ProcessMessages;
    end;
    Closefile(AFile);
    ProgressBar1.Position := 0;
    MessageBox(Handle,'完成！','',MB_OK);
  finally
    Q1.Close;
    Q1.Free;
  end;
end;至于删除和查询，我想不出和普通的有什么区别

Answer 7

报错呀
 songyanbin(孤叶) 
ReWrite(AFile)
说是I/O接口问题